TpAUX CLASE OPCIONES unit - Historial de revisiones

Luciano Carou: /* Usos */

2025-07-30T01:27:54Z

Usos

← Revisión anterior		Revisión del 03:27 30 jul 2025
Línea 137:		Línea 137:
	*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.		*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.
	*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.		*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.
			<!--
	*[[TTprxGestionFinancieraProyeccionFrame]].OnOpcionesPopupXtd.		*[[TTprxGestionFinancieraProyeccionFrame]].OnOpcionesPopupXtd.
			-->

Luciano Carou: /* procedure GetPopupOptions(Sender: TprxPopupMenu) */

2025-07-30T01:27:34Z

procedure GetPopupOptions(Sender: TprxPopupMenu)

← Revisión anterior		Revisión del 03:27 30 jul 2025
Línea 86:		Línea 86:
	*[[TTfvsDBClientFrameGridConsultas]] para agregar las opciones al menú de cada uno de estos frames.		*[[TTfvsDBClientFrameGridConsultas]] para agregar las opciones al menú de cada uno de estos frames.
	*[[TTfvsDBClientFrameScrollBox]] para agregar las opciones al menú de cada uno de estos frames.		*[[TTfvsDBClientFrameScrollBox]] para agregar las opciones al menú de cada uno de estos frames.
			<!--
	*[[TTprxGestionFinancieraProyeccionFrame]] para agregar las opciones al menú de cada uno de estos frames.		*[[TTprxGestionFinancieraProyeccionFrame]] para agregar las opciones al menú de cada uno de estos frames.
			-->

	Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local a este módulo).		Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local a este módulo).

Luciano Carou: /* Usos */

2025-05-22T14:44:32Z

Usos

← Revisión anterior		Revisión del 16:44 22 may 2025
Línea 135:		Línea 135:
	*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.		*[[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions.
	*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.		*[[TTfvsDBClientFrameScrollBox]].SpeedButton_OPCIONESGetPopupOptions.
	*[[TTprxGestionFinancieraProyeccionFrame].OnOpcionesPopupXtd.		*[[TTprxGestionFinancieraProyeccionFrame]].OnOpcionesPopupXtd.

Luciano Carou: /* Modo de uso */

2025-05-22T14:44:21Z

Modo de uso

← Revisión anterior		Revisión del 16:44 22 may 2025
Línea 109:		Línea 109:

	=Modo de uso=		=Modo de uso=
	Habitualmente el auxiliar se usa de la siguiente manera:		Habitualmente el auxiliar se usa de la siguiente manera (ejemplo tomado de [[TTfvsDBClientFrameGridConsultas]].fvsDBGridResultadoGetPopupOptions):
	<pre>		<pre>
	prxADOClientDM.pAUX_CLASE_OPCIONES_unit.DataSet := QueryRESULTADO;		prxADOClientDM.pAUX_CLASE_OPCIONES_unit.DataSet := QueryRESULTADO;
Línea 129:		Línea 129:
	prxADOClientDM.pAUX_CLASE_OPCIONES_unit.GetPopupOptions(aPopupMenu);		prxADOClientDM.pAUX_CLASE_OPCIONES_unit.GetPopupOptions(aPopupMenu);
	</pre>		</pre>

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

Luciano Carou: /* Modo de uso */

2025-05-22T14:38:33Z

Modo de uso

← Revisión anterior		Revisión del 16:38 22 may 2025
Línea 119:		Línea 119:

	Primero asignamos las propiedades:		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.		*'''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.		*'''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.		*'''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).		*'''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 se llama directamente a la función GetPopupOptions para que agregue las opciones al menú local.

Luciano Carou en 14:37 22 may 2025

2025-05-22T14:37:58Z

← Revisión anterior		Revisión del 16:37 22 may 2025
Línea 107:		Línea 107:
	===procedure ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)===		===procedure ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)===
	Similar anterior pero cuando hay que llamar a un servicio web para cada registro seleccionado en la grilla, usa '''ServicioWebApplyDo'''.		Similar anterior pero cuando hay que llamar a un servicio web para cada registro seleccionado en la grilla, usa '''ServicioWebApplyDo'''.

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

Luciano Carou: /* Identidad */

2025-05-21T18:46:30Z

Identidad

← Revisión anterior		Revisión del 20:46 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: /* procedure GetPopupOptions(Sender: TprxPopupMenu) */

2025-05-21T18:40:36Z

procedure GetPopupOptions(Sender: TprxPopupMenu)

← Revisión anterior		Revisión del 20:40 21 may 2025
Línea 88:		Línea 88:
	*[[TTprxGestionFinancieraProyeccionFrame]] para agregar las opciones al menú de cada uno de estos frames.		*[[TTprxGestionFinancieraProyeccionFrame]] para agregar las opciones al menú de cada uno de estos frames.

	Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local).		Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local a este módulo).

	===procedure Auditoria_OnClick(Sender: TObject)===		===procedure Auditoria_OnClick(Sender: TObject)===

