Introducción

El objeto TprxADOClientDM (Data module principal.) permite centralizar el uso de componentes no visuales. Típicamente contiene componentes de datos derivados de Datasets pero en realidad puede contener casi cualquier cosa. Su uso simplifica la estructura de la aplicación conteniendo funcionalidad usada continuamente.

Durante el diseño, el data module provee un contenedor visual al que podemos agregar componentes no visuales, definir sus propiedades y escribir eventos.

Deriva de TDataModule que es un componente nativo de Delphi.

Identidad

• Ancestro: TDataModule
• Carpeta: C:\DevelopPrx\library
• Archivo: prxADODataModule.pas

Declaración

type
  TprxADOClientDM = class(TDataModule)
    ADOMainConnection: TprxADOConnection;
    Query: TprxADOQuery;
    prxQueryValidate1: TprxADOQuery;
    ADOStoredProc1: TADOStoredProc;
    xxprxADOQueryAUX: TprxADOQuery;

    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    FCatalogDetailList: TStringList;
    FScreenCursor: TCursor;
    FHourGlassCount: Integer;
    Ffvs: Boolean;

    Fexiste_prxusuarios_menus_favs: Boolean;

    FTraductor: TpLENGUAJE;

    FQuerySQL: TStringList;

    FClassShow: TfvsClassShow;

    FImagesXtd: TfvsImageList;

    Ffva_key_generator: Tfva_key_generator;

    Frelease_appname: String;
    Frelease_apprelease: String;
    Frelease_is_valid: Boolean;

    FpAUX_DM_unit: TpAUX_DM_unit;

    FpAUX_CLASE_ORIGEN_unit: TpAUX_CLASE_ORIGEN_unit;
    FpAUX_CLASE_POST_CONDICION_unit: TpAUX_CLASE_POST_CONDICION_unit;
    FpAUX_CLASE_POST_EVENTO_unit: TpAUX_CLASE_POST_EVENTO_unit;
    FpAUX_CLASE_OPCIONES_unit: TpAUX_CLASE_OPCIONES_unit;
    FpAUX_CLASE_SUBTOTAL_unit: TpAUX_CLASE_SUBTOTAL_unit;

    FpAUX_CAMPO_CONSTRAINT_unit: TpAUX_CAMPO_CONSTRAINT_unit;
    FpAUX_CAMPO_ASIGNACION_unit: TpAUX_CAMPO_ASIGNACION_unit;
    FpAUX_CAMPO_CONDICIONEDICION_unit: TpAUX_CAMPO_CONDICIONEDICION_unit;
    FpAUX_CAMPO_ONEVENT_unit: TpAUX_CAMPO_ONEVENT_unit;
    FpAUX_CAMPO_SELECT_F5_unit: TpAUX_CAMPO_SELECT_F5_unit;
    FpAUX_CAMPO_EVALUACIONS_unit: TpAUX_CAMPO_EVALUACIONS_unit;

    FpAUX_CLASE_SELECCION_CRITERIOS_unit: TpAUX_CLASE_SELECCION_CRITERIOS_unit;

    FpDEVLOG_unit: TpDEVLOG_unit;

    FpSCANDOCS_Exists: Boolean;
  protected
    property    ScreenCursor: TCursor read FScreenCursor write FScreenCursor;
    property    HourGlassCount: Integer read FHourGlassCount write FHourGlassCount;
    property    QuerySQL: TStringList read FQuerySQL write FQuerySQL;

    property    ImagesXtd: TfvsImageList read FImagesXtd write FImagesXtd;

    property    release_appname: String read Frelease_appname write Frelease_appname;
    property    release_is_valid: Boolean read Frelease_is_valid;
  public
    procedure   Loaded; override;

    function    xxInicializar: Boolean;

    function    prxTimeStampDB(aConDominio: Boolean): String;
    function    prxcmpCodigo: String;
    function    prxTimeStampDBLocal: String;

    procedure   MostrarListaDeComandos(aList: TStringList); overload;
    procedure   MostrarListaDeComandos(aList: TStrings); overload;
    procedure   MostrarListaDeComandos(aComando: String); overload;

    procedure   AgregarRegistroLogin(aRelease: String);
    procedure   AgregarRegistroPantallas(aPantalla: String);

    function    Images: TfvsImageList;
    function    ImagesInitialize: Integer;
    function    GetBitmapImage(aId: String; aBitmap: TBitmap): Integer;
    function    GetBitmapIndex(aImageName: String): Integer;
    function    GetBitmapName(aIndex: Integer): String;

    function    llaves_validar_xtd: Boolean;
    function    llaves_fecha_limite: String;

    procedure   check_valid_apprelease(a_apprelease: String; a_silent: Boolean);

    property    CatalogDetailList: TStringList read FCatalogDetailList write FCatalogDetailList;

    property    fvs: Boolean read Ffvs write Ffvs;
    property    existe_prxusuarios_menus_favs: Boolean read Fexiste_prxusuarios_menus_favs;

    property    fva_key_generator: Tfva_key_generator read Ffva_key_generator write Ffva_key_generator;
    property    Traductor: TpLENGUAJE read FTraductor write FTraductor;

    property    ClassShow: TfvsClassShow read FClassShow write FClassShow;

    property    release_apprelease: String read Frelease_apprelease;

    property    pAUX_DM_unit: TpAUX_DM_unit read FpAUX_DM_unit write FpAUX_DM_unit;

    property    pAUX_CLASE_ORIGEN_unit: TpAUX_CLASE_ORIGEN_unit read FpAUX_CLASE_ORIGEN_unit write FpAUX_CLASE_ORIGEN_unit;
    property    pAUX_CLASE_POST_CONDICION_unit: TpAUX_CLASE_POST_CONDICION_unit read FpAUX_CLASE_POST_CONDICION_unit write FpAUX_CLASE_POST_CONDICION_unit;
    property    pAUX_CLASE_POST_EVENTO_unit: TpAUX_CLASE_POST_EVENTO_unit read FpAUX_CLASE_POST_EVENTO_unit write FpAUX_CLASE_POST_EVENTO_unit;
    property    pAUX_CLASE_OPCIONES_unit: TpAUX_CLASE_OPCIONES_unit read FpAUX_CLASE_OPCIONES_unit write FpAUX_CLASE_OPCIONES_unit;
    property    pAUX_CLASE_SUBTOTAL_unit: TpAUX_CLASE_SUBTOTAL_unit read FpAUX_CLASE_SUBTOTAL_unit write FpAUX_CLASE_SUBTOTAL_unit;

    property    pAUX_CAMPO_CONSTRAINT_unit: TpAUX_CAMPO_CONSTRAINT_unit read FpAUX_CAMPO_CONSTRAINT_unit write FpAUX_CAMPO_CONSTRAINT_unit;
    property    pAUX_CAMPO_ASIGNACION_unit: TpAUX_CAMPO_ASIGNACION_unit read FpAUX_CAMPO_ASIGNACION_unit write FpAUX_CAMPO_ASIGNACION_unit;
    property    pAUX_CAMPO_CONDICIONEDICION_unit: TpAUX_CAMPO_CONDICIONEDICION_unit read FpAUX_CAMPO_CONDICIONEDICION_unit write FpAUX_CAMPO_CONDICIONEDICION_unit;
    property    pAUX_CAMPO_ONEVENT_unit: TpAUX_CAMPO_ONEVENT_unit read FpAUX_CAMPO_ONEVENT_unit write FpAUX_CAMPO_ONEVENT_unit;
    property    pAUX_CAMPO_SELECT_F5_unit: TpAUX_CAMPO_SELECT_F5_unit read FpAUX_CAMPO_SELECT_F5_unit write FpAUX_CAMPO_SELECT_F5_unit;
    property    pAUX_CAMPO_EVALUACIONS_unit: TpAUX_CAMPO_EVALUACIONS_unit read FpAUX_CAMPO_EVALUACIONS_unit write FpAUX_CAMPO_EVALUACIONS_unit;

    property    pAUX_CLASE_SELECCION_CRITERIOS_unit: TpAUX_CLASE_SELECCION_CRITERIOS_unit read FpAUX_CLASE_SELECCION_CRITERIOS_unit write FpAUX_CLASE_SELECCION_CRITERIOS_unit;

    property    pDEVLOG_unit: TpDEVLOG_unit read FpDEVLOG_unit write FpDEVLOG_unit;

    property    pSCANDOCS_Exists: Boolean read FpSCANDOCS_Exists;
  end;