Documento de API
Produto: | Datasul |
Ocorrência: | Documentação de API |
Nome Físico | prgfin/acr/acr715zb |
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
Tabela Temporária | Descrição | Entrada/Saída |
tt_input_estorno | Conterá os dados dos títulos/movimentos a serem estornados/cancelados | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
ttv_cod_label | character | x(8) | Label |
|
|
ttv_des_conteudo | character | x(40) | Texto |
|
|
ttv_num_seq | integer | >>>,>>9 | Seqüência |
|
|
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).
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_estorn_cancel |
| Saída |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
tta_cod_estab | character | x(3) | 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 Mensagem |
|
|
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(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.