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.

...

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

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 cd-modalidade                     like

...

modalid.cd-

...

modalidade         
         field nr-proposta                       like propost.nr-proposta           
         field nr-ter-adesao                    

...

like propost.nr-

...

ter-adesao         
         field cd-usuario                        like usuario.cd-usuario
         field nm-diretorio-war                

...

 as char format "x(15)"

...

         field nm-diretorio                    

...

 as char format "x(15)"

...

         field lg-separa-avisos                  as log
         field h-temp-erros                      as

...

handle
         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. Valores possíveis: "CONSISTE"

...

• , "CARGA"

...

• , "IMPORTA"

...

• , "REL-ACOMP", "LISTA".
• 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
• nr-lote – Número do lote de importação
.Nm
• .
• 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-diretorio-
par
• war – nome do diretório para impressão dos avisos. 
Nm
• nm-
arquivo-par
• diretório – nome do
arquivo
• diretório para impressão. 
Nm
• lg-
extensao
• separa-
par
• avisos – extensão do arquivo gerado. 
• h-temp-erros - Handle referente à temporária de erros.
• 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

...

• 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
index tmp-movtos2
              in-tipo-movimento.   

Definição campo a campo da tabela de movimentos

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