Histórico da Página

...

Implantar títulos ACR a partir de temp-tables geradas por outros programas.

Importante: Utilizar a documentação atualizada ACR900ZJ - Integração/Implantação de Títulos.

Funcionamento

Na forma padrão, realiza-se a chamada através de um comando RUN normal, passando-se as temp-tables carregadas com as informações necessárias.

...

RUN pi_main_code_integr_acr_new_13 15 IN v_hdl_programa (INPUT 11,

...

                                                      INPUT TABLE tt_integr_acr_relacto_pend_aux,

                                                      INPUT TABLE tt_integr_perext_item_impl_acr,

                                                      INPUT TABLE tt_integr_acr_docto_mais_negoc).

Delete procedure v_hdl_programa.

...

tt_integr_acr_abat_antecip.ttv_rec_item_lote_impl_tit_acr

tt_integr_acr_abat_antecip.ttv_rec_abat_antecip_acr

...

...

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_ped_vda                  vda                  as character format "x(1215)" label "Pedido Venda" column-label "Pedido Venda"

    field tta_cod_ped_vda_repres           as character format "x(1230)" label "Pedido Repres" column-label "Pedido Repres"

...

Obs. Campo utilizado para o REINF.

PIX:

A modalidade de Cobrança PIX segundo os layouts dos bancos possuem informações diferentes da cobrança escritural normal e estas precisam estar disponíveis para alteração pelo usuário.

Informações necessárias:

- campo dsl_pix_link - Link gerado para pagamento do Qr Code dinâmico. Será retornado pelo Banco neste primeiro momento.

- campo des_url_loc_payload_json - URL presente no EMV do QR Code dinâmico e que contém os dados da cobrança

- campo dsl_emv_qr_code - EMV do QR Code dinâmico. Esse campo deve ser utilizado no processo de geração de imagem (base64). 

Exemplo Criação temp-table tt_params_generic_api para campo Link:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'dsl_pix_link':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar pix link fornecido pelo banco.

Exemplo Criação temp-table tt_params_generic_api para campo URL :

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'des_url_localiz_json':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

Exemplo Criação temp-table tt_params_generic_api para campo EMV:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'dsl_emv_qrcode':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

...

    field tta_num_livre_1                  as integer format ">>>>>9" initial 0 label "Livre 1" column-label "Livre 1"

    field tta_num_livre_2                  as integer format ">>>>>9" initial 0 label "Livre 2" column-label "Livre 2"

    field tta_val_livre_1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"

    field tta_val_livre_2                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 2" column-label "Livre 2"

    field tta_dat_livre_1                  as date format "99/99/9999" initial ? initial 0 label "Livre 1" column-label "Livre 1"

    field tta_numdat_livre_2                  as integer date format ">>>>>999/99/9999" initial 0 ? label "Livre 2" column-label "Livre 2"

    field tta_val_livre_1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"index tt_prxttmlt_id                   is primary unique

          tta_cod_estab                    ascending

          tta_cod_refer                    ascending

          tta_num_seq_refer                ascending

    .

Esta temp-table não deverá ser alimentada a não ser pelo próprio processo do Mais Negócios.

def temp-table tt_integr_acr_docto_mais_negoc no-undo

    field ttv_rec_lote_impl_tit_acr        as recid format ">>>>>>9" initial ?

    field tta_valcod_livreser_2  docto                 as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 2 as character format "x(5)" label "Série Documento" column-label "Livre 2Série"

    field tta_datcod_livretit_1  acr                 as date  as character format "99/99/9999" initial ? label "Livre 1x(16)" label "Título" column-label "Livre 1Título"

    field ttattv_json_datmais_livrenegoc_2  supplier     as blob

    index tt_id         as date format "99/99/9999" initial ? label "Livre 2" column-label "Livre 2"     index tt_prxttmlt_id                   is primary unique

          tta_cod_estab  ttv_rec_lote_impl_tit_acr                   ascending ascending

          tta_cod_refer  ser_docto                   ascending ascending

          tta_numcod_seqtit_refer  acr                 ascending ascending
    .