Linha Datasul

Árvore de páginas

Documento de API

Produto:

Datasul

Ocorrência:

Documentação de API

Nome Físicoprgfin/acr/acr718za 

 

Funcionamento

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

run prgfin/acr/acr718za.py (Input  recid(renegoc_acr),

                            Input  v_dat_estorno,

                            Input  v_cod_refer,

                            Input  v_des_text_histor,

                            output table tt_log_erros_estorn_cancel).

 

for each tt_log_erros_estorn_cancel:

 message '    Estabelecimento:' tt_log_erros_estorn_cancel.tta_cod_estab             skip

         '  Token Cta Receber:' tt_log_erros_estorn_cancel.tta_num_id_tit_acr        skip

         'Token Movto Tit ACR:' tt_log_erros_estorn_cancel.tta_num_id_movto_tit_acr  skip

         '             Número:' tt_log_erros_estorn_cancel.ttv_num_mensagem          skip

         '      Mensagem Erro:' tt_log_erros_estorn_cancel.ttv_des_msg_erro          skip

         '     Mensagem Ajuda: ' tt_log_erros_estorn_cancel.ttv_des_msg_ajuda        

        view-as alert-box info buttons ok.

end.

 

Parâmetros de Entrada

p_rec_renegoc_acr                                      

p_dat_transacao

p_cod_refer

p_des_text_histor

p_ tt_log_erros_estorn_cancel

 

Tabelas Temporárias

 

Tabela Temporária

Descrição

Entrada/Saída

tt_log_erros_estorn_cancel

 

Entrada

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

character

x(3) / x(5)*

Estabelecimento

 

 

tta_num_id_tit_acr

integer

9999999999

Token Cta Receber

 

 

tta_num_id_movto_tit_acr

integer

9999999999

Token Movto Tit ACR

 

 

ttv_num_mensagem

integer

>>>>,>>9

Número

 

 

ttv_des_msg_erro

character

x(60)

Mensagem Erro

 

 

ttv_des_msg_ajuda

character

x(40)

Mensagem Ajuda

 

 

 

def temp-table tt_log_erros_estorn_cancel no-undo

    field tta_cod_estab                    as character format "x(5)" 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.