Documento de API

Objetivo

Efetuar a alteração dos títulos do contas a receber.

Parâmetro Entrada API Alteração Títulos/Contas a Receber:

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

tt_alter_tit_acr_base_5: conterá os dados do próprio título a serem alterados;

tt_alter_tit_acr_rateio :  conterá  os dados de rateio de valores dos títulos que serao alterados;

tt_alter_tit_acr_ped_vda: conterá os dados dos pedidos de venda a serem alterados;

tt_alter_tit_acr_comis_1: conterá os dados das comissões a serem alteradas;

tt_alter_tit_acr_cheq: conterá os dados dos cheques a serem alterados;

tt_alter_tit_acr_iva: conterá os dados dos impostos pendentes (IVA´s) a serem alterados;

tt_alter_tit_acr_impto_retid_2: conterá os dados  das retenções a serem alterados;

tt_alter_tit_acr_cobr_espec_2: conterá os dados da cobrança especial a serem alterados;

tt_alter_tit_acr_rat_desp_rec: conterá os dados de rateio de valores de receita/despesa a serem alterados. Sua       funcionalidade estará disponível apenas na versão5.04do produto.

tt_alter_tit_acr_cobr_esp_2_c: conterá outros campos da cobrança especial a serem alterados;

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

Funcionamento

Executar o programa API(utilizar o nome externo), da seguinte forma:

def var v_hdl_program as Handle no-undo.

run prgfin/acr/acr711zv.py persistent set v_hdl_program .

run pi_main_code_integr_acr_alter_tit_acr_novo_14 in v_hdl_program

                                            (Input  14,

                                             Input  table tt_alter_tit_acr_base_5,

                                             Input  table tt_alter_tit_acr_rateio,

                                             Input  table tt_alter_tit_acr_ped_vda,

                                             Input  table tt_alter_tit_acr_comis_1,

                                             Input  table tt_alter_tit_acr_cheq,

                                             Input  table tt_alter_tit_acr_iva,

                                             Input  table tt_alter_tit_acr_impto_retid_2,                                                     

                                             Input  table tt_alter_tit_acr_cobr_espec_2,

                                             Input  table tt_alter_tit_acr_rat_desp_rec,

                                             Output table tt_log_erros_alter_tit_acr,

                                             Input  p_log_integr_cmg,

                                             Input  table tt_alter_tit_acr_cobr_esp_2_c,

                                             Input  table tt_params_generic_api).

Delete procedure v_hdl_program.

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.

def temp-table tt_alter_tit_acr_base_5 no-undo

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

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

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

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

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

    field tta_val_sdo_tit_acr              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Saldo T¡tulo" column-label "Saldo T¡tulo"

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

    field ttv_ind_motiv_acerto_val         as character format "X(12)" initial "Altera‡Æo" label "Motivo Acerto Valor" column-label "Motivo Acerto Valor"

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

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

    field tta_val_despes_bcia              as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Vl Desp Banc" column-label "Vl Desp Banc"

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

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

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

    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_fluxo_tit_acr            as date format "99/99/9999" initial ? label "Fluxo" column-label "Fluxo"

    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_cod_cond_cobr                as character format "x(8)" label "Condi‡Æo Cobran‡a" column-label "Cond Cobran‡a"

    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_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_dat_desconto                 as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"

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

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

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

    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_qtd_dias_carenc_multa_acr    as decimal format ">>9" initial 0 label "Dias Carenc Multa" column-label "Dias Carenc Multa"

    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 ttv_cod_portador_mov             as character format "x(5)" label "Portador Movto" column-label "Portador Movto"

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

    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_val_liq_tit_acr              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Vl L¡quido" column-label "Vl L¡quido"

    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_log_tit_acr_destndo          as logical format "Sim/NÆo" initial no label "Destinado" column-label "Destinado"

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

    field ttv_des_text_histor              as character format "x(2000)" label "Hist¢rico" column-label "Hist¢rico"

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

    field ttv_wgh_lista                    as widget-handle extent 26 format ">>>>>>9"

    field tta_num_seq_tit_acr              as integer format ">>>9" initial 0 label "Sequˆncia" column-label "Sequˆncia"

    field ttv_cod_estab_planilha           as character format "x(3)"

    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 tta_val_cr_pis                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEP" column-label "Vl Cred PIS/PASEP"

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

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

    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 tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

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

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

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_dat_transacao                ascending

          tta_num_seq_tit_acr              ascending.

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

