TOPCMP implemented

Descripción

El objeto TOPCMP_implemented (Detalle de comprobantes de órdenes de pago OPCMP.) extiende a ORDENES PAGO/COMPROBANTES.

Identidad

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

Declaración

type
  TOPCMP_implemented = class(TprxADODataSetDetail)
  private
    FTotalizar: Boolean;
  protected
    function    BuscarFechaPago: Boolean;
  public
    property    Totalizar: Boolean read FTotalizar write FTotalizar;

    constructor Create(AOwner: TComponent); override;
    destructor  Destroy;  override;
    procedure   Loaded; override;

    procedure   GetPopupOptions(Sender: TprxPopupMenu); 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)

Al eliminar un comprobante totaliza la cabecera del comprobante.

function PostXtd(Sender: TObject): Boolean

Al postear un registro calcula los siguientes campos:

• FIMPORTE: multiplica la FCOTIZACION * FCANTIDAD.
• FIMPORTE_RXP: multiplica FCOTIZACION_RXP * FCANTIDAD.
• FDIFCAMBIO: calcula la diferencia de cambio usando (FCOTIZACION_RXP - FCOTIZACION) * FCANTIDAD.