CPC-AF0810E.p

• Rotina utilizada para defini o tipode contratação no momento da leitura da tabela movipres.
• 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 af0810e.p durante a leitura da movipres.

Ponto de Utilização

  Âncora__RefHeading__22067_2053127524__RefHeading__22067_2053127524 Âncora__RefHeading__8222_486694287__RefHeading__8222_486694287 Âncora__RefHeading__3433_213273755__RefHeading__3433_213273755 Âncora__RefHeading__12831_644533341__RefHeading__12831_644533341 Âncora__RefHeading__88729_1756225838__RefHeading__88729_1756225838Ponto de Utilização

• "LEITURA-EXTRAS"

Âncora__RefHeading__22069_2053127524__RefHeading__22069_2053127524 Âncora__RefHeading__8224_486694287__RefHeading__8224_486694287 Âncora__RefHeading__3435_213273755__RefHeading__3435_213273755 Âncora__RefHeading__12833_644533341__RefHeading__12833_644533341 Âncora__RefHeading__88731_1756225838__RefHeading__88731_1756225838Include das definições das tabelas temporárias

• cpc-af0810e.i

...

__RefHeading__8226_486694287 Âncora__RefHeading__3437_213273755__RefHeading__3437_213273755 Âncora__RefHeading__12835_644533341__RefHeading__12835_644533341 Âncora__RefHeading__88733_1756225838__RefHeading__88733_1756225838Tabelas de entrada e saída
Âncora__RefHeading__22073_2053127524__RefHeading__22073_2053127524 Âncora__RefHeading__8228_486694287__RefHeading__8228_486694287 Âncora__RefHeading__3439_213273755__RefHeading__3439_213273755 Âncora__RefHeading__12837_644533341__RefHeading__12837_644533341 Âncora__RefHeading__88735_1756225838__RefHeading__88735_1756225838

Tabela de entrada tmp-cpc-af0810e-entrada

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

field in-evento-programa

...

             as char format "x(10)"
field nm-ponto-chamada-cpc         as char format "x(15)"
field r-movipres                           as rowid.

as rowid.
Âncora__RefHeading__22075_2053127524__RefHeading__22075_2053127524 Âncora__RefHeading__8230_486694287__RefHeading__8230_486694287 Âncora__RefHeading__3441_213273755__RefHeading__3441_213273755 Âncora__RefHeading__12839_644533341__RefHeading__12839_644533341 Âncora__RefHeading__88737_1756225838__RefHeading__88737_1756225838Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-af0810e.p.

"CALCULO".

• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa af0810e.p:

"LEITURA-EXTRAS"

• r-movipres – Identificação do registro apontado.

...

...

Tabela de saída tmp-cpc-af0810e–saida

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

field in-tipo-contratacao           like propost.in-tipo-contratacao
field lg-rejeita                         as logical
field lg-undo-retry

...

                   as logical
field ds-mensagem-relatorio

...

     as character format "x(75)".

...

__RefHeading__8234_486694287__RefHeading__8234_486694287 Âncora__RefHeading__3445_213273755__RefHeading__3445_213273755 Âncora__RefHeading__12843_644533341__RefHeading__12843_644533341 Âncora__RefHeading__88741_1756225838__RefHeading__88741_1756225838Definição campo a campo da tabela de saída

• in-tipo-contratacao – Retorna o tipo de contratação definido na CPC.
• lg-rejeita – Utilizado para informar se o registro apontado na movipres será rejeitado ou não. Para rejeitar o registro, deverá retornar SIM.
• 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. 

 
Âncora__RefHeading__22081_2053127524__RefHeading__22081_2053127524 Âncora__RefHeading__8236_486694287__RefHeading__8236_486694287 Âncora__RefHeading__323_1561139123__RefHeading__323_1561139123 Âncora__RefHeading__3447_213273755__RefHeading__3447_213273755 Âncora__RefHeading__12845_644533341__RefHeading__12845_644533341 Âncora__RefHeading__88743_1756225838__RefHeading__88743_1756225838