Luciano Carou: /* FBatch */

2025-08-07T17:47:23Z

FBatch

← Revisión anterior		Revisión del 19:47 7 ago 2025
Línea 106:		Línea 106:

	===FBatch===		===FBatch===
	~~Proppiedades~~ usadas para tomar la clave primaria en un update a la base de datos, las propiedades son:		Propiedades usadas para tomar la clave primaria en un update a la base de datos, las propiedades son:
	*FBatch_KeyFields guarda la lista de campos de la clave primaria.		*FBatch_KeyFields guarda la lista de campos de la clave primaria.
	*FBatch_KeyFieldsList guarda la lista de campos pero separándolos con punto y coma.		*FBatch_KeyFieldsList guarda la lista de campos pero separándolos con punto y coma.

Luciano Carou en 18:37 22 may 2025

2025-05-22T18:37:38Z

← Revisión anterior		Revisión del 20:37 22 may 2025
Línea 124:		Línea 124:
	*FChildDataSets: array[0..TprxChildDataSetsMax] of TprxADODataSetMaster es un array que guarda las referencias a los detalles que tiene el dataset.		*FChildDataSets: array[0..TprxChildDataSetsMax] of TprxADODataSetMaster es un array que guarda las referencias a los detalles que tiene el dataset.
	*FChildDataSetsCount: Integer es un entero que indica la cantidad de detalles que tiene el dataset.		*FChildDataSetsCount: Integer es un entero que indica la cantidad de detalles que tiene el dataset.

	~~<!--~~
	~~****************************************************************~~
	~~****************************************************************~~
	~~****************************************************************~~
	~~****************************************************************~~
	~~-->~~

	=Implementación=		=Implementación=
Línea 180:		Línea 173:
	===procedure RefreshXtd(aFieldName: String; aFieldValue: String; aSelect: Boolean = True)===		===procedure RefreshXtd(aFieldName: String; aFieldValue: String; aSelect: Boolean = True)===
	Similar anterior, pero informando un campo y su valor, para usar en comprobantes por el problema del loop en la asignación de numeración (07/09/2010).		Similar anterior, pero informando un campo y su valor, para usar en comprobantes por el problema del loop en la asignación de numeración (07/09/2010).

	~~=Uso=~~

Luciano Carou: Página creada con «=Introducción= El objeto '''TprxADODataSetMaster''' (Dataset con habilidades de master en una relación master-detail.) define funcionalidad para funcionar como el maestro en una relación master-detail. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS *Ancestro: TprxADODataSetEdit *Carpeta: C:\DevelopPrx\library *Archivo: prxADODataSetMaster.pas =Declaración=

 type   TprxADODataSetMaster = class(TprxADODataSet…»

2025-05-16T18:01:59Z

Página creada con «=Introducción= El objeto '''TprxADODataSetMaster''' (Dataset con habilidades de master en una relación master-detail.) define funcionalidad para funcionar como el maestro en una relación master-detail. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS *Ancestro: TprxADODataSetEdit *Carpeta: C:\DevelopPrx\library *Archivo: prxADODataSetMaster.pas =Declaración= <pre> type TprxADODataSetMaster = class(TprxADODataSet…»

Página nueva

=Introducción=
El objeto '''[[TprxADODataSetMaster]]''' (Dataset con habilidades de master en una relación master-detail.) define funcionalidad para funcionar como el maestro en una relación master-detail.

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:DATASETS]]
*Ancestro: [[TprxADODataSetEdit]]
*Carpeta: C:\DevelopPrx\library
*Archivo: prxADODataSetMaster.pas

=Declaración=
<pre>
type
TprxADODataSetMaster = class(TprxADODataSetEdit)
private
FOnTransactionStart: TDataSetNotifyEvent;
FOnTransactionEnd: TDataSetNotifyEvent;

FFormName: String;

FTrCatalogo: String;
FTrTipoClase: String;

FBatch_KeyFields: Variant;
FBatch_KeyFieldsList: String;
FBatch_KeyValues: Variant;

FKeepFormOpen_Default: Boolean;
protected
FKeepFormOpen: Boolean;
FReabriendo: Boolean;

FChildDataSets: array[0..TprxChildDataSetsMax] of TprxADODataSetMaster;
FChildDataSetsCount: Integer;

Fsame_key_as_master: Boolean;

procedure Notification(AComponent: TComponent; Operation: TOperation); override;

function KeepFormOpen_Default_Get: Boolean;
function KeepFormOpen_Get: Boolean; virtual;

function StructureLoad: Integer; override;
function Get_same_key_as_master: Boolean;

function GetChildDataSets(Index: Integer): TprxADODataSetMaster;
procedure SetChildDataSets(Index: Integer; Value: TprxADODataSetMaster);

property Batch_KeyFields: Variant read FBatch_KeyFields write FBatch_KeyFields;
property Batch_KeyFieldsList: String read FBatch_KeyFieldsList write FBatch_KeyFieldsList;
property Batch_KeyValues: Variant read FBatch_KeyValues write FBatch_KeyValues;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

procedure Loaded; override;

procedure Activate(aLoadRecords: Boolean); override;
procedure OnMessagesEnable(aValue: Boolean); override;
function IsTransactionMaster: Boolean; override;

procedure ChildDataSetInit;
procedure ChildDataSetAdd(aDS: TprxADODataSetMaster);
function FindChildDataSetByTableName(aTableName: String): TprxADODataSetMaster;
function FindChildDataSetByClassName(aClassName: String): TprxADODataSetMaster;
procedure ChildDataSetDelete(aDS: TprxADODataSetMaster);

