TpAUX CLASE ORIGEN unit - Historial de revisiones

Luciano Carou: /* Modo de uso */

2025-05-22T14:56:22Z

Modo de uso

← Revisión anterior		Revisión del 16:56 22 may 2025
Línea 86:		Línea 86:
	*'''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.

	Posteriormente agrega la opción '''Orígenes...''' y su OnClick de modo de ver esas opciones en el menú.		Posteriormente agrega la opción '''Orígenes...''' y el OnClick del auxiliar de modo de ver esas opciones en el menú.
	<pre>		<pre>
	vMenuItem := TMenuItem(aMenu.OptionAdd('Orígenes...', vMasterInEdit, img_seleccionar, prxADOClientDM.pAUX_CLASE_ORIGEN_unit.OnClick));		vMenuItem := TMenuItem(aMenu.OptionAdd('Orígenes...', vMasterInEdit, img_seleccionar, prxADOClientDM.pAUX_CLASE_ORIGEN_unit.OnClick));

Luciano Carou: /* Modo de uso */

2025-05-22T14:56:07Z

Modo de uso

← Revisión anterior		Revisión del 16:56 22 may 2025
Línea 86:		Línea 86:
	*'''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.

	Posteriormente agrega la opción '''Orígenes...' y su ~~mOnClick~~ de modo de ver esas opciones en el menú.		Posteriormente agrega la opción '''Orígenes...''' y su OnClick de modo de ver esas opciones en el menú.
	<pre>		<pre>
	vMenuItem := TMenuItem(aMenu.OptionAdd('Orígenes...', vMasterInEdit, img_seleccionar, prxADOClientDM.pAUX_CLASE_ORIGEN_unit.OnClick));		vMenuItem := TMenuItem(aMenu.OptionAdd('Orígenes...', vMasterInEdit, img_seleccionar, prxADOClientDM.pAUX_CLASE_ORIGEN_unit.OnClick));

Luciano Carou: /* Usos */

2025-05-22T14:55:53Z

Usos

← Revisión anterior		Revisión del 16:55 22 may 2025
Línea 95:		Línea 95:
	=Usos=		=Usos=
	Este auxiliar se usa en:		Este auxiliar se usa en:
	*[[~~TTfvsDBClientFrameGridClases~~]].~~fvsDBGridResultadoGetPopupOptions.~~		*[[TprxADODataSetEdit]].ORIGENES_Initialize.
	*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.
	*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.
	*[[TTprxGestionFinancieraProyeccionFrame]].OnOpcionesPopupXtd.

Luciano Carou: /* Modo de uso */

2025-05-22T14:55:01Z

Modo de uso

← Revisión anterior		Revisión del 16:55 22 may 2025
Línea 76:		Línea 76:

	=Modo de uso=		=Modo de uso=
	Habitualmente el auxiliar se usa de la siguiente manera (ejemplo tomado de [[~~TTfvsDBClientFrameGridConsultas~~]].~~fvsDBGridResultadoGetPopupOptions~~):		Habitualmente el auxiliar se usa de la siguiente manera (ejemplo tomado de [[TprxADODataSetEdit]].ORIGENES_Initialize):
	<pre>		<pre>
	prxADOClientDM.~~pAUX_CLASE_OPCIONES_unit~~.DataSet := ~~QueryRESULTADO~~;		prxADOClientDM.pAUX_CLASE_ORIGEN_unit.DataSet := Self;
	prxADOClientDM.~~pAUX_CLASE_OPCIONES_unit~~.Clase := ~~TprxADODataSetEdit(TprxADOQuery(QueryRESULTADO).MasterDataSet)~~.ppTableName;		prxADOClientDM.pAUX_CLASE_ORIGEN_unit.Clase := Self.ppTableName;
	~~prxADOClientDM.pAUX_CLASE_OPCIONES_unit.MasterDataSet := TprxADOQuery(QueryRESULTADO).MasterDataSet;~~
	~~prxADOClientDM.pAUX_CLASE_OPCIONES_unit.Grid := fvsDBGridResultado;~~
	~~prxADOClientDM.pAUX_CLASE_OPCIONES_unit.RefreshEvent := SQLEjecutar~~;
	</pre>		</pre>

Línea 88:		Línea 85:
	*'''Dataset''' que se asigna al dataset de la pantalla que llama al auxiliar, en este caso es una consulta (QueryRESULTADO en un [[TprxADOQuery]] usando en las consultas.		*'''Dataset''' que se asigna al dataset de la pantalla que llama al auxiliar, en este caso es una consulta (QueryRESULTADO en un [[TprxADOQuery]] usando en las consultas.
	*'''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.
	*'''MasterDataSet''' se inicializa al valor del master del dataset llamador, solo cuando el llamador es un detalle.
	*'''Grid''' se inicializa al valor de la grilla desde la que se llama al auxiliar.
	*'''RefreshEvent''' se inicializa al valor del procedimiento que refresca la pantalla, usado cuando los datos que estamos viendo en pantalla se modifican por efecto de ejecutar una de las opciones (por ejemplo: cuando estamos consultando comprobantes pendientes de aprobación y la opción seleccionada aprueba uno o más comprobantes).

	Posteriormente ~~se llama directamente a~~ la ~~función GetPopupOptions para que agregue las~~ opciones al menú ~~local~~.		Posteriormente agrega la opción '''Orígenes...' y su mOnClick de modo de ver esas opciones en el menú.
	<pre>		<pre>
	prxADOClientDM.~~pAUX_CLASE_OPCIONES_unit~~.~~GetPopupOptions(aPopupMenu~~);		vMenuItem := TMenuItem(aMenu.OptionAdd('Orígenes...', vMasterInEdit, img_seleccionar, prxADOClientDM.pAUX_CLASE_ORIGEN_unit.OnClick));
	</pre>		</pre>

			El resto lo maneja el auxiliar directamente.

	=Usos=		=Usos=

Luciano Carou en 14:45 22 may 2025

2025-05-22T14:45:32Z

← Revisión anterior		Revisión del 16:45 22 may 2025
Línea 74:		Línea 74:
	===function LocateRecord(Sender: TprxADOQuery): Boolean===		===function LocateRecord(Sender: TprxADOQuery): Boolean===
	Verifica que un registro que hay que insertar en el dataset no se haya cargado previamente.		Verifica que un registro que hay que insertar en el dataset no se haya cargado previamente.

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

			Primero asignamos las propiedades:
			*'''Dataset''' que se asigna al dataset de la pantalla que llama al auxiliar, en este caso es una consulta (QueryRESULTADO en un [[TprxADOQuery]] usando en las consultas.
			*'''Clase''' se inicializa al nombre de la tabla del componente que está llamando al auxiliar.
			*'''MasterDataSet''' se inicializa al valor del master del dataset llamador, solo cuando el llamador es un detalle.
			*'''Grid''' se inicializa al valor de la grilla desde la que se llama al auxiliar.
			*'''RefreshEvent''' se inicializa al valor del procedimiento que refresca la pantalla, usado cuando los datos que estamos viendo en pantalla se modifican por efecto de ejecutar una de las opciones (por ejemplo: cuando estamos consultando comprobantes pendientes de aprobación y la opción seleccionada aprueba uno o más comprobantes).

			Posteriormente se llama directamente a la función GetPopupOptions para que agregue las opciones al menú local.
			<pre>
			prxADOClientDM.pAUX_CLASE_OPCIONES_unit.GetPopupOptions(aPopupMenu);
			</pre>

			=Usos=
			Este auxiliar se usa en:
			*[[TTfvsDBClientFrameGridClases]].fvsDBGridResultadoGetPopupOptions.
			*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.
			*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.
			*[[TTprxGestionFinancieraProyeccionFrame]].OnOpcionesPopupXtd.

Luciano Carou en 19:33 21 may 2025

2025-05-21T19:33:16Z

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

			=Implementación=
			===function ArmarMenu(aPopupMenu: TprxPopupMenu; aEnabled: Boolean): Boolean===
			Agrega los orígenes al ítem '''Orígenes...''' del menú de opciones, el OnClick de cada opción está dentro del mismo componente.

			[[Archivo:20250521 1630 ORIGENES EN EL MENU.png\|miniaturadeimagen\|no\|Orígenes en el menú (detalle de asientos contables).]]

			===procedure OnClick(Sender: TObject)===
			Es llamado por las opciones de menú de '''ArmarMenu''' y ejecuta la opción seleccionada. Usa la pantalla [[TTprxSelectFromGridForm]] para hacer la selección de registros.

			===procedure OnGrid_SelectedRecords(Sender: TprxADOQuery; var aError: Boolean)===
			Para cada registro seleccionado, lo inserta en el dataset llamador.

			===function LocateRecord(Sender: TprxADOQuery): Boolean===
			Verifica que un registro que hay que insertar en el dataset no se haya cargado previamente.

Luciano Carou: /* Identidad */

2025-05-21T19:24:34Z

Identidad

← Revisión anterior		Revisión del 21:24 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: /* Declaración */

2025-05-18T22:58:22Z

Declaración

← Revisión anterior		Revisión del 00:58 19 may 2025
Línea 23:		Línea 23:
	FTag_ImportarPlanilla: Boolean;		FTag_ImportarPlanilla: Boolean;

	FSQL_SELECT: TStringList; ~~// <SELECT></SELECT>~~		FSQL_SELECT: TStringList;
	FSQL_CONDICION: TStringList; ~~// <CONDICION></CONDICION>~~		FSQL_CONDICION: TStringList;
	FSQL_CAMPOS: TStringList; ~~// <CAMPOS></CAMPOS>~~		FSQL_CAMPOS: TStringList;
	FSQL_SELECTVALUE: TStringList; ~~// <SELECTVALUE></SELECTVALUE>~~		FSQL_SELECTVALUE: TStringList;

	FItems: TStringList;		FItems: TStringList;
Línea 50:		Línea 50:
	property DataSet: TDataSet read FDataSet write FDataSet;		property DataSet: TDataSet read FDataSet write FDataSet;
	property Clase: String read FClase write FClase;		property Clase: String read FClase write FClase;
	~~// BUSCAR pAUX_CLASE_ORIGEN_unit~~

	~~// property DataSet: TDataSet read FDataSet write FDataSet;~~
	~~// property Clase: String read FClase write FClase;~~
	property StatusBar: TStatusBar read FStatusBar write FStatusBar;		property StatusBar: TStatusBar read FStatusBar write FStatusBar;

	property Query: TprxADOQuery read FQuery write FQuery;		property Query: TprxADOQuery read FQuery write FQuery;

Luciano Carou: /* Declaración */

2025-05-18T22:57:50Z

Declaración

← Revisión anterior		Revisión del 00:57 19 may 2025
Línea 10:		Línea 10:

	=Declaración=		=Declaración=
			<pre>
			type
			TpAUX_CLASE_ORIGEN_unit = class(TComponent)
			private
			FDataSet: TDataSet;
			FClase: String;
			FStatusBar: TStatusBar;

			FQuery: TprxADOQuery;

			FTag_EmiteAviso: Boolean;
			FTag_ImportarPlanilla: Boolean;

			FSQL_SELECT: TStringList; // <SELECT></SELECT>
			FSQL_CONDICION: TStringList; // <CONDICION></CONDICION>
			FSQL_CAMPOS: TStringList; // <CAMPOS></CAMPOS>
			FSQL_SELECTVALUE: TStringList; // <SELECTVALUE></SELECTVALUE>

			FItems: TStringList;
			FItems_Descripcion: TStringList;
			FItems_Index: Integer;
			protected
			property Tag_EmiteAviso: Boolean read FTag_EmiteAviso write FTag_EmiteAviso;
			property Tag_ImportarPlanilla: Boolean read FTag_ImportarPlanilla write FTag_ImportarPlanilla;
			property SQL_SELECT: TStringList read FSQL_SELECT write FSQL_SELECT;
			property SQL_CONDICION: TStringList read FSQL_CONDICION write FSQL_CONDICION;
			property SQL_CAMPOS: TStringList read FSQL_CAMPOS write FSQL_CAMPOS;
			property SQL_SELECTVALUE: TStringList read FSQL_SELECTVALUE write FSQL_SELECTVALUE;

			procedure OnGrid_SelectedRecords(Sender: TprxADOQuery; var aError: Boolean);
			function LocateRecord(Sender: TprxADOQuery): Boolean;
			public
			constructor Create(AOwner: TComponent); override;
			destructor Destroy; override;

			function ArmarMenu(aPopupMenu: TprxPopupMenu; aEnabled: Boolean): Boolean;
			procedure OnClick(Sender: TObject);

			property DataSet: TDataSet read FDataSet write FDataSet;
			property Clase: String read FClase write FClase;
			// BUSCAR pAUX_CLASE_ORIGEN_unit

			// property DataSet: TDataSet read FDataSet write FDataSet;
			// property Clase: String read FClase write FClase;
			property StatusBar: TStatusBar read FStatusBar write FStatusBar;

			property Query: TprxADOQuery read FQuery write FQuery;

			property Items: TStringList read FItems;
			property Items_Descripcion: TStringList read FItems_Descripcion;
			property Items_Index: Integer read FItems_Index;
			published
			end;
			</pre>

Luciano Carou: Página creada con «=Descripción= El objeto '''TpAUX_CLASE_ORIGEN_unit''' (Origen de datos) procesa los auxiliares de tipo '''ORIGEN''', ver detalles en DEV AUXILIARES/ORIGEN. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES Ancestro: TComponent Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_ORIGEN_unit.pas =Declaración=»

2025-05-18T22:28:21Z

Página creada con «=Descripción= El objeto '''TpAUX_CLASE_ORIGEN_unit''' (Origen de datos) procesa los auxiliares de tipo '''ORIGEN''', ver detalles en DEV AUXILIARES/ORIGEN. =Identidad= Category:MANUAL/PROGRAMADOR Category:AUXILIARES *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pAUX_CLASE_ORIGEN_unit.pas =Declaración=»

Página nueva

=Descripción=
El objeto '''TpAUX_CLASE_ORIGEN_unit''' (Origen de datos) procesa los auxiliares de tipo '''ORIGEN''', ver detalles en [[DEV AUXILIARES/ORIGEN]].

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

=Declaración=