45 lines
1.1 KiB
ObjectPascal
45 lines
1.1 KiB
ObjectPascal
|
unit uEditorAsignarPrecioPunto;
|
||
|
|
|
||
|
|
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
|
||
|
|
TfEditorAsignarPrecioPunto = class(TfEditorBasico)
|
||
|
|
Label1: TLabel;
|
||
|
|
bAceptar: TButton;
|
||
|
|
bCancelar: TButton;
|
||
|
|
Label2: TLabel;
|
||
|
|
Panel1: TPanel;
|
||
|
|
ePrecioPunto: TcxCurrencyEdit;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function AsignarPrecioPunto(var APrecioPunto : Variant): Boolean;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
{$R *.dfm}
|
||
|
|
uses uFactuGES_App;
|
||
|
|
|
||
|
|
|
||
|
|
function AsignarPrecioPunto(var APrecioPunto : Variant): Boolean;
|
||
|
|
var
|
||
|
|
AEditor : TfEditorAsignarPrecioPunto;
|
||
|
|
begin
|
||
|
|
AEditor := TfEditorAsignarPrecioPunto.Create(NIL);
|
||
|
|
try
|
||
|
|
AEditor.ePrecioPunto.Value := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
|
||
|
|
Result := (AEditor.ShowModal = mrOk);
|
||
|
|
if Result then
|
||
|
|
APrecioPunto := AEditor.ePrecioPunto.Value;
|
||
|
|
finally
|
||
|
|
AEditor.Release;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|