Documento de API

Objetivo

Implantar títulos ACR a partir de temp-tables geradas por outros programas.

Funcionamento

Na forma padrão, realiza-se a chamada através de um comando RUN normal, passando-se as temp-tables carregadas com as informações necessárias.

A sintaxe para a chamada da API é:

Def var v_hdl_programa as HANDLE format ">>>>>>9" no-undo.

RUN prgfin/acr/acr900zi.py persistent set v_hdl_programa.

RUN pi_main_code_integr_acr_new_15 IN v_hdl_programa (INPUT 11,

                                                      INPUT v_cod_matriz_trad_org_ext,

                                                      INPUT v_log_atualiza_refer_acr,

                                                      INPUT v_log_assume_dat_emis,

                                                      INPUT TABLE tt_integr_acr_repres_comis_2,

                                                      INPUT-OUTPUT TABLE tt_integr_acr_item_lote_impl_9,

                                                      INPUT TABLE tt_integr_acr_aprop_relacto_2b,

                                                      INPUT-OUTPUT TABLE tt_params_generic_api,

                                                      INPUT TABLE tt_integr_acr_relacto_pend_aux,

                                                      INPUT TABLE tt_integr_perext_item_impl_acr,

                                                      INPUT TABLE tt_integr_acr_docto_mais_negoc).

Delete procedure v_hdl_programa.

Os parâmetros de Entrada são os seguintes:

1.num_vers_integr_api................: será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API;

2.cod_matriz_trad_org_ext.........: código da matriz de tradução da organização externa;

3.log_atualiza_refer_acr..............: Log que indica se deseja atualizar o lote de implantação ou não (conteúdos válidos são Yes/No);

4.log_assume_dat_emis...............: Assume a data de emissão como a data de transação do título. A data de transação é a data contábil de implantação do título. Esta opção já é utilizada na migração de títulos do Magnus para o EMS-5, onde é montado apenas um lote de implantação com todos os títulos, sendo que cada um pode ter uma data de transação diferente (se usar esta opção). Pela implantação em tela, todos os títulos de um lote ficam obrigatoriamente com a mesma data de transação que é a data informada no lote;

5. tt_integr_acr_repres_comis_2: Indicará os representantes para comissões.

6.tt_integr_acr_item_lote_impl_9: Temp-table que contém todos os itens do lote de implantação, sendo que há a possibilidade de informar nesta temp-table o código da Autorização do Cartão de Crédito e o Lote Original, além de registros necessários para a implantação de documentos para serem utilizados em negociações Vendor. Esse é o diferencial entre esta a API e a API de implantação de títulos antiga (acr900ze.py).

7. tt_integr_acr_aprop_relacto_2b: Indicará os Planos Ccustos e Ccustos que serão utilizados na apropriação de Notas de Devolução.

8. tt_params_generic_api:  Conterá campos novos das temp-tables passadas como parâmetro.

9. tt_integr_acr_relacto_pend_aux:  Contém o campo novo(log_nota_vincul) da temp-table passada como parâmetro, está tabela é uma extensão da temp-table tt_integr_acr_relacto_pend.

Além disso, o programa que irá executar a api_integr_acr_new_1 deverá conter e criar as seguintes tabelas temporárias (deverão estar definidas como new shared):

tt_integr_acr_abat_antecip - Gerará os abatimentos de antecipações.

tt_integr_acr_abat_prev - Gerará abatimento de previsão ACR.

tt_integr_acr_aprop_ctbl_pend - Gerará as apropriações contábeis.

tt_integr_acr_aprop_desp_rec – Armazena os valores de receita e despesa rateados por unidade de negócio e tipo de fluxo.

tt_integr_acr_aprop_liq_antec – Armazena os valores de  rateio das liquidações contra antecipação.

tt_integr_acr_aprop_relacto – Contém os valores das apropriações contábeis dos outros títulos relacionados ao item do lote de implantação.

tt_integr_acr_cheq - são as informações dos cheques usados no pagamento de títulos ACR.

tt_integr_acr_impto_impl_pend - Indicará os impostos vinculados ao título.

tt_integr_acr_item_lote_impl­_9 – Itens do Lote de Liquidação (Somente estará definida no programa, pois internamente será utilizada a temp-table tt_integr_acr_item_lote_impl_5, que será recebida como parâmetro).

tt_integr_acr_lote_impl - Gerará lote tt_integr_acr_ped_vda_pend - Indicará os pedidos de venda relacionados ao título.

tt_integr_acr_relacto_pend - Indicará os relacionamentos com outros títulos, caso o item do lote seja uma Nota de Crédito, Nota de Débito ou Aviso de Débito.

tt_integr_acr_relacto_pend_cheq - Indicará os cheques usados para pagamento de AN e Títulos Normais à vista.

tt_integr_acr_repres_pend - Indicará os representantes para comissões.

tt_log_erros_atualiz - retorna os erros ocorridos na atualização para cada item do lote.

tt_integr_acr_aprop_relacto_2b – Indicará os Planos Ccustos e Ccustos que serão utilizados na apropriação de Notas de Devolução.

tt_integr_acr_relacto_pend_aux:  Contém o campo novo (log_nota_vincul) da temp-table passadas como parâmetro, está tabela é uma extensão da temp-table tt_integr_acr_relacto_pend.

tt_integr_perext_item_impl_acr: Contém os dados para criação dos registros da tabela de extensão dos itens dos lotes de implantação, a serem criados para a localização Peru.

O item do lote se relaciona com o lote através do atributo ttv_rec_lote_impl_tit_acr, que guarda o recid do registro da temp-table (tabela temporária) do lote, ou seja: tt_integr_acr_item_lote_impl_9.ttv_rec_lote_impl_tit_acr = recid ( tt_integr_acr_lote_impl ).

As informações do item do lote se relacionam a ele através do atributo ttv_rec_item_lote_impl_tit_acr, que guarda o recid do registro da tt do item do lote, ou seja: tt_integr_acr_abat_antecip.ttv_rec_item_lote_impl_tit_acr = recid(tt_integr_acr_item_lote_impl_9).

Tabelas Temporárias

Nos atributos das tabelas temporárias de entrada e saída:

(*) 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 com5, apartir de maio/2011.

def new shared temp-table tt_integr_acr_abat_antecip no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field ttv_rec_abat_antecip_acr         as recid format ">>>>>>9"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

    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_val_abtdo_antecip_tit_abat   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Abtdo" column-label "Vl Abtdo"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_estab                    ascending

          tta_cod_estab_ext                ascending

          tta_cod_espec_docto              ascending

          tta_cod_ser_docto                ascending

          tta_cod_tit_acr                  ascending

          tta_cod_parcela                  ascending.

Segue abaixo os atributos que deverão receber valor na temp-table:

tt_integr_acr_abat_antecip.ttv_rec_item_lote_impl_tit_acr

tt_integr_acr_abat_antecip.ttv_rec_abat_antecip_acr

tt_integr_acr_abat_antecip.tta_cod_estab

tt_integr_acr_abat_antecip.tta_cod_espec_docto

tt_integr_acr_abat_antecip.tta_cod_ser_docto

tt_integr_acr_abat_antecip.tta_cod_tit_acr

tt_integr_acr_abat_antecip.tta_cod_parcela

tt_integr_acr_abat_antecip.tta_val_abtdo_antecip_tit_abat

-      O atributo ttv_rec_item_lote_impl_tit_acr deve receber o  recid da tt_integr_acr_item_lote_impl_9

-      O atributo ttv_rec_abat_antecip_acr deve receber o  recid da tt_integr_acr_abat_antecip

(*) 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 com5, apartir de maio/2011.

def new shared temp-table tt_integr_acr_abat_prev no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

    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_val_abtdo_prev_tit_abat      as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Abat" column-label "Vl Abat"

    field tta_log_zero_sdo_prev            as logical format "Sim/Não" initial no label "Zera Saldo" column-label "Zera Saldo"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_estab                    ascending

          tta_cod_estab_ext                ascending

          tta_cod_espec_docto              ascending

          tta_cod_ser_docto                ascending

          tta_cod_tit_acr                  ascending

          tta_cod_parcela                  ascending.

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_abat_prev.tta_cod_estab

tt_integr_acr_abat_prev.tta_cod_espec_docto

tt_integr_acr_abat_prev.tta_cod_ser_docto

