TpAUX CLASE SELECCION CRITERIOS unit - Historial de revisiones

Luciano Carou: /* Identidad */

2025-05-22T15:38:54Z

Identidad

← Revisión anterior		Revisión del 17:38 22 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 en 15:08 22 may 2025

2025-05-22T15:08:24Z

← Revisión anterior		Revisión del 17:08 22 may 2025
Línea 43:		Línea 43:
	end;		end;
	</pre>		</pre>

			=Implementación=
			===function Execute: Boolean===
			Carga el comando definido para la selección de criterios.

			=Modo de uso=
			Habitualmente el auxiliar se usa de la siguiente manera (ejemplo tomado de [[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions):
			<pre>
			prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.DataSet := DataSource.DataSet; // QueryRESULTADO;
			prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.Clase := TprxADODataSetEdit(TprxADOQuery(QueryRESULTADO).MasterDataSet).ppTableName;
			</pre>

			Primero asignamos las propiedades:
			*'''Dataset''' que se asigna al dataset de la pantalla que llama al auxiliar.
			*'''Clase''' se inicializa al nombre de la tabla del componente que está llamando al auxiliar.

			Si '''Exexute''' retorna True (indicando que se ha definido un SQL para la selección de criterios) toma ese SQL y agrega la opción '''Definir criterios...''' al menú local:
			<pre>
			if prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.Execute then
			begin
			SQL_Criterios := prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.SQL_COMANDO.Text;

			aPopupMenu.OptionAdd('Definir criterios...', True, 'magnifier_zoom_in', AbrirFormCriterios);
			aPopupMenu.OptionAddSeparator;
			end;
			</pre>

			'''AbrirFormCriterios''' es una función local que se ocupa de abrir el form [[TTprxCriteriosConsultasForm]] de criterios, aplicar el SQL del auxiliar y administrar la selección de valores:
			<pre>
			procedure TTfvsDBClientFrameGridConsultas.AbrirFormCriterios(Sender: TObject);
			var
			vF: TTprxCriteriosConsultasForm;
			begin
			if Assigned(CriteriosForm) = False then
			CriteriosForm := TTprxCriteriosConsultasForm.Create(Self);

			CriteriosForm.GUID := TprxADODataSetEdit(DataSource.DataSet).GUID;
			CriteriosForm.SQL := SQL_Criterios;
			CriteriosForm.ShowModal;
			CriteriosForm.Release;

			CriteriosForm := nil;

			SQLEjecutar(Sender);
			fvsDBGridResultado.WidthJustify;
			end;
			</pre>

			=Usos=
			Este auxiliar se usa en:
			*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.

Luciano Carou: /* Declaración */

2025-05-18T23:08:08Z

Declaración

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

Luciano Carou: Página creada con «=Descripción= El objeto '''TpAUX_CLASE_SELECCION_CRITERIOS_unit''' (SQL para seleccionar criterios múltiples en consultas) procesa los auxiliares de tipo '''SELECCION_CRITERIOS''', ver detalles en DEV AUXILIARES/SELECCION CRITERIOS. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_SELECCION_CRITERIOS_unit.pas =Declaración=

2025-05-18T22:34:14Z

Página creada con «=Descripción= El objeto '''TpAUX_CLASE_SELECCION_CRITERIOS_unit''' (SQL para seleccionar criterios múltiples en consultas) procesa los auxiliares de tipo '''SELECCION_CRITERIOS''', ver detalles en DEV AUXILIARES/SELECCION CRITERIOS. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_SELECCION_CRITERIOS_unit.pas =Declaración= <pre> </pre>»

Página nueva

=Descripción=
El objeto '''TpAUX_CLASE_SELECCION_CRITERIOS_unit''' (SQL para seleccionar criterios múltiples en consultas) procesa los auxiliares de tipo '''SELECCION_CRITERIOS''', ver detalles en [[DEV AUXILIARES/SELECCION CRITERIOS]].

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

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