Ver el código de «TCAVVAL LOTE implemented»

=Descripción=
El objeto '''TCAVVAL_LOTE_implemented''' (Valores.) extiende a la tabla [[VALORES CAJA]].

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

=Declaración=
<pre>
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;
</pre>

=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:
<pre>
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
</pre>