tt_integr_acr_abat_prev.tta_cod_tit_acr

tt_integr_acr_abat_prev.tta_cod_parcela

tt_integr_acr_abat_prev.tta_val_abtdo_prev_tit_abat

Em caso de zerar o saldo da previsão, deve-se informar como (yes) no atributo abaixo,

tt_integr_acr_abat_prev.tta_log_zero_sdo_prev.

(*) Liberado o centro de custo com 20 posições, a partir de maio/2011.

def new shared temp-table tt_integr_acr_aprop_ctbl_pend no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_plano_cta_ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                 as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_cod_unid_negoc_ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"

    field tta_cod_plano_ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_cod_ccusto                   as Character format "x(11)" label "Centro Custo" column-label "Centro Custo"

    field tta_cod_ccusto_ext               as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_cod_fluxo_financ_ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"

    field tta_val_aprop_ctbl               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"

    field tta_cod_unid_federac             as character format "x(3)" label "Unidade Federação" column-label "UF"

    field tta_log_impto_val_agreg          as logical format "Sim/Não" initial no label "Impto Val Agreg" column-label "Imp Vl Agr"

    field tta_cod_imposto                  as character format "x(5)" label "Imposto" column-label "Imposto"

    field tta_cod_classif_impto            as character format "x(05)" initial "00000" label "Class Imposto" column-label "Class Imposto"

    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"

    field tta_cod_pais_ext                 as character format "x(20)" label "País Externo" column-label "País Externo"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

          tta_cod_cta_ctbl_ext             ascending

          tta_cod_sub_cta_ctbl_ext         ascending

          tta_cod_unid_negoc               ascending

          tta_cod_unid_negoc_ext           ascending

          tta_cod_plano_ccusto             ascending

          tta_cod_ccusto                   ascending

          tta_cod_ccusto_ext               ascending

          tta_cod_tip_fluxo_financ         ascending

          tta_cod_fluxo_financ_ext         ascending

          tta_log_impto_val_agreg          ascending.

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_aprop_ctbl_pend.tta_cod_plano_cta_ctbl

tt_integr_acr_aprop_ctbl_pend.tta_cod_cta_ctbl

tt_integr_acr_aprop_ctbl_pend.tta_cod_cta_ctbl_ext

para matriz de tradução

tt_integr_acr_aprop_ctbl_pend.tta_cod_unid_negoc

tt_integr_acr_aprop_ctbl_pend.tta_cod_unid_negoc_ext

para matriz de tradução

tt_integr_acr_aprop_ctbl_pend.tta_cod_tip_fluxo_financ

tt_integr_acr_aprop_ctbl_pend.tta_cod_fluxo_financ_ext

tt_integr_acr_aprop_ctbl_pend.tta_val_aprop_ctbl

def new shared temp-table tt_integr_acr_aprop_desp_rec no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field tta_cod_unid_negoc_ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"

    field tta_cod_fluxo_financ_ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"

    field tta_val_perc_rat_ctbz            as decimal format ">>9.99" decimals 2 initial 0 label "Perc Rateio" column-label "% Rat"

    field tta_cod_plano_cta_ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                 as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_cod_tip_abat                 as character format "x(8)" label "Tipo de Abatimento" column-label "Tipo de Abatimento"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_ind_tip_aprop_recta_despes   as character format "x(20)" label "Tipo Apropriação" column-label "Tipo Apropriação"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_cta_ctbl_ext             ascending

          tta_cod_sub_cta_ctbl_ext         ascending

          tta_cod_unid_negoc_ext           ascending

          tta_cod_fluxo_financ_ext         ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

          tta_cod_unid_negoc               ascending

          tta_cod_tip_fluxo_financ         ascending

          tta_ind_tip_aprop_recta_despes   ascending

          tta_cod_tip_abat                 ascending.

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_aprop_desp_rec.tta_cod_plano_cta_ctbl

tt_integr_acr_aprop_desp_rec.tta_cod_cta_ctbl

tt_integr_acr_aprop_desp_rec.tta_cod_unid_negoc

tt_integr_acr_aprop_desp_rec.tta_cod_tip_fluxo_financ

tt_integr_acr_aprop_desp_rec.tta_ind_tip_aprop_recta_despes

tt_integr_acr_aprop_desp_rec.tta_cod_tip_abat (Este atributo só se faz obrigatório quando o tipo de apropriação for “ABATIMENTO”)

tt_integr_acr_aprop_desp_rec.tta_val_perc_rat_ctbz

def new shared temp-table tt_integr_acr_aprop_liq_antec no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field ttv_rec_abat_antecip_acr         as recid format ">>>>>>9"

    field tta_cod_fluxo_financ_ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"

    field ttv_cod_fluxo_financ_tit_ext     as character format "x(20)"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_cod_unid_negoc_tit           as character format "x(3)" label "Unid Negoc Título" column-label "Unid Negoc Título"

    field tta_cod_tip_fluxo_financ_tit     as character format "x(12)" label "Tp Fluxo Financ Tit" column-label "Tp Fluxo Financ Tit"

    field tta_val_abtdo_antecip            as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatido" column-label "Vl Abatido".

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Atributo ttv_rec_abat_antecip_acr deverá receber o valor do atributo (tt_integr_acr_abat_antecip.ttv_rec_abat_antecip_acr),  para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_aprop_liq_antec.tta_cod_fluxo_financ_ext

para matriz de tradução

tt_integr_acr_aprop_liq_antec.ttv_cod_fluxo_financ_tit_ext

para matriz de tradução

tt_integr_acr_aprop_liq_antec.tta_cod_unid_negoc

tt_integr_acr_aprop_liq_antec.tta_cod_tip_fluxo_financ

tt_integr_acr_aprop_liq_antec.tta_cod_unid_negoc_tit

tt_integr_acr_aprop_liq_antec.tta_cod_tip_fluxo_financ_tit

tt_integr_acr_aprop_liq_antec.tta_val_abtdo_antecip

def new shared temp-table tt_integr_acr_aprop_relacto no-undo

    field ttv_rec_relacto_pend_tit_acr     as recid format ">>>>>>9" initial ?

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field tta_cod_unid_negoc_ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"

    field tta_cod_fluxo_financ_ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"

    field tta_cod_plano_cta_ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                 as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_unid_negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

    field tta_cod_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_val_aprop_ctbl               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"

    field tta_ind_tip_aprop_ctbl           as character format "x(30)" initial "Saldo" label "Tipo Aprop Ctbl" column-label "Tipo Aprop Ctbl".

Atributo ttv_rec_relacto_pend_tit_acr deverá receber o valor do atributo

