Rotina utilizada para:
Ao conultar um Movimento Extra, nas opções de Código e de Navegação a cpc é chamada passando o ponteiro (rowid) da tabela de Eventos Extras (movipres).
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
No programa pp0410c.p nas opções de Código e de Navegação, para o ponto de chamada "CAMPOS-ESPEC".
No programa pp0410c.p na opção de Relatório, para o ponto de chamada "ANTES-RELATORIO".
Ponto de Utilização
"CAMPOS-ESPEC"
"ANTES-RELATORIO"
Include das definições das tabelas temporárias
cpc-pp0410c.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-pp0411c-entrada
def temp-table tmp-cpc-pp0411c-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..
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento de chamada da CPC. Poderá ser "CODIGO".
nm-ponto-chamada-cpc – Indica o ponto de chamada da CPC. Poderá ser "CAMPOS-ESPEC" ou "ANTES-RELATORIO";
r-movipres - Ponteiro (rowid) da tabela de Eventos Extras (movipres).
Tabela de saída tmp-cpc-pp0411c-saida
def temp-table tmp-cpc-pp0410c-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char
field cd-modalidade like modalid.cd-modalidade
field cd-plano like pla-sau.cd-plano
field cd-tipo-plano like ti-pl-sa.cd-tipo-plano.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
ds-mensagem – Descrição de mensagem de erro que sera mostrada caso o lg-undo-retry = yes.
cd-modalidade – Código da Modalidade. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";
cd-plano – Código do Plano. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";
cd-tipo-plano – Código do tipo de plano. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";