quinta-feira, 2 de fevereiro de 2017

Aula 1055 - WebService - 007 - Consumir WebService - Cotação Dolar









Video no Youtube Se Gostou clique aqui para dar joinha



http://api.promasters.net.br/cotacao/



help1




Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...




//Buscar em Json
// http://api.promasters.net.br/cotacao/
s_url is string="http://api.promasters.net.br/cotacao/v1/valores"
IF HTTPRequest(s_url) THEN
    SAI_Resultado= HTTPGetResult()
END
let jz=JSONToVariant(SAI_Resultado)
TableDeleteAll(TABLE_indices)
FOR EACH _m OF jz..Member
    TableAddLine(TABLE_indices,_m..Name+TAB+" = "+_m..Value)
    TableAddLine(TABLE_indices,"=========================")
    mebros(_m)   
END
    INTERNAL PROCEDURE mebros(x)   
    FOR EACH _m2 OF x..Member
        TableAddLine(TABLE_indices,_m2.nome,_m2.valor,_m2.fonte,_m2.ultima_consulta)
    END          
    END





//

//Buscal em Xml
s_url is string="http://api.promasters.net.br/cotacao/v1/valores?alt=xml"
IF HTTPRequest(s_url) THEN   
    SAI_Resultado= HTTPGetResult()   
END
TableDeleteAll(TABLE_indices) // Elimina Dados da Tabela
XMLDocument("XML1",SAI_Resultado)
_status is string=XMLRead("XML1","/Root/status")
TableAddLine(TABLE_indices,"Status",_status)
s_nome is string=""
s_valor is string=""
s_fonte is string=""
s_ultima_consulta is string=""
s_nome_tag is string=""  
XMLFind("XML1",Null,XMLElément+XMLChildItem,XMLStartWith)
WHILE XMLFound("XML1")   //Percorrer xml       
    SWITCH XMLElementType("XML1") 
        CASE XMLTag :
            s_nome_tag = XMLElementName("XML1") // vou pegar nome da tag
            IF s_nome_tag="nome" THEN s_nome=XMLData("XML1")
            IF s_nome_tag="valor" THEN s_valor=XMLData("XML1")
            IF s_nome_tag="ultima_consulta" THEN s_ultima_consulta=XMLData("XML1")
            IF s_nome_tag="fonte" THEN s_fonte=XMLData("XML1")
    END
    IF s_fonte<>"" THEN
        TableAddLine(TABLE_indices,s_nome,s_valor,s_fonte,s_ultima_consulta)       
        s_nome=""
        s_valor=""
        s_fonte=""
        s_ultima_consulta=""       
    END
    XMLNext("XML1")
END
XMLClose("XML1")
//Fim Buscal em Xml






Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006



















Teste

Teste
teste