TpAUX CAMPO EVALUACIONS unit

Descripción

El objeto TpAUX_CAMPO_EVALUACIONS_unit (Evaluaciones de clases, procesamiento) procesa los auxiliares de tipo EVALUACION, ver detalles en DEV AUXILIARES/EVALUACION.

Identidad

• Ancestro: TComponent
• Carpeta: C:\DevelopPrx\pPRAGMA
• Archivo: pAUX_CAMPO_EVALUACIONS_unit.pas

Declaración

type
  TpAUX_CAMPO_EVALUACIONS_unit = class(TComponent)
  private
    FDataSet: TDataSet;
    FClase: String;
    FCampo: String;

    FQuery: TprxADOQuery;

    FTag_Tipo: String;
    FSQL_COMANDO: TStringList;
    FSQL_MENSAJE: TStringList;

    FItems: TStringList;
  protected
    function    Es_TipoAdvertencia: Boolean;
    function    Es_TipoError: Boolean;

    property    Tag_Tipo: String read FTag_Tipo write FTag_Tipo;
    property    SQL_COMANDO: TStringList read FSQL_COMANDO write FSQL_COMANDO;
    property    SQL_MENSAJE: TStringList read FSQL_MENSAJE write FSQL_MENSAJE;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    function    Procesar(var aMsg: String): Boolean;
    function    F5Filter: String;

    property    DataSet: TDataSet read FDataSet write FDataSet;
    property    Clase: String read FClase write FClase;
    property    Campo: String read FCampo write FCampo;

    property    Query: TprxADOQuery read FQuery write FQuery;

    property    Items: TStringList read FItems;
  published
  end;

Implementación

function Es_TipoAdvertencia: Boolean

Retorna True si la evaluación es de tipo ADVERTENCIA.

function Es_TipoError: Boolean

Retorna True si la evaluación es de tipo ERROR.

function Procesar(var aMsg: String): Boolean

Procesa los comandos de la evaluación para validar que el valor ingresado en el control de edición sea válido, se ejecuta en la función OnExitFieldXtd de TprxADODataSetEdit.