CPC-CG0110B.p

• Rotina chamada na programa que consulta o cadastro de 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.

Âncora__RefHeading__23187_2053127524__RefHeading__23187_2053127524 Âncora__RefHeading__9342_486694287__RefHeading__9342_486694287 Âncora__RefHeading__4553_213273755__RefHeading__4553_213273755 Âncora__RefHeading__13951_644533341__RefHeading__13951_644533341 Âncora__RefHeading__89849_1756225838__RefHeading__89849_1756225838Localização

• Dentro do programa cg0110b.p , após consultar os dados do prestador.

...

__RefHeading__23189_2053127524__RefHeading__23189_2053127524 Âncora__RefHeading__9344_486694287__RefHeading__9344_486694287 Âncora__RefHeading__4555_213273755__RefHeading__4555_213273755 Âncora__RefHeading__13953_644533341__RefHeading__13953_644533341 Âncora__RefHeading__89851_1756225838__RefHeading__89851_1756225838Ponto de Utilização

• "APOS-CONSULTA"
• "PRES-E-MAIL"
• "ANTES-EXIBIR"
• "INICIO-CONTROLE"
• "TABELA-ASSOC"
• "MOSTRA-DADOS"

Âncora__RefHeading__23191_2053127524__RefHeading__23191_2053127524 Âncora__RefHeading__9346_486694287__RefHeading__9346_486694287 Âncora__RefHeading__4557_213273755__RefHeading__4557_213273755 Âncora__RefHeading__13955_644533341__RefHeading__13955_644533341 Âncora__RefHeading__89853_1756225838__RefHeading__89853_1756225838Include das definições das tabelas temporárias

• cpc-cg0110b.i

Âncora__RefHeading__23193_2053127524__RefHeading__23193_2053127524 Âncora__RefHeading__9348_486694287__RefHeading__9348_486694287 Âncora__RefHeading__4559_213273755__RefHeading__4559_213273755 Âncora__RefHeading__13957_644533341__RefHeading__13957_644533341 Âncora__RefHeading__89855_1756225838__RefHeading__89855_1756225838Tabelas de entrada e saída
anchor__RefHeading__23195_2053127524__RefHeading__23195_2053127524 Âncora__RefHeading__9350_486694287__RefHeading__9350_486694287 Âncora__RefHeading__4561_213273755__RefHeading__4561_213273755 Âncora__RefHeading__13959_644533341__RefHeading__13959_644533341 Âncora__RefHeading__89857_1756225838__RefHeading__89857_1756225838

Tabela de entrada tmp-cpc-cg0110b-entrada

def temp-table tmp-cpc-cg0110b-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 lista-tab-associadas

...

                   as char
field altera-frame1                             as widget
field altera-frame2                             as widget
field in-tab-associadas                       as int format "99"
field lg-aumenta-frame                       as log
field cd-unidade

...

                               like preserv.cd-unidade
field cd-prestador

...

                             like preserv.cd-prestador.

...

...

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-CG0110B.P
• nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser : "APÓS-CONSULTA", "PRES-E-MAIL",
• "ANTES-EXIBIR", "INICIO-CONTROLE", "TABELA-ASSOC".
• R-preserv – Registro do prestador a ser consultado.
• lista-tab-associadas - Listagem de opções da tela tabelas associadas.
• altera-frame1 - Campo que altera o tamanho da tela tabelas associadas.
• altera-frame2 - Campo que altera o tamanho da tela tabelas associadas.
• in-tab-associadas - Indica qual opção foi escolhida na tela tabelas associadas.
• lg-aumenta-frame - Indica se ocorreu o aumento da tela tabelas associadas.
• cd-unidade - Código da unidade do prestador.
• cd-prestador - Código do prestador.

...

...

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

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

field lg-undo-retry

...

                           as logical
field ds-mensagem-erro

...

                   as char format "x(75)"
field ds-opcao-menu

...

                       as char format "x(20)"
field lista-tab-associadas

...

                 as char
field lg-aumenta-frame                     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.
• ds-opcao-menu – Armazena a descrição da função do menu específico.
• lista-tab-associadas - Listagem de opções da tela tabelas associadas.
• lg-aumenta-frame - Indica se ocorreu o aumento da tela tabelas associadas.