Histórico da Página

...

• Rotina utilizada para permitir validar a data informada de modo diferente do que é feito hoje em produto.

...

• Dentro do programa rc0510r.p na inclusão e modificação da Associativa Conversão de Insumos no Revisão de Contas, após informar a data limite.

Ponto de Utilização

• "VALIDA-DATA"Utilizado para modificar o valor da data limite.
• APOS-CONSULTA
• APOS-INCLUI
• APOS-MODIFICA
• ANTES-ELIMINA
• ANT-VAL-QTD-DIG

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-rc0510r-entrada

def temp-table tmp-cpc-rc0510r-entrada no-undo
    field in-evento-programa

...

as char format "x(

...

15)"
    field nm-ponto-chamada-cpc

...

as char format "x(15)"
    field dt-limite

...

as date format 99/99/9999
    field r-ptuinsum as rowid.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento - evento do programa que chama a cpc-rc0510r.p. Os valores desse campo podem ser: "INCLUI"."CONSULTA", "INCLUIR", "MODIFICA" ou "ELIMINA";
  • nm-ponto-chamada-cpc – Nome - nome do ponto de chamada da cpc dentro do CPC no programa que a utiliza. Para o programa rc0510r.p:
  • "VALIDA-DATA"
  • ;
  • dt-limite – Data - data da Validade validade do limiteregistro;
  • r-ptuinsum - rowid da tabela ptuinsum.

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

def temp-table tmp-cpc-rc0510r-saida no-undo
    field lg-undo-retry

...

as log
    field ds-mensagem as char
   

...

field lg-continua

...

as log
    field lg-permite-data

...

as log
    field lg-valida-qtd-dig-insu as logical initial yes.

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

• • lg-undo-retry – Variável - campo 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.indica se ocorreu algum erro na CPC;
  • ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.- campo com a mensagem que descreve o erro ocorrido na CPC;
  • lg-continua – Define - campo que indica se a execução posterior a à chamada da CPC deve continuar ser executada ou não.;
  • lg-permite-data – Variável que retorna valor lógico para - campo que indica se deve permitir ou não a alteração da data -limitelimite;
  • lg-valida-qtd-dig-insu - campo que indica se deve consistir a quantidade de dígitos do insumo.