CPC-

...

RC0510R.P

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

...

...

Ponto de Utilização

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

Include das definições das tabelas temporárias

• cpc-rc0510r.i 

...

Tabelas de entrada e saída

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 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 do ponto de chamada da cpc dentro do CPC no programa que a utiliza. Para o programa rc0510r.p:
  • "VALIDA-DATA"
  • ;
  • dt-limite – - 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.
  • ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
  • indica se ocorreu algum erro na CPC;
  • ds-mensagem - Campo com a mensagem que descreve o erro ocorrido na CPC;
  • lg-continua - Campo que indica se a execução posterior à chamada da CPC deve ser executada ou não;lg-continua – Define se a execução posterior a chamada da CPC deve continuar 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.