Documento de API

Funcionamento

Na forma padrão, realiza-se a chamada do programa em modo persistente, sem a passagem de parâmetros, e em seguida, através de um comando RUN normal, executa-se seu método padrão passando-se os parâmetros com as informações necessárias.

def var v_hdl_program as Handle format ">>>>>>9":U no-undo.Executar o programa API(utilizar o nome externo), da seguinte forma:

run prgfin/acr/

...

acr718zb.py

...

persistent set v_hdl_program.
run pi_main_fnc_renegoc_acr_estorno_api in v_hdl_program (input p_row_renegoc_acr

...

,
                                                        input p_dat_estorno,

...

                                                        input p_cod_refer,

...

                                                        input p_des_text_histor,

...

                                                        output table tt_log_erros_estorn_cancel).  

if valid-handle(v_hdl_program) then
    delete procedure v_hdl_program.

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_row_rec_renegoc_acr                                      renegoc_acr   - Corresponde ao rowid da renegociação que se deseja estornar - Exemplo: rowid(renegoc_acr).                           

p_dat_transacaoestorno

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

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(35)" label "Estabelecimento" column-label "Estab"

...

          tta_num_id_tit_acr               ascendingacr               ascending

          tta_num_id_movto_tit_acr         ascending

          ttv_num_mensagem                 ascending    .