Alteração do

...

Ponto de CPC "APOS-CBO"

...

Rotina utilizada para:

• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportadoInclusão e Manutenção de contratantes.

Localização

• Antes de criar o contratante com os dados informados em tela.
• Antes de atualizar o contratante com os dados informados em tela
• Dentro do programa fp0512j, anterior a criação da nota.
• Dentro do programa fp0512j, no momento da leitura dos beneficiários.

Ponto de Utilização

• "APOS-CBO"
   
• Eventos: 
• "CREATE"
• • "UPDATE"
    * eventos adicionados 

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-fp0512jbosaucontracting-entrada

def temp-table tmp-cpc-fp0512j-entrada no-undo

field in-evento-programa                 as char format "x(10)"

field nm-ponto-chamada                 as char format "x(15)"

field vl-total-nota                              like notaserv.vl-total

field nr-rowid-usuario                      as rowid

field dt-emissao-aux                       as date.

Image Added

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Ponto de chamada de cpc.
• in-evento-programa – Identifica qual evento deve ser executado no momento que está sendo chamada.vl
• in-totaltipo-nota – Valor total da nota calculado até o momento
• nr-rowid-usuario – número do registro no banco da tabela referente ao beneficiário
• dt-emissao-aux – data de emissão da nota de serviço em questão

Tabela de entrada-saída wk-evento-imposto

def temp-table wk-evento-imposto no-undo

field cd-evento                            like fatueven.cd-evento

field cd-imposto                          like dzimposto.cd-imposto

field vl-base                                as dec

field pc-aliquota                          like evenimp.pc-aliquota

Definição campo a campo da tabela de entrada-saída

...

• pessoa – Indicador tipo de pessoa (Física/Jurídica).
• cd-cbo-ramo-atividade – Código de ocupação (CBO) do contratante.
• nr-insc-contratante – Número de inscrição do contratante.
• cd-portador - Código do portador do contratante.
• modalidade - Código da modalidade do contratante.
• cod-banco - Código do banco do prestador.
• agencia - Código da agência bancária do prestador.
• agencia-digito - Dígito da agência bancária do prestador.
• conta-corren - Conta corrente do prestador.
• dig-conta-corren - Dígito da conta corrente do prestador.
• nm-tipo-evento - Evento utilizado na CPC (CREATE / UPDATE).
• cd-userid - Usuário corrente que está alterando ou criando o contratante.
• r-contrat - Recid da tabela contratante (disponível apenas no evento UPDATE).

       * campos adicionados 

...

Tabela de saída tmp-cpc-fp0512jbosaucontracting-saida

def temp-table tmp-cpc-fp0512j-saida no-undo

...

...

Image Added

field ds-mensagem-erro                   as char format "x(75)"

field vl-total-nota                                like notaserv.vl-total

field lg-desconsidera-registro           as log.

Definição campo a campo da tabela de saída 

• lg-
undo-retry –controla
• erro – controla os erros que podem ocorrer na CPC.
• ds-mensagem
-erro
• – recebe a descrição dos erros que ocorreram na CPC
.
• vl-total-nota – recebe o valor da nota alterado.
lg-desconsidera-registro – indica se beneficiário será desconsiderado do faturamento do mês em questão
• .