TTpAUX CAMPO EVALUACIONS Form

Descripción

El objeto TTpAUX_CAMPO_EVALUACIONS_Form (Form para suscribir evaluaciones de auxiliares de campos) permite suscribir a las evaluaciones de un atributo (ver DEV AUXILIARES/EVALUACION).

Las instrucciones para suscribir evaluaciones están específicamente en DEV AUXILIARES/EVALUACION#Uso del auxiliar.

Identidad

• Ancestro: TprxForm
• Carpeta: C:\DevelopPrx\pPRAGMA
• Archivo: pAUX_CAMPO_EVALUACIONS_Form.pas

Declaración

type
  TTpAUX_CAMPO_EVALUACIONS_Form = class(TTprxForm)
    prxADOQuery1: TprxADOQuery;
    prxDataSourceCAMPO: TDataSource;
    Panel3: TPanel;
    CHECKS_List: TprxCheckListBox;
    Panel8: TPanel;
    ButtonCANCELAR: TSpeedButton;
    ButtonAPLICAR: TButton;
    procedure FormShow(Sender: TObject);
    procedure ButtonAPLICARClick(Sender: TObject);
    procedure ButtonCANCELARClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FADODetail: TprxADODataSetEdit;
    FCampoAtributo: String;
    FAtributoUDT: String;

    FClase: String;
    FCampo: String;
    FCatalogo: String;
    FTipoDato: String;
  protected
    procedure   CargarEvaluaciones;
    procedure   GrabarEvaluaciones;

    property    Catalogo: String read FCatalogo write FCatalogo;
    property    xxTipoDato: String read FTipoDato write FTipoDato;

    property    AtributoUDT: String read FAtributoUDT write FAtributoUDT;
    property    Clase: String read FClase write FClase;
    property    Campo: String read FCampo write FCampo;
  public
    property    ADODetail: TprxADODataSetEdit read FADODetail write FADODetail;
    property    CampoAtributo: String read FCampoAtributo write FCampoAtributo;
  end;

Identificación

 vF.ADODetail     := TprxADODataSetEdit(DataSource.Dataset);
 vF.CampoAtributo := 'AtributoUDT';
 vF.ShowModal;