unit uEditorAsignarComercial;

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, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
  uComercialesController, uBizContactos;

type
  TfEditorAsignarComercial = class(TfEditorBasico)
    Label1: TLabel;
    bAceptar: TButton;
    bCancelar: TButton;
    Panel1: TPanel;
    cbComercial: TcxLookupComboBox;
    dsComerciales: TDADataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbComercialPropertiesEditValueChanged(Sender: TObject);
  private
    FComerciales : IBizComercial;
    FComercialesController : IComercialesController;
    function getComercial: variant;
  public
    property comercial: variant read getComercial;
  end;

  function AsignarComercial(var AID_AGENTE : Variant): Boolean;

implementation
{$R *.dfm}
uses uFactuGES_App;


function AsignarComercial(var AID_AGENTE : Variant): Boolean;
var
  AEditor : TfEditorAsignarComercial;
begin
  AEditor := TfEditorAsignarComercial.Create(NIL);
  try
    Result := (AEditor.ShowModal = mrOk);
    if Result then
       AID_AGENTE := AEditor.Comercial;
  finally
    AEditor.Release;
  end;
end;

{ TfEditorAsignarComercial }

procedure TfEditorAsignarComercial.cbComercialPropertiesEditValueChanged(
  Sender: TObject);
begin
//

end;

procedure TfEditorAsignarComercial.FormCreate(Sender: TObject);
begin
  FComerciales := Nil;
  FComercialesController := TComercialesController.Create;
end;

procedure TfEditorAsignarComercial.FormDestroy(Sender: TObject);
begin
  FComerciales := Nil;
  FComercialesController := Nil;
end;

procedure TfEditorAsignarComercial.FormShow(Sender: TObject);
begin
  FComerciales := FComercialesController.BuscarTodos as IBizComercial;
  dsComerciales.DataTable := FComerciales.DataTable;
  dsComerciales.DataTable.Active := True;
end;

function TfEditorAsignarComercial.getComercial: variant;
begin
  Result := FComerciales.ID;
end;

end.