(tt_integr_acr_relacto_pend. ttv_rec_relacto_pend_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_aprop_relacto.tta_cod_cta_ctbl_ext

para matriz de tradução

tt_integr_acr_aprop_relacto.tta_cod_unid_negoc_ext

para matriz de tradução

tt_integr_acr_aprop_relacto.tta_cod_fluxo_financ_ext

para matriz de tradução

tt_integr_acr_aprop_relacto.tta_cod_plano_cta_ctbl

tt_integr_acr_aprop_relacto.tta_cod_cta_ctbl

tt_integr_acr_aprop_relacto.tta_cod_unid_negoc

tt_integr_acr_aprop_relacto.tta_cod_tip_fluxo_financ

tt_integr_acr_aprop_relacto.tta_val_aprop_ctbl 

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def new shared temp-table tt_integr_acr_cheq no-undo

    field tta_cod_banco                    as character format "x(8)" label "Banco" column-label "Banco"

    field tta_cod_agenc_bcia               as character format "x(10)" label "Agência Bancária" column-label "Agência Bancária"

    field tta_cod_cta_corren               as character format "x(10)" label "Conta Corrente" column-label "Cta Corrente"

    field tta_num_cheque                   as integer format ">>>>,>>>,>>9" initial ? label "Num Cheque" column-label "Num Cheque"

    field tta_dat_emis_cheq                as date format "99/99/9999" initial ? label "Data Emissão" column-label "Dt Emiss"

    field tta_dat_depos_cheq_acr           as date format "99/99/9999" initial ? label "Depósito" column-label "Depósito"

    field tta_dat_prev_depos_cheq_acr      as date format "99/99/9999" initial ? label "Previsão Depósito" column-label "Previsão Depósito"

    field tta_dat_desc_cheq_acr            as date format "99/99/9999" initial ? label "Data Desconto" column-label "Data Desconto"

    field tta_dat_prev_desc_cheq_acr       as date format "99/99/9999" initial ? label "Data Prev Desc" column-label "Data Prev Desc"

    field tta_val_cheque                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cheque" column-label "Valor Cheque"

    field tta_nom_emit                     as character format "x(40)" label "Nome Emitente" column-label "Nome Emitente"

    field tta_nom_cidad_emit               as character format "x(30)" label "Cidade Emitente" column-label "Cidade Emitente"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

    field tta_cod_id_feder                 as character format "x(20)" initial ? label "ID Federal" column-label "ID Federal"

    field tta_cod_motiv_devol_cheq         as character format "x(5)" label "Motivo Devolução" column-label "Motivo Devolução"

    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_usuar_cheq_acr_terc      as character format "x(12)" label "Usuário" column-label "Usuário"

    field tta_log_pend_cheq_acr            as logical format "Sim/Não" initial no label "Cheque Pendente" column-label "Cheque Pendente"

    field tta_log_cheq_terc                as logical format "Sim/Não" initial no label "Cheque Terceiro" column-label "Cheque Terceiro"

    field tta_log_cheq_acr_renegoc         as logical format "Sim/Não" initial no label "Cheque Reneg" column-label "Cheque Reneg"

    field tta_log_cheq_acr_devolv          as logical format "Sim/Não" initial no label "Cheque Devolvido" column-label "Cheque Devolvido"

    field tta_num_pessoa                   as integer format ">>>,>>>,>>9" initial ? label "Pessoa" column-label "Pessoa"

    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"

    index tt_id                            is primary unique

          tta_cod_banco                    ascending

          tta_cod_agenc_bcia               ascending

          tta_cod_cta_corren               ascending

          tta_num_cheque                   ascending.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_cheq.tta_cod_banco

tt_integr_acr_cheq.tta_cod_agenc_bcia

tt_integr_acr_cheq.tta_cod_cta_corren

tt_integr_acr_cheq.tta_num_cheque

tt_integr_acr_cheq.tta_dat_emis_cheq

tt_integr_acr_cheq.tta_dat_depos_cheq_acr

tt_integr_acr_cheq.tta_dat_prev_depos_cheq_acr

tt_integr_acr_cheq.tta_dat_desc_cheq_acr

tt_integr_acr_cheq.tta_dat_prev_desc_cheq_acr

tt_integr_acr_cheq.tta_val_cheque

tt_integr_acr_cheq.tta_nom_emit

tt_integr_acr_cheq.tta_nom_cidade_emit

tt_integr_acr_cheq.tta_cod_estab

tt_integr_acr_cheq.tta_cod_id_feder

tt_integr_acr_cheq.tta_cod_motiv_devol_cheq

caso seja cheque devolvido, informar o motivo

tt_integr_acr_cheq.tta_cod_finalid_econ_ext

para matriz de tradução

tt_integr_acr_cheq.tta_cod_indic_econ

caso contrário, deverá ser informado

tt_integr_acr_cheq.tta_cod_usuar_cheq_acr_terc

tt_integr_acr_cheq.tta_log_pend_cheq_acr

quando for um cheque de terceiro, atributo recebe (yes)

tt_integr_acr_cheq.tta_log_cheq_terc

tt_integr_acr_cheq.tta_log_cheq_acr_renegoc

quando for um cheque devolvido, atributo recebe (yes)

tt_integr_acr_cheq.tta_log_cheq_acr_devolv.

tt_integr_acr_cheq.tta_num_pessoa.

tt_integr_acr_cheq.tta_cod_pais.

def new shared temp-table tt_integr_acr_impto_impl_pend no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"

    field tta_cod_pais_ext                 as character format "x(20)" label "País Externo" column-label "País Externo"

    field tta_cod_unid_federac             as character format "x(3)" label "Unidade Federação" column-label "UF"

    field tta_cod_imposto                  as character format "x(5)" label "Imposto" column-label "Imposto"

    field tta_cod_classif_impto            as character format "x(05)" initial "00000" label "Class Imposto" column-label "Class Imposto"

    field tta_num_seq                      as integer format ">>>,>>9" initial 0 label "Sequência" column-label "NumSeq"

    field tta_val_rendto_tribut            as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Rendto Tributável" column-label "Vl Rendto Tribut"

    field tta_val_aliq_impto               as decimal format ">9.99" decimals 2 initial0.00label "Alíquota" column-label "Aliq"

    field tta_val_imposto                  as decimal format ">,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Imposto" column-label "Vl Imposto"

    field tta_cod_plano_cta_ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

    field tta_cod_cta_ctbl                 as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

    field tta_cod_cta_ctbl_ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"

    field tta_cod_sub_cta_ctbl_ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"

    field tta_ind_clas_impto               as character format "X(14)" initial "Retido" label "Classe Imposto" column-label "Classe Imposto"

    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_val_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"

    field tta_dat_cotac_indic_econ         as date format "99/99/9999" initial ? label "Data Cotação" column-label "Data Cotação"

    field tta_val_impto_indic_econ_impto   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Val Finalid Impto" column-label "Val Finalid Impto"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_pais                     ascending

          tta_cod_pais_ext                 ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          tta_cod_classif_impto            ascending

          tta_num_seq                      ascending.

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_impto_impl_pend.tta_cod_pais

tt_integr_acr_impto_impl_pend.tta_cod_pais_ext

para matriz de tradução

tt_integr_acr_impto_impl_pend.tta_cod_unid_federac

tt_integr_acr_impto_impl_pend.tta_cod_imposto

tt_integr_acr_impto_impl_pend.tta_cod_classif_impto

tt_integr_acr_impto_impl_pend.tta_val_aliq_impto

(**) Liberado o número de documento com 16 posições e série com5, apartir de maio/2011.

def new shared temp-table tt_integr_acr_item_lote_impl no-undo

    field ttv_rec_lote_impl_tit_acr        as recid format ">>>>>>9" initial ?

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

    field tta_cdn_cliente                  as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente"

    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_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"

    field tta_cod_portad_ext               as character format "x(8)" label "Portador Externo" column-label "Portador Externo"

    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

    field tta_cod_modalid_ext              as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"

    field tta_cod_cond_cobr                as character format "x(8)" label "Condição Cobrança" column-label "Cond Cobrança"

    field tta_cod_motiv_movto_tit_acr      as character format "x(8)" label "Motivo Movimento" column-label "Motivo Movimento"

    field tta_cod_histor_padr              as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"

    field tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

    field tta_dat_vencto_tit_acr           as date format "99/99/9999" initial ? label "Vencimento" column-label "Vencimento"

    field tta_dat_prev_liquidac            as date format "99/99/9999" initial ? label "Prev Liquidação" column-label "Prev Liquidação"

    field tta_dat_desconto                 as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"

    field tta_dat_emis_docto               as date format "99/99/9999" initial today label "Data  Emissão" column-label "Dt Emissão"

    field tta_val_tit_acr                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor" column-label "Valor"

    field tta_val_desconto                 as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Valor Desconto"

    field tta_val_perc_desc                as decimal format ">9.9999" decimals 4 initial 0 label "Percentual Desconto" column-label "Perc Descto"

    field tta_val_perc_juros_dia_atraso    as decimal format ">9.999999" decimals 6 initial00.00label "Perc Jur Dia Atraso" column-label "Perc Dia"

    field tta_val_perc_multa_atraso        as decimal format ">9.99" decimals 2 initial00.00label "Perc Multa Atraso" column-label "Multa Atr"

    field tta_val_base_calc_comis          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Base Calc Comis" column-label "Base Calc Comis"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_qtd_dias_carenc_multa_acr    as decimal format ">>9" initial 0 label "Dias Carenc Multa" column-label "Dias Carenc Multa"

    field tta_cod_banco                    as character format "x(8)" label "Banco" column-label "Banco"

    field tta_cod_agenc_bcia               as character format "x(10)" label "Agência Bancária" column-label "Agência Bancária"

    field tta_cod_cta_corren_bco           as character format "x(20)" label "Conta Corrente Banco" column-label "Conta Corrente Banco"

    field tta_cod_digito_cta_corren        as character format "x(2)" label "Dígito Cta Corrente" column-label "Dígito Cta Corrente"

    field tta_cod_instruc_bcia_1_movto     as character format "x(4)" label "Instr Bancária 1" column-label "Instr Banc 1"

    field tta_cod_instruc_bcia_2_movto     as character format "x(4)" label "Instr Bancária 2" column-label "Instr Banc 2"

    field tta_qtd_dias_carenc_juros_acr    as decimal format ">>9" initial 0 label "Dias Carenc Juros" column-label "Dias Juros"

    field tta_val_liq_tit_acr              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Líquido" column-label "Vl Líquido"

    field tta_ind_tip_espec_docto          as character format "X(17)" initial "Normal" label "Tipo Espécie" column-label "Tipo Espécie"

    field tta_cod_cond_pagto               as character format "x(8)" label "Condição Pagamento" column-label "Condição Pagamento"

    field ttv_cdn_agenc_fp                 as Integer format ">>>9" label "Agência"

    field tta_ind_sit_tit_acr              as character format "X(13)" initial "Normal" label "Situação Título" column-label "Situação Título"

    field tta_log_liquidac_autom           as logical format "Sim/Não" initial no label "Liquidac Automática" column-label "Liquidac Automática"

    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 tta_num_id_movto_cta_corren      as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field tta_cod_admdra_cartao_cr         as character format "x(5)" label "Administradora" column-label "Administradora"

    field tta_cod_cartcred                 as character format "x(20)" label "Código Cartão" column-label "Código Cartão"

    field tta_cod_mes_ano_valid_cartao     as character format "XX/XXXX" label "Validade Cartão" column-label "Validade Cartão"

    field tta_cod_autoriz_cartao_cr        as character format "x(6)" label "Cód Pré-Autorização" column-label "Cód Pré-Autorização"

    field tta_dat_compra_cartao_cr         as date format "99/99/9999" initial ? label "Data Efetiv Venda" column-label "Data Efetiv Venda"

    field tta_cod_conces_telef             as character format "x(5)" label "Concessionária" column-label "Concessionária"

    field tta_num_ddd_localid_conces       as integer format "999" initial 0 label "DDD" column-label "DDD"

    field tta_num_prefix_localid_conces    as integer format ">>>9" initial 0 label "Prefixo" column-label "Prefixo"

    field tta_num_milhar_localid_conces    as integer format "9999" initial 0 label "Milhar" column-label "Milhar"

    field tta_log_tip_cr_perda_dedut_tit   as logical format "Sim/Não" initial no label "Credito com Garantia" column-label "Cred Garant"

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

    field tta_ind_ender_cobr               as character format "X(15)" initial "Cliente" label "Endereço Cobrança" column-label "Endereço Cobrança"

    field tta_nom_abrev_contat             as character format "x(15)" label "Abreviado Contato" column-label "Abreviado Contato"

    field tta_log_db_autom                 as logical format "Sim/Não" initial no label "Débito Automático" column-label "Débito Automático"

    field tta_log_destinac_cobr            as logical format "Sim/Não" initial no label "Destin Cobrança" column-label "Destin Cobrança"

    field tta_ind_sit_bcia_tit_acr         as character format "X(12)" initial "Liberado" label "Sit Bancária" column-label "Sit Bancária"

    field tta_cod_tit_acr_bco              as character format "x(20)" label "Num Título Banco" column-label "Num Título Banco"

    field tta_cod_agenc_cobr_bcia          as character format "x(10)" label "Agência Cobrança" column-label "Agência Cobr"

    field tta_dat_abat_tit_acr             as date format "99/99/9999" initial ? label "Abat" column-label "Abat"

    field tta_val_perc_abat_acr            as decimal format ">>9.9999" decimals 4 initial 0 label "Perc Abatimento" column-label "Abatimento"

    field tta_val_abat_tit_acr             as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Abatimento" column-label "Vl Abatimento"

    field tta_des_obs_cobr                 as character format "x(40)" label "Obs Cobrança" column-label "Obs Cobrança"

    index tt_id                            is primary unique

          ttv_rec_lote_impl_tit_acr        ascending

          tta_num_seq_refer                ascending.

(**) Liberado o número de documento com 16 posições e série com5, apartir de maio/2011.

def temp-table tt_integr_acr_item_lote_impl_9 no-undo

    field ttv_rec_lote_impl_tit_acr        as recid format ">>>>>>9" initial ?

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

    field tta_cdn_cliente                  as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente"

    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_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"

    field tta_cod_portad_ext               as character format "x(8)" label "Portador Externo" column-label "Portador Externo"

    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

    field tta_cod_modalid_ext              as character format "x(8)" label "Modalidade Externa" column-label "Modalidade Externa"

    field tta_cod_cond_cobr                as character format "x(8)" label "Condição Cobrança" column-label "Cond Cobrança"

    field tta_cod_motiv_movto_tit_acr      as character format "x(8)" label "Motivo Movimento" column-label "Motivo Movimento"

    field tta_cod_histor_padr              as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"

    field tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

    field tta_dat_vencto_tit_acr           as date format "99/99/9999" initial ? label "Vencimento" column-label "Vencimento"

    field tta_dat_prev_liquidac            as date format "99/99/9999" initial ? label "Prev Liquidação" column-label "Prev Liquidação"

    field tta_dat_desconto                 as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"

    field tta_dat_emis_docto               as date format "99/99/9999" initial today label "Data  Emissão" column-label "Dt Emissão"

    field tta_val_tit_acr                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor" column-label "Valor"

    field tta_val_desconto                 as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Valor Desconto"

    field tta_val_perc_desc                as decimal format ">9.9999" decimals 4 initial 0 label "Percentual Desconto" column-label "Perc Descto"

    field tta_val_perc_juros_dia_atraso    as decimal format ">9.999999" decimals 6 initial 00.00 label "Perc Jur Dia Atraso" column-label "Perc Dia"

    field tta_val_perc_multa_atraso        as decimal format ">9.99" decimals 2 initial 00.00 label "Perc Multa Atraso" column-label "Multa Atr"

    field tta_val_base_calc_comis          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Base Calc Comis" column-label "Base Calc Comis"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_qtd_dias_carenc_multa_acr    as decimal format ">>9" initial 0 label "Dias Carenc Multa" column-label "Dias Carenc Multa"

    field tta_cod_banco                    as character format "x(8)" label "Banco" column-label "Banco"

    field tta_cod_agenc_bcia               as character format "x(10)" label "Agência Bancária" column-label "Agência Bancária"

    field tta_cod_cta_corren_bco           as character format "x(20)" label "Conta Corrente Banco" column-label "Conta Corrente Banco"

    field tta_cod_digito_cta_corren        as character format "x(2)" label "Dígito Cta Corrente" column-label "Dígito Cta Corrente"

    field tta_cod_instruc_bcia_1_movto     as character format "x(4)" label "Instr Bancária 1" column-label "Instr Banc 1"

    field tta_cod_instruc_bcia_2_movto     as character format "x(4)" label "Instr Bancária 2" column-label "Instr Banc 2"

    field tta_qtd_dias_carenc_juros_acr    as decimal format ">>9" initial 0 label "Dias Carenc Juros" column-label "Dias Juros"

    field tta_val_liq_tit_acr              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Líquido" column-label "Vl Líquido"

    field tta_ind_tip_espec_docto          as character format "X(17)" initial "Normal" label "Tipo Espécie" column-label "Tipo Espécie"

    field tta_cod_cond_pagto               as character format "x(8)" label "Condição Pagamento" column-label "Condição Pagamento"

    field ttv_cdn_agenc_fp                 as Integer format ">>>9" label "Agência"

    field tta_ind_sit_tit_acr              as character format "X(13)" initial "Normal" label "Situação Título" column-label "Situação Título"

    field tta_log_liquidac_autom           as logical format "Sim/Não" initial no label "Liquidac Automática" column-label "Liquidac Automática"

    field tta_num_id_tit_acr               as integer format "999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"

    field tta_num_id_movto_tit_acr         as integer format "999999999" initial 0 label "Token Movto Tit  ACR" column-label "Token Movto Tit  ACR"

    field tta_num_id_movto_cta_corren      as integer format "9999999999" initial 0 label "ID Movto Conta" column-label "ID Movto Conta"

    field tta_cod_admdra_cartao_cr         as character format "x(5)" label "Administradora" column-label "Administradora"

    field tta_cod_cartcred                 as character format "x(20)" label "Código Cartão" column-label "Código Cartão"

    field tta_cod_mes_ano_valid_cartao     as character format "XX/XXXX" label "Validade Cartão" column-label "Validade Cartão"

    field tta_cod_autoriz_cartao_cr        as character format "x(6)" label "Cód Pré-Autorização" column-label "Cód Pré-Autorização"

    field tta_dat_compra_cartao_cr         as date format "99/99/9999" initial ? label "Data Efetiv Venda" column-label "Data Efetiv Venda"

    field tta_cod_conces_telef             as character format "x(5)" label "Concessionária" column-label "Concessionária"

    field tta_num_ddd_localid_conces       as integer format "999" initial 0 label "DDD" column-label "DDD"

    field tta_num_prefix_localid_conces    as integer format ">>>9" initial 0 label "Prefixo" column-label "Prefixo"

    field tta_num_milhar_localid_conces    as integer format "9999" initial 0 label "Milhar" column-label "Milhar"

    field tta_log_tip_cr_perda_dedut_tit   as logical format "Sim/Não" initial no label "Credito com Garantia" column-label "Cred Garant"

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

    field tta_ind_ender_cobr               as character format "X(15)" initial "Cliente" label "Endereço Cobrança" column-label "Endereço Cobrança"

    field tta_nom_abrev_contat             as character format "x(15)" label "Abreviado Contato" column-label "Abreviado Contato"

    field tta_log_db_autom                 as logical format "Sim/Não" initial no label "Débito Automático" column-label "Débito Automático"

    field tta_log_destinac_cobr            as logical format "Sim/Não" initial no label "Destin Cobrança" column-label "Destin Cobrança"

    field tta_ind_sit_bcia_tit_acr         as character format "X(12)" initial "Liberado" label "Sit Bancária" column-label "Sit Bancária"

    field tta_cod_tit_acr_bco              as character format "x(20)" label "Num Título Banco" column-label "Num Título Banco"

    field tta_cod_agenc_cobr_bcia          as character format "x(10)" label "Agência Cobrança" column-label "Agência Cobr"

    field tta_dat_abat_tit_acr             as date format "99/99/9999" initial ? label "Abat" column-label "Abat"

    field tta_val_perc_abat_acr            as decimal format ">>9.9999" decimals 4 initial 0 label "Perc Abatimento" column-label "Abatimento"

    field tta_val_abat_tit_acr             as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Abatimento" column-label "Vl Abatimento"

    field tta_des_obs_cobr                 as character format "x(40)" label "Obs Cobrança" column-label "Obs Cobrança"

    field tta_val_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_ind_tip_calc_juros           as character format "x(10)" initial "Simples" label "Tipo Cálculo Juros" column-label "Tipo Cálculo Juros"

    field ttv_cod_comprov_vda_aux          as character format "x(12)"

    field ttv_num_parc_cartcred            as integer format ">9" label "Quantidade Parcelas" column-label "Quantidade Parcelas"

    field ttv_cod_autoriz_bco_emissor      as character format "x(6)" label "Codigo Autorização" column-label "Codigo Autorização"

    field ttv_cod_lote_origin              as character format "x(7)" label "Lote Orig Venda" column-label "Lote Orig Venda"

    field ttv_cod_estab_vendor             as character format "x(3)" label "Estabelecimento" column-label "Estabelecimento"

    field ttv_num_planilha_vendor          as integer format ">>>,>>>,>>9" initial 0 label "Planilha Vendor" column-label "Planilha Vendor"

    field ttv_cod_cond_pagto_vendor        as character format "x(3)" initial "0" label "Condição Pagto" column-label "Condição Pagto"

    field ttv_val_cotac_tax_vendor_clien   as decimal format ">>9.9999999999" decimals 10 label "Taxa Vendor Cliente" column-label "Taxa Vendor Cliente"

    field ttv_dat_base_fechto_vendor       as date format "99/99/9999" initial today label "Data Base" column-label "Data Base"

    field ttv_qti_dias_carenc_fechto       as Integer format "->>9" label "Dias Carência" column-label "Dias Carência"

    field ttv_log_assume_tax_bco           as logical format "Sim/Não" initial no label "Assume Taxa Banco" column-label "Assume Taxa Banco"

    field ttv_log_vendor                   as logical format "Sim/Não" initial no

    field ttv_cod_estab_portad             as character format "x(8)"

    field tta_cod_proces_export            as character format "x(12)" label "Processo Exportação" column-label "Processo Exportação"

    field ttv_val_cr_pis                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito PIS" column-label "Vl Cred PIS/PASEP"

    field ttv_val_cr_cofins                as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Credito COFINS"

    field ttv_val_cr_csll                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito CSLL" column-label "Credito CSLL"

    field tta_cod_indic_econ_desemb        as character format "x(8)" label "Moeda Desembolso" column-label "Moeda Desembolso"

    field tta_val_base_calc_impto          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Base Calculo Impto" column-label "Base Calculo Impto"

    field tta_log_retenc_impto_impl        as logical format "Sim/Não" initial no label "Ret Imposto Impl" column-label "Ret Imposto Impl"

    field ttv_cod_nota_fisc_faturam        as character format "x(16)"

    field tta_cod_band                     as character format "x(10)" label "Bandeira" column-label "Bandeira"

    field tta_cod_tid                      as character format "x(10)" label "TID" column-label "TID"

    field tta_cod_terminal                 as character format "x(8)" label "Nr Terminal" column-label "Nr Terminal"

    index tt_id                            is primary unique

          ttv_rec_lote_impl_tit_acr        ascending

          tta_num_seq_refer                ascending.

- O atributo ttv_rec_lote_impl_tit_acr deve receber o  recid da tt_integr_acr_lote_impl;

- O atributo ttv_rec_item_lote_impl_tit_acr deverá receber o seu próprio recid, ou seja:

recid (tt_integr_item_lote_impl_5);

- O atributos chaves para o título devem ser informados:

tta_cod_estab;

tta_cdn_cliente;

tta_num_seq_refer

tta_cod_espec_docto;

tta_cod_ser_docto;

tta_cod_tit_acr;

tta_cod_parcela.

- O atributo tta_cod_finalid_econ_ext somente será informado, quando a finalidade econômica usada for de um sistema externo.

Deve ser informado apenas um dos atributos (tta_cod_finalid_econ ou tta_cod_finalid_econ_ext).

- O atributo tta_cod_portador deve receber valor quando o portador fo do EMS 5.0;

- O atributo tta_cod_portad_ext somente será informado, quando o portador usado for de um sistema externo.

Deve ser informado apenas um dos atributos (tta_cod_portador ou tta_cod_portad_ext).

- O atributo tta_cod_cart_bcia deve receber o valor, quando a carteira bancária for a do EMS 5.0;

- O atributo tta_cod_modalid_ext somente será informado, quando a carteira bancária for de um sistema externo. Deve ser informado apenas um dos atributos (tta_cod_cart_bcia ou tta_cod_modalid_ext)

- atributo tta_val_cotac_indic_econ deverá ser informado quando se deseja que a conversão para a moeda corrente do usuário seja feita utilizando-se essa cotação e não a cotação existente no Cadastro de Cotações. Caso deseje-se que o sistema utilize o valor da cotação existente no cadastro, deve-se informar 0 (zero) no valor da cotação – tta_val_cotac_indic_econ = 0.

- atributo tta_ind_tip_calc_juros não é obrigatório. Quando não for informado assumirá por default “Simples”.

- atributo ttv_cod_comprov_vda não é obrigatório. Quando informado, será gerado um lote de liquidação e comissão para administradora do cartão de crédito, ou seja, é considerado que a venda está autorizada pela administradora.

- atributo ttv_num_parc_cartcred não é obrigatório. Quando informado, serão criados títulos de cobrança especial conforme o número de parcelas. Obs: estes títulos não são agrupados e o valor informado será dividido conforme número de parcelas.

- atributo ttv_cod_autoriz_bco_emissor não é obrigatório. Quando informado irá atualizar o código de autorização do Banco Emissor da Venda Autorizada.

- atributo ttv_cod_lote_origin não é obrigatório. Quando informado irá atualizar o código do Lote Original da Venda Autorizada.

- atributo ttv_log_vendor não é obrigatório. Utilizado para indicar se haverá atualização das informações para o vendor através do documento.

- atributo ttv_cod_estab_vendor não é obrigatório. Quando for um documento vendor, e estiver implantando uma antecipação, deve ser preenchido com o estabelecimento da planilha.

- atributo ttv_num_planilha_vendor não é obrigatório. Quando for um documento vendor, e estiver implantando uma antecipação, deve ser preenchido com o número da planilha.

- atributo ttv_cod_cond_pagto_vendor não é obrigatório. Quando for um documento vendor, e estiver implantando um documento normal, deve ser preenchido.

- atributo ttv_val_cotac_tax_vendor_clien não é obrigatório. Quando for um documento vendor, e estiver implantando um documento normal, deve ser preenchido, sendo seu valor inicial igual a zero.

- atributo ttv_dat_base_fechto_vendor não é obrigatório. Quando for um documento vendor, e estiver implantando um documento normal, deve ser preenchido.

- atributo ttv_qti_dias_carenc_fechto não é obrigatório. Quando for um documento vendor, e estiver implantando um documento normal, deve ser preenchido, sendo seu valor inicial igual a zero.

- atributo ttv_log_assume_tax_bco não é obrigatório. Quando for um documento vendor, e estiver implantando um documento normal, quando marcado, ignora valor informado para a taxa do cliente.

- atributo tta_val_base_calc_impto somente será informado quando os valores de PIS/COFINS/CSSL forem informados.

- atributo tta_log_retenc_impto_impl será informado para identificar se o titulo sofreu retenção na implantação

- atributo ttv_cod_nota_fisc_faturam será informado quando o título for de origem faturamento.

Segue abaixo outros atributos além dos citados anteriormente que deverão receber valor na temp-table:

tt_integr_acr_item_lote_impl_9.ttv_rec_lote_impl_tit_acr

tt_integr_acr_item_lote_impl_9.tta_num_seq_refer

tt_integr_acr_item_lote_impl_9.tta_cdn_cliente

tt_integr_acr_item_lote_impl_9.tta_cod_espec_docto

tt_integr_acr_item_lote_impl_9.tta_cod_ser_docto

tt_integr_acr_item_lote_impl_9.tta_cod_tit_acr

tt_integr_acr_item_lote_impl_9.tta_cod_parcela

tt_integr_acr_item_lote_impl_9.tta_cod_indic_econ

tt_integr_acr_item_lote_impl_9.tta_cdn_repres

tt_integr_acr_item_lote_impl_9.tta_dat_vencto_tit_acr

tt_integr_acr_item_lote_impl_9.tta_dat_prev_liquidac

tt_integr_acr_item_lote_impl_9.tta_dat_emis_docto

tt_integr_acr_item_lote_impl_9.tta_val_tit_acr

tt_integr_acr_item_lote_impl_9.tta_val_liq_tit_acr

tt_integr_acr_item_lote_impl_9.tta_ind_tip_espec_docto

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def new shared temp-table tt_integr_acr_lote_impl no-undo

    field tta_cod_empresa                  as character format "x(3)" label "Empresa" column-label "Empresa"

    field ttv_cod_empresa_ext              as character format "x(3)" label "Código Empresa Ext" column-label "Cód Emp Ext"

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"

    field tta_cod_espec_docto              as character format "x(3)" label "Espécie Documento" column-label "Espécie"

    field tta_dat_transacao                as date format "99/99/9999" initial today label "Data Transação" column-label "Dat Transac"

    field tta_ind_tip_espec_docto          as character format "X(17)" initial "Normal" label "Tipo Espécie" column-label "Tipo Espécie"

    field tta_ind_orig_tit_acr             as character format "X(8)" initial "ACREMS50" label "Origem Tit Cta Rec" column-label "Origem Tit Cta Rec"

    field tta_val_tot_lote_impl_tit_acr    as decimal format ">>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Total Movimento" column-label "Total Movimento"

    field tta_val_tot_lote_infor_tit_acr   as decimal format ">>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Total Informado" column-label "Total Informado"

    field tta_ind_tip_cobr_acr             as character format "X(10)" initial "Normal" label "Tipo Cobrança" column-label "Tipo Cobrança"

    field ttv_log_lote_impl_ok             as logical format "Sim/Não" initial no

    field tta_log_liquidac_autom           as logical format "Sim/Não" initial no label "Liquidac Automática" column-label "Liquidac Automática"

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_cod_estab_ext                ascending

          tta_cod_refer                    ascending.

Segue abaixo os atributos que deverão receber valor na temp-table:

tt_integr_acr_lote_impl.tta_cod_empresa

tt_integr_acr_lote_impl.tta_cod_estab

tt_integr_acr_lote_impl.tta_cod_refer

tt_integr_acr_lote_impl.tta_dat_transacao

def new shared temp-table tt_integr_acr_ped_vda_pend no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_ped_vda                  as character format "x(12)" label "Pedido Venda" column-label "Pedido Venda"

    field tta_cod_ped_vda_repres           as character format "x(12)" label "Pedido Repres" column-label "Pedido Repres"

    field tta_val_perc_particip_ped_vda    as decimal format ">>9.99" decimals 2 initial 0 label "Particip Ped Vda" column-label "Particip"

    field tta_val_origin_ped_vda           as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Original Ped Venda" column-label "Original Ped Venda"

    field tta_val_sdo_ped_vda              as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Saldo Pedido Venda" column-label "Saldo Pedido Venda"

    field tta_des_ped_vda                  as character format "x(40)" label "Pedido Venda" column-label "Pedido Venda"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_ped_vda                  ascending.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_ped_vda_pend.ttv_rec_item_lote_impl_tit_acr

tt_integr_acr_ped_vda_pend.tta_cod_ped_vda

tt_integr_acr_ped_vda_pend.tta_cod_ped_vda_repres

tt_integr_acr_ped_vda_pend.tta_val_perc_particip_ped_vda

- O atributo ttv_rec_item_lote_impl_tit_acr deve receber o  recid da tt_integr_acr_item_lote_impl_9

(*) 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 com5, apartir de maio/2011.

def new shared temp-table tt_integr_acr_relacto_pend no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_estab_tit_acr_pai        as character format "x(5)" label "Estab Tit Pai" column-label "Estab Tit Pai"

    field ttv_cod_estab_tit_acr_pai_ext    as character format "x(5)" label "Estab Tit Pai" column-label "Estab Tit Pai"

    field tta_num_id_tit_acr_pai           as integer format "9999999999" initial 0 label "Token" column-label "Token"

    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_val_relacto_tit_acr          as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Relacto" column-label "Vl Relacto"

    field tta_log_gera_alter_val           as logical format "Sim/Não" initial no label "Gera Alter Valor" column-label "Gera Alter Valor"

    field tta_ind_motiv_acerto_val         as character format "X(12)" initial "Alteração" label "Motivo Acerto Valor" column-label "Motivo Acerto Valor".

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_relacto_pend.ttv_rec_item_lote_impl_tit_acr

tt_integr_acr_relacto_pend.ttv_cod_estab_tit_acr_pai

tt_integr_acr_relacto_pend.ttv_cod_estab_tit_acr_pai_ext

para matriz de tradução

tt_integr_acr_relacto_pend.tta_num_id_tit_acr_pai

tt_integr_acr_relacto_pend.tta_cod_espec_docto

tt_integr_acr_relacto_pend.tta_cod_ser_docto      

tt_integr_acr_relacto_pend.tta_cod_tit_acr

tt_integr_acr_relacto_pend.tta_cod_parcela 

tt_integr_acr_relacto_pend.tta_val_relacto_tit_acr  

tt_integr_acr_relacto_pend.tta_log_gera_alter_val

tt_integr_acr_relacto_pend.tta_ind_motiv_acerto_val

- O atributo ttv_rec_item_lote_impl_tit_acr deve receber o  recid da tt_integr_acr_item_lote_impl_9

def new shared temp-table tt_integr_acr_relacto_pend_cheq no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cod_banco                    as character format "x(8)" label "Banco" column-label "Banco"

    field tta_cod_agenc_bcia               as character format "x(10)" label "Agência Bancária" column-label "Agência Bancária"

    field tta_cod_cta_corren               as character format "x(10)" label "Conta Corrente" column-label "Cta Corrente"

    field tta_num_cheque                   as integer format ">>>>,>>>,>>9" initial ? label "Num Cheque" column-label "Num Cheque"

    field tta_val_vincul_cheq_acr          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Vinculado" column-label "Valor Vinculado"

    field tta_cdn_bco_cheq_salario         as Integer format ">>9" initial 0 label "Banco Cheque Salário" column-label "Banco Cheque Salário"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cod_banco                    ascending

          tta_cod_agenc_bcia               ascending

          tta_cod_cta_corren               ascending

          tta_num_cheque                   ascending.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_relacto_pend_cheq.ttv_rec_item_lote_impl_tit_acr

tt_integr_acr_relacto_pend_cheq.tta_cod_banco

tt_integr_acr_relacto_pend_cheq.tta_cod_agenc_bcia

tt_integr_acr_relacto_pend_cheq.tta_cod_cta_corren

tt_integr_acr_relacto_pend_cheq.tta_num_cheque

- O atributo ttv_rec_item_lote_impl_tit_acr deve receber o  recid da tt_integr_acr_item_lote_impl_9

def new shared temp-table tt_integr_acr_repres_pend no-undo

    field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

    field tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

    field tta_val_perc_comis_repres        as decimal format ">>9.99" decimals 2 initial 0 label "% Comisión" column-label "% Comisión"

    field tta_val_perc_comis_repres_emis   as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Emisión" column-label "% Comis Emisión"

    field tta_val_perc_comis_abat          as decimal format ">>9.99" decimals 2 initial 0 label "% Comisión Rebaja" column-label "% Comisión Rebaja"

    field tta_val_perc_comis_desc          as decimal format ">>9.99" decimals 2 initial 0 label "% Comisión Desct" column-label "% Comisión Desct"

    field tta_val_perc_comis_juros         as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Inter" column-label "% Comis Inter"

    field tta_val_perc_comis_multa         as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Multa" column-label "% Comis Multa"

    field tta_val_perc_comis_acerto_val    as decimal format ">>9.99" decimals 2 initial 0 label "% Comis AVA" column-label "% Comis AVA"

    field tta_log_comis_repres_proporc     as logical format "Sí/No" initial no label "Comis Proporcional" column-label "Comis Propor"

    field tta_ind_tip_comis                as character format "X(15)" initial "Valor Bruto" label "Tipo Comisión" column-label "Tipo Comisión"

    index tt_id                            is primary unique

          ttv_rec_item_lote_impl_tit_acr   ascending

          tta_cdn_repres                   ascending.

Atributo ttv_rec_item_lote_impl_tit_acr deverá receber o valor do atributo (tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr), para que haja relacionamento entre as duas temp-tables.

Segue abaixo os atributos que deverão receber valor:

tt_integr_acr_repres_pend.tta_cdn_repres

tt_integr_acr_repres_pend.tta_val_perc_comis_repres

tt_integr_acr_repres_pend.tta_val_perc_comis_repres_emis

tt_integr_acr_repres_pend.tta_val_perc_comis_abat

tt_integr_acr_repres_pend.tta_val_perc_comis_desc

tt_integr_acr_repres_pend.tta_val_perc_comis_juros

tt_integr_acr_repres_pend.tta_val_perc_comis_multa

tt_integr_acr_repres_pend.tta_val_perc_comis_acerto_val

tt_integr_acr_repres_pend.tta_ind_tip_comis

OBS:  Caso os campos:

tt_integr_acr_repres_pend.tta_val_perc_comis_abat 

tt_integr_acr_repres_pend.tta_val_perc_comis_desc

tt_integr_acr_repres_pend.tta_val_perc_comis_juros

tt_integr_acr_repres_pend.tta_val_perc_comis_multa

tt_integr_acr_repres_pend.tta_val_perc_comis_acerto_val

Sejam alimentados com o valor ? a API de implantação ira sobrepor o valore ? com o valor parametrizado no representante financeiro.

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def new shared temp-table tt_log_erros_atualiz no-undo

    field tta_cod_estab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_cod_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_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"

    field ttv_ind_tip_relacto              as character format "X(15)" label "Tipo Relacionamento" column-label "Tipo Relac"

    field ttv_num_relacto                  as integer format ">>>>,>>9" label "Relacionamento" column-label "Relacionamento".

def temp-table tt_integr_acr_repres_comis_2 no-undo

     field ttv_rec_item_lote_impl_tit_acr   as recid format ">>>>>>9"

     field tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

     field tta_ind_tip_comis_ext            as character format "X(15)" initial "Nenhum" label "Tipo Comis Externo" column-label "Tipo Comis Externo"

     field ttv_ind_liber_pagto_comis        as character format "X(20)" initial "Nenhum" label "Lib Pagto Comis" column-label "Lib Comis"

     field ttv_ind_sit_comis_ext            as character format "X(10)" initial "Nenhum" label "Sit Comis Ext" column-label "Sit Comis Ext".

(*) Liberado o centro de custo com 20 posições, a partir de maio/2011.

def temp-table tt_integr_acr_aprop_relacto_2b no-undo

    field ttv_rec_relacto_pend_tit_acr     as recid format ">>>>>>9" initial ? label "TK Relac Tit" column-label "TK Relac Tit"

    field ttv_rec_aprop_relacto            as recid format ">>>>>>9"

    field tta_cod_plano_ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

    field tta_cod_ccusto                   as Character format "x(11)" label "Centro Custo" column-label "Centro Custo".

As informações do centro de custo se relacionam ao documento relacionado pelo atributo ttv_rec_relacto_pend_tit_acr, que guarda o recid do registro da tt do documento relacionado, ou seja: tt_integr_acr_aprop_relacto_2b.ttv_rec_relacto_pend_tit_acr = recid(tt_integr_acr_relacto_pend).

As informações do centro de custo se relacionam as informações de conta contábil do rateio do documento relacionado pelo atributo ttv_rec_aprop_relacto, que guarda o recid do registro da tt de apropriação do documento relacionado, ou seja: tt_integr_acr_aprop_relacto_2b. ttv_rec_aprop_relacto = recid(tt_integr_acr_aprop_relacto).

Def new shared temp-table tt_params_generic_api no-undo

    field ttv_rec_id                       as recid format ">>>>>>9"

    field ttv_cod_tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"

    field ttv_cod_campo                    as character format "x(25)" label "Campo" column-label "Campo"

    field ttv_cod_valor                    as character format "x(8)" label "Valor" column-label "Valor"

    index tt_idx_param_generic             is primary unique

          ttv_cod_tabela                   ascending

          ttv_rec_id                       ascending

          ttv_cod_campo                    ascending.

Exemplo Criação temp-table tt_params_generic_api para campo SAFRA:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = (Campo Recid da temp-table) tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr

       tt_params_generic_api.ttv_cod_campo  = 'Safra':U

       tt_params_generic_api.ttv_cod_tabela = ' tt_integr_acr_item_lote_impl ':U

       tt_params_generic_api.ttv_cod_valor  = (Valor Da Safra).

Exemplo Criação temp-table tt_params_generic_api para campo NÚMERO DO CONTRATO:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table) tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr

            tt_params_generic_api.ttv_cod_campo = 'cod_contrato':U

            tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U

            tt_params_generic_api.ttv_cod_valor = (Valor Do Contrato).

