Luciano Carou: /* Identidad */

2025-06-05T14:01:58Z

Identidad

← Revisión anterior		Revisión del 16:01 5 jun 2025
Línea 16:		Línea 16:
	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=
	[[Category:MANUAL/PROGRAMADOR]]		[[Category:MANUAL/PROGRAMADOR]]
	~~<!--~~
	[[Category:FILTROS]]		[[Category:FILTROS]]
	~~-->~~
	~~[[Category:CONTROLES/FORMS]]~~
	*Ancestro: [[TfvsForm]]		*Ancestro: [[TfvsForm]]
	*Carpeta: C:\DevelopPrx\library		*Carpeta: C:\DevelopPrx\library

Luciano Carou en 13:55 5 jun 2025

2025-06-05T13:55:28Z

← Revisión anterior		Revisión del 15:55 5 jun 2025
Línea 112:		Línea 112:
	end		end
	</pre>		</pre>

			=Uso=
			Este filtro se usa en:
			*[[TTfvsDBClientFrameGridConsultas\|Implementa grilla para consultas (TTfvsDBClientFrameGridConsultas)]].
			*[[TTfvsDBClientFrameGridClases\|Implementa grilla para clases (TTfvsDBClientFrameGridClases)]].

Luciano Carou: /* Uso */

2025-05-30T12:57:40Z

Uso

← Revisión anterior		Revisión del 14:57 30 may 2025
Línea 98:		Línea 98:

	=Uso=		=Uso=
	~~Llamado por~~ [[TfvsDBGrid]].LocalOnKeyDown ~~(indirectamente usando [[TprxADODataSet_Options_FiltroQBE]].ExecuteClick)~~:		Tiene un solo uso, en [[TfvsDBGrid]].LocalOnKeyDown:
			<pre>
	var		var
	vF: TTprxADODataSet_Options_FiltroQBEForm;		vF: TTprxADODataSet_Options_FiltroQBEForm;
	begin		begin
	inherited;		inherited;
			if Key = VK_F7 then
	if ~~Assigned(argDataSet)~~ then
	begin		begin
	vF := TTprxADODataSet_Options_FiltroQBEForm.Create(Self);		vF := TTprxADODataSet_Options_FiltroQBEForm.Create(Self);
	vF.DataSet := ~~argDataSet~~;		vF.DataSet := DataSource.DataSet;
	vF.ShowModal;		vF.ShowModal;
	vF.Release;		vF.Release;
	end;		end
	~~end;~~		</pre>

Luciano Carou en 00:52 30 may 2025

2025-05-30T00:52:54Z

← Revisión anterior		Revisión del 02:52 30 may 2025
Línea 16:		Línea 16:
	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=
	[[Category:MANUAL/PROGRAMADOR]]		[[Category:MANUAL/PROGRAMADOR]]
			<!--
	[[Category:FILTROS]]		[[Category:FILTROS]]
			-->
			[[Category:CONTROLES/FORMS]]
	*Ancestro: [[TfvsForm]]		*Ancestro: [[TfvsForm]]
	*Carpeta: C:\DevelopPrx\library		*Carpeta: C:\DevelopPrx\library

Luciano Carou: Página creada con «=Descripción= El form '''TTprxADODataSet_Options_FiltroQBEForm''' (Selección F7) permite filtrar los registros de una grilla usando el registro activo como ejemplo, es decir que toma los valores de ese registro y busca registros coincidentes. El form se instancia exclusivamente presionando F7 sobre una grilla. Al aparecer el form veremos la lista de campos de la grilla, con los valores correspondientes al registro que estaba activo: Archivo:20250529 1525 FILTRO…»

2025-05-29T18:46:56Z

Página creada con «=Descripción= El form '''TTprxADODataSet_Options_FiltroQBEForm''' (Selección F7) permite filtrar los registros de una grilla usando el registro activo como ejemplo, es decir que toma los valores de ese registro y busca registros coincidentes. El form se instancia exclusivamente presionando F7 sobre una grilla. Al aparecer el form veremos la lista de campos de la grilla, con los valores correspondientes al registro que estaba activo: Archivo:20250529 1525 FILTRO…»

Página nueva

=Descripción=
El form '''TTprxADODataSet_Options_FiltroQBEForm''' (Selección F7) permite filtrar los registros de una grilla usando el registro activo como ejemplo, es decir que toma los valores de ese registro y busca registros coincidentes.

El form se instancia exclusivamente presionando F7 sobre una grilla.

