TCDDET implemented

Descripción

El objeto TCDDET_implemented (Detalle de caja directo CDDET.) extiende la clase CAJA DIRECTO/IMPUTACIONES. .

Identidad

• Ancestro: TprxADODataSetDetail
• Carpeta: C:\DevelopPrx\implemented
• Archivo: CDDET_implemented.pas

Declaración

type

 TCDDET_implemented = class(TprxADODataSetDetail)
 private
 protected
   procedure   LiquidarClick(Sender: TObject);
 public
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy;  override;
   procedure   Loaded; override;

   procedure   InsertXtd(Sender: TObject); override;
   procedure   EditXtd(Sender: TObject); override;
   procedure   DeleteXtd(Sender: TObject); override;
   function    PostXtd(Sender: TObject): Boolean; override;
 published
 end;

Implementación

procedure DeleteXtd(Sender: TObject)

Refresca los totales de la cabecera llamando a la función LiquidarClick(Sender: TObject).

function PostXtd(Sender: TObject): Boolean

Refresca los totales de la cabecera llamando a la función LiquidarClick(Sender: TObject).

procedure LiquidarClick(Sender: TObject)

Totaliza la cabecera del comprobante con el siguiente código:

procedure TCDDET_implemented.LiquidarClick(Sender: TObject);
begin
  if MasterDataSet is TCDCAB_implemented then
     TCDCAB_implemented(MasterDataSet).Totalizar;
end;