cpc-rtclretr.p

• Rotina utilizada para retroagir datas.
• 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 da rotina de retroação da datas.

Pontos de Utilização

• "CONV-MES-DIA"

Include das definições das tabelas temporárias

• cpc-rtclretr.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtclretr-entrada

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

field nm-ponto-chamada-cpc     as char format "x(15)"
field dt-atual                 as date format "99/99/9999"
field dia                      as int  
field qt-retro                 as int.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – Nome do ponto de cpc
• dt-atual – Data calculada pelo sistema.
• dia – Número de dias.
• qt-retro - Número de dias.

Tabela de saida tmp-cpc-rtclretr-saida

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

field lg-erro                as log
field ds-mensagem            as char
field dt-fim                 as date format "99/99/9999".

Definição campo a campo da tabela de saída

• lg-erro – Log que indica se ocorreu algum erro durante o processamento.
• ds-mensagem – Campos que retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.
• dt-fim – Data calculada pela cpc.