CPC-RC0510R.P

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.2209

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: "CONSULTA", "INCLUIR", "MODIFICA" ou "ELIMINA";
  • nm-ponto-chamada-cpc - Nome do ponto de chamada da CPC no programa que a utiliza;
  • dt-limite - Data da validade do registro;
  • 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 - Campo que 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-permite-data - Campo que indica se deve permitir ou não a alteração da data limite;
  • lg-valida-qtd-dig-insu - Campo que indica se deve consistir a quantidade de dígitos do insumo.