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;
    FSQL_CONDICION: TStringList;
    FSQL_CAMPOS: TStringList;
    FSQL_SELECTVALUE: TStringList;

    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;
    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;

Implementación

function ArmarMenu(aPopupMenu: TprxPopupMenu; aEnabled: Boolean): Boolean

Agrega los orígenes al ítem Orígenes... del menú de opciones, el OnClick de cada opción está dentro del mismo componente.

Orígenes en el menú (detalle de asientos contables).

procedure OnClick(Sender: TObject)

Es llamado por las opciones de menú de ArmarMenu y ejecuta la opción seleccionada. Usa la pantalla TTprxSelectFromGridForm para hacer la selección de registros.

procedure OnGrid_SelectedRecords(Sender: TprxADOQuery; var aError: Boolean)

Para cada registro seleccionado, lo inserta en el dataset llamador.

function LocateRecord(Sender: TprxADOQuery): Boolean

Verifica que un registro que hay que insertar en el dataset no se haya cargado previamente.