TpAUX CLASE ORIGEN unit

Descripción

El objeto TpAUX_CLASE_ORIGEN_unit (Origen de datos) procesa los auxiliares de tipo ORIGEN, ver detalles en DEV AUXILIARES/ORIGEN.

Identidad

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

Declaración

type
  TpAUX_CLASE_ORIGEN_unit = class(TComponent)
  private
    FDataSet: TDataSet;
    FClase: String;
    FStatusBar: TStatusBar;

    FQuery: TprxADOQuery;

    FTag_EmiteAviso: Boolean;
    FTag_ImportarPlanilla: Boolean;

    FSQL_SELECT: TStringList; // <SELECT></SELECT>
    FSQL_CONDICION: TStringList; // <CONDICION></CONDICION>
    FSQL_CAMPOS: TStringList; // <CAMPOS></CAMPOS>
    FSQL_SELECTVALUE: TStringList; // <SELECTVALUE></SELECTVALUE>

    FItems: TStringList;
    FItems_Descripcion: TStringList;
    FItems_Index: Integer;
  protected
    property    Tag_EmiteAviso: Boolean read FTag_EmiteAviso write FTag_EmiteAviso;
    property    Tag_ImportarPlanilla: Boolean read FTag_ImportarPlanilla write FTag_ImportarPlanilla;
    property    SQL_SELECT: TStringList read FSQL_SELECT write FSQL_SELECT;
    property    SQL_CONDICION: TStringList read FSQL_CONDICION write FSQL_CONDICION;
    property    SQL_CAMPOS: TStringList read FSQL_CAMPOS write FSQL_CAMPOS;
    property    SQL_SELECTVALUE: TStringList read FSQL_SELECTVALUE write FSQL_SELECTVALUE;

    procedure   OnGrid_SelectedRecords(Sender: TprxADOQuery; var aError: Boolean);
    function    LocateRecord(Sender: TprxADOQuery): Boolean;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    function    ArmarMenu(aPopupMenu: TprxPopupMenu; aEnabled: Boolean): Boolean;
    procedure   OnClick(Sender: TObject);

    property    DataSet: TDataSet read FDataSet write FDataSet;
    property    Clase: String read FClase write FClase;
    // BUSCAR pAUX_CLASE_ORIGEN_unit

//    property    DataSet: TDataSet read FDataSet write FDataSet;
//    property    Clase: String read FClase write FClase;
    property    StatusBar: TStatusBar read FStatusBar write FStatusBar;

    property    Query: TprxADOQuery read FQuery write FQuery;

    property    Items: TStringList read FItems;
    property    Items_Descripcion: TStringList read FItems_Descripcion;
    property    Items_Index: Integer read FItems_Index;
  published
  end;