TOPLIQ implemented

Descripción

El objeto TOPLIQ_implemented (Detalle de liquidaciones de órdenes de pago OPLIQ.) extiende a ORDENES PAGO/LIQUIDACION.

Identidad

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

Declaración

type
  TOPLIQ_implemented = class(TprxADODataSetDetail)
  private
  protected
    function    Habilitado: Boolean;
    procedure   LiquidarClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy;  override;
    procedure   Loaded; override;

    procedure   DefaultValuesAssign; 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

function Habilitado: Boolean

Retorna True si la cabecera del comprobante está en estado Abierto.

procedure GetPopupOptions(Sender: TprxPopupMenu)

Agrega la opción de "Liquidar" al menú de opciones.

procedure DeleteXtd(Sender: TObject)

Al eliminar un registro vuelve a liquidar.

function PostXtd(Sender: TObject): Boolean

Al postear el registro vuelve a liquidar.

procedure LiquidarClick(Sender: TObject)

Función que hace la liquidación de la orden de pago.

• Llama a TOPCAB_implemented(MasterDataSet).LiquidarClick.
• Opcionalmente llama a TOPCAB_implemented(MasterDataSet).CalcularRetenciones para calcular las retenciones.