|
|
| Línea 24: |
Línea 24: |
| TfvsImageList = class(TImageList) | | TfvsImageList = class(TImageList) |
| --> | | --> |
|
| |
| =[[QUEESESTO/IDENTIDAD|Identidad]]=
| |
| [[Category:MANUAL/PROGRAMADOR]]
| |
| [[Category:DATAMODULE]]
| |
| *Ancestro: [[TDataModule]]
| |
| *Carpeta: C:\DevelopPrx\library
| |
| *Archivo: prxADODataModule.pas
| |
|
| |
| =Declaración=
| |
| <pre>
| |
| 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;
| |
| </pre>
| |
|
| |
| ===FTraductor: TpLENGUAJE===
| |
| Instancia el traductor de lenguajes.
| |
|
| |
| ===FQuerySQL: TStringList===
| |
| Lista de strings para armar sentencias SQL.
| |
|
| |
| ===FClassShow: TfvsClassShow===
| |
| Esta clase asiste para abrir pantallas.
| |
|
| |
| ===FImagesXtd: TfvsImageList===
| |
| Administra la lista de imágenes (existente en la carpeta C:\pragmaclient\prxImages, o prxImages en la carpeta donde están los ejecutables).
| |
|
| |
| ===Ffva_key_generator: Tfva_key_generator===
| |
| Instancia el generador de claves descripto en el anexo sobre medidas de seguridad del acuerdo.
| |
|
| |
| ===Propiedades de auxiliares===
| |
| Los auxiliares se crean en el DataModule para estar disponibles a toda la aplicación sin necesidad de instanciarlas cada vez, las propiedades son:
| |
| *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]].
| |
|
| |
| =Implementación=
| |
| ===function xxInicializar: Boolean===
| |
|
| |
| C:\DevelopPrx\pPRAGMA\pAUX_DM_unit.pas
| |
| TpAUX_DM_unit = class(TComponent)
| |
|
| |
| C:\DevelopPrx\pPRAGMA\pLENGUAJE_unit.pas
| |
| TpLENGUAJE = class(TComponent)
| |
|
| |
| C:\DevelopPrx\library\fvsImageList
| |
| TfvsImageList = class(TImageList)
| |