TprxADOClientDM - Historial de revisiones

Luciano Carou: /* procedure MostrarListaDeComandos(aList: TStringList) */

2025-05-20T19:11:28Z

procedure MostrarListaDeComandos(aList: TStringList)

@@ Línea 197: / Línea 197: @@
 ===procedure MostrarListaDeComandos(aList: TStringList)===
-[[Archivo:20250520 1556 VER COMANDOS SQL MENU.png|miniaturadeimagen|no|Ver comandos SQL en el menú.]]
+===procedure MostrarListaDeComandos(aComando: String)===
-[[Archivo:20250520 1558 VER COMANDOS SQL.png|miniaturadeimagen|no|Ver comandos SQL.]]
+===procedure check_valid_apprelease(a_apprelease: String; a_silent: Boolean)===

Luciano Carou: /* procedure MostrarListaDeComandos(aList: TStringList) */

2025-05-20T18:58:36Z

procedure MostrarListaDeComandos(aList: TStringList)

← Revisión anterior		Revisión del 20:58 20 may 2025
Línea 199:		Línea 199:


	[[Archivo:20250520 1556 VER COMANDOS SQL MENU.png\|miniaturadeimagen\|no\|Ver comandos SQL.]]		[[Archivo:20250520 1556 VER COMANDOS SQL MENU.png\|miniaturadeimagen\|no\|Ver comandos SQL en el menú.]]


			[[Archivo:20250520 1558 VER COMANDOS SQL.png\|miniaturadeimagen\|no\|Ver comandos SQL.]]

Luciano Carou: /* procedure MostrarListaDeComandos(aList: TStringList) */

2025-05-20T18:57:31Z

procedure MostrarListaDeComandos(aList: TStringList)

← Revisión anterior		Revisión del 20:57 20 may 2025
Línea 197:		Línea 197:

	===procedure MostrarListaDeComandos(aList: TStringList)===		===procedure MostrarListaDeComandos(aList: TStringList)===


			[[Archivo:20250520 1556 VER COMANDOS SQL MENU.png\|miniaturadeimagen\|no\|Ver comandos SQL.]]

Luciano Carou en 18:56 20 may 2025

2025-05-20T18:56:53Z

← Revisión anterior		Revisión del 20:56 20 may 2025
Línea 184:		Línea 184:

	Usando una función de la base de datos llamada '''dbo.prxTIMESTAMP'''.		Usando una función de la base de datos llamada '''dbo.prxTIMESTAMP'''.

			===function prxcmpCodigo: String===
			Retorna un código de comprobante nuevo, el formato es ???AAAAMMDDHHMMSSMMM donde:
			*??? constante.
			*AAAA es el año.
			*MM es el mes.
			*DD es el día.
			*HH es la hora.
			*MM son los minutos.
			*SS son los segundos.
			*MMM son los milisegundos.

			===procedure MostrarListaDeComandos(aList: TStringList)===

Luciano Carou: /* function xxInicializar: Boolean */

2025-05-20T18:40:59Z

function xxInicializar: Boolean

@@ Línea 170: / Línea 170: @@
 =Implementación=
 ===function xxInicializar: Boolean===
-Instancia el traductor [[TpLENGUAJE]].
+*Instancia el traductor [[TpLENGUAJE]].

Luciano Carou: /* Propiedades de auxiliares */

2025-05-20T18:37:28Z

Propiedades de auxiliares

← Revisión anterior		Revisión del 20:37 20 may 2025
Línea 155:		Línea 155:
	===Propiedades de auxiliares===		===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:		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_DM_unit: [[TpAUX_DM_unit]].
	*FpAUX_CLASE_ORIGEN_unit: [[TpAUX_CLASE_ORIGEN_unit]].		*FpAUX_CLASE_ORIGEN_unit: [[TpAUX_CLASE_ORIGEN_unit]].
	*FpAUX_CLASE_POST_CONDICION_unit: [[TpAUX_CLASE_POST_CONDICION_unit]].		*FpAUX_CLASE_POST_CONDICION_unit: [[TpAUX_CLASE_POST_CONDICION_unit]].

Luciano Carou en 17:57 20 may 2025

2025-05-20T17:57:05Z

@@ Línea 169: / Línea 169: @@
 =Implementación=
 ===function xxInicializar: Boolean===
+Instancia el traductor [[TpLENGUAJE]].

Luciano Carou: Página creada con «=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 propi…»

2025-05-20T12:42:18Z

Página creada con «=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 propi…»

Página nueva

=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 [https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TDataModule TDataModule] que es un componente nativo de Delphi.

=[[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)