|
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 659 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 659 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 |
| |
| |
| | | |
|
| | | | |
| | |
|