def temp-table tt_alter_tit_acr_cheq no-undo

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

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

    field 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_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_prev_apres_cheq_acr      as date format "99/99/9999" initial ? label "PrevisÆo Apresent" column-label "PrevisÆo Apresent"

    field tta_dat_prev_cr_cheq_acr         as date format "99/99/9999" initial ? label "PrevisÆo Cr‚dito" column-label "PrevisÆo Cr‚dito"

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

    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_log_cheq_terc                as logical format "Sim/NÆo" initial no label "Cheque Terceiro" column-label "Cheque Terceiro"

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

    field tta_ind_dest_cheq_acr            as character format "X(15)" initial "Dep¢sito" label "Destino Cheque" column-label "Destino Cheque"

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cod_banco                    ascending

          tta_cod_agenc_bcia               ascending

          tta_cod_cta_corren_bco           ascending

          tta_num_cheque                   ascending.

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

def temp-table tt_alter_tit_acr_cobr_espec_2 no-undo

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

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

    field tta_num_seq_tit_acr              as integer format ">>>9" initial 0 label "Sequˆncia" column-label "Sequˆncia"

    field tta_num_id_cobr_especial_acr     as integer format "99999999" initial 0 label "Token Cobr Especial" column-label "Token Cobr Especial"

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

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

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

    field tta_cod_cartcred                 as character format "x(20)" label "C¢digo CartÆo" column-label "C¢digo 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_cod_mes_ano_valid_cartao     as character format "XX/XXXX" label "Validade CartÆo" column-label "Validade CartÆ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_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_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_des_text_histor              as character format "x(2000)" label "Hist¢rico" column-label "Hist¢rico"

    field ttv_log_alter_tip_cobr_acr       as logical format "Sim/NÆo" initial no label "Alter Tip Cobr" column-label "Alter Tip Cobr"

    field tta_ind_sit_tit_cobr_especial    as character format "X(15)" label "Situa‡Æo T¡tulo" column-label "Situa‡Æo T¡tulo"

    field ttv_cod_comprov_vda              as character format "x(12)" label "Comprovante Venda" column-label "Comprovante Venda"

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

    field ttv_val_tot_sdo_tit_acr          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Val Total Parcelas" column-label "Val Total Parcelas"

    field tta_cod_autoriz_bco_emissor      as character format "x(6)" label "Autorizacao Venda" column-label "Autorizacao Venda"

    field tta_cod_lote_origin              as character format "x(7)" label "Lote OrigVenda" column-label "Lote OrigVenda"

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_num_seq_tit_acr              ascending.

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

def temp-table tt_alter_tit_acr_comis_1 no-undo

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

&IF "{&emsfin_version}" >= "" AND "{&emsfin_version}" < "5.07A" &THEN

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

&ENDIF

&IF "{&emsfin_version}" >= "5.07A" AND "{&emsfin_version}" < "9.99" &THEN

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

&ENDIF

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

    field ttv_num_tip_operac               as integer format ">9" column-label "Tipo  Operação"

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

&IF "{&emsfin_version}" >= "" AND "{&emsfin_version}" < "5.08" &THEN

    field tta_val_perc_comis_repres        as decimal format ">>9.99" decimals 2 initial 0 label "% Comissão" column-label "% Comissão"

&ENDIF

&IF "{&emsfin_version}" >= "5.08" AND "{&emsfin_version}" < "9.99" &THEN

    field tta_val_perc_comis_repres        as decimal format ">>9.9999" decimals 4 initial 0 label "% Comissão" column-label "% Comissão"

&ENDIF

    field tta_val_perc_comis_repres_emis   as decimal format ">>9.99" decimals 2 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"

    field ttv_ind_tip_comis_ext            as character format "X(15)" initial "Nenhum" label "Tipo de Comissão" column-label "Tipo de Comissão"

    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"

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

    index tt_id                            is primary unique

          tta_cod_empresa                  ascending

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cdn_repres                   ascending

    index tt_relac_tit_acr               

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending.

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

def temp-table tt_alter_tit_acr_impto_retid_2 no-undo

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

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

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

    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_impto_refer_tit_acr      as integer format ">>>>>9" initial 0 label "Impto Refer" column-label "Impto Refer"

    field ttv_num_tip_operac               as integer format ">9" column-label "Tipo  Opera‡Æo"

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

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

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cod_pais                     ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          tta_cod_classif_impto            ascending

          tta_num_impto_refer_tit_acr      ascending.

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

