CPC-CG0112B.p

• Rotina chamada na programa que altera prestadores.
• 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 programa cg0112b.p , após alterar os dados do prestador.
• Dentro do programa cg0112b.p ,ao chamar a função "F5-Correspondência Eletrônica".
• Dentro do programa cg0112b.p , após alterar as informações referentes a correspondência eletrônica.
• Dentro do programa cg0112b.p , após informar a data de exclusão do prestador.
• Dentro do programa cg0112b.p, após informar o motivo de exclusão do prestador

Ponto de Utilização

• "APOS-CONSULTA", "APOS-MODIFICA", "ANTES-EVENTO", "APOS-EVENTO", "DATA-EXCLUSAO" , "PRES-E-MAIL", "INICIO-ENDPRES", "APOS-EXCL-LOGIC" , "MOSTRA-DADOS", "CONS-USUARIO", "FINAL-IMPOSTOS", "INICIO-IMPOSTOS".

Include das definições das tabelas temporárias

• cpc-cg0112b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0112b-entrada

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

field in-evento-programa                    as char format "x(06)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field r-preserv                                     as rowid

field r-paramecp                                as rowid
field lg-corres-eletr-aux                     as log
field int-10                                           like preserv.int-10
field en-rua                                         like preserv.en-rua
field en-compl                                    like preserv.char-15
field en-bairro                                    like preserv.en-bairro
field en-cep                                        like preserv.en-cep
field en-uf                                           like preserv.en-uf
field cd-cidade                                   like preserv.cd-cidade
field nm-email                                   like preserv.nm-email
field nr-telefone-1                              like preserv.nr-telefone[1]
field nr-telefone-2                              like preserv.nr-telefone[2]
field nr-telefone-3                              like preserv.char-16
field nr-telefone-4                              like preserv.char-18
field nr-ramal-1                                 like preserv.nr-ramal[1]
field nr-ramal-2                                 like preserv.nr-ramal[2]
field nr-ramal-3                                 like preserv.char-17
field nr-ramal-4                                 like preserv.char-19
field dt-exclusao                               like preserv.dt-exclusao
field cd-grupo-prestador                   like gruppres.cd-grupo-prestador.
field dt-exclusao                               like preserv.dt-exclusao
field cd-motivo                                  like preserv.cd-motivo-cancel
field cd-retorno-cpc                          as int format 99

field lg-permite                                 as log.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a CPC-CG0112B.P podendo ser igual a "INICIO-PROCESSO" .
  • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "APOS-CONSULTAI", "APÓS-MODIFICA", "ANTES-EVENTO", "APÓS-EVENTO", "DATA-EXCLUSAO", ou "PRES-E-MAIL"
  • r-preserv – Registro do prestador a ser consultado.
  • r-paramecp - Registro dos parâmetros globais do sistema.
  • lg-corres-aletr-aux – Indicador de alteração de envio de correspondência eletrônica para o prestador.
  • int-10 – Variável de campo inteiro reserva.
  • en-rua – Variável para armazenar nome da rua.
  • en-compl – Variável para armazenar complemento de endereço.
  • en-bairro – Variável para armazenar nome do bairro.
  • en-cep – Variável para armazenar o cep.
  • en-uf – Variável para armazenar o Estado.
  • cd-cidade – Variável de código de cidade.
  • nm-email – Variável de endereço de e-mail.
  • nr-telefone-1 – Variável de armazenar número telefonico Principal.
  • nr-telefone-2 – Variável de armazenar número telefonico Secundário.
  • nr-telefone-3 – Variável auxiliar para número telefonico.
  • nr-telefone-4 - Variável auxiliar para número telefonico.
  • nr-ramal-1 – Variável que armazena número de ramal principal.
  • nr-ramal-2 - Variável que armazena número de ramal secundário.
  • nr-ramal-3 – Variável auxiliar para número de ramal.
  • nr-ramal-4 – Variável auxiliar para número de ramal.
  • dt-exclusao – Data de exclusão lógica do prestador
  • cd-grupo-prestador – Indica o grupo do prestador
  • cd-motivo – Motivo de exclusão do prestador.
  • cd-retorno-cpc – Código de retorno do tratamento de lotes guias.
  • lg-permite - Log que retorna se permite ou não modificar o prestador.

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

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

field lg-permit-manut                         as log
field lg-undo-retry                              as logical
field ds-mensagem-erro                   as char format "x(75)"
field cd-grupo-prestador                   like gruppres.cd-grupo-prestador.
field lg-continua                                as log
field cd-retorno-cpc                          as int format 99

field lg-retorno-cpc                          as log.

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 aconteceram e NÃO se o processo foi concluído por completo.
  • lg-permit-manut: indica se o campo referente ao recebimento de correspondência eletrônica será ou não habilitado para manutenção.
  • ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.
  • cd-grupo-prestador – Indica o grupo do prestador.
  • lg-continua – Variável que retorna a permissão de liberar ou restringir o usuário.
  • cd-retorno-cpc – Código de retorno do tratamento de lotes guias.
  • lg-retorno-cpc - Log que indica o retorno da cpc.