Histórico da Página

...

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

(**) Caso esteja alterando um título do Contas a Receber de tipo de cobrança normal para tipo de cobrança especial, deverá informar a sequência 0 (zero) no campo tt_alter_tit_acr_cobr_espec_2.tta_num_seq_tit_acr. Caso esteja alterando um título do Contas a Receber já existente de cobrança especial, deverá informar a sequência já existente do título do Contas a Receber (exemplo: tit_acr_cobr_especial.num_seq_tit_acr).

...

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

def temp-table tt_alter_tit_acr_comis_1 no-undo&IF "{&emsfin_version}" >= "5.07A" AND "{&emsfin_version}" < "9.99" &THEN

    field tta_cod_estab                    empresa                  as Character character format "x(53)" label "EstabelecimentoEmpresa" column-label "EstabEmpresa"

&ENDIF&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 num_id_tit_acr               as integer format "9999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"

...

...

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

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

...

    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.

...

Atributo

...

Tipo

...

Formato

...

Descrição

...

Obrig.

...

Evol.

"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

...

tta_cod_estab

...

character

...

x(5)

...

Estabelecimento

...

tta_num_id_tit_acr

...

integer

...

999999999

...

Token Cta Receber

...

tta_cod_admdra_cartao_cr

...

character

...

x(5)

...

Administradora

...

tta_cod_band

...

character

...

x(10)

...

Bandeira

...

tta_cod_tid

...

character

...

x(10)

...

TID

...

tta_cod_terminal

...

character

...

x(8)

...

Nr Terminal

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

...

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 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”campo Código Obra:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id     id = (Campo Recid da Tabela tit_acr)
       tt_params_generic_api.ttv_cod_campo  tabela = '% Antecip 'tt_alter_tit_acr_base_5':U
       tt_params_generic_api.ttv_cod_tabela campo = 'tt_alter_tit_acr_base_5cod_obra':U
       tt_params_generic_api.ttv_cod_valor  = (Valor Do % Dias Antecipado)valor = '12'. /*deve existir no cd2023*/

Obs. Campo utilizado para o REINF.

Exemplo Criação temp-table tt_params_generic_api para campo Mão de Obra EmpreitadaCó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 = 'logcod_mdoprocess_emptdajudic':UU 
tt_params_generic_api.ttv_cod_valor = 'yes111222333'. /*deve existir no cd2021*/

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 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 = 'numval_tipnao_serv_mdoretid':U
tt_params_generic_api.ttv_cod_valor = '3'. /*deve existir no cd1050*/string(55.12).

Obs. Campo utilizado para o REINF.

...

Exemplo Criação temp-table tt_params_generic_api para campo Número Tipo ObraValor 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 = 'numval_base_tipcalc_obrainss':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_params_generic_api.ttv_cod_valor = string(6500.12).

Exemplo Criação temp-table tt_params_generic_api para campo Código ObraValor 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 = 'cod_obra':U
tt_params_generic_api.ttv_cod_valor = '12'. /*deve existir no cd2023*/_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). Obs. Campo utilizado para o REINF.

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

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da Tabela tit_acrtemp-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 = 'codv_dsl_processpix_judiclink':U U.

E no campo tt_params_generic_api_id.ttv_cod_valor = '111222333'. /*deve existir no cd2021*/Obs. Campo utilizado para o REINFindicar pix link fornecido pelo banco.

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

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da Tabela tit_acrtemp-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 = 'val_nao_retidv_des_url_localiz_json':U
tt_params_generic_api.ttv_cod_valor = '5500'.Obs. Campo utilizado para o REINF.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 Valor Base Cálculo INSS EMV:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = (Campo Recid da Tabela tit_acrtemp-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 = 'valv_basedsl_calcemv_inssqrcode':U.

E no campo tt_params_generic_api.ttv_cod_valor = '6500'_id.ttv_cod_valor indicar URL presente no EMV do QR Code fornecido pelo banco.

Alteração de Títulos de Antecipação - Função liberada a partir da 12.1.2301.

Para movimentos de Alteração de Valor a Menor ou Alteração de Valor a Maior será possível informar um portador e carteira do movimento.

A API foi preparada para receber os campos portador e carteira e gerar os valores no CMG quando informado um título de espécie de Antecipação.

Exemplo Criação temp-table tttable tt_params_generic_api para campo Valor Crédito INSSapi para campo Carteira Mov:

create tt_params_generic_api .
assign tt_params_generic_api.ttv_rec_id     =   (Campo Recid da Tabela tit_acr)
tttemp-table de Título de Alteração)
           tt_params_generic_api.ttv_cod_tabela =   'tt_alter_tit_acr_base_5':U
tt                               
           tt_params_generic_api.ttv_cod_campo  = 'val_cr_inss':U
tt_params_generic_apiv_cod_cart_bcia_mov':U .

Além disso, é necessário gravar o campo de portador de movto na tabela temporária:

• tt_alter_tit_acr_base_5.ttv_cod

...

• _portador_mov.