Exemplo Criação temp-table tt_params_generic_api para campo Devolve Imposto Retido?:

find b_tit_acr no-lock

       where b_tit_acr.cod_estab       = tt_integr_acr_abat_antecip.tta_cod_estab   

         and b_tit_acr.cod_espec_docto = tt_integr_acr_abat_antecip.tta_cod_espec_doc

         and b_tit_acr.cod_ser_docto   = tt_integr_acr_abat_antecip.tta_cod_ser_docto

         and b_tit_acr.cod_tit_acr     = tt_integr_acr_abat_antecip.tta_cod_tit_acr 

         and b_tit_acr.cod_parcela     = tt_integr_acr_abat_antecip.tta_cod_parcela no-error.

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = recid(b_tit_acr)

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_abat_antecip':U

       tt_params_generic_api.ttv_cod_campo  = 'Devolve Imposto Retido?':U                             

       tt_params_generic_api.ttv_cod_valor  = string(yes).

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = recid(b_tit_acr)

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_abat_antecip':U

       tt_params_generic_api.ttv_cod_campo  = 'Valor Estornado':U                             

       tt_params_generic_api.ttv_cod_valor  = string(7.92).

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = recid(b_tit_acr)

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_abat_antecip':U

       tt_params_generic_api.ttv_cod_campo  = 'Gera Retenção Imposto Antecipação':U                             

       tt_params_generic_api.ttv_cod_valor  = string(yes).