def temp-table tt_alter_tit_acr_iva no-undo

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

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

    field 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_cod_pais                     as character format "x(3)" label "Pa¡s" column-label "Pa¡s"

    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 ttv_num_tip_operac               as integer format ">9"

    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"

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cod_pais                     ascending

          tta_cod_unid_federac             ascending

          tta_cod_imposto                  ascending

          tta_cod_classif_impto            ascending

          tta_num_seq                      ascending.

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

def temp-table tt_alter_tit_acr_ped_vda no-undo

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

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

    field ttv_num_tip_operac               as integer 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_des_ped_vda                  as character format "x(40)" label "Pedido Venda" column-label "Pedido Venda"

    index tt_id                            is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cod_ped_vda                  ascending.

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

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

def temp-table tt_alter_tit_acr_rateio no-undo

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

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

    field ttv_ind_tip_rat_tit_acr          as character format "X(12)" label "Tipo Rateio" column-label "Tipo Rateio"

    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_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_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_tip_fluxo_financ         as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"

    field tta_num_seq_aprop_ctbl_pend_acr  as integer format ">>>9" initial 0 label "Seq Aprop Pend" column-label "Seq Apro"

    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_log_impto_val_agreg          as logical format "Sim/NÆo" initial no label "Impto Val Agreg" column-label "Imp Vl Agr"

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

    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_dat_transacao                as date format "99/99/9999" initial today label "Data Transa‡Æo" column-label "Dat Transac"

    index tt_relac_tit_acr               

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending.

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

def temp-table tt_alter_tit_acr_rat_desp_rec no-undo

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

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

    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_val_perc_rat_ctbz            as decimal format ">>9.99" decimals 2 initial 0 label "Perc Rateio" column-label "% Rat"

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

    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_aprop_despes_recta    as integer format "9999999999" initial 0 label "Id Apropria‡Æo" column-label "Id Apropria‡Æo"

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

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

    index tt_aprpdspa_id                   is primary unique

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          tta_cod_plano_cta_ctbl           ascending

          tta_cod_cta_ctbl                 ascending

          tta_cod_unid_negoc               ascending

          tta_cod_tip_fluxo_financ         ascending

          tta_num_id_aprop_despes_recta    ascending

    index tt_aprpdspa_token                is unique

          tta_cod_estab                    ascending

          tta_num_id_aprop_despes_recta    ascending.

def temp-table tt_log_erros_alter_tit_acr no-undo

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

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

    field ttv_num_mensagem                 as integer format ">>>>,>>9" label "Número" column-label "Número Mensagem"

    field ttv_cod_tip_msg_dwb              as character format "x(12)" label "Tipo Mensagem" column-label "Tipo 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_wgh_focus                    as widget-handle format ">>>>>>9"

    index tt_relac_tit_acr               

          tta_cod_estab                    ascending

          tta_num_id_tit_acr               ascending

          ttv_num_mensagem                 ascending.

def temp-table tt_alter_tit_acr_cobr_esp_2_c no-undo

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

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

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

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

Def 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 “val_perc_desc_antecip”:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = (Campo Recid da Tabela tit_acr)

       tt_params_generic_api.ttv_cod_campo  = '% Antecip':U

       tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':U

       tt_params_generic_api.ttv_cod_valor  = (Valor Do % Dias Antecipado).

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 alterar 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'. 

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

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

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

-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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela ='tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':U
tt_params_generic_api.ttv_cod_campo = 'val_base_calc_inss':U
tt_params_generic_api.ttv_cod_valor = string(6500.12).

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 = (Campo Recid da Tabela tit_acr)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':U
tt_params_generic_api.ttv_cod_campo = 'val_cr_inss':U
tt_params_generic_api.ttv_cod_valor = string(885.78).

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 estático ou 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 ou estático. 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 Título de Alteração)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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 Título de Alteração)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':U
tt_params_generic_api.ttv_cod_campo = 'des_url_localiz_json':U
tt_params_generic_api.ttv_cod_valor = char(100).

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 Título de Alteração)
tt_params_generic_api.ttv_cod_tabela = 'tt_alter_tit_acr_base_5':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.