Histórico da Página
...
tt_item_integr_apb_enc_ctas: será utilizado para determinar os títulos que serão utilizados no processo de encontro de contas.
*tt_cotac_lote_pagto: será utilizado para determinar cotações diferentes das cadastradas. O preenchimento é opcional.
p_cod_matriz_trad_org_ext: conterá o código da matriz de tradução da organização externa que tem por finalidade relacionar os códigos externos aos códigos presentes no Datasul-EMS5.
...
A sintaxe para executar a API/BO em modo persistente é:
run prgfin/apb/apb944za.py persistent set v_hdl_aux.
RUN pi_main_api_enctro_cta_apb_acr_ems5_3
...
IN v_hdl_aux(INPUT 3,
INPUT TABLE tt_dados_integr_apb_enc_ctas,
...
INPUT TABLE tt_item_integr_apb_enc_ctas,
...
INPUT TABLE tt_cotac_lote_pagto,
INPUT p_cod_matriz_trad_org_ext,
OUTPUT TABLE tt_log_integr_apb_enc_ctas,
run prgfin/apb/apb944za.py persistent set v_hdl_aux.
RUN pi_main_api_enctro_cta_apb_acr_ems5_3 IN v_hdl_aux(INPUT 3,
INPUT TABLE tt_dados_integr_apb_enc_ctas,
INPUT TABLE tt_item_integr_apb_enc_ctas,
input table tt_cotac_lote_pagto,
INPUT “”,
OUTPUT table tt_tit_acr_info,
OUTPUT TABLE ttINPUT p_log_integr_apb_enc_ctas
Output table tt_tit_acr_info,
input no.
ajust_liquidac).
A variável denominada v_hdl_aux irá receber o “handle” do programa, permitindo o acesso aos “métodos” internos da API.
...
field tta_cdn_cliente as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente" column-label "Cliente" field tta
field tta_cod_estab_ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
field ttv_cod_empresa_ext as character format "x(3)" label "Código Empresa Ext" column-label "Cód Emp Ext"
field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
field tta_log_bxa_estab_tit_ap as logical format "Sim/Não" initial no label "Baixa Estabelec" column-label "Baixa Estabelec"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_item_integr_apb_enc_ctas | Conterá as informações dos títulos que serão utilizados no Encontro de Contas | Entrada |
(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.
(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
Tta_cod_estab_ |
...
refer | character | X(03) | Estabelecimento do Lote de Encontro de Contas |
|
|
Tta_cod_empresa | character | X(03) | Empresa do Lote de Encontro de Contas |
|
|
Tta_Cod_refer | character | X(10) | Referência do Lote de Encontro de Contas |
|
|
Tta_num_seq_refer | integer | >>>9 | Sequência |
|
|
Ttv_ind_tit_orig | character | X(03) | Origem Título (ACR/APB) |
|
|
Tta_cod_estab | character | X(03) | Estabelecimento |
|
|
Tta_cod_espec_docto | character | X(03) | Espécie Documento |
|
|
Tta_cod_ser_docto | character | X(3)/ X(5)** | Série Documento |
|
|
Ttv_cod_tit | character | X(18) | Título |
field ttv_cod_empresa_ext as character format "x(3)" label "Código Empresa Ext" column-label "Cód Emp Ext"
field tta_cod_finalid_econ_ext as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
field tta_log_bxa_estab_tit_ap as logical format "Sim/Não" initial no label "Baixa Estabelec" column-label "Baixa Estabelec"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_item_integr_apb_enc_ctas | Conterá as informações dos títulos que serão utilizados no Encontro de Contas | Entrada |
(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.
(**) Liberado o número de documento com 16 posições e série com 5, a partir de maio/2011.
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. | |||||||||
Tta_cod_estab_refer | character | X(03) | Estabelecimento do Lote de Encontro de Contas |
|
| |||||||||
Tta_cod_empresa | character | X(03) | Empresa do Lote de Encontro de Contas |
|
| |||||||||
Tta_Codcod_referparcela | character | X(1002) | Referência do Lote de Encontro de ContasParcela |
|
| |||||||||
Tta_numcod_seq_referportador | integer | >>>9 | character | X(05) | PortadorSequência |
|
| |||||||
TtvTta_indcod_titcart_origbcia | character | X(03)Origem Título (ACR/APB) | Carteira Bancária |
|
| |||||||||
Tta_codval_estabpagto | character | X(03) | Decimal | ->>>,>>>,>>9.99 | Valor PagamentoEstabelecimento |
|
| |||||||
Tta_codval_espec_doctojuros | character | X(03) | Decimal | ->>>,>>>,>>9.99 | Valor JurosEspécie Documento |
|
| |||||||
Tta_codval_ser_doctomulta | character | X(3)/ X(5)** | Decimal | ->>>,>>>,>>9.99 | Valor MultaSérie Documento |
|
| |||||||
TtvTta_codval_titdesc | character | X(18) | Decimal | ->>>,>>>,>>9.99 | Valor DescontoTítulo |
|
| |||||||
Tta_codval_parcelaabat | character | X(02) | Decimal | ->>>,>>>,>>9.99 | Valor AbatimentoParcela |
|
| Tta_cod_portador | character | X(05) | ||||
tta_val_cotac_indic_econ | decimal | >>>>,>>9.9999999999 | Valor Cotação. Se moeda do lote for diferente da moeda do título e informada 0 ou ? irá buscar cotação do sistema, caso contrário utiliza a cotação informada neste campo. Só ativa a partir da versão 11.5.0 do Datasul.Portador |
|
| |||||||||
Ttattv_codrec_cart_bcia | character | X(03) | Carteira Bancária |
|
| Tta_val_pagto | Decimal | ->>>,>>>,>>9.99 | integr_apb_enctro_cta | recid | >>>>>>9 | Recid da Temp-table de lote do Encontro de ContasValor Pagamento |
|
|
Ttatta_cod_valestab_jurosext | Decimal | ->>>,>>>,>>9.99 | character | X(08) | Estabelecimento ExternoValor Juros |
|
| |||||||
Ttatta_cod_valportad_multaext | Decimal | ->>>,>>>,>>9.99 | character | X(08) | Portador ExternoValor Multa |
|
| |||||||
Ttatta_cod_valmodalid_descext | Decimal | ->>>,>>>,>>9.99 | character | X(08) | Modalidade ExternaValor Desconto |
|
| |||||||
Ttattv_cod_valempresa_abatext | Decimal | ->>>,>>>,>>9.99 | character | X(03) | Código Empresa ExternaValor Abatimento |
|
| |||||||
tta_valdes_cotac_indic_econ | decimal | >>>>,>>9.9999999999 | text_histor | character | X(2000) | Histórico | Valor Cotação. Se moeda do lote for diferente da moeda do título e informada 0 ou ? irá buscar cotação do sistema, caso contrário utiliza a cotação informada neste campo. Só ativa a partir da versão 11.5.0 do Datasul. |
|
...
def temp-table tt_item_integr_apb_
...
recid
...
>>>>>>9
...
Recid da Temp-table de lote do Encontro de Contas
...
...
enc_ctas no-undo
field tta_cod_estab_
...
character
...
X(08)
...
Estabelecimento Externo
...
...
refer as character format "x(3)" initial ? label "Estabelecimento" column-label "Estab"
field tta_cod_
...
character
...
X(08)
...
Portador Externo
...
...
empresa as character format "x(3)" label "Empresa" column-label "Empresa"
field tta_cod_
...
character
...
X(08)
...
Modalidade Externa
...
...
...
ttv_cod_empresa_ext
...
character
...
X(03)
...
Código Empresa Externa
...
...
...
tta_des_text_histor
...
character
...
X(2000)
...
Histórico
...
...
refer as character format "x(10)" label "Referência" column-label "Referência"
field tta_num_seq_refer as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"
field ttv_ind_tit_orig as character format "X(08)"
field tta_cod_estab as character format "x(3)" label "Estabelecimento" column-label "Estab"
def temp-table tt_item_integr_apb_enc_ctas no-undo
field tta_cod_estabespec_refer docto as character format "x(3)" initial ? label "EstabelecimentoEspécie Documento" column-label "EstabEspécie"
field tta_cod_empresa ser_docto as character format "x(3)" label "EmpresaSérie Documento" column-label "Empresa"Série"
field ttv_cod_tit as character format "x(18)"
field tta_cod_refer parcela as character format "x(1002)" label "ReferênciaParcela" column-label "ReferênciaParc"
field tta_numcod_seq_refer portador as integer character format ">>>9" initial 0 x(5)" label "SequênciaPortador" column-label "SeqPortador"
field ttvtta_indcod_titcart_orig bcia as character format "Xx(08)3)" label "Carteira" column-label "Carteira"
field tta_codval_estab pagto as character decimal format "x(3)" label "Estabelecimento->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Pagamento" column-label "EstabValor Pagto"
field tta_cod_especval_docto juros as character decimal format "x(3)" label "Espécie Documento>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Juros" column-label "EspécieValor Juros"
field ttattv_codval_ser_docto multa as character decimal format "x(3)" label "Série Documento->>>,>>>,>>9.99" decimals 2 label "Vl Multa" column-label "SérieVl Multa"
field ttv_codval_tit desc as character format "x(18)decimal format "->>>,>>>,>>9.99" decimals 2 label "Vl Desc" column-label "Vl Desc"
field ttattv_codval_parcela abat as character decimal format "x(02)" label "Parcela->>>,>>>,>>9.99" decimals 2 label "Valor Abatimento" column-label "ParcValor Abatimento"
field tta_val_cotac_codindic_portador econ as character decimal format "x(5)" label "Portador>>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "PortadorCotação"
field tta_cod_cart_bcia as character format "x(3)" label "Carteira" column-label "Carteirattv_rec_integr_apb_enctro_cta as recid format ">>>>>>9"
field tta_cod_valestab_pagto ext as decimal character format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Pagamentox(8)" label "Estabelecimento Exte" column-label "Valor PagtoEstabelecimento Ext"
field tta_valcod_portad_juros ext as decimal character format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Jurosx(8)" label "Portador Externo" column-label "Valor JurosPortador Externo"
field ttvtta_cod_valmodalid_multa ext as decimal character format "->>>,>>>,>>9.99" decimals 2 label "Vl Multax(8)" label "Modalidade Externa" column-label "Vl MultaModalidade Externa"
field ttv_valcod_empresa_desc ext as decimal character format "->>>,>>>,>>9.99" decimals 2 label "Vl Descx(3)" label "Código Empresa Ext" column-label "Vl DescCód Emp Ext"
field ttvtta_des_valtext_abat histor as decimal character format "->>>,>>>,>>9.99" decimals 2 label "Valor Abatimentox(2000)" label "Histórico" column-label "Valor Abatimento" field tta_valHistórico"
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_cotac_ |
...
lote_ |
...
pagto | Conterá as informações das cotações que serão utilizados no Encontro de Contas | Entrada |
...
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
ttv_rec_integr_apb_enctro_ |
...
cta | recid | >>>>>>9 | Recid da tabela-pai (tt_dados_integr_apb_enc_ctas) | x |
|
tta_cod_indic_econ | character | "x(8) | Moeda | x |
|
tta_val_cotac_indic_econ | decimal | >>>>,>>9.9999999999 | Cotação em relação a moeda do lote | x |
|
def temp-table tt_cotac_lote_pagto no-undo
field ttv_rec_integr_apb_enctro_cta as recid format ">>>>>>9"
field tta_cod_indic_econ
field tta_cod_estab_ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
field tta_cod_portad_ext as character format "x(8)" label "Portador Externo" column-label "Portador Externo"
field tta_cod_modalid_ext as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"
field ttv_cod_empresa_ext as character format "x(38)" label "Código Empresa ExtMoeda" column-label "Cód Emp ExtMoeda"
field tta_val_descotac_textindic_histor econ as character decimal format "x(2000)" label "Histórico>>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "HistóricoCotação"
.
Tabela Temporária | Descrição | Entrada/Saída | ||||
tt_log_integr_apb_enc_ctas | Conterá as informações referentes aos erros encontrados durante as validações para a criação do Encontro de Contas. | Saída | ||||
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. | |
Tta_cod_estab_refer | character | X(03) | Estabelecimento |
|
| |
Tta_cod_refer | character | X(10) | Referência |
|
| |
Ttv_num_cod_erro | integer | >>>,>>9 | Número do Erro |
|
| |
Ttv_des_msg_erro | character | X(60) | Mensagem Erro |
|
| |
Ttv_des_msg_ajuda | character | X(40) | Mensagem Ajuda |
|
|
...