Exemplo Criação temp-table tt_params_generic_api para campo Importa Títulos de Saldo?:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = recid(tt_integr_acr_lote_impl)

       tt_params_generic_api.ttv_cod_campo  = "log_import_tit_sdo"

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_lote_impl':U

       tt_params_generic_api.ttv_cod_valor  = string(yes).

REINF:

Mão-de-Obra ou Empreitada (REINF):

Caso o título seja de um cliente do tipo Mão-de-Obra ou Empreitada será necessário informar alguns dados para o REINF. Para cadastrar essas informações através da API será necessário que o cliente do título esteja relacionado a uma pessoa jurídica e o tipo da espécie do título seja 'Normal' e a origem do título seja de implantação direto no módulo de Contas a Receber.

Informações necessárias:

- Mão de Obra ou Empreitada (log_mdo_emptda): Indica se o título representa um recebimento relacionado à mão-de-obra ou empreitada. Valores possíveis 'yes', 'no', 'sim' ou 'não'. Caso esse registro não seja informado irá pegar essa informação do cliente financeiro.

- Número do Tipo Serviço Mão-de-Obra (num_tip_serv_mdo ): Número corresponde ao tipo de serviço prestado. Esse campo é obrigatório caso o campo anterior seja 'yes' ou 'Sim'. O código deverá estar cadastrado no sistema na rotina Código de Serviço do INSS (CD1050). Caso esse registro não seja informado irá pegar essa informação do cliente financeiro.

