TpAUX CLASE SUBTOTAL unit - Historial de revisiones

Luciano Carou: /* Identidad */

2025-05-22T15:38:38Z

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: /* Usos */

2025-05-22T15:38:21Z

Usos

← Revisión anterior		Revisión del 17:38 22 may 2025
Línea 77:		Línea 77:
	=Usos=		=Usos=
	Este auxiliar lo usa:		Este auxiliar lo usa:
			*[[TprxADODataSetMaster]].ChildHasPosted).

Luciano Carou: /* Modo de uso */

2025-05-22T15:37:59Z

Modo de uso

@@ Línea 64: / Línea 64: @@
 =Modo de uso=
-Habitualmente el auxiliar se usa de la siguiente manera (ejemplo tomado de [[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions):
+El auxiliar se usa de la siguiente manera (ejemplo tomado de [[TprxADODataSetMaster]].ChildHasPosted):
 <pre>
-prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.DataSet       := DataSource.DataSet; // QueryRESULTADO;
+procedure TprxADODataSetMaster.ChildHasPosted(aChildDS: TprxADODataSetMaster);
-prxADOClientDM.pAUX_CLASE_SELECCION_CRITERIOS_unit.Clase         := TprxADODataSetEdit(TprxADOQuery(QueryRESULTADO).MasterDataSet).ppTableName;
+begin
 </pre>
-Primero asignamos las propiedades:
+Cuando el evento '''ChildHasPosted''' se ejecuta (cada vez que un detail postea un registro) directamente se llama a la función '''Execute''' del auxiliar para subtotalizar lo que corresponda.
 </pre>
 =Usos=
 Este auxiliar lo usa:

Luciano Carou en 15:34 22 may 2025

2025-05-22T15:34:25Z

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

			=Implementación=
			===function ExecuteDataset(aDataSet: TprxADODataSetEdit; aTableName: String): Boolean===
			Este Execute lo llama cada clase detalle de la clase de la función '''Execute'''. Retorna True si define subtotales.

			===function Execute(aMasterDS: TprxADODataSet): Boolean===
			Similar anterior pero llamado por un master.

			=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 lo usa:

Luciano Carou: /* Declaración */

2025-05-18T23:08:51Z

Declaración

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

Luciano Carou: Página creada con «=Descripción= El objeto '''TpAUX_CLASE_SUBTOTAL_unit''' (Subtotales desde detalles en edición de clases) procesa los auxiliares de tipo '''SUBTOTAL''', ver detalles en DEV AUXILIARES/SUBTOTAL. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_SUBTOTAL_unit.pas =Declaración=

2025-05-18T22:35:57Z

Página creada con «=Descripción= El objeto '''TpAUX_CLASE_SUBTOTAL_unit''' (Subtotales desde detalles en edición de clases) procesa los auxiliares de tipo '''SUBTOTAL''', ver detalles en DEV AUXILIARES/SUBTOTAL. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_SUBTOTAL_unit.pas =Declaración= <pre> </pre>»

Página nueva

=Descripción=
El objeto '''TpAUX_CLASE_SUBTOTAL_unit''' (Subtotales desde detalles en edición de clases) procesa los auxiliares de tipo '''SUBTOTAL''', ver detalles en [[DEV AUXILIARES/SUBTOTAL]].

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

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