Pegar os dados de uma json com objetos e arrays

[aslsoftwareltda]

Boa tarde,

Estou com esse json e não estou conseguindo pegar todos os dados, alguém poderia me ajudar, estou usando o delphi xe8. Obrigado.

{

    "pedidos": [

        {

            "pedido": {

                "dados_pedido": {

                    "codigo_pedido": "6",

                    "codigo_erp": "0",

                    "codigo_cliente": "8",

                    "cod_representante": "1",

                    "codigo_status": "2",

                    "obs": null,

                    "data_cadastro_br": "09/02/2022 11:27:15",

                    "data_cadastro": "2022-02-09 11:27:15"

                },

                "dados_cliente": {

                    "codigo_cliente": "8",

                    "razao": "JOSE FRANCA & CIA LTDA.",

                    "tipo_pessoa": null,

                    "cnpj": "16.903.692/0001-18",

                    "cpf": "",

                    "telefone": "(03)4661-2027",

                    "telefone2": ""

                },

                "dados_entrega": {

                    "logradouro": "RUA DOUTOR FRANKLIN DE CASTRO, 147",

                    "numero": "",

                    "complemento": "",

                    "bairro": "",

                    "cidade": "ARAXA",

                    "cep": "38180-000",

                    "uf": "MG"

                },

                "produtos": [

                    {

                        "codigo_produto": "2001",

                        "descricao": "CAIXA PASSAGEM 120X120X55 SOBREPOR BEGE",

                        "valor": "4.80",

                        "quantidade": "2",

                        "desconto": "0.48",

                        "porcentagemdesconto": "5.00",

                        "total": "9.58"

                    },

                    {

                        "codigo_produto": "2002B",

                        "descricao": "CAIXA PASSAGEM 150X150X75 SOBREPOR BRANCA",

                        "valor": "8.78",

                        "quantidade": "3",

                        "desconto": "0.00",

                        "porcentagemdesconto": "0.00",

                        "total": "26.34"

                    }

                ]

            }

        },

        {

            "pedido": {

                "dados_pedido": {

                    "codigo_pedido": "7",

                    "codigo_erp": "0",

                    "codigo_cliente": "11",

                    "cod_representante": "1",

                    "codigo_status": "2",

                    "obs": null,

                    "data_cadastro_br": "09/02/2022 11:32:41",

                    "data_cadastro": "2022-02-09 11:32:41"

                },

                "dados_cliente": {

                    "codigo_cliente": "11",

                    "razao": "MAC REL DISTRIBUIDORA LTDA.",

                    "tipo_pessoa": null,

                    "cnpj": "18.823.435/0002-00",

                    "cpf": "",

                    "telefone": "(03)1441-0219",

                    "telefone2": "(  )    -    "

                },

                "dados_entrega": {

                    "logradouro": "RUA CAMPISTA",

                    "numero": "161",

                    "complemento": "",

                    "bairro": "SANTA BRANCA",

                    "cidade": "BELO HORIZONTE",

                    "cep": "31565-250",

                    "uf": "MG"

                },

                "produtos": [

                    {

                        "codigo_produto": "2001",

                        "descricao": "CAIXA PASSAGEM 120X120X55 SOBREPOR BEGE",

                        "valor": "4.80",

                        "quantidade": "10",

                        "desconto": "4.80",

                        "porcentagemdesconto": "10.00",

                        "total": "45.36"

                    },

                    {

                        "codigo_produto": "2001",

                        "descricao": "CAIXA PASSAGEM 120X120X55 SOBREPOR BEGE",

                        "valor": "4.80",

                        "quantidade": "10",

                        "desconto": "12.00",

                        "porcentagemdesconto": "25.00",

                        "total": "37.80"

                    }

                ]

            }

        }

    ]

}

 

[Juliomar Marchetti]

codigo fonte do ACBr tem isso. questão de boletos.

basta abrir e olhar

[aslsoftwareltda]

16 horas atrás, Juliomar Marchetti disse:

codigo fonte do ACBr tem isso. questão de boletos.

basta abrir e olhar

obrigado, deu certinho.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.