- Tipo Inscrição Obra (num_tip_obra): Caso a obra esteja vinculada a um CNPJ deverá ser informado '1', caso esteja vinculada a um CNO deverá ser informado '4'.

- Código da Obra (cod_obra): Esse campo é opcional. Porém, caso informado deverá existir na rotina Códigos de obras (cd2023).

Processo Jurídico (REINF):

Para os títulos que possuem INSS estão marcados como Mão-de-Obra ou Empreitada é possível informar um processo jurídico e o valor de imposto não retido em virtude desse processo.

Informações necessárias:

- Número do Processo Jurídico (cod_process_judic): Esse campo é opcional. Porém, caso informado deverá existir no Cadastro de Processos (cd2021) e será necessário informar o valor não retido ou então a base de cálculo de INSS para cálculo do valor não retido ((base inss * alíquota relacionada ao processo) /100). 

- Valor não retido (val_nao_retid): Este campo é opcional, quando informado será necessário informar o número do processo jurídico. Quando ele não for informado será calculado o valor não retido através da base de cálculo de INSS ((base inss * alíquota relacionada ao processo) /100).

-INSS: Este campo é opcional no Contas a Receber. Caso informado o campo Base de Cálculo também deve ser informado.

-Base de Cálculo: Valor da Base de Cálculo do INSS. Este campo não é obrigatório.

