CPC-AF0510N.p

• Rotina utilizada para exportar as informações listadas no relatório para arquivo texto conforme layout do cliente.
• 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 programa af0510n.p após gerar os dados para a listagem.

Ponto de Utilização

• "EXPORTA-TXT"

Include das definições das tabelas temporárias

• cpc-af0510n.i
• af0510n.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-af0510n-entrada

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

field in-evento-programa              as char format "x(10)"
field nm-ponto-chamada-cpc         as char format "x(15)"
field mm-referencia                      as int format "99"
field aa-referencia                       as int format "9999".

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-af0510n.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• mm-referencia - Mês de referencia da geração do relatório.
• Aa-referencia – Ano de referencia da geração do relatório.

Tabela de entrada tmp-dados

def temp-table tmp-dados no-undo

field r-usuario                      as recid
field r-vlbenef                      as recid
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-forma-pagto             like formpaga.cd-forma-pagto
field nr-ter-adesao                like ter-ade.nr-ter-adesao
field nr-proposta                   like propost.nr-proposta
field cd-usuario                    like usuario.cd-usuario
field nm-usuario                   like usuario.nm-usuario
field dt-nascimento               like usuario.dt-nascimento
field dt-inclusao-plano           like usuario.dt-inclusao-plano
field dt-exclusao-plano          like usuario.dt-exclusao-plano
field lg-sexo                         like usuario.lg-sexo format "M/F"
field cd-registro-plano            like propost.cd-registro-plano
field vl-faturamento               like vlbenef.vl-total
index tmp-dados1

cd-modalidade
cd-plano
cd-tipo-plano
nr-proposta
cd-usuario.

Tabela de entrada tmp-faixa-valor

def temp-table tmp-faixa-valor no-undo

field cd-modalidade            like propost.cd-modalidade
field nr-ter-adesao              like propost.nr-ter-adesao
field nr-faixa-etaria             like pl-gr-pa.nr-faixa-etaria
field nr-idade-minima          like pl-gr-pa.nr-idade-minima
field nr-idade-maxima         like pl-gr-pa.nr-idade-maxima
field vl-total                       like vlbenef.vl-total
index tmp-faixa-valor1

cd-modalidade
nr-ter-adesao
nr-faixa-etaria
nr-idade-minima
nr-idade-maxima
vl-total.

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

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

field lg-undo-retry             as log
field ds-mensagem           as char.

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 – descrição da mensagem de erro caso ocorra, dentro na cpc.