Linha Datasul

Árvore de páginas

Documento de API

Produto:

Datasul

Ocorrência:

Documentação de API

Nome Físicoprgfin/acr/acr718zb 


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.

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

p_dat_estorno

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.