TprxADODataSetDetail - Historial de revisiones

Luciano Carou: /* FCmpMasterDataSet: TprxADODataSetEdit */

2025-05-22T18:36:33Z

FCmpMasterDataSet: TprxADODataSetEdit

← Revisión anterior		Revisión del 20:36 22 may 2025
Línea 72:		Línea 72:
	Apunta al dataset que es su maestro en la relación master-detail, pero solo cuando:		Apunta al dataset que es su maestro en la relación master-detail, pero solo cuando:
	<pre>		<pre>
	if MasterDataSet is TprxCmpCABECERA then		if MasterDataSet is TprxCmpCABECERA then
	CmpMasterDataSet := MasterDataSet;		CmpMasterDataSet := MasterDataSet;
	</pre>		</pre>

	=Implementación=		=Implementación=
	===procedure SetMasterDataSet(aValue: TprxADODataSetEdit)===		===procedure SetMasterDataSet(aValue: TprxADODataSetEdit)===

Luciano Carou: /* Funciones derivadas */

2025-05-16T18:51:12Z

Funciones derivadas

← Revisión anterior		Revisión del 20:51 16 may 2025
Línea 96:		Línea 96:

	===Funciones derivadas===		===Funciones derivadas===
	Las siguientes funciones derivan del ancestro y agregan funcionalidad específica:		Las siguientes funciones derivan del ancestro y agregan funcionalidad específica a este dataset:
	*function CanInsertXtd: Boolean.		*function CanInsertXtd: Boolean.
	*procedure InsertXtd(Sender: TObject).		*procedure InsertXtd(Sender: TObject).

Luciano Carou en 18:50 16 may 2025

2025-05-16T18:50:52Z

← Revisión anterior		Revisión del 20:50 16 may 2025
Línea 70:		Línea 70:

	===FCmpMasterDataSet: TprxADODataSetEdit===		===FCmpMasterDataSet: TprxADODataSetEdit===
	Apunta al dataset que es su maestro en la relación master-detail, pero solo cuando		Apunta al dataset que es su maestro en la relación master-detail, pero solo cuando:
			<pre>
	if MasterDataSet is TprxCmpCABECERA then		if MasterDataSet is TprxCmpCABECERA then
	CmpMasterDataSet := MasterDataSet;		CmpMasterDataSet := MasterDataSet;
			</pre>

	=Implementación=		=Implementación=
	===procedure SetMasterDataSet(aValue: TprxADODataSetEdit)===		===procedure SetMasterDataSet(aValue: TprxADODataSetEdit)===

Luciano Carou en 18:25 16 may 2025

2025-05-16T18:25:50Z

← Revisión anterior		Revisión del 20:25 16 may 2025
Línea 89:		Línea 89:
	*msgEdit.		*msgEdit.
	*msgCancel.		*msgCancel.

			===procedure ApplyMasterKey===
			Refresca los datos del dataset para que correspondan al master que está vigente. Por ejemplo, si en una pantalla de detalles de facturas cambió el código de la factura tenemos que refrescar este dataset para que coincida con el detalle de la nueva factura.

			===procedure AssignMasterKey(Sender: TObject)===
			Asignamos los valores de la clave del master, es función aparte porque se usa en TprxADODataSetEdit (es decir que no llamamos al inherited porque no queremos llamar a la función del ancestro).

			===Funciones derivadas===
			Las siguientes funciones derivan del ancestro y agregan funcionalidad específica:
			*function CanInsertXtd: Boolean.
			*procedure InsertXtd(Sender: TObject).
			*function CanEditXtd: Boolean.
			*procedure EditXtd(Sender: TObject).
			*function CanDeleteXtd(aAsk: Boolean): Boolean.
			*procedure DeleteXtd(Sender: TObject).
			*function PostXtd(Sender: TObject): Boolean.

