TpAUX CAMPO ONEVENT unit - Historial de revisiones

Luciano Carou: /* Usos */

2025-05-22T18:24:58Z

Usos

← Revisión anterior		Revisión del 20:24 22 may 2025
Línea 95:		Línea 95:
	=Usos=		=Usos=
	El auxiliar se usa en:		El auxiliar se usa en:
			*[[TprxADODataSetEdit]].OnEnterFieldXtd.
			*[[TprxADODataSetEdit]].OnExitFieldXtd.

Luciano Carou: /* Modo de uso */

2025-05-22T18:24:06Z

Modo de uso

← Revisión anterior		Revisión del 20:24 22 may 2025
Línea 71:		Línea 71:

	=Modo de uso=		=Modo de uso=
	El auxiliar se usa de la siguiente manera, primero la inicialización (ejemplo de [[TprxADODataSetEdit]].~~OnExitFieldXtd~~):		El auxiliar se usa de la siguiente manera, primero la inicialización (ejemplo de [[TprxADODataSetEdit]].OnEnterFieldXtd):
	<pre>		<pre>
	prxADOClientDM.~~pAUX_CAMPO_CONSTRAINT_unit~~.DataSet := Self;		prxADOClientDM.pAUX_CAMPO_ONEVENT_unit.DataSet := Self;
	prxADOClientDM.~~pAUX_CAMPO_CONSTRAINT_unit~~.Clase := ppTableName;		prxADOClientDM.pAUX_CAMPO_ONEVENT_unit.Clase := ppTableName;
	prxADOClientDM.~~pAUX_CAMPO_CONSTRAINT_unit~~.Campo := aFieldName;		prxADOClientDM.pAUX_CAMPO_ONEVENT_unit.Campo := aFieldName;
	</pre>		</pre>

Línea 83:		Línea 83:
	*'''Campo''' se inicializa al nombre del campo cuyo valor queremos asignar.		*'''Campo''' se inicializa al nombre del campo cuyo valor queremos asignar.

	Posteriormente ~~evaluamos~~ la ~~constricción~~:		Posteriormente hay que procesar los eventos, en la función [[TprxADODataSetEdit]].OnEnterFieldXtd es:
	<pre>		<pre>
	if prxADOClientDM.~~pAUX_CAMPO_CONSTRAINT_unit~~.~~Exists then~~		prxADOClientDM.pAUX_CAMPO_ONEVENT_unit.Procesar(TpAUX_CAMPO_ONEVENT_ONENTER, vMsg);
	~~begin~~
	~~prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Prepare;~~

	~~if prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.EsTipo_FILTRO = False then~~
	~~begin~~
	~~if (Trim(FieldByName(aFieldName).AsString) <> '') and (FieldByName(aFieldName).IsNull = False) then~~
	~~Result := prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Validate~~(vMsg);
	~~end~~
	~~else~~
	~~begin~~
	~~vConstraint := prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Solucion;~~
	~~vConstraintMSG := prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Mensaje;~~
	~~end;~~
	~~end;~~
	~~</pre>~~

	~~El '''Exists''' habilita la evaluación de la constricción.~~

	~~Distinto es el comportamiento cuando la constricción corresponde a una enumeración, en este caso es el control de edición [[TprxDBComboBox]] que carga los ítems de la enumeración:~~
	~~<pre>~~
	~~if prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Prepared then~~
	~~begin~~
	~~if prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.EsTipo_ENUMERACION then~~
	~~begin~~
	~~// Cargamos los ítems del constraint, y posiblemente los ítems del combo...~~

	~~ConstraintItems.Clear;~~

	~~for I := 0 to prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.SQL_COMANDO_SELECT.Count - 1 do~~
	~~ConstraintItems.Add(prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.SQL_COMANDO_SELECT[I]);~~

	~~for I := 0 to prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Items.Count - 1 do~~
	~~Items.Add(prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Items[I]);~~
	~~end;~~
	~~end~~;
	</pre>		</pre>

	~~Además,~~ la ~~constricción puede aplicar a campos de tipo fecha (~~[[~~TprxDBEditDateTime~~]].~~Seleccionar)~~:		En la función [[TprxADODataSetEdit]].OnExitFieldXtd es:
	<pre>		<pre>
	~~if prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.Prepared then~~		Result := prxADOClientDM.pAUX_CAMPO_ONEVENT_unit.Procesar(TpAUX_CAMPO_ONEVENT_ONEXIT, vMsg);
	~~begin~~
	~~if prxADOClientDM.pAUX_CAMPO_CONSTRAINT_unit.EsTipo_FILTRO then~~
	~~vConstraint~~ := prxADOClientDM.~~pAUX_CAMPO_CONSTRAINT_unit~~.~~Solucion;~~
	~~end~~;
	</pre>		</pre>

	=Usos=		=Usos=
	El auxiliar se usa en:		El auxiliar se usa en:

