PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Exemplo similar ao Deserialize( )
WX - Exemplo similar ao Deserialize( )
Débuté par BOLLER, 15 fév. 2018 13:39 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 15 février 2018 - 13:39
HDeleteAll(t025_PedidosAbertos)

a1 is int = 0

JsonCode is Buffer = :m_s_resultado_request

PersonXml is Variant

PersonXml = JSONToVariant(JsonCode)

LOOP(PersonXml..Occurrence)

a1+= 1

t025_PedidosAbertos.t025_DocNum = PersonXml[a1].DocNum
t025_PedidosAbertos.t025_DocEntry = PersonXml[a1].DocEntry
t025_PedidosAbertos.t025_CardCode = PersonXml[a1].CardCode
t025_PedidosAbertos.t025_CardNome = PersonXml[a1].CardName
HAdd(t025_PedidosAbertos)

END


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