PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Convertendo um SOAP para Array e de Array para Table
Convertendo um SOAP para Array e de Array para Table
Started by Boller, Mar., 16 2022 8:09 PM - No answer
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on March, 16 2022 - 8:09 PM
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/