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"

Âncora__RefHeading__23209_2053127524__RefHeading__23209_2053127524 Âncora__RefHeading__9364_486694287__RefHeading__9364_486694287 Âncora__RefHeading__4575_213273755__RefHeading__4575_213273755 Âncora__RefHeading__13973_644533341__RefHeading__13973_644533341 Âncora__RefHeading__89871_1756225838__RefHeading__89871_1756225838Include das definições das tabelas temporárias

• cpc-cg0111b.i

...

__RefHeading__89873_1756225838Tabelas de entrada e saída
anchor__RefHeading__23213_2053127524__RefHeading__23213_2053127524 Âncora__RefHeading__9368_486694287__RefHeading__9368_486694287 Âncora__RefHeading__4579_213273755__RefHeading__4579_213273755 Âncora__RefHeading__13977_644533341__RefHeading__13977_644533341 Âncora__RefHeading__89875_1756225838__RefHeading__89875_1756225838

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.

...