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;

Implementación

procedure GetPopupOptions(Sender: TprxPopupMenu)

Usada en:

• TTfvsDBClientFrameGridClases para agregar las opciones al menú de cada uno de estos frames.
• TTfvsDBClientFrameGridConsultas para agregar las opciones al menú de cada uno de estos frames.
• TTfvsDBClientFrameScrollBox para agregar las opciones al menú de cada uno de estos frames.
• TTprxGestionFinancieraProyeccionFrame para agregar las opciones al menú de cada uno de estos frames.

Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local).

procedure Auditoria_OnClick(Sender: TObject)

Ejecutada desde el menú de opciones para mostrar los registros de auditoría.

procedure MediaWiki_OnClick(Sender: TObject)

Ejecutada desde el menú para mostrar la documentación relacionada con la pantalla que se está consultando.

procedure OnClick_SQL_SELECCIONAR(Sender: TObject)

Ejecutada desde el menú de opciones cuando la opción es un resultado SQL.

procedure OnClick_SQL_APLICAR(Sender: TObject)

Ejecutada desde el menú de opciones cuando la opción es una sentencia SQL para aplicar.

procedure GridApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)

Usada en la función OnClick_SQL_APLICAR cuando se han seleccionado varios registros.

procedure ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)

Similar anterior pero cuando hay que llamar a un servicio web para cada registro seleccionado en la grilla, usa ServicioWebApplyDo.