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.