Histórico da Página

...

tt_api_acr_aprop_relacto.tta_cod_plano_ccusto           
tt_api_acr_aprop_relacto.tta_cod_ccusto                   

def temp-table tt_api_acr_relacto_pend_cheq no-undo
    field ttv_cod_id_item_lote_impl_tit    as character format "x(80)"
    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 "Núm 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_cod_id_item_lote_impl_tit    ascending
          tta_cod_banco                    ascending
          tta_cod_agenc_bcia               ascending
          tta_cod_cta_corren               ascending
          tta_num_cheque                   ascending
    .

...

tt_api_acr_relacto_pend_cheq.tta_num_cheque

def temp-table tt_api_acr_repres_pend no-undo
    field ttv_cod_id_item_lote_impl_tit    as character format "x(80)"
    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.9999" decimals 4 initial 0 label "% Comissão" column-label "% Comissão"
    field tta_val_perc_comis_repres_emis   as decimal format ">>9.9999" decimals 4 initial 0 label "% Comis Emissão" column-label "% Comis Emissão"
    field tta_val_perc_comis_abat          as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Abatimento" column-label "% Comis Abatimento"
    field tta_val_perc_comis_desc          as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Desconto" column-label "% Comis Desconto"
    field tta_val_perc_comis_juros         as decimal format ">>9.99" decimals 2 initial 0 label "% Comis Juros" column-label "% Comis Juros"
    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 "Sim/Não" initial no label "Comis Proporcional" column-label "Comis Propor"
    field tta_ind_tip_comis                as character format "X(15)" initial "Valor Bruto" label "Tipo Comissão" column-label "Tipo Comissão"
    index tt_id                            is primary unique
          ttv_cod_id_item_lote_impl_tit    ascending
          tta_cdn_repres                   ascending
    .

...

tt_api_acr_repres_pend.tta_val_perc_comis_acerto_val

def temp-table tt_api_acr_repres_comis no-undo
    field ttv_cod_id_item_lote_impl_tit    as character format "x(80)"
    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(15)" initial "Nenhum" label "Sit Comis Ext" column-label "Sit Comis Ext"    .

Considerações

• O atributo ttv_cod_id_item_lote_impl_tit deve receber o campo tt_api_acr_item_lote_impl.ttv_cod_id_item_lote_impl_tit da temp-table de item para que o relacionamento entre as temp-table funcione.

def new shared temp-table tt_integrapi_acr_aprop_desp_rec no-undo
        field ttv_reccod_id_item_lote_impl_tit _acr   as recid    as character format ">>>>>>9x(80)"
    field   field tta_cod_cta_ctbl_ext             ext             as character format "x(20)" label "Conta Contab Extern" column-label "Conta Contab Extern"
        field tta_cod_sub_cta_ctbl_ext         ext         as character format "x(15)" label "Sub Conta Externa" column-label "Sub Conta Externa"
        field tta_cod_unid_negoc_ext           ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"
        field tta_cod_fluxo_financ_ext         ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"
        field tta_val_perc_rat_ctbz            as ctbz            as decimal format ">>9.999999999999" decimals 2 10 initial 0 label "Perc Rateio" column-label "% Rat"
        field tta_cod_plano_cta_ctbl           ctbl           as character format "x(8)" label "Plano Contas" column-label "Plano Contas"
        field tta_cod_cta_ctbl                 ctbl                 as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"
        field tta_cod_unid_negoc               negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"
        field tta_cod_tip_abat                 abat                 as character format "x(8)" label "Tipo de Abatimento" column-label "Tipo de Abatimento"
        field tta_cod_tip_fluxo_financ         financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
      field field tta_ind_tip_aprop_recta_despes   despes   as character format "x(20)" label "Tipo Apropriação" column-label "Tipo Apropriação"
        index tt_id                            is id                            is primary unique
          ttv_rec          ttv_cod_id_item_lote_impl_tit _acr   ascending             ascending
          tta_cod_cta_ctbl_ext             ext             ascending
                    tta_cod_sub_cta_ctbl_ext         ext         ascending
                    tta_cod_unid_negoc_ext           ext           ascending
                    tta_cod_fluxo_financ_ext         ext         ascending
                    tta_cod_plano_cta_ctbl           ctbl           ascending
          tta          tta_cod_cta_ctbl                 ctbl                 ascending
                    tta_cod_unid_negoc               negoc               ascending
                    tta_cod_tip_fluxo_financ         financ         ascending
                    tta_ind_tip_aprop_recta_despes   despes   ascending
                    tta_cod_tip_abat                 ascending.Atributo ttv_recabat                 ascending
    .

Considerações

• O atributo ttv_cod_id_item_lote_impl_tit

...

• deve receber o

...

• campo tt_

...

• api_acr_item_lote_impl

...

• .ttv_cod_

...

