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.

...

__RefHeading__23205_2053127524 Âncora__RefHeading__9360_486694287__RefHeading__9360_486694287 Âncora__RefHeading__4571_213273755__RefHeading__4571_213273755 Âncora__RefHeading__13969_644533341__RefHeading__13969_644533341 Âncora__RefHeading__89867_1756225838__RefHeading__89867_1756225838Localização

• Dentro do programa cg0111b.p , após criar registro na tabela PRESERV e incluir os dados do prestador.

...

Âncora__RefHeading__89869_1756225838__RefHeading__89869_1756225838Ponto de Utilização

• "APOS-INCLUI"
• "PRES-E-MAIL"
• "INICIO-ENDPRES"
• "MOSTRA-DADOS"

...

__RefHeading__89871_1756225838__RefHeading__89871_1756225838Include das definições das tabelas temporárias

• cpc-cg0111b.i

...

__RefHeading__9366_486694287__RefHeading__9366_486694287 Âncora__RefHeading__4577_213273755__RefHeading__4577_213273755 Âncora__RefHeading__13975_644533341__RefHeading__13975_644533341 Âncora__RefHeading__89873_1756225838__RefHeading__89873_1756225838Tabelas de entrada e saída
Âncora__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 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, que deve ser "APOS-INCLUI", "PRES-E-MAIL".
• r-preserv – Registro do prestador a ser consultado.
• 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.

...

...

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.

...