Posté le 16 mars 2022 - 20:09 |
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/ |
| |
| |
|