procedure ChildHasPosted(aChildDS: TprxADODataSetMaster);

procedure InsertXtd(Sender: TObject); override;
procedure CancelXtd(Sender: TObject); override;
function RequeryXtd: Boolean; virtual;

function UpdateBatchXtd_KeysSave: Boolean;
function UpdateBatchXtd_KeysLocate: Boolean;

function UpdateBatchXtd(AffectRecords: TAffectRecords = arAll): Boolean; override;

procedure RefreshXtd; overload;
procedure RefreshXtd(aFieldName: String; aFieldValue: String; aSelect: Boolean = True); overload;

property ChildDataSets[Index: Integer]: TprxADODataSetMaster read GetChildDataSets write SetChildDataSets;
property ChildDataSetsCount: Integer read FChildDataSetsCount;

property FormName: String read FFormName write FFormName;

property TrCatalogo: String read FTrCatalogo write FTrCatalogo;
property TrTipoClase: String read FTrTipoClase write FTrTipoClase;

property same_key_as_master: Boolean read Get_same_key_as_master;

property KeepFormOpen_Default: Boolean read KeepFormOpen_Default_Get;
property KeepFormOpen: Boolean read KeepFormOpen_Get write FKeepFormOpen;
property Reabriendo: Boolean read FReabriendo;
published
property ppOnTransactionStart: TDataSetNotifyEvent read FOnTransactionStart write FOnTransactionStart;
property ppOnTransactionEnd: TDataSetNotifyEvent read FOnTransactionEnd write FOnTransactionEnd;
end;
</pre>

===FOnTransactionStart: TDataSetNotifyEvent===
Puede asociarse a un evento que se ejecuta al iniciar la transacción con la base de datos.

===FOnTransactionEnd: TDataSetNotifyEvent===
Puede asociarse a un evento que se ejecuta al finalizar la transacción con la base de datos.

===FBatch===
Proppiedades usadas para tomar la clave primaria en un update a la base de datos, las propiedades son:
*FBatch_KeyFields guarda la lista de campos de la clave primaria.
*FBatch_KeyFieldsList guarda la lista de campos pero separándolos con punto y coma.
*FBatch_KeyValues guarda los valores de cada campo de la clave primaria.

===FKeepFormOpen_Default: Boolean===
Propiedad que por defecto indica si el form de un dataset permanece abierto luego de aplicar los cambios a la base de datos. Por ejemplo: si mantenemos la pantalla de una factura abierta tras haberla registrado.

Aunque se supone que debería manejarse por preferencias de usuario en el código siempre se la setea a True.

Ver también:
*FKeepFormOpen: Boolean.
*function KeepFormOpen_Default_Get: Boolean.
*function KeepFormOpen_Get: Boolean; virtual.

===FChildDataSets===
*FChildDataSets: array[0..TprxChildDataSetsMax] of TprxADODataSetMaster es un array que guarda las referencias a los detalles que tiene el dataset.
*FChildDataSetsCount: Integer es un entero que indica la cantidad de detalles que tiene el dataset.



=Implementación=
===function StructureLoad: Integer===
Llama al inherited y posteriormente verifica si EsDetalleDe alguna otra clase y en ese caso si sus claves primarias contienen la misma cantidad de campos.

===procedure ChildDataSetInit===
Inicializa el array de childs a vacío.

===procedure ChildDataSetAdd(aDS: TprxADODataSetMaster)===
Agrega un child al array.

===procedure ChildHasPosted(aChildDS: TprxADODataSetMaster)===
Función llamada por un child del dataset para indicar que ha hecho algo, por ejemplo, posteado cambios.

===function FindChildDataSetByTableName(aTableName: String): TprxADODataSetMaster===
Dado un nombre de tabla retorna el ChildDataSet que la implementa.

===function FindChildDataSetByClassName(aClassName: String): TprxADODataSetMaster===
Similar anterior, pero buscamos por nombre de la clase.

===procedure ChildDataSetDelete(aDS: TprxADODataSetMaster)===
Elimina un child del array.

===procedure InsertXtd(Sender: TObject)===
Postea un registro insertado.

===procedure CancelXtd(Sender: TObject)===
Cancela la inserción o edición de un registro.

===function RequeryXtd: Boolean===
Vuelve a cargar los registros, habitualmente los mismos que tiene en pantalla.

=Implementación, UpdateBatchXtd=
Esta funcionalidad pertenece a las funciones de grabado en la base de datos.

===function UpdateBatchXtd_KeysSave: Boolean===
Guarda los valores de los campos clave para hacer un Locate después del Requery, surgido el 26/08/2015 por la prueba de comprobantes combinados Pragma y prx.

===function UpdateBatchXtd_KeysLocate: Boolean===
Hace un Locate usando las claves guardadas la llamada al Locate es distinta según la cantidad de campos clave que tenga la clase.

===function UpdateBatchXtd(AffectRecords: TAffectRecords = arAll): Boolean===
Vuelca los cambios al dataset (y sus childs) a la base de datos.

===procedure RefreshXtd===
Vuelve a cargar los registros y se posiciona sobre el que acabamos de editar.

===procedure RefreshXtd(aFieldName: String; aFieldValue: String; aSelect: Boolean = True)===
Similar anterior, pero informando un campo y su valor, para usar en comprobantes por el problema del loop en la asignación de numeración (07/09/2010).

=Uso=

TprxADODataSetMaster - Historial de revisiones

Luciano Carou: /* FBatch */

Luciano Carou en 18:37 22 may 2025