Al aparecer el form veremos la lista de campos de la grilla, con los valores correspondientes al registro que estaba activo:
[[Archivo:20250529 1525 FILTRO QBE ANTES.png|miniaturadeimagen|no|Antes de filtrar.]]

Podemos marcar con un check los valores que queremos usar para el filtro. Por ejemplo, queremos buscar todos los registros donde la '''Categoria''' sea igual a '''DATASETS/IMPLEMENTED''':
[[Archivo:20250529 1527 FILTRO QBE MARCADO.png|miniaturadeimagen|no|Filtro marcado.]]

Cuando aplicamos el filtro veremos la grilla filtrada:
[[Archivo:20250529 1527 FILTRO QBE APLICADO.png|miniaturadeimagen|no|Filtro aplicado.]]

Para quitar el filtro hay que presionar nuevamente F7 y picar el botón "Resetear".
=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:FILTROS]]
*Ancestro: [[TfvsForm]]
*Carpeta: C:\DevelopPrx\library
*Archivo: prxADODataSet_Options_FiltroQBEForm.pas

=Declaración=
<pre>
type
TTprxADODataSet_Options_FiltroQBEForm = class(TTfvsForm)
PageControl1: TPageControl;
TabSheetSTANDARD: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
ButtonRESETEAR: TButton;
Button_APLICAR: TButton;
Button_CERRAR: TButton;
Panel3: TPanel;
prxCheckListBoxCAMPOS: TprxCheckListBox;
procedure FormShow(Sender: TObject); //override;
procedure prxButtonCerrarClick(Sender: TObject);
procedure prxButtonAplicarClick(Sender: TObject);
procedure prxDBFiltradorTreeView1EscapePressed(Sender: TObject);
procedure ButtonRESETEARClick(Sender: TObject);
procedure prxCheckListBoxCAMPOSKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
FDataSet: TDataSet;
FFieldList: TStringList;

FInFilter_FieldName_List: TStringList;
FInFilter_Operation_List: TStringList;
FInFilter_FieldValue_List: TStringList;
protected
procedure FilterDecode;
procedure PrintFields(Sender: TObject);

property FieldList: TStringList read FFieldList write FFieldList;
property InFilter_FieldName_List: TStringList read FInFilter_FieldName_List write FInFilter_FieldName_List;
property InFilter_Operation_List: TStringList read FInFilter_Operation_List write FInFilter_Operation_List;
property InFilter_FieldValue_List: TStringList read FInFilter_FieldValue_List write FInFilter_FieldValue_List;
public
property DataSet: TDataSet read FDataSet write FDataSet;
end;
</pre>

=Implementación=
===procedure FormShow(Sender: TObject)===
Si la grilla estaba filtrada decodifica el filtro usando '''FilterDecode'''.

Además, imprime la lista de campos con '''PrintFields'''.

===procedure FilterDecode===
Si la grilla estaba filtrada decodifica el filtro.

===procedure PrintFields(Sender: TObject)===
Imprimie los campos del dataset de la grilla.

===procedure prxButtonCerrarClick(Sender: TObject)===
Cierra el form.

===procedure prxButtonAplicarClick(Sender: TObject)===
Llamado cuando presionan el botón de '''Aplicar''', arma el filtro en una variable '''S''' y lo aplica al dataset con:
<pre>
DataSet.Filtered := False;
DataSet.Filter := S;

if Trim(DataSet.Filter) <> '' then
DataSet.Filtered := True
else
DataSet.Filtered := False;
end;
</pre>

===procedure prxDBFiltradorTreeView1EscapePressed(Sender: TObject)===
Captura el '''ESCAPE''' en el teclado y cierra el form.

===procedure ButtonRESETEARClick(Sender: TObject)===
Ejecutado cuando presionan el botón de '''Resetear''' desmarca todos los campos.

=Uso=
Llamado por [[TfvsDBGrid]].LocalOnKeyDown (indirectamente usando [[TprxADODataSet_Options_FiltroQBE]].ExecuteClick):
var
vF: TTprxADODataSet_Options_FiltroQBEForm;
begin
inherited;

if Assigned(argDataSet) then
begin
vF := TTprxADODataSet_Options_FiltroQBEForm.Create(Self);
vF.DataSet := argDataSet;
vF.ShowModal;
vF.Release;
end;
end;

TTprxADODataSet Options FiltroQBEForm - Historial de revisiones

Luciano Carou: /* Identidad */

Luciano Carou en 13:55 5 jun 2025

Luciano Carou: /* Uso */

Luciano Carou en 00:52 30 may 2025