PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Aula 1041 - WebService - 004 - Ajustando Xml Lista Site WebService
Aula 1041 - WebService - 004 - Ajustando Xml Lista Site WebService
Started by amarildo, Jan., 20 2017 11:06 AM - 1 reply
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on January, 20 2017 - 11:06 AM
// 1) Vamos ajustar Xml Lista Site
// 2 - Vou Deixar Tudo Minusculo
// 3 - Alterar Sites_Uteis id

==============================================================

Procedure Lista_Sites()
//1 - Vou Deixar Tudo Minusculo
//2 - Alterar Sites_Uteis id1
s_resultado_xml is string="" // Criando Resultado Xml String
s_resultado_xml+="<xml>" //Criando Tag Inicial Xml
s_resultado_xml+="<retorno>" // Criando Tag Inicial Retorno
FOR EACH sites_uteis // Percorrendo Tabela Sites Uteis
//Criei uma String Texto //Coloquei o que desejo dentro []
s_texto is string=[
<site_uteis id="@id@">
]
s_texto=NoSpace(Replace(s_texto,"@id@",NumToString(sites_uteis.id_sites_uteis,"05d")))
//Depois disso vai ficar <site_uteis id="00001">
//Abrindo Tag Site Uteis

s_resultado_xml+=s_texto

s_resultado_xml+="<titulo>"+NoSpace(sites_uteis.titulo)+"</titulo>"
//Abrindo e fechando tag com nome titulo
s_resultado_xml+="<titulo_link>"+NoSpace(sites_uteis.titulo_link)+"</titulo_link>"
//Abrindo e fechando tag com link
s_resultado_xml+="</site_uteis>" //Fechando Tag Site Uteis
END
s_resultado_xml+="</retorno>" // Criando Tag Final Retorno
s_resultado_xml+="</xml>" // Criando Tag Final Xml
RESULT(s_resultado_xml)

//<Xml>
//<Retorno>
//<empresa>Empresa Matos Informatica</empresa>
//<Site_uteis id="00001">
//<titulo>Matos Informatica</titulo>
//<titulo_link>www.matosinformatica.com.br</titulo_link>
//</Site_uteis>
//<Site_uteis id="00002">
//<titulo>Amarildo</titulo>
//<titulo_link>www.amnarildo.com.br</titulo_link>
//</Site_uteis>
//</Retorno>
//</Xml>


http://windevdesenvolvimento.blogspot.com.br/2017/01/aula-1041-webservice-004-ajustando-xml.html

Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on February, 09 2017 - 11:01 AM
:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/