Observação: Para todos campos valores da tabela temporária "tt_params_generic_api" ao informar valores com decimais a quebra deverá ser feita utilizando string(9.99).

Exemplo Criação temp-table tt_params_generic_api para campo Mão de Obra Empreitada:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'log_mdo_emptda':U
tt_params_generic_api.ttv_cod_valor = 'yes'.

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Número Tipo Serviço Mão de Obra :

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'num_tip_serv_mdo':U
tt_params_generic_api.ttv_cod_valor = '3'. /*deve existir no cd1050*/

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Número Tipo Obra:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'num_tip_obra':U
tt_params_generic_api.ttv_cod_valor = '4'. /*válidos apenas 1 = CNPJ e 4 = CNO - caso não informar este campo o valor default assumido é 1*/

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Código Obra:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'cod_obra':U
tt_params_generic_api.ttv_cod_valor = '12'. /*deve existir no cd2023*/

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Código Processo Judicial:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'cod_process_judic':U
tt_params_generic_api.ttv_cod_valor = '111222333'. /*deve existir no cd2021*/

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Valor Não Retido:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'val_nao_retid':U
tt_params_generic_api.ttv_cod_valor = string(55.12).

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Valor Base Cálculo INSS :

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'val_base_calc_inss':U
tt_params_generic_api.ttv_cod_valor = string(6500.12).

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Valor Crédito INSS:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U
tt_params_generic_api.ttv_cod_campo = 'val_cr_inss':U
tt_params_generic_api.ttv_cod_valor = string(885.78).