Luciano Carou: Página creada con «=Descripción= El objeto '''TprxADODataSetDetail''' (Funcionalidad genérica para detalles de comprobantes.) implementa funcionalidad genérica para detalles de comprobantes. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS *Ancestro: TprxADODataSetMaster *Carpeta: C:\DevelopPrx\library *Archivo: prxADODataSetDetail.pas =Declaración=

 type   TprxADODataSetDetail = class(TprxADODataSetMaster)   private     FMaste…»

2025-05-16T18:20:42Z

Página creada con «=Descripción= El objeto '''TprxADODataSetDetail''' (Funcionalidad genérica para detalles de comprobantes.) implementa funcionalidad genérica para detalles de comprobantes. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATASETS *Ancestro: TprxADODataSetMaster *Carpeta: C:\DevelopPrx\library *Archivo: prxADODataSetDetail.pas =Declaración= <pre> type TprxADODataSetDetail = class(TprxADODataSetMaster) private FMaste…»

Página nueva

=Descripción=
El objeto '''[[TprxADODataSetDetail]]''' (Funcionalidad genérica para detalles de comprobantes.) implementa funcionalidad genérica para detalles de comprobantes.

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

=Declaración=
<pre>
type
TprxADODataSetDetail = class(TprxADODataSetMaster)
private
FMasterDataSet: TprxADODataSetEdit;

FCmpMasterDataSet: TprxADODataSetEdit;

FNuevoSubtotal: Boolean;

FApplyMasterKey_Count: Integer;

procedure FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;
protected
procedure SetTableName(aValue: String); override;

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

function Get_TAG_READONLY: Boolean; override;

function KeepFormOpen_Get: Boolean; override;

procedure SetMasterDataSet(aValue: TprxADODataSetEdit); virtual;
function EvaluarEstadoCabecera: Boolean;

property CmpMasterDataSet: TprxADODataSetEdit read FCmpMasterDataSet write FCmpMasterDataSet;
property xxNuevoSubtotal: Boolean read FNuevoSubtotal write FNuevoSubtotal;

property ApplyMasterKey_Count: Integer read FApplyMasterKey_Count; // write FApplyMasterKey_Count;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Loaded; override;
procedure Activate(aLoadRecords: Boolean); override;

function IsTransactionMaster: Boolean; override;

procedure AssignMasterKey(Sender: TObject);

function CanInsertXtd: Boolean; override;
procedure InsertXtd(Sender: TObject); override;

function CanEditXtd: Boolean; override;
procedure EditXtd(Sender: TObject); override;

function CanDeleteXtd(aAsk: Boolean): Boolean; override;
procedure DeleteXtd(Sender: TObject); override;

function PostXtd(Sender: TObject): Boolean; override;

procedure ApplyMasterKey;
published
property MasterDataSet: TprxADODataSetEdit read FMasterDataSet write SetMasterDataSet; //FMasterDataSet;
end;
</pre>

===FMasterDataSet: TprxADODataSetEdit===
Apunta al dataset que es su maestro en la relación master-detail.

===FCmpMasterDataSet: TprxADODataSetEdit===
Apunta al dataset que es su maestro en la relación master-detail, pero solo cuando

if MasterDataSet is TprxCmpCABECERA then
CmpMasterDataSet := MasterDataSet;

=Implementación=
===procedure SetMasterDataSet(aValue: TprxADODataSetEdit)===
Procedimiento para inicializar el master del dataset (propiedad FMasterDataSet).

===function EvaluarEstadoCabecera: Boolean===
Si el MasterDataSet es una cabecera de comprobante evalúa su estado, si es Nuevo o Abierto retorna True, de lo contrario retorna False.

===procedure FieldMessage(var Message: TprxADODataSetMessage)===
Recibe mensajes (Ver [[prxDataTypes]], si el master está activo y ante alguno de los siguientes eventos aplica la clave del master para que el dataset se refresque trayendo los registros que corresponde a su maestro.
*msgNewRecord.
*msgScroll.
*msgEdit.
*msgCancel.