TpAUX CLASE OPCIONES unit

Descripción

El objeto TpAUX_CLASE_OPCIONES_unit (Opciones de menú objetos) procesa los auxiliares de tipo OPCIONES, ver detalles en DEV AUXILIARES/OPCIONES.

Identidad

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

Declaración

type
  TpAUX_CLASE_OPCIONES_unit = class(TComponent)
  private
    FMasterDataSet: TDataSet;
    FDataSet: TDataSet;
    FClase: String;
    FGrid: TDBGrid;
    FRefreshEvent: TNotifyEvent;
    FCaption_Opciones: String;
    FCaption_Auditoria: String;

    FQuery: TprxADOQuery;

    FTag_ConRegistros: Boolean;
    FTag_Refrescar: Boolean;
    FTag_ServicioWeb: Boolean;
    FTag_StripQuotes: Boolean;
    FTag_Separador: Boolean;

    FSQL_COMANDO: TStringList;
    FSQL_CONDICION: TStringList;
    FSQL_CONFIRMACION: TStringList;

    FItems: TStringList;
    FItems_Descripcion: TStringList;
    FItems_Index: Integer;
  protected
    property    Tag_ConRegistros: Boolean read FTag_ConRegistros write FTag_ConRegistros;
    property    Tag_Refrescar: Boolean read FTag_Refrescar write FTag_Refrescar;
    property    Tag_ServicioWeb: Boolean read FTag_ServicioWeb write FTag_ServicioWeb;
    property    Tag_StripQuotes: Boolean read FTag_StripQuotes write FTag_StripQuotes;
    property    Tag_Separador: Boolean read FTag_Separador write FTag_Separador;
    property    SQL_COMANDO: TStringList read FSQL_COMANDO write FSQL_COMANDO;
    property    SQL_CONDICION: TStringList read FSQL_CONDICION write FSQL_CONDICION;
    property    SQL_CONFIRMACION: TStringList read FSQL_CONFIRMACION write FSQL_CONFIRMACION;

    function    PARSER: Tfva_parser_fbn;
    procedure   EventoNulo(Sender: TObject);
    procedure   Auditoria_OnClick(Sender: TObject);
    procedure   OnClick_SQL_SELECCIONAR(Sender: TObject);
    procedure   OnClick_SQL_APLICAR(Sender: TObject);

    procedure   GridApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean);
    function    ServicioWebApplyDo(aStrings: TStringList): Boolean;
    procedure   ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean);

    property    Caption_Opciones: String read FCaption_Opciones;
    property    Caption_Auditoria: String read FCaption_Auditoria;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    procedure   GetPopupOptions(Sender: TprxPopupMenu);

    property    MasterDataSet: TDataSet read FMasterDataSet write FMasterDataSet;
    property    DataSet: TDataSet read FDataSet write FDataSet;
    property    Clase: String read FClase write FClase;
    property    Grid: TDBGrid read FGrid write FGrid;
    property    RefreshEvent: TNotifyEvent read FRefreshEvent write FRefreshEvent;

    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;