CPC-CG0111B.p

• Rotina chamada no programa que inclui 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 cg0111b.p , após criar registro na tabela PRESERV e incluir os dados do prestador.

Ponto de Utilização

• "APOS-INCLUI"
• "PRES-E-MAIL"
• "INICIO-ENDPRES"
• "DENTRO-PROC-PF"
• "MOSTRA-DADOS"
• "INICIO-IMPOSTOS"
• "FINAL-IMPOSTOS"

Include das definições das tabelas temporárias

• cpc-cg0111b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0111b-entrada

def temp-table tmp-cpc-cg0111b-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 cd-grupo-prestador                     like gruppres.cd-grupo-prestador
field cd-retorno-cpc                            as int format 99.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a CPC-CG0111B.P igual a "INC"
• nm-ponto-chamada – Nome do Ponto de Utilização.
• r-preserv – Registro do prestador a ser consultado.
• r-paramecp - Registro da tabela de parâmetros globais do sistema
• lg-corres-aletr-aux – Indicador de alteração de envio de correspondência eletrônica para o prestador
• cd-grupo-prestador – Indica o grupo do prestador
• cd-retorno-cpc – Código de retorno do tratamento de lotes guias.

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

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

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 cd-retorno-cpc                           as int format 99

field lg-continua                                as log

fiield 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.
• ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.
• cd-grupo-prestador – Indica o grupo do prestador.
• cd-retorno-cpc – Código de retorno do tratamento de lotes guias.
• lg-continua - Log que retorna se continua ou não o processo.
• lg-retorno-cpc - Variável de retorno da cpc.