Luciano Carou en 18:40 21 may 2025

2025-05-21T18:40:12Z

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

			=Implementación=
			===procedure GetPopupOptions(Sender: TprxPopupMenu)===
			Usada en:
			*[[TTfvsDBClientFrameGridClases]] para agregar las opciones al menú de cada uno de estos frames.
			*[[TTfvsDBClientFrameGridConsultas]] para agregar las opciones al menú de cada uno de estos frames.
			*[[TTfvsDBClientFrameScrollBox]] para agregar las opciones al menú de cada uno de estos frames.
			*[[TTprxGestionFinancieraProyeccionFrame]] para agregar las opciones al menú de cada uno de estos frames.

			Agrega las opciones al menú, al seleccionar cualquier de estas opciones ejecutará una de las funciones mencionadas más adelante (es decir que la ejecución es local).

			===procedure Auditoria_OnClick(Sender: TObject)===
			Ejecutada desde el menú de opciones para mostrar los registros de auditoría.

			===procedure MediaWiki_OnClick(Sender: TObject)===
			Ejecutada desde el menú para mostrar la documentación relacionada con la pantalla que se está consultando.

			===procedure OnClick_SQL_SELECCIONAR(Sender: TObject)===
			Ejecutada desde el menú de opciones cuando la opción es un resultado SQL.

			===procedure OnClick_SQL_APLICAR(Sender: TObject)===
			Ejecutada desde el menú de opciones cuando la opción es una sentencia SQL para aplicar.

			===procedure GridApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)===
			Usada en la función '''OnClick_SQL_APLICAR''' cuando se han seleccionado varios registros.

			===procedure ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean)===
			Similar anterior pero cuando hay que llamar a un servicio web para cada registro seleccionado en la grilla, usa '''ServicioWebApplyDo'''.

Luciano Carou: /* Declaración */

2025-05-18T22:56:53Z

Declaración

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

	=Declaración=		=Declaración=
			<pre>
			type
			TpAUX_CLASE_OPCIONES_unit = class(TComponent)
			private
			FMasterDataSet: TDataSet;
			FDataSet: TDataSet;
			FClase: String;
			FGrid: TDBGrid;
			FRefreshEvent: TNotifyEvent;
			FCaption_Opciones: String;
			FCaption_Auditoria: String;

			FQuery: TprxADOQuery;

			FTag_ConRegistros: Boolean;
			FTag_Refrescar: Boolean;
			FTag_ServicioWeb: Boolean;
			FTag_StripQuotes: Boolean;
			FTag_Separador: Boolean;

			FSQL_COMANDO: TStringList;
			FSQL_CONDICION: TStringList;
			FSQL_CONFIRMACION: TStringList;

			FItems: TStringList;
			FItems_Descripcion: TStringList;
			FItems_Index: Integer;
			protected
			property Tag_ConRegistros: Boolean read FTag_ConRegistros write FTag_ConRegistros;
			property Tag_Refrescar: Boolean read FTag_Refrescar write FTag_Refrescar;
			property Tag_ServicioWeb: Boolean read FTag_ServicioWeb write FTag_ServicioWeb;
			property Tag_StripQuotes: Boolean read FTag_StripQuotes write FTag_StripQuotes;
			property Tag_Separador: Boolean read FTag_Separador write FTag_Separador;
			property SQL_COMANDO: TStringList read FSQL_COMANDO write FSQL_COMANDO;
			property SQL_CONDICION: TStringList read FSQL_CONDICION write FSQL_CONDICION;
			property SQL_CONFIRMACION: TStringList read FSQL_CONFIRMACION write FSQL_CONFIRMACION;

			function PARSER: Tfva_parser_fbn;
			procedure EventoNulo(Sender: TObject);
			procedure Auditoria_OnClick(Sender: TObject);
			procedure OnClick_SQL_SELECCIONAR(Sender: TObject);
			procedure OnClick_SQL_APLICAR(Sender: TObject);

			procedure GridApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean);
			function ServicioWebApplyDo(aStrings: TStringList): Boolean;
			procedure ServicioWebApply(aIndex: Integer; aErrMsg: String; aErrFlag: Boolean);

			property Caption_Opciones: String read FCaption_Opciones;
			property Caption_Auditoria: String read FCaption_Auditoria;
			public
			constructor Create(AOwner: TComponent); override;
			destructor Destroy; override;

			procedure GetPopupOptions(Sender: TprxPopupMenu);

			property MasterDataSet: TDataSet read FMasterDataSet write FMasterDataSet;
			property DataSet: TDataSet read FDataSet write FDataSet;
			property Clase: String read FClase write FClase;
			property Grid: TDBGrid read FGrid write FGrid;
			property RefreshEvent: TNotifyEvent read FRefreshEvent write FRefreshEvent;

			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>