Diferencia entre revisiones de «TpAUX CAMPO CONDICIONEDICION unit»

De Pragma Wiki
Ir a la navegación Ir a la búsqueda
Sin resumen de edición
Sin resumen de edición
Línea 46: Línea 46:
   end;
   end;
</pre>
</pre>
=Modo de uso=
El auxiliar se usa de la siguiente manera:
<pre>
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.DataSet := Self;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Clase  := ppTableName;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Campo  := aFieldName;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Procesar(TpAUX_CAMPO_ASIGNACION_ONENTER);
</pre>
Primero asignamos las propiedades:
*'''Dataset''' que se asigna al mismo componente que está llamando al auxiliar.
*'''Clase''' se inicializa al nombre de la tabla del componente que está llamando al auxiliar.
*'''Campo''' se inicializa al nombre del campo cuyo valor queremos asignar.
Posteriormente se llama directamente a la función Execute que validará las condiciones de posteo.
<pre>
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Procesar(TpAUX_CAMPO_ASIGNACION_ONENTER);
</pre>
=Usos=
El auxiliar se usa en:

Revisión del 17:53 22 may 2025

Descripción

El objeto TpAUX_CAMPO_CONDICIONEDICION_unit (Condición edición de campos) procesa los auxiliares de tipo CONDICION_EDICION, ver detalles en DEV AUXILIARES/CONDICION EDICION.

Identidad

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

Declaración

type
  TpAUX_CAMPO_CONDICIONEDICION_unit = class(TComponent)
  private
    FDataSet: TDataSet;
    FClase: String;
    FCampo: String;

    FQuery: TprxADOQuery;
    FSQL_COMANDO: TStringList;

    FTag_Requerido: Boolean;
    FTag_Tipo: String;

    FItems: TStringList;
  protected
    property    SQL_COMANDO: TStringList read FSQL_COMANDO write FSQL_COMANDO;

    property    Tag_Estadistica: Boolean read FTag_Requerido;
    property    Tag_Tipo: String read FTag_Tipo;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    function    Procesar: Boolean;

    property    DataSet: TDataSet read FDataSet write FDataSet;
    property    Clase: String read FClase write FClase;
    property    Campo: String read FCampo write FCampo;

    property    Query: TprxADOQuery read FQuery write FQuery;

    property    Items: TStringList read FItems;
  published
  end;

Modo de uso

El auxiliar se usa de la siguiente manera:

prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.DataSet := Self;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Clase   := ppTableName;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Campo   := aFieldName;
prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Procesar(TpAUX_CAMPO_ASIGNACION_ONENTER);

Primero asignamos las propiedades:

  • Dataset que se asigna al mismo componente que está llamando al auxiliar.
  • Clase se inicializa al nombre de la tabla del componente que está llamando al auxiliar.
  • Campo se inicializa al nombre del campo cuyo valor queremos asignar.

Posteriormente se llama directamente a la función Execute que validará las condiciones de posteo.

prxADOClientDM.pAUX_CAMPO_ASIGNACION_unit.Procesar(TpAUX_CAMPO_ASIGNACION_ONENTER);

Usos

El auxiliar se usa en: