CPC-MC0510Q.P

• Rotina utilizada na importação batch da movimentação de beneficiários da contratante.
• Rotina utilizada para permitir ao usuário aprovar ou reprovar individualmente as alterações do nome e data de nascimento do beneficiário. Para isso as informações são mostradas num browse.
• Rotina utilizada após confirmação dos parâmetros de importação.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do mc0510q.p, após localizar o contratante.
• Dentro do mc0510q.p, após receber o contratante e número do lote de importação.
• Dentro do mc0510q.p, após confirmar os parâmetros no processo de importação
• Dentro do mc0510q, após a carga ou importação de registros.

Ponto de Utilização

• "VER-CONTRAT"
• "ALTERA-VALOR"
• "DT-RECEB-ARQ"
• "IMPRIME-REL"
• "FIM-IMPORTA"

Include das definições das tabelas temporárias

• cpc-mc0510q.i

Tabelas de entrada ,saída e movimentos

Tabela de entrada tmp-cpc-mc0510q-entrada

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

field in-evento-programa                      as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(20)"
field cd-contratante                               like contrat.cd-contratante
field nr-lote                                            like ltimprep.nr-lote-imp
field nm-diretorio-par                           as char format "x(15)"
field nm-arquivo-par                             as char format "x(15)"
field nm-extensao-par                          as char format "x(15)"
field ds-chamador                       as char.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-mc0510q.p.

"CONSISTE".
"CARGA"
"IMPORTA"
"REL-ACOMP"

• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa mc0510q.p:

"VER-CONTRAT"
"ALTERA-VALOR"
"DT-RECEB-ARQ"
"IMPRIME-REL"

• • cd-contratante – Código do Contratante.
  • Nr-lote – Número do lote de importação.
  • Nm-diretorio-par – nome do diretório para impressão.
  • Nm-arquivo-par – nome do arquivo para impressão.
  • Nm-extensao-par – extensão do arquivo gerado
  • Ds-chamador - Informa se o processo é rpw ou mcp.

Tabela de saída tmp-cpc-mc0510q–saida

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

field lg-undo-retry                                 as logical
field ds-mensagem-relatorio               as char format "x(75)"
field nm-contratante                              like contrat.nm-contratante
field nm-diretorio-arq-recebido           like pimpcont.nm-diretorio-arq-recebido
field dt-receb-arquivo                           as date.

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
• ds-mensagem-relatorio – Deve conter mensagens de erro caso ocorram.
• nm-contratante – Retorna o nome do contratante.
• nm-diretorio-arq-recebido – Retorna o caminho de onde está o arquivo para ser importado.
• dt-receb-arquivo – retorna a data que será considerada como inclusão e exclusão dos beneficiários oriundos do arquivo

Tabela de movimentos tmp-cpc-mc0510q–movtos

def temp-table tmp-cpc-mc0510q-movtos no-undo

field cd-mensagem                           like mensiste.cd-mensagem
field ds-mensagem                           like mensiste.ds-mensagem-sistema
field ds-complemento                       like mensiste.ds-mensagem-sistema
field in-tipo-mensagem                     like mensiste.in-tipo-mensagem
field ds-chave                                    as char format "x(50)"
field ds-chave-usuario                      as char format "x(60)"
field in-tipo-movimento                     as char format "x(1)"
field cd-modalidade                          like modalid.cd-modalidade
field nr-proposta                                like propost.nr-proposta
field nr-ter-adesao                             like ter-ade.nr-ter-adesao
field cd-usuario                                 like usuario.cd-usuario
field nm-usuario                                like usuario.nm-usuario
field lg-responsavel                          as log
field cd-responsavel                         like usuario.cd-titular
field cd-funcionario                           like usuario.cd-funcionario
field cd-grau-parentesco                  like usuario.cd-grau-parentesco
field dt-nascimento                           like usuario.dt-nascimento
index tmp-movtos1
is primary cd-mensagem.

Definição campo a campo da tabela de movimentos

• cd-mensagem – Código de identificação da mensagem.
• ds-mensagem – Descrição da mensagem.
• Ds-complemento– Complemento da mensagem.
• In-tipo-mensagem – Tipo da mensagem, Erro(E) ou Alerta(A).
• Ds-chave – chave do registro que gerou a mensagem
• Ds-chave-usuario – Informações do registro do usuário que gerou a mensagem
• In-tipo-movimento – Tipo de movimentação que gerou a mensagem
• Cd-modalidade – Código da modalidade
• Nr-proposta – Número da proposta
• Nr-ter-adesao – Número do termo de adesão
• Cd-usuario – Código do usuário
• Nm-usuario – Nome do usuário
• Lg-responsavel – Indica se o beneficiario é o responsável
• Cd-responsavel – Código do beneficiário responsável
• Cd-funcionario – Código do funcionário
• Cd-grau-parentesco – Código do grau de parentesco
• Dt-nascimento – Data de nascimento