roberto
080f8bff63
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@169 93f398dd-4eb6-7a46-baf6-13f46f578da2
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.
|