Histórico da Página
...
Produto: | Datasul |
Ocorrência: | Documentação de API |
Nome Físico | prgfin/acr/acr741za |
Objetivo
Efetuar a importação de ocorrência bancária para títulos do Contas a Receber.
Funcionamento
Executar o programa API(utilizar o nome externo), da seguinte forma:
...
output table tt_log_erros_ocor_bcia).
Parâmetro Entrada API Alteração Títulos/Contas a Receber:
num_vers_integr_api: será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API;
...
tt_log_erros_estorn_cancel_apb: conterá os dados dos erros ocorridos durante a execusão do programa.
Tabelas Temporárias
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_item_ocor_bcia | Conterá as informações do título. | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
tta_cod_estab | character | x(3) | Estabelecimento |
|
|
tta_num_id_tit_acr | integer | 9999999999 | Token Cta Receber |
|
|
ttv_rec_ocor_bcia | recid | >>>>>>9 |
|
|
|
tta_cod_portador | character | x(5) | Portador |
|
|
tta_cod_cart_bcia | character | x(3) | Carteira |
|
|
def temp-table tt_integr_item_ocor_bcia 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 ttv_rec_ocor_bcia as recid format ">>>>>>9"
field tta_cod_portador as character format "x(5)" label "Portador" column-label "Portador"
field tta_cod_cart_bcia as character format "x(3)" label "Carteira" column-label "Carteira"
index tt_id_item is primary unique
tta_cod_estab ascending
tta_num_id_tit_acr ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_ocor_bcia | Conterá as informações da ocorrência bancária em geral. | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
ttv_cod_tip_ocor_bcia | character | x(8) |
|
|
|
ttv_dat_movto | date | 99/99/9999 | Data Movimento |
|
|
ttv_log_tit_sdo | logical | Sim/NÆo | Títulos com Saldo |
|
|
ttv_rec_ocor_bcia | recid | >>>>>>9 |
|
|
|
ttv_log_bloq_tit_envdo_bcia | logical | Sim/Não |
|
|
|
def temp-table tt_integr_ocor_bcia no-undo
field ttv_cod_tip_ocor_bcia as character format "x(8)"
field ttv_dat_movto as date format "99/99/9999" label "Data Movimento" column-label "Data Movimento"
field ttv_log_tit_sdo as logical format "Sim/NÆo" initial no label "T¡tulos com Saldo"
field ttv_rec_ocor_bcia as recid format ">>>>>>9"
field ttv_log_bloq_tit_envdo_bcia as logical format "Sim/NÆo" initial yes
index tt_id_ocor_bcia is primary unique
ttv_cod_tip_ocor_bcia ascending
ttv_rec_ocor_bcia ascending
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_ocor_bcia | Conterá as informações de erro que poderão ocorrer na execução do programa | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
ttv_cod_ocor_bcia | character | x(30) | Ocorrência Bcia |
|
|
tta_cod_estab | character | x(3) | Estabelecimento |
|
|
tta_cod_espec_docto | character | x(3) | Espécie Documento |
|
|
tta_cod_ser_docto | character | x(3) | Série Documento |
|
|
tta_cod_tit_acr | character | x(10) | Título |
|
|
tta_cod_parcela | character | x(02) | Parcela |
|
|
tta_num_mensagem | integer | >>,>>>,>>9 | Mensagem |
|
|
ttv_des_msg | character | x(40) |
|
|
|
ttv_des_ajuda | character | x(50) | Ajuda |
|
|
def temp-table tt_log_erros_ocor_bcia no-undo
field ttv_cod_ocor_bcia as character format "x(30)" label "Ocorrˆncia Bcia" column-label "Ocorrˆncia Bcia"
field tta_cod_estab as character format "x(3)" label "Estabelecimento" column-label "Estab"
field tta_cod_espec_docto as character format "x(3)" label "Esp‚cie Documento" column-label "Esp‚cie"
field tta_cod_ser_docto as character format "x(3)" label "S‚rie Documento" column-label "S‚rie"
field tta_cod_tit_acr as character format "x(10)" label "T¡tulo" column-label "T¡tulo"
field tta_cod_parcela as character format "x(02)" label "Parcela" column-label "Parc"
field tta_num_mensagem as integer format ">>,>>>,>>9" initial 0 label "Mensagem" column-label "Mensagem"
field ttv_des_msg as character format "x(40)"
field ttv_des_ajuda as character format "x(50)" label "Ajuda" column-label "Ajuda"
.
...