Carregar JSON em delphi

09/07/2021

0

Ola!
Estou com um problema que está me enlouquecendo. Tenho que ler um ARRAY json onde tenho vários OBJETOS json e dentro desses OBJETOS tenho os ARRAYS de ENTREGAS, ocorre que não estou conseguindo efetuar a leitura nem dos arrays e nem dos objetos. Podem me ajudar?

Eis o json

[
{
"codrotaprinc":"12",
"CODIGO_INT":"85942",
"TIPO_INT":"T10_ROMANEIO_MONTAGEM_CARGA",
"t10_destino":"TESTE ION 2",
"t10_obs":"",
"t10_data_saida":"2021-07-10 05:00:00",
"t05_codigo_erp":"174",
"t05_nome":"174 ALFREDO ",
"peso":"0",
"custo":"265.794",
"t10_custo_estimado":"265.7794",
"volume":"4",
"valortotal":"10176",
"numitens":"0",
"numclientes":"4",
"clientes":"93000;105429;86135;92875",
"numcidades":"1",
"codpracaprinc":"12",
"placa":"KVC4732",
"t06_codigo_erp":"19",
"t06_peso_max_entregas":"5100",
"t06_volume_max_entregas":"50",
"t06_qtd_pallets_veiculo":"10",
"VEICULO_ERP":"19",
"t43_codigo_filial_erp":"1",
"cod_erp_usuario":"",
"codajudantes":",,,",
"t10_sn_tem_transferencia":"N",
"cod_moto_transf":null,
"cod_veic_transf":null,
"t10_carga_formada_erp":null,
"t10_custo_pedagio":"0",
"t10_data_cancelamento":null,
"t10_data_grava":"2021-07-09 11:28:03",
"t10_data_inicio":null,
"t10_data_prevista_termino":"2021-07-10 07:40:34",
"t10_data_termino":null,
"t10_data_verif_avarias":null,
"t10_diarias_completas":"0",
"t10_diarias_simples":"1",
"t10_id":"33701",
"t10_kmRealizado":"0",
"km_previsto":"83",
"t10_kmTotal":"83",
"t10_modo_rota":"R",
"t10_obs_avarias":null,
"t10_qtd_almoco":"0",
"t10_qtd_cafe_manha":"0",
"t10_qtd_hospedagens":"0",
"t10_qtd_jantar":"0",
"t10_qtd_pallets_carga":"10",
"t10_senha_mobile_cast":"38",
"t10_situacao":"Ativo",
"t10_sn_frete_negociado":"N",
"t10_sn_houveram_avarias":"N",
"t10_sn_planejada":"S",
"t10_sn_utiliza_chapa":"N",
"t10_sn_verificado_avarias":"N",
"t10_tempoMovimento":"4834",
"t10_tempoTotal":"9634",
"t10_tipo_chapa":"N",
"t10_valor_adiantado_motorista":"17",
"t10_valor_adiantamento_extra":"0",
"t10_valor_chapa":"0",
"t10_valor_descarrego":"0",
"t10_valor_frete_negociado":"0",
"t10_velMax":null,
"t10_velMed":null,
"t10_velMedMov":null,
"t10_valor_frete_autonomo":"0",
"t10_romameio_id_transf":null,
"cnpj_transportadora":"NULL",
"t141_id":null,
"t141_descricao":null,
"t06_codigo_erp_reboque1":null,
"t06_codigo_erp_reboque2":null,
"t06_codigo_erp_reboque3":null,
"t10_cargas_erp":null,
"T10_ID":"33701",
"ENTREGAS":[
{
"t12_ordemEntrega":"1",
"t12_num_divisao_carga":"1",
"t12_destino_divisao_carga":"TESTE FUON 2",
"t12_obs_divisao_carga":"",
"t12_romameio_id_transf":null,
"t32_nf":"0",
"t32_carga_erp":"0",
"t32_num_ped_conf":"",
"t32_romaneio_erp":null,
"t32_pedido_original":"1120361",
"t32_qtd_itens_pedido":null,
"t32_valor":"3385",
"t32_peso":"0",
"t32_volume_m3":"1",
"t43_codigo_filial_erp":"1",
"t32_latitude":"-22.761464",
"t32_longitude":"-43.4346937",
"t32_sn_end_entrega_dif":"N",
"t12_data_prevista_entrega":"2021-07-10 05:39:06",
"t12_data_prevista_entrega_atualizada":null,
"t12_data_real_entrega":null,
"t12_observacao_da_entrega":null,
"t32_tipo_nf":"",
"t12_carga_primaria":"S",
"t44_codigo_erp":"93000"
},
{
"t12_ordemEntrega":"2",
"t12_num_divisao_carga":"1",
"t12_destino_divisao_carga":"TESTE ION 2",
"t12_obs_divisao_carga":"",
"t12_romameio_id_transf":null,
"t32_nf":"0",
"t32_carga_erp":"0",
"t32_num_ped_conf":"",
"t32_romaneio_erp":null,
"t32_pedido_original":"1120454",
"t32_qtd_itens_pedido":null,
"t32_valor":"837",
"t32_peso":"0",
"t32_volume_m3":"1",
"t43_codigo_filial_erp":"1",
"t32_latitude":"-22.726235",
"t32_longitude":"-43.4444324",
"t32_sn_end_entrega_dif":"N",
"t12_data_prevista_entrega":"2021-07-10 06:10:01",
"t12_data_prevista_entrega_atualizada":null,
"t12_data_real_entrega":null,
"t12_observacao_da_entrega":null,
"t32_tipo_nf":"",
"t12_carga_primaria":"S",
"t44_codigo_erp":"105429"
},
{
"t12_ordemEntrega":"3",
"t12_num_divisao_carga":"1",
"t12_destino_divisao_carga":"TESTE ION 2",
"t12_obs_divisao_carga":"",
"t12_romameio_id_transf":null,
"t32_nf":"0",
"t32_carga_erp":"0",
"t32_num_ped_conf":"",
"t32_romaneio_erp":null,
"t32_pedido_original":"1119215",
"t32_qtd_itens_pedido":null,
"t32_valor":"2905",
"t32_peso":"0",
"t32_volume_m3":"1",
"t43_codigo_filial_erp":"1",
"t32_latitude":"-22.7723333",
"t32_longitude":"-43.5212222",
"t32_sn_end_entrega_dif":"N",
"t12_data_prevista_entrega":"2021-07-10 06:40:05",
"t12_data_prevista_entrega_atualizada":null,
"t12_data_real_entrega":null,
"t12_observacao_da_entrega":null,
"t32_tipo_nf":"",
"t12_carga_primaria":"S",
"t44_codigo_erp":"86135"
},
{
"t12_ordemEntrega":"4",
"t12_num_divisao_carga":"1",
"t12_destino_divisao_carga":"TESTE ION 2",
"t12_obs_divisao_carga":"",
"t12_romameio_id_transf":null,
"t32_nf":"0",
"t32_carga_erp":"0",
"t32_num_ped_conf":"",
"t32_romaneio_erp":null,
"t32_pedido_original":"1117962",
"t32_qtd_itens_pedido":null,
"t32_valor":"3049",
"t32_peso":"0",
"t32_volume_m3":"1",
"t43_codigo_filial_erp":"1",
"t32_latitude":"-22.7843761",
"t32_longitude":"-43.5569507",
"t32_sn_end_entrega_dif":"N",
"t12_data_prevista_entrega":"2021-07-10 07:06:48",
"t12_data_prevista_entrega_atualizada":null,
"t12_data_real_entrega":null,
"t12_observacao_da_entrega":null,
"t32_tipo_nf":"",
"t12_carga_primaria":"S",
"t44_codigo_erp":"92875"
}
],
"ITENS_ENTREGAS":[

]
},
{
"codrotaprinc":"14",
"CODIGO_INT":"85943",
"TIPO_INT":"T10_ROMANEIO_MONTAGEM_CARGA",
"t10_destino":"TESTE ION 3",
"t10_obs":"",
"t10_data_saida":"2021-07-10 05:00:00",
"t05_codigo_erp":"400",
"t05_nome":"Freteito",
"peso":"3300",
"custo":"504.562",
"t10_custo_estimado":"504.562",
"volume":"41972",
"valortotal":"13486",
"numitens":"0",
"numclientes":"2",
"clientes":"89956;105338",
"numcidades":"1",
"codpracaprinc":"14",
"placa":"KVL0647",
"t06_codigo_erp":"12",
"t06_peso_max_entregas":"3022",
"t06_volume_max_entregas":"50",
"t06_qtd_pallets_veiculo":"10",
"VEICULO_ERP":"12",
"t43_codigo_filial_erp":"1",
"cod_erp_usuario":"",
"codajudantes":",,,",
"t10_sn_tem_transferencia":"N",
"cod_moto_transf":null,
"cod_veic_transf":null,
Cezar Lopes

Cezar Lopes

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar