PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Convertendo um SOAP para Array e de Array para Table
Convertendo um SOAP para Array e de Array para Table
Débuté par Boller, 16 mar. 2022 20:10 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 16 mars 2022 - 20:10
Informacoes is obterVeiculos
Informacoes.idVeiculo = 0
Informacoes.quantidade = 1000


Resposta is obterVeiculosResponse

arrEstrura is array of 1 by 27 string

Resposta = obterVeiculos(Informacoes)

vArRetorno is Variant = Resposta

qtdretornos is int = Resposta.return..Count

x is int = 1

LOOP(qtdretornos)

arrEstrura[x,01] = Resposta.return[x].descricao
arrEstrura[x,02] = Resposta.return[x].idAtuador1
arrEstrura[x,03] = Resposta.return[x].idAtuador2
arrEstrura[x,04] = Resposta.return[x].idAtuador3
arrEstrura[x,05] = Resposta.return[x].idAtuador4
arrEstrura[x,06] = Resposta.return[x].idAtuador5
arrEstrura[x,07] = Resposta.return[x].idAtuador6
arrEstrura[x,08] = Resposta.return[x].idAtuador7
arrEstrura[x,09] = Resposta.return[x].idAtuador8
arrEstrura[x,10] = Resposta.return[x].idCliente
arrEstrura[x,11] = Resposta.return[x].idEquipamentoDesc
arrEstrura[x,12] = Resposta.return[x].idSensor1
arrEstrura[x,13] = Resposta.return[x].idSensor2
arrEstrura[x,14] = Resposta.return[x].idSensor3
arrEstrura[x,15] = Resposta.return[x].idSensor4
arrEstrura[x,16] = Resposta.return[x].idSensor5
arrEstrura[x,17] = Resposta.return[x].idSensor6
arrEstrura[x,18] = Resposta.return[x].idSensor7
arrEstrura[x,19] = Resposta.return[x].idSensor8
arrEstrura[x,20] = Resposta.return[x].idSerial0
arrEstrura[x,21] = Resposta.return[x].idSerial1
arrEstrura[x,22] = Resposta.return[x].idVeiculo
arrEstrura[x,23] = Resposta.return[x].placa
arrEstrura[x,24] = Resposta.return[x].portaBloqueio
arrEstrura[x,25] = Resposta.return[x].portaPanico
arrEstrura[x,26] = Resposta.return[x].satelital
arrEstrura[x,27] = Resposta.return[x].telemetria

x++

Dimension(arrEstrura, x, 27)

END

nTotalarray is int = x
y is int = 0
LOOP (nTotalarray)

y++

TableAdd(TABLE_Veiculo, arrEstrura[y,01] +TAB+
arrEstrura[y,10] +TAB+
arrEstrura[y,11] +TAB+
arrEstrura[y,22] +TAB+
arrEstrura[y,23] )

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/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 16 mars 2022 - 22:19
//correção

Informacoes is obterVeiculos


Informacoes.idVeiculo = 0


Informacoes.quantidade = 1000


Resposta is obterVeiculosResponse


arrEstrura is array of 1 by 27 string


Resposta = obterVeiculos(Informacoes)


vArRetorno is Variant = Resposta


qtdretornos is int = Resposta.return.. Countx


is int = 1



LOOP(qtdretornos)

arrEstrura[x,01] = Resposta.return[x]. descricao
arrEstrura[x,02] = Resposta.return[x]. idAtuador1
arrEstrura[x,03] = Resposta.return[x]. idAtuador2
arrEstrura[x,04] = Resposta.return[x]. idAtuador3
arrEstrura[x,05] = Resposta.return[x]. idAtuador4
arrEstrura[x,06] = Resposta.return[x]. idAtuador5
arrEstrura[x,07] = Resposta.return[x]. idAtuador6
arrEstrura[x,08] = Resposta.return[x]. idAtuador7
arrEstrura[x,09] = Resposta.return[x]. idAtuador8
arrEstrura[x,10] = Resposta.return[x]. idCliente
arrEstrura[x,11] = Resposta.return[x]. idEquipamentoDesc
arrEstrura[x,12] = Resposta.return[x]. idSensor1
arrEstrura[x,13] = Resposta.return[x]. idSensor2
arrEstrura[x,14] = Resposta.return[x]. idSensor3
arrEstrura[x,15] = Resposta.return[x]. idSensor4
arrEstrura[x,16] = Resposta.return[x]. idSensor5
arrEstrura[x,17] = Resposta.return[x]. idSensor6
arrEstrura[x,18] = Resposta.return[x]. idSensor7
arrEstrura[x,19] = Resposta.return[x]. idSensor8
arrEstrura[x,20] = Resposta.return[x]. idSerial0
arrEstrura[x,21] = Resposta.return[x]. idSerial1
arrEstrura[x,22] = Resposta.return[x]. idVeiculo
arrEstrura[x,23] = Resposta.return[x]. placa
arrEstrura[x,24] = Resposta.return[x]. portaBloqueio
arrEstrura[x,25] = Resposta.return[x]. portaPanico
arrEstrura[x,26] = Resposta.return[x]. satelital
arrEstrura[x,27] = Resposta.return[x]. telemetria

x++

Dimension(arrEstrura, x, 27)

END


nTotalarray is int = x


y is int = 0


LOOP(nTotalarray)


y++

TableAdd(TABLE_Veiculo, arrEstrura[y,01] +TAB+
arrEstrura[y,10] +TAB+
arrEstrura[y,11] +TAB+
arrEstrura[y,22] +TAB+
arrEstrura[y,23] )

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/
Message modifié, 16 mars 2022 - 22:21