Documento de API
Produto: | Datasul |
Ocorrência: | Documentação de API |
Nome Físico | prgfin/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.