45 lines
1.2 KiB
ObjectPascal
45 lines
1.2 KiB
ObjectPascal
|
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.
|