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  1,

                            Input  table tt_input_estorno,

                            output table tt_log_erros_estorn_cancel).

Tabelas Temporárias

def temp-table tt_input_estorno no-undo

    field ttv_cod_label                    as character format "x(8)" label "Label" column-label "Label"

    field ttv_des_conteudo                 as character format "x(40)" label "Texto" column-label "Texto"

    field ttv_num_seq                      as integer format ">>>,>>9" label "Seqˆncia" column-label "Seq"

    index tt_primario                      is primary

          ttv_num_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_log_erros_estorn_cancel no-undo

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

    field tta_num_id_tit_acr               as integer format "9999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"

    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 ttv_num_mensagem                 as integer format ">>>>,>>9" label "N£mero" column-label "N£mero Mensagem"

    field ttv_des_msg_erro                 as character format "x(60)" label "Mensagem Erro" column-label "Inconsistˆncia"

    field ttv_des_msg_ajuda                as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"

    index tt_relac_tit_acr               

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_num_id_movto_tit_acr         ascending

          ttv_num_mensagem                 ascending.