• id_item_lote_impl_tit

...

• da temp-table de item para que

...

• o relacionamento entre as

...

• temp-

...

• table funcione.
• Segue abaixo os atributos que deverão receber valor:

tt_

...

api_acr_aprop_desp_rec.tta_cod_plano_cta_ctbl

tt_

...

api_acr_aprop_desp_rec.tta_cod_cta_ctbl

tt_

...

api_acr_aprop_desp_rec.tta_cod_unid_negoc

tt_

...

api_acr_aprop_desp_rec.tta_cod_tip_fluxo_financ

tt_

...

api_acr_aprop_desp_rec.tta_ind_tip_aprop_recta_despes

tt_

...

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

tt_

...

api_acr_aprop_desp_rec.tta_val_perc_rat_ctbz

def new shared temp-table tt_integrapi_acr_aprop_liq_antec no-undo
        field ttv_cod_recid_item_lote_impl_tit _acr   as recid    as character format ">>>>>>9x(80)"
        field ttv_cod_recid_abat_antecip_acr         as recid acr      as character format ">>>>>>9x(80)"
        field tta_cod_fluxo_financ_ext         ext         as character format "x(20)" label "Tipo Fluxo Externo" column-label "Tipo Fluxo Externo"
        field ttv_cod_fluxo_financ_tit_ext     ext     as character format "x(20)" label "    Fuxo Tit Ext" column-label "Fuxo Tit Ext"
    field tta_cod_unid_negoc               negoc               as character format "x(3)" label "Unid Negócio" column-label "Un Neg"
        field tta_cod_tip_fluxo_financ         financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
        field tta_cod_unid_negoc_tit           tit           as character format "x(3)" label "Unid Negoc Título" column-label "Unid Negoc Título"
        field tta_cod_tip_fluxo_financ_tit     tit     as character format "x(12)" label "Tp Fluxo Financ Tit" column-label "Tp Fluxo Financ Tit"
        field tta_val_abtdo_antecip            as antecip            as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Abatido" column-label "Vl Abatido"
    . 

 ConsideraçõesAtributo

• O atributo ttv_

...

• cod_id_item_lote_impl_tit

...

• deve receber o

...

• campo tt_

...

• api_acr_item_lote_impl

...

• .ttv_cod_

...

• id_item_lote_impl_tit

...

• da temp-table de item para que

...

• o relacionamento entre as

...

• temp-

...

• table funcione.

...

• O atributo ttv_cod_

...

• id_abat_antecip_acr

...

•  deve receber o

...

• campo tt_

...

• api_acr_abat_antecip.ttv_cod_

...

• id_abat_antecip_

...

• acr  da temp-table de abatimento antecipação para que

...

• o relacionamento entre as

...

• temp-

...

• table funcione.
• Segue abaixo os atributos que deverão receber valor:

tt_

...

api_acr_aprop_liq_antec.tta_cod_fluxo_financ_ext

...

- para matriz de tradução

tt_

...

api_acr_aprop_liq_antec.ttv_cod_fluxo_financ_tit_ext

...

-para matriz de tradução

tt_

...

api_acr_aprop_liq_antec.tta_cod_unid_negoc

tt_

...

api_acr_aprop_liq_antec.tta_cod_tip_fluxo_financ

tt_

...

api_acr_aprop_liq_antec.tta_cod_unid_negoc_tit

tt_

...

api_acr_aprop_liq_antec.tta_cod_tip_fluxo_financ_tit

tt_

...

api_acr_aprop_liq_antec.tta_val_abtdo_antecip

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

def new shared temp-table tt_log_erros_atualiz no-undo

...

def temp-table tt_integr_perext_item_impl_acr 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

...

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 "Início Período" column-label "Livre 1"
    field tta_dat_livre_2                  as date format "99/99/9999" initial ? label "Fim Período" column-label "Livre 2"
    index tt_prxttmlt_id                   is primary unique
          tta_cod_estab                    ascending
          tta_cod_refer                    ascending
          tta_num_seq_refer                ascending
    .   

Considerações (Importante)

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

def temp-table tt_api_acr_docto_mais_negoc no-undo
    field ttv_cod_id

...

Tabela Temporária

...

Descrição

...

Entrada/Saída

...

tt_params_generic_api

...

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

...

Input / Output

...

Atributo

...

Tipo

...

Formato

...

Descrição

...

Obrig.

...

Evol.

...

ttv_rec_id

...

recid

...

>>>>>>9

...

ttv_cod_tabela

...

character

...

X(28)

...

Tabela

...

ttv_cod_campo

...

character

...

X(25)

...

Campo

...

ttv_cod_valor

...

character

...

X(8)

...

Valor

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     as character format "x(80)"
        tt_params_generic_api.ttv_cod_campo = 'cod_contrato':Ufield tta_cod_ser_docto               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                             

 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_cod_id_lote_impl_tit_acr     ascending
          tta_cod_ser_docto                ascending
          tta_cod_tit_acr                  ascending
    .