Luciano Carou: /* Implementación */

2025-05-22T18:08:53Z

Implementación

← Revisión anterior		Revisión del 20:08 22 may 2025
Línea 63:		Línea 63:

	=Implementación=		=Implementación=
			===function Procesar(aEvento: String; var aMsg: String): Boolean===
			// Procesa los eventos, el argumento aEvento contiene unos de dos:
			*TpAUX_CAMPO_ONEVENT_ONENTER = 'ONENTER'.
			*TpAUX_CAMPO_ONEVENT_ONEXIT = 'ONEXIT'.

			Para saber qué debe procesar.

	=Modo de uso=		=Modo de uso=

Luciano Carou: /* Declaración */

2025-05-22T17:58:18Z

Declaración

← Revisión anterior		Revisión del 19:58 22 may 2025
Línea 11:		Línea 11:
	=Declaración=		=Declaración=
	<pre>		<pre>
			const
			TpAUX_CAMPO_ONEVENT_ONENTER = 'ONENTER';
			TpAUX_CAMPO_ONEVENT_ONEXIT = 'ONEXIT';
			TpAUX_CAMPO_ONEVENT_VALIDACION = 'VALIDACION';
			TpAUX_CAMPO_ONEVENT_ADVERTENCIA = 'ADVERTENCIA';

	type		type
	TpAUX_CAMPO_ONEVENT_unit = class(TComponent)		TpAUX_CAMPO_ONEVENT_unit = class(TComponent)

Luciano Carou en 17:55 22 may 2025

2025-05-22T17:55:18Z

@@ Línea 4: / Línea 4: @@
 =[[QUEESESTO/IDENTIDAD|Identidad]]=
 [[Category:MANUAL/PROGRAMADOR]]
-[[Category:AUXILIARES]]
+[[Category:PRG AUXILIARES]]
 *Ancestro: [[TComponent]]
 *Carpeta: C:\DevelopPrx\pPRAGMA
@@ Línea 55: / Línea 55: @@
    end;
 </pre>

Luciano Carou: /* Declaración */

2025-05-18T23:12:22Z

Declaración

@@ Línea 11: / Línea 11: @@
 =Declaración=
 <pre>
 </pre>

Luciano Carou: Página creada con «=Descripción= El objeto '''TpAUX_CAMPO_ONEVENT_unit''' (Eventos de campos) procesa los auxiliares de tipo '''EVENTO_CAMPOS''', ver detalles en DEV AUXILIARES/EVENTO CAMPO. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CAMPO_ONEVENT_unit.pas =Declaración=

2025-05-18T22:52:47Z

Página creada con «=Descripción= El objeto '''TpAUX_CAMPO_ONEVENT_unit''' (Eventos de campos) procesa los auxiliares de tipo '''EVENTO_CAMPOS''', ver detalles en DEV AUXILIARES/EVENTO CAMPO. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CAMPO_ONEVENT_unit.pas =Declaración= <pre> </pre>»

Página nueva

=Descripción=
El objeto '''TpAUX_CAMPO_ONEVENT_unit''' (Eventos de campos) procesa los auxiliares de tipo '''EVENTO_CAMPOS''', ver detalles en [[DEV AUXILIARES/EVENTO CAMPO]].

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:AUXILIARES]]
*Ancestro: [[TComponent]]
*Carpeta: C:\DevelopPrx\pPRAGMA
*Archivo: pAUX_CAMPO_ONEVENT_unit.pas

=Declaración=
<pre>
</pre>