Documento de API

Objetivo

Cancelar títulos e estornar títulos e/ou movimentos do Contas a Receber.

Funcionamento

Executar o programa API(utilizar o nome externo), da seguinte forma:

run prgfin/acr/acr715zb.py (Input Input  1,

                                             Input                             Input  table tt_integr_acr_estorn_cancelinput_estorno,

                                                                         output table tt_log_erros_estorn_cancel).

Tabelas Temporárias

def temp-table tt_input_estorno no-undo

...

    index tt_primario                      is primary

          ttv_num_seq                      ascending

    .

seq                      ascending.

Exemplo:

v_num_cont = Cada estorno possui um número seqüencial e para cada um deve existir as ocorrências(create) abaixo:

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq       = v_num_cont

           tt_input_estorno.ttv_cod_label       = "Nível"

           tt_input_estorno.ttv_des_conteudo = {“Título” ou “Movimentos”) Indica se esta sendo estornado um título ou um movimento do título.

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq       = v_num_cont

           tt_input_estorno.ttv_cod_label       = "Operação"  

           tt_input_estorno.ttv_des_conteudo = {“Estorno” ou “Cancelamento”}.

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq       = v_num_cont

           tt_input_estorno.ttv_cod_label       = "Estabelecimento" 

           tt_input_estorno.ttv_des_conteudo = {Estabelecimento do título}

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq        = v_num_cont

           tt_input_estorno.ttv_cod_label        = "Data" 

           tt_input_estorno.ttv_des_conteudo = string({Data da transação}).

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq       = v_num_cont

           tt_input_estorno.ttv_cod_label       = "Referência"

           tt_input_estorno.ttv_des_conteudo = {Referencia}

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq        = v_num_cont

           tt_input_estorno.ttv_cod_label        = "Histórico" 

           tt_input_estorno.ttv_des_conteudo = {Texto Histórico}

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq       = v_num_cont

           tt_input_estorno.ttv_cod_label       = "ID Movimento" 

           tt_input_estorno.ttv_des_conteudo = string(Num ID Movimento).

create tt_input_estorno.

assign tt_input_estorno.ttv_num_seq        = v_num_cont

           tt_input_estorno.ttv_cod_label        = "ID Titulo" 

           tt_input_estorno.ttv_des_conteudo = string(Num ID Título).

def temp-table tt_integrlog_acrerros_estorn_cancel no-undo

    field ttv_ind_niv_operac_acr           as character format "X(12)" label "N¡vel Opera‡Æo" column-label "N¡vel Opera‡Æo"

    field ttv_ind_tip_operac_acr           as character format "X(15)" label "Tipo Opera‡Æo" column-label "Tipo Opera‡Æo"

    field tta_cod_estab                    as character format "x(3)" label "Estabelecimento" column-label "Estab"

...

    field tta_num_id_movto_tit_acr         as integer format "9999999999" initial 0 label "Token Movto Tit  ACR" column-label "Token Movto Tit  ACR"

    field ttattv_codnum_refer                    mensagem                 as character integer format "x(10)>>>>,>>9" label "ReferˆnciaN£mero" column-label "ReferˆnciaN£mero Mensagem"

    field ttattv_des_datmsg_transacao                erro                 as date character format "99/99/9999" initial today label "Data Transa‡Æox(60)" label "Mensagem Erro" column-label "Dat TransacInconsistˆncia"

    field ttattv_des_textmsg_histor              ajuda                as character format "x(200040)" label "Hist¢ricoMensagem Ajuda" column-label "Hist¢ricoMensagem Ajuda"

    field ttv_cod_estab_reembol            as character format "x(8)"

    field ttv_cod_portad_reembol           as character format "x(5)"

    field ttv_cod_cart_bcia_reembol        as character format "x(3)"

    index tt_id                            is primary unique

    index tt_relac_tit_acr               

          tta_cod_estab                    ascending

          tta          tta_num_id_tit_acr               ascending

          tta_num_id_movto_tit_acr         ascending

          ttv_num_mensagem                 ascending.

     .