Obs. Campo utilizado para o REINF.

PIX:

A modalidade de Cobrança PIX segundo os layouts dos bancos possuem informações diferentes da cobrança escritural normal e estas precisam estar disponíveis para alteração pelo usuário.

Informações necessárias:

- campo dsl_pix_link - Link gerado para pagamento do Qr Code dinâmico. Será retornado pelo Banco neste primeiro momento.

- campo des_url_loc_payload_json - URL presente no EMV do QR Code dinâmico e que contém os dados da cobrança

- campo dsl_emv_qr_code - EMV do QR Code dinâmico. Esse campo deve ser utilizado no processo de geração de imagem (base64). 

Exemplo Criação temp-table tt_params_generic_api para campo Link:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'dsl_pix_link':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar pix link fornecido pelo banco.

Exemplo Criação temp-table tt_params_generic_api para campo URL :

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'des_url_localiz_json':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

Exemplo Criação temp-table tt_params_generic_api para campo EMV:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da temp-table de item lote implantação)
tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl_9':U
tt_params_generic_api.ttv_cod_campo = 'dsl_emv_qrcode':U.

E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

def new shared temp-table tt_integr_acr_relacto_pend_aux no-undo

    field ttv_rec_lote_impl_tit_acr        as recid format ">>>>>>9" initial ?

    field ttv_log_nota_vincul              as logical format "Sim/NÆo" initial yes

def temp-table tt_integr_perext_item_impl_acr no-undo

    field tta_cod_estab                    as character format "x(3)" label "Estabelecimento" column-label "Estab"

    field tta_cod_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 tta_des_letra                    as character format "A" label "Letra Comp." column-label "Letra Comp."

    field tta_num_pto_vta                  as integer format ">>>9" initial 0 label "Ponto Venda" column-label "Pto Vda"

    field tta_val_gravado                  as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Tributado" column-label "Tributado"

    field tta_val_no_gravado               as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Não Tributado" column-label "Não Tributado"

    field tta_val_exento                   as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Isento" column-label "Isento"

    field tta_val_brut                     as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Bruto" column-label "Bruto"

    field tta_val_neto                     as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Líquido" column-label "Líquido"

    field tta_cod_livre_1                  as character format "x(100)" label "Livre 1" column-label "Livre 1"

    field tta_cod_livre_2                  as character format "x(100)" label "Livre 2" column-label "Livre 2"

    field tta_log_livre_1                  as logical format "Sim/Não" initial no label "Livre 1" column-label "Livre 1"

    field tta_log_livre_2                  as logical format "Sim/Não" initial no label "Livre 2" column-label "Livre 2"

    field tta_num_livre_1                  as integer format ">>>>>9" initial 0 label "Livre 1" column-label "Livre 1"

    field tta_num_livre_2                  as integer format ">>>>>9" initial 0 label "Livre 2" column-label "Livre 2"

    field tta_val_livre_1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"

    field tta_val_livre_2                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 2" column-label "Livre 2"

    field tta_dat_livre_1                  as date format "99/99/9999" initial ? label "Livre 1" column-label "Livre 1"

    field tta_dat_livre_2                  as date format "99/99/9999" initial ? label "Livre 2" column-label "Livre 2"

    index tt_prxttmlt_id                   is primary unique

          tta_cod_estab                    ascending

          tta_cod_refer                    ascending

          tta_num_seq_refer                ascending

    .

Esta temp-table não deverá ser alimentada a não ser pelo próprio processo do Mais Negócios.

def temp-table tt_integr_acr_docto_mais_negoc no-undo

    field ttv_rec_lote_impl_tit_acr        as recid format ">>>>>>9" initial ?

    field tta_cod_ser_docto                as character format "x(5)" label "Série Documento" column-label "Série"

    field tta_cod_tit_acr                  as character format "x(16)" label "Título" column-label "Título"

    field ttv_json_mais_negoc_supplier     as blob

    index tt_id                            is unique

          ttv_rec_lote_impl_tit_acr        ascending

          tta_cod_ser_docto                ascending

          tta_cod_tit_acr                  ascending
    .