def 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 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:       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(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_tabela campo  = 'tt_integr_acr_abat_antecipSafra':U

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

       tt_params_generic_api.ttv_cod_valor  = string (yesValor Da Safra).

Exemplo Criação temp-table tt_params_generic_api para campo Importa Títulos de Saldo?NÚMERO DO CONTRATO:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id     id = recid (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  campo = "log_import_tit_sdo"'cod_contrato':U

            tt       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_lote_impl':U

       tt            tt_params_generic_api.ttv_cod_valor  valor = string (yesValor Do Contrato).

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:

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)

       create tt_params_generic_api.
assign tt_params_generic_api.ttv_reccod_id tabela = 'tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_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_itemabat_lote_implantecip':U

       tt_params_generic_api.ttv_cod_campo campo  = 'log_mdo_emptdaGera Retenção Imposto Antecipação':UU                             

       tt_params_generic_api.ttv_cod_valor valor  = 'string(yes').

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table table tt_params_generic_api para campo Número Tipo Serviço Mão de Obra para campo Importa Títulos de Saldo?:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id id     = recid(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:

campo  = "log_import_tit_sdo"

       ttcreate tt_params_generic_api.
assign tt_params_generic_api.ttv_reccod_id tabela = 'tt_integr_acr_item_lote_impl_9':U

       tt_params_generic_api.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*/

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).Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Valor Não RetidoMã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 = 'vallog_naomdo_retidemptda':U
tt_params_generic_api.ttv_cod_valor = string(55.12)'yes'.

Obs. Campo utilizado para o REINF.

...

Exemplo Criação temp-table tt_params_generic_api para campo Valor Base Cálculo INSS 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 = 'valnum_basetip_calcserv_inssmdo':U
tt_params_generic_api.ttv_cod_valor = string(6500.12).'3'. /*deve existir no cd1050*/

Obs. Campo utilizado para o REINF.

...

Exemplo Criação temp-table tt_params_generic_api para campo Valor Crédito INSSNú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 = 'valnum_crtip_inssobra':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

'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.- 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 LinkCódigo Obra:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id =  (Campo Recid da temp-table de item lote implantação)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_9':U
tt_params_generic_api.ttv_cod_campo = 'dslcod_pix_linkobra':U.
E no campo tt_params_generic_api_id.ttv_cod_valor indicar pix link fornecido pelo banco= '12'. /*deve existir no cd2023*/

Obs. Campo utilizado para o REINF.

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

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id =  (Campo Recid da temp-table de item lote implantação)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_9':U
tt_params_generic_api.ttv_cod_campo = 'descod_urlprocess_localiz_jsonjudic':U .
E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco= '111222333'. /*deve existir no cd2021*/

Obs. Campo utilizado para o REINF.

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

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id =  (Campo Recid da temp-table de item lote implantação)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_9':U
tt_params_generic_api.ttv_cod_campo = 'dslval_emvnao_qrcoderetid':U.
E no campo tt_params_generic_api_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

...

Tabela Temporária

...

Descrição

...

Entrada/Saída

...

tt_integr_perext_item_impl_acr

...

Contém informações para a tabela de extensão dos itens do lote, para a localização Peru

...

Input

...

Atributo

...

Tipo

...

Formato

...

Descrição

...

Obrigatório

...

Evolução

= 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.

...

tta_cod_estab

...

character

...

x(3)

...

Estabelecimento do Lote

...

Sim

...

tta_cod_refer

...

character

...

x(10)

...

Referência do Lote

...

Sim

...

tta_num_seq_refer

...

integer

...

>>>9

...

Sequência do Item do Lote

...

Sim

...

tta_des_letra

...

character

...

x(1)

...

Letra do Comprovante

...

Não

...

tta_num_pto_vta

...

integer

...

>>>9

...

Ponto de Venda

...

Não

...

tta_val_gravado

...

decimal

...

->>>,>>>,>>9.99

...

Valor Tributado

...

Sim

...

tta_val_no_gravado

...

decimal

...

->>>,>>>,>>9.99

...

Valor não Tributado

...

Não

...

tta_val_exento

...

decimal

...

->>>,>>>,>>9.99

...

Valor Isento

...

Sim

...

tta_val_brut

...

decimal

...

->>>,>>>,>>9.99

...

Valor Bruto

...

Sim

...

tta_val_neto

...

decimal

...

->>>,>>>,>>9.99

...

Valor Líquido

...

Sim

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

    .

...

Tabela Temporária

...

Descrição

...

Entrada/Saída

...

tt_integr_acr_docto_mais_negoc

...

Utilizada exclusivamente pelo produto TOTVS Techfin Mais Negócios

...

Input

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

    .