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
