Как написать JSON в Delphi с помощью lkJson - PullRequest
0 голосов
/ 27 сентября 2019

Я работаю над отправкой квитанций о банковских платежах для API.

Мне нужна помощь в создании JSON, например:

{
   "tipo_ambiente":"2",
   "tipo_registro":"1",
   "tipo_cobranca":"1",
   "tipo_produto":"00006",
   "subproduto":"00008",
   "beneficiario":{
      "cpf_cnpj_beneficiario":"12345678000100",
      "agencia_beneficiario":"1500",
      "conta_beneficiario":"005206",
      "digito_verificador_conta_beneficiario":"1"
   },
   "debito":{
      "agencia_debito":"",
      "conta_debito":"",
      "digito_verificador_conta_debito":""
   },
   "identificador_titulo_empresa":"",
   "uso_banco":"",
   "titulo_aceite":"S",
   "pagador":{
      "cpf_cnpj_pagador":"000012345678910",
      "nome_pagador":"PAGADOR VIA API",
      "logradouro_pagador":"RUA DO PAGADOR",
      "bairro_pagador":"BAIRRO",
      "cidade_pagador":"CIDADE",
      "uf_pagador":"SP",
      "cep_pagador":"00000000",
      "grupo_email_pagador":[
         {
            "email_pagador":""
         }
      ]
   },
   "sacador_avalista":{
      "cpf_cnpj_sacador_avalista":"000012345678900",
      "nome_sacador_avalista":"SACADOR AVALISTA",
      "logradouro_sacador_avalista":"ENDERECO SACADOR AVALISTA",
      "bairro_sacador_avalista":"BAIRRO",
      "cidade_sacador_avalista":"CIDADE",
      "uf_sacador_avalista":"SP",
      "cep_sacador_avalista":"00000000"
   },
   "tipo_carteira_titulo":"198",
   "moeda":{
      "codigo_moeda_cnab":"9",
      "quantidade_moeda":""
   },
   "nosso_numero":"12345678",
   "digito_verificador_nosso_numero":"1",
   "codigo_barras":"string",
   "data_vencimento":"2016-12-31",
   "valor_cobrado":"00000000000015000",
   "seu_numero":"1234567890",
   "especie":"01",
   "data_emissao":"2016-11-21",
   "data_limite_pagamento":"2016-12-31",
   "tipo_pagamento":"1",
   "indicador_pagamento_parcial":"false",
   "quantidade_pagamento_parcial":"0",
   "quantidade_parcelas":"0",
   "instrucao_cobranca_1":"",
   "quantidade_dias_1":"",
   "data_instrucao_1":"",
   "instrucao_cobranca_2":"",
   "quantidade_dias_2":"",
   "data_instrucao_2":"",
   "instrucao_cobranca_3":"",
   "quantidade_dias_3":"",
   "data_instrucao_3":"",
   "valor_abatimento":"00000000000000010",
   "juros":{
      "data_juros":"",
      "tipo_juros":"5",
      "valor_percentual_juros":"",
      "percentual_juros":""
   },
   "multa":{
      "data_multa":"",
      "tipo_multa":"3",
      "valor_multa":"",
      "percentual_multa":""
   },
   "grupo_desconto":[
      {
         "data_desconto":"2016-10-10",
         "tipo_desconto":"2",
         "valor_desconto":"00000000000000000",
         "percentual_desconto":"00000000000000010"
      }
   ],
   "recebimento_divergente":{
      "tipo_autorizacao_recebimento":"3",
      "tipo_valor_percentual_recebimento":"",
      "valor_minimo_recebimento":"",
      "percentual_minimo_recebimento":"",
      "valor_maximo_recebimento":"",
      "percentual_maximo_recebimento":""
   },
   "grupo_rateio":[   
   ]
}

Я исследовал и узнал, как создавать списки: Создание массива JSON с LKJSON в Delphi 7

Моя проблема в том, что я не знаю, как писать атрибуты первого уровня, например:

     "identificador_titulo_empresa":"",
     "uso_banco":"",
     "titulo_aceite":"S",
     "pagador":{....

и

    "nosso_numero":"12345678",
    "digito_verificador_nosso_numero":"1",
    "codigo_barras":"string",
    "data_vencimento":"2016-12-31",
    "valor_cobrado":"00000000000015000",
    "seu_numero":"1234567890",

Сначала я создаю объект с данными в корне, а затем добавляю элементы?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...