TCAVVAL LOTE implemented

Descripción

El objeto TCAVVAL_LOTE_implemented (Valores) extiende a la tabla VALORES CAJA.

Identidad

• Ancestro: TprxADODataSetMaster
• Carpeta: C:\DevelopPrx\implemented
• Archivo: CAVVAL_LOTE_implemented.pas

Declaración

type
  TCAVVAL_LOTE_implemented = class(TprxADODataSetMaster)
  private
  protected
    procedure   DefaultValuesAssign; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy;  override;
    procedure   Loaded; override;

    function    OnExitFieldXtd(Sender: TObject; aFieldName: String; aFieldValue: Variant; aErrMsg: String): Boolean; override;

    function    PostXtd(Sender: TObject): Boolean; override;
    procedure   CancelXtd(Sender: TObject); override;
    procedure   DeleteXtd(Sender: TObject); override;

    procedure   GetPopupOptions(Sender: TprxPopupMenu); override;
  published
  end;

Implementación

procedure DefaultValuesAssign

Carga los datos de inicialización del valor considerando el comprobante y número de cuota cuyo valor estamos cargando, busca en la vista CAVVALMOV, la sentencia es:

SELECT
FTIPOIMPORTE = CASE WHEN CAVVALMOV.FTIPOIMPORTE = 'Débito' THEN 'Crédito' ELSE 'Débito' END
, CAVVALMOV.FCARTERA
, CAVVALMOV.FCONCEPTO
, CAVVALMOV.FBENEFICIARIO
, CAVVALMOV.FFECHAEMISION
, CAVVALMOV.FFECHAVENCIMIENTO
, CAVVALMOV.FMONEDA
, CAVVALMOV.FFECHAVALUACION
, CAVVALMOV.FCOTIZACION
, FCANTIDAD = (SELECT ABS(SUM(MOV.FIMPORTE_SGN)) FROM CAVVALMOV MOV WHERE MOV.FCMPCODIGO = CAVVALMOV.FCMPCODIGO AND MOV.FCMPCUOTA = CAVVALMOV.FCMPCUOTA)
, CAVVALMOV.FOBSERVACIONES
, CAVVALMOV.FCIRCUITO
FROM CAVVALMOV WHERE
CAVVALMOV.FCRITERIO = 'COMPROBANTE'
AND CAVVALMOV.FCMPCODIGO = @FCMPCODIGO
AND CAVVALMOV.FCMPCUOTA  = @FCMPCUOTA