Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

 

 

...