TpAUX CLASE POST CONDICION unit

Descripción

El objeto TpAUX_CLASE_POST_CONDICION_unit (Condiciones de posteo de clases) procesa los auxiliares de tipo POST_CONDICION, ver detalles en DEV AUXILIARES/POST CONDICION.

Identidad

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

Declaración

const
  TpAUX_CLASE_POST_CONDICION_EDICION = 'EDICION';
  TpAUX_CLASE_POST_CONDICION_ELIMINADO = 'ELIMINADO';
  TpAUX_CLASE_POST_CONDICION_GRABADO = 'GRABADO';
  TpAUX_CLASE_POST_CONDICION_INSERCION = 'INSERCION';
  TpAUX_CLASE_POST_CONDICION_REAPERTURA = 'REAPERTURA';

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

    FQuery: TprxADOQuery;

    FSQL_COMANDO: TStringList;
    FSQL_MENSAJE: TStringList;

    FItems: TStringList;
    FItems_Index: Integer;
  protected
    property    SQL_COMANDO: TStringList read FSQL_COMANDO write FSQL_COMANDO;
    property    SQL_MENSAJE: TStringList read FSQL_MENSAJE write FSQL_MENSAJE;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

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

    function    Execute(aTag: String; var aMsg: String; var aStop: Boolean): Boolean;

    property    Query: TprxADOQuery read FQuery write FQuery;

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

Implementación

function Execute(aTag: String; var aMsg: String; var aStop: Boolean): Boolean

La función ejecuta las condiciones de posteo, si retorna False es que la condición no se cumple. Los argumentos que recibe son:

• aTag: String es una de las constantes declaradas al principio de este artículo.
• var aMsg: String es una variable en la que podemos poner un mensaje (normalmente de error o advertencia) para que sea el componente llamador el que muestre ese mensaje.
• var aStop: Boolean la seteamos a True si tenemos un error tal que debamos impedir que la aplicación siga con la operación que está intentando hacer.

Esta función se usa en:

• TprxCmpCABECERA.PuedeEliminar para la etiqueta TpAUX_CLASE_POST_CONDICION_ELIMINADO.
• TprxCmpCABECERA.ReabrirComprobanteVerificar para la etiqueta TpAUX_CLASE_POST_CONDICION_REAPERTURA.
• TprxADODataSetEdit.CanInsertXtd para la etiqueta TpAUX_CLASE_POST_CONDICION_INSERCION.
• TprxADODataSetEdit.CanEditXtd para la etiqueta TpAUX_CLASE_POST_CONDICION_EDICION.
• TprxADODataSetEdit.PostXtd para la etiqueta TpAUX_CLASE_POST_CONDICION_GRABADO.
• TprxADODataSetEdit.DeleteXtd para la etiqueta TpAUX_CLASE_POST_CONDICION_ELIMINADO.

Modo de uso

Habitualmente el auxiliar se usa de la siguiente manera:

prxADOClientDM.pAUX_CLASE_POST_CONDICION_unit.DataSet := Self;
prxADOClientDM.pAUX_CLASE_POST_CONDICION_unit.Clase   := Self.ppTableName;
prxADOClientDM.pAUX_CLASE_POST_CONDICION_unit.Execute(TpAUX_CLASE_POST_CONDICION_ELIMINADO, aMsg, vStop);

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.

Posteriormente se llama directamente a la función Execute.