roberto
6b8b722fbe
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@175 93f398dd-4eb6-7a46-baf6-13f46f578da2
131 lines
3.4 KiB
ObjectPascal
131 lines
3.4 KiB
ObjectPascal
unit uViewInstalador;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
|
|
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
|
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
|
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
|
|
uDAInterfaces, uCustomView, uViewBase, uViewTienda, uBizContactos,
|
|
uViewObservaciones;
|
|
|
|
type
|
|
IViewInstalador = interface(IViewContacto)
|
|
['{629628EE-4B68-4721-8754-CC40BD563453}']
|
|
end;
|
|
|
|
TfrViewInstalador = class(TfrViewContacto, IViewInstalador)
|
|
dxLayoutControlContactoItem19: TdxLayoutItem;
|
|
cbUsuario: TcxComboBox;
|
|
dxLayoutControlContactoItem20: TdxLayoutItem;
|
|
edtComision: TcxDBSpinEdit;
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
procedure cbUsuarioPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
|
|
private
|
|
FDataItem : TDADataTable;
|
|
FListaUsuarios : TStringList;
|
|
function GetDataItem: TDADataTable;
|
|
procedure SetDataItem(const Value: TDADataTable);
|
|
|
|
protected
|
|
procedure SetContacto(const Value: IBizContacto); override;
|
|
|
|
public
|
|
property DataItem : TDADataTable read GetDataItem write SetDataItem;
|
|
procedure ElegirUsuario(const AIDUsuario : Integer);
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uFactuGES_App;
|
|
|
|
procedure TfrViewInstalador.cbUsuarioPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
var
|
|
AIndex : integer;
|
|
begin
|
|
inherited;
|
|
|
|
if Assigned(FDataItem) and FDataItem.Active then
|
|
begin
|
|
AIndex := StrToInt(FListaUsuarios.Values[DisplayValue]);
|
|
|
|
FDataItem.Edit;
|
|
if Assigned(FDataItem.FindField('ID_USUARIO')) then
|
|
FDataItem.FieldByName('ID_USUARIO').AsInteger := AIndex;
|
|
|
|
// if Assigned(FDataItem.FindField('USUARIO')) then
|
|
// FDataItem.FieldByName('USUARIO').AsString := DisplayValue;
|
|
|
|
FDataItem.post;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TfrViewInstalador.CustomViewCreate(Sender: TObject);
|
|
var
|
|
i : integer;
|
|
begin
|
|
inherited;
|
|
|
|
|
|
FListaUsuarios := AppFactuGES.UsuariosController.DarListaUsuarios;
|
|
with cbUsuario.Properties.Items do
|
|
begin
|
|
BeginUpdate;
|
|
try
|
|
Clear;
|
|
for i := 0 to FListaUsuarios.Count - 1 do
|
|
Add(FListaUsuarios.Names[i]);
|
|
finally
|
|
EndUpdate;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewInstalador.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
FreeAndNIL(FListaUsuarios);
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewInstalador.ElegirUsuario(const AIDUsuario: Integer);
|
|
var
|
|
i : integer;
|
|
begin
|
|
for i := 0 to FListaUsuarios.Count-1 do
|
|
begin
|
|
if FListaUsuarios.ValueFromIndex[i] = IntToStr(AIDUsuario) then
|
|
begin
|
|
cbUsuario.Text := FListaUsuarios.Names[i];
|
|
Break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TfrViewInstalador.GetDataItem: TDADataTable;
|
|
begin
|
|
Result := FDataItem;
|
|
end;
|
|
|
|
procedure TfrViewInstalador.SetContacto(const Value: IBizContacto);
|
|
begin
|
|
inherited;
|
|
DataItem := FContacto.DataTable;
|
|
end;
|
|
|
|
procedure TfrViewInstalador.SetDataItem(const Value: TDADataTable);
|
|
begin
|
|
FDataItem := Value;
|
|
if Assigned(FDataItem.FindField('ID_USUARIO')) then
|
|
ElegirUsuario(FDataItem.FieldByName('ID_USUARIO').AsInteger);
|
|
end;
|
|
|
|
end.
|