roberto
6b8b722fbe
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@175 93f398dd-4eb6-7a46-baf6-13f46f578da2
88 lines
2.3 KiB
ObjectPascal
88 lines
2.3 KiB
ObjectPascal
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.
|