TpAUX CAMPO EVALUACIONS unit - Historial de revisiones

Luciano Carou: /* Modo de uso */

2025-05-22T14:39:21Z

Modo de uso

← Revisión anterior		Revisión del 16:39 22 may 2025
Línea 74:		Línea 74:

	Primero asignamos las propiedades:		Primero asignamos las propiedades:
	*Dataset que se asigna al mismo componente que está llamando al auxiliar.		*'''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.		*'''Clase''' se inicializa al nombre de la tabla del componente que está llamando al auxiliar.
	*Campo se inicializa al nombre del campo del componente que está llamando al auxiliar.		*'''Campo''' se inicializa al nombre del campo del componente que está llamando al auxiliar.

	Posteriormente se llama directamente a la función Procesar, en la misma función mencionada previamente:		Posteriormente se llama directamente a la función Procesar, en la misma función mencionada previamente:

Luciano Carou: /* Modo de uso */

2025-05-22T14:30:25Z

Modo de uso

← Revisión anterior		Revisión del 16:30 22 may 2025
Línea 68:		Línea 68:
	Antes de usar el auxiliar hay que inicializarlo:		Antes de usar el auxiliar hay que inicializarlo:
	<pre>		<pre>
	~~/* Asignar propiedades... */~~
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.DataSet := Self;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.DataSet := Self;
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Clase := ppTableName;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Clase := ppTableName;

	~~/* Ejecutar el auxiliar... */~~
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Campo := aFieldName;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Campo := aFieldName;
	</pre>		</pre>

Luciano Carou: /* Modo de uso */

2025-05-22T14:30:07Z

Modo de uso

← Revisión anterior		Revisión del 16:30 22 may 2025
Línea 68:		Línea 68:
	Antes de usar el auxiliar hay que inicializarlo:		Antes de usar el auxiliar hay que inicializarlo:
	<pre>		<pre>
			/* Asignar propiedades... */
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.DataSet := Self;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.DataSet := Self;
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Clase := ppTableName;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Clase := ppTableName;

			/* Ejecutar el auxiliar... */
	prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Campo := aFieldName;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Campo := aFieldName;
	</pre>		</pre>

Luciano Carou: /* Usos */

2025-05-22T14:24:39Z

Usos

← Revisión anterior		Revisión del 16:24 22 may 2025
Línea 87:		Línea 87:
	=Usos=		=Usos=
	*[[TprxADODataSetEdit]].OnExitFieldXtd.		*[[TprxADODataSetEdit]].OnExitFieldXtd.
			*[[Tfva_campos_item]].EDIT_SELECT.

Luciano Carou: /* Modo de uso */

2025-05-22T14:24:07Z

Modo de uso

← Revisión anterior		Revisión del 16:24 22 may 2025
Línea 84:		Línea 84:

	Aquí valida que el valor del campo esté incluido dentro de la evaluación.		Aquí valida que el valor del campo esté incluido dentro de la evaluación.

			=Usos=
			*[[TprxADODataSetEdit]].OnExitFieldXtd.

Luciano Carou: /* Modo de uso */

2025-05-22T14:23:24Z

Modo de uso

← Revisión anterior		Revisión del 16:23 22 may 2025
Línea 64:		Línea 64:

	=Modo de uso=		=Modo de uso=
	Habitualmente el auxiliar se usa de la siguiente manera:		Habitualmente el auxiliar se usa de la siguiente manera (el ejemplo es de [[TprxADODataSetEdit]].OnExitFieldXtd).

			Antes de usar el auxiliar hay que inicializarlo:
	<pre>		<pre>
	prxADOClientDM.~~pAUX_CLASE_POST_CONDICION_unit~~.DataSet := Self;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.DataSet := Self;
	prxADOClientDM.~~pAUX_CLASE_POST_CONDICION_unit~~.Clase := ~~Self.~~ppTableName;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Clase := ppTableName;
	prxADOClientDM.~~pAUX_CLASE_POST_CONDICION_unit~~.~~Execute(TpAUX_CLASE_POST_CONDICION_ELIMINADO, aMsg, vStop)~~;		prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Campo := aFieldName;
	</pre>		</pre>

Línea 74:		Línea 76:
	*Dataset que se asigna al mismo componente que está llamando al auxiliar.		*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.		*Clase se inicializa al nombre de la tabla del componente que está llamando al auxiliar.
			*Campo se inicializa al nombre del campo del componente que está llamando al auxiliar.

			Posteriormente se llama directamente a la función Procesar, en la misma función mencionada previamente:
			<pre>
			Result := prxADOClientDM.pAUX_CAMPO_EVALUACIONS_unit.Procesar(vMsg);
			</pre>

	~~Posteriormente se llama directamente a~~ la ~~función Execute~~.		Aquí valida que el valor del campo esté incluido dentro de la evaluación.

Luciano Carou en 14:18 22 may 2025

2025-05-22T14:18:12Z

← Revisión anterior		Revisión del 16:18 22 may 2025
Línea 62:		Línea 62:
	===function F5Filter: String===		===function F5Filter: String===
	Arma la sentencia SQL según la evaluación para agregar al SELECT estándar usado en los controles de edición cuando presionamos F5 para elegir un valor de la lista, se ejecuta en la función '''EDIT_SELECT''' de [[Tfva_campos_item]].		Arma la sentencia SQL según la evaluación para agregar al SELECT estándar usado en los controles de edición cuando presionamos F5 para elegir un valor de la lista, se ejecuta en la función '''EDIT_SELECT''' de [[Tfva_campos_item]].

			=Modo de uso=
			Habitualmente el auxiliar se usa de la siguiente manera:
			<pre>
			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);
			</pre>

			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.

Luciano Carou: /* Identidad */

2025-05-21T19:22:38Z

Identidad

← Revisión anterior		Revisión del 21:22 21 may 2025
Línea 4:		Línea 4:
	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=
	[[Category:MANUAL/PROGRAMADOR]]		[[Category:MANUAL/PROGRAMADOR]]
	[[Category:AUXILIARES]]		[[Category:PRG AUXILIARES]]
	*Ancestro: [[TComponent]]		*Ancestro: [[TComponent]]
	*Carpeta: C:\DevelopPrx\pPRAGMA		*Carpeta: C:\DevelopPrx\pPRAGMA

Luciano Carou: /* Implementación */

2025-05-21T18:25:40Z

Implementación

← Revisión anterior		Revisión del 20:25 21 may 2025
Línea 59:		Línea 59:
	===function Procesar(var aMsg: String): Boolean===		===function Procesar(var aMsg: String): Boolean===
	Procesa los comandos de la evaluación para validar que el valor ingresado en el control de edición sea válido, se ejecuta en la función '''OnExitFieldXtd''' de [[TprxADODataSetEdit]].		Procesa los comandos de la evaluación para validar que el valor ingresado en el control de edición sea válido, se ejecuta en la función '''OnExitFieldXtd''' de [[TprxADODataSetEdit]].

			===function F5Filter: String===
			Arma la sentencia SQL según la evaluación para agregar al SELECT estándar usado en los controles de edición cuando presionamos F5 para elegir un valor de la lista, se ejecuta en la función '''EDIT_SELECT''' de [[Tfva_campos_item]].

Luciano Carou en 18:21 21 may 2025

2025-05-21T18:21:47Z

← Revisión anterior		Revisión del 20:21 21 may 2025
Línea 49:		Línea 49:
	end;		end;
	</pre>		</pre>

			=Implementación=
			===function Es_TipoAdvertencia: Boolean===
			Retorna True si la evaluación es de tipo ADVERTENCIA.

			===function Es_TipoError: Boolean===
			Retorna True si la evaluación es de tipo ERROR.

			===function Procesar(var aMsg: String): Boolean===
			Procesa los comandos de la evaluación para validar que el valor ingresado en el control de edición sea válido, se ejecuta en la función '''OnExitFieldXtd''' de [[TprxADODataSetEdit]].