cpc-pp0610i.p0

Rotina utilizada para listagem de valores por plano.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do PP0610I.p.
Ponto de Utilização
"ANTES-IMP"
Include das definições das tabelas temporárias
CPC-PP0610I.I
Tabelas de entrada e saída e tp-valores
Tabela de tp-valores
def temp-table tp-valores no-undo
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
field cd-modulo like mod-cob.cd-modulo
field qt-proc-pago as int format "zzzzzz9"
field qt-insu-pago as int format "zzzzzz9"
field qt-proc-glo as int format "zzzzzz9"
field qt-insu-glo as int format "zzzzzz9"
field vl-proc-pago as dec format "zz,zzz,zz9.99"
field vl-insu-pago as dec format "zz,zzz,zz9.99"
field vl-proc-glo as dec format "zz,zzz,zz9.99"
field vl-insu-glo as dec format "zz,zzz,zz9.99"
Tabela de entrada tmp-cpc-pp0610i-entrada
def temp-table tmp-cpc-pp0610i-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)".
field rw-titupres as rowid
field rw-movipres as rowid
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
field cd-modulo like mod-cob.cd-modulo.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do ponto de chamada.
nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC.
rw-titupres – Identificador da tabela titupres.
rw-movipres – Identificador da tabela movipres.
cd-modalidade – Codigo da modalidade.
cd-plano – código do plano.
cd-tipo-plano – código do tipo de plano.
cd-modulo – Código do modulo.
Tabela de entrada tmp-cpc-pp0610i-saida
def temp-table tmp-cpc-pp0610i-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)".

Definição campo a campo da tabela de saída
lg-erro - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.