unit uEditorAsignarDescuentoCapitulo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, 
  cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uEmpresasController,
  cxSpinEdit, cxCurrencyEdit;

type
  TfEditorAsignarDescuentoCapitulo = class(TfEditorBasico)
    Label1: TLabel;
    bAceptar: TButton;
    bCancelar: TButton;
    Label2: TLabel;
    Panel1: TPanel;
    eDescuentoCapitulo: TcxCurrencyEdit;
  end;

  function AsignarDescuentoCapitulo(var ADescuentoCapitulo : Variant): Boolean;

implementation
{$R *.dfm}
uses uFactuGES_App;


function AsignarDescuentoCapitulo(var ADescuentoCapitulo : Variant): Boolean;
var
  AEditor : TfEditorAsignarDescuentoCapitulo;
begin
  AEditor := TfEditorAsignarDescuentoCapitulo.Create(NIL);
  try
    AEditor.eDescuentoCapitulo.Value := AppFactuGES.EmpresaActiva.DESCUENTO_CAPITULO;
    Result := (AEditor.ShowModal = mrOk);
    if Result then
       ADescuentoCapitulo := AEditor.eDescuentoCapitulo.Value;
  finally
    AEditor.Release;
  end;
end;

end.