Establecer en presupuesto la tienda y el vendedor(empleado) por defecto (segun el usuario con el que se haya accedido)

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@112 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Empresas/Views/uViewTienda.pas

@@ -29,6 +29,7 @@ type
 
   public
     function getIDTienda: Integer;
+    procedure SetIDTienda(const ID: Integer);
 
   end;
 
@@ -81,4 +82,12 @@ begin
     Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)];
 end;
 
+procedure TfrViewTienda.SetIDTienda(const ID: Integer);
+var
+  AIndex: Integer;
+begin
+  if FListaIDTiendas.Find(ID, AIndex) then
+     cbTienda.Text := FListaTiendas.Strings[AIndex];
+end;
+
 end.

Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas

@@ -487,7 +487,10 @@ end;
 function TUsuariosController.GetCurrentUser: IBizUsuario;
 begin
   if not Assigned(FCurrentUser) or (FCurrentUser.ID <> FUserControl.CurrentUser.UserID) then
+  begin
     FCurrentUser := BuscarUsuario(FUserControl.CurrentUser.UserID);
+    FCurrentUser.DataTable.Active := True;
+  end;
   Result := FCurrentUser;
 end;
 

Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm

@@ -358,6 +358,14 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
         Size = 250
         DisplayLabel = 'Checksum'
         DictionaryEntry = 'USUARIOS_CHECKSUM'
+      end
+      item
+        Name = 'ID_EMPLEADO'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_TIENDA'
+        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas

@@ -9,12 +9,12 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOS = '{4ED84753-A082-44F4-BEA1-B84E494129F1}';
+  RID_USUARIOS = '{65B7BC42-83C2-459A-8F99-C8DCCC5AD9B6}';
-  RID_USUARIOS_EVENTOS = '{5A454EB1-F5D2-4E55-8DC3-2C42AF250C42}';
+  RID_USUARIOS_EVENTOS = '{C3A73414-3473-4FF2-9994-AE5A0B64C1B5}';
-  RID_USUARIOS_LOGON = '{50AFB47C-FF60-4F01-B19C-FED2D4E6C884}';
+  RID_USUARIOS_LOGON = '{5BECFBB1-EEA4-4EA3-936D-7EB7AE7771E5}';
-  RID_PERMISOS = '{65C900D5-5EF1-4B26-9D61-CD0183BD5CAF}';
+  RID_PERMISOS = '{15383330-12A0-4322-A74B-D9BCE77F7DC1}';
-  RID_PERMISOSEX = '{66351DE2-540F-4456-A330-2634D71EA2E4}';
+  RID_PERMISOSEX = '{73F57CFD-17AC-4F91-BCD8-497A6F9A81D8}';
-  RID_PERFILES = '{A054E0CE-4F22-4376-88E2-07ABF712361C}';
+  RID_PERFILES = '{F2615EE5-08AB-4A18-A97C-345924BEE04F}';
 
   { Data table names }
   nme_USUARIOS = 'USUARIOS';
@@ -37,6 +37,8 @@ const
   fld_USUARIOSTIPO = 'TIPO';
   fld_USUARIOSID_PERFIL = 'ID_PERFIL';
   fld_USUARIOSCHECKSUM = 'CHECKSUM';
+  fld_USUARIOSID_EMPLEADO = 'ID_EMPLEADO';
+  fld_USUARIOSID_TIENDA = 'ID_TIENDA';
 
   { USUARIOS field indexes }
   idx_USUARIOSID = 0;
@@ -51,6 +53,8 @@ const
   idx_USUARIOSTIPO = 9;
   idx_USUARIOSID_PERFIL = 10;
   idx_USUARIOSCHECKSUM = 11;
+  idx_USUARIOSID_EMPLEADO = 12;
+  idx_USUARIOSID_TIENDA = 13;
 
   { USUARIOS_EVENTOS fields }
   fld_USUARIOS_EVENTOSAPLICACION = 'APLICACION';
@@ -129,7 +133,7 @@ const
 type
   { IUSUARIOS }
   IUSUARIOS = interface(IDAStronglyTypedDataTable)
-  ['{30EDE872-B7DB-48D5-91B1-01659A9C9475}']
+  ['{99CA8E68-602A-4E23-BE22-1243423EB570}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -179,6 +183,14 @@ type
     procedure SetCHECKSUMValue(const aValue: String);
     function GetCHECKSUMIsNull: Boolean;
     procedure SetCHECKSUMIsNull(const aValue: Boolean);
+    function GetID_EMPLEADOValue: Integer;
+    procedure SetID_EMPLEADOValue(const aValue: Integer);
+    function GetID_EMPLEADOIsNull: Boolean;
+    procedure SetID_EMPLEADOIsNull(const aValue: Boolean);
+    function GetID_TIENDAValue: Integer;
+    procedure SetID_TIENDAValue(const aValue: Integer);
+    function GetID_TIENDAIsNull: Boolean;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -206,6 +218,10 @@ type
     property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
     property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue;
     property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
+    property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
+    property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
+    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
   end;
 
   { TUSUARIOSDataTableRules }
@@ -261,6 +277,14 @@ type
     procedure SetCHECKSUMValue(const aValue: String); virtual;
     function GetCHECKSUMIsNull: Boolean; virtual;
     procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPLEADOValue: Integer; virtual;
+    procedure SetID_EMPLEADOValue(const aValue: Integer); virtual;
+    function GetID_EMPLEADOIsNull: Boolean; virtual;
+    procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual;
+    function GetID_TIENDAValue: Integer; virtual;
+    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+    function GetID_TIENDAIsNull: Boolean; virtual;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -287,6 +311,10 @@ type
     property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
     property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue;
     property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
+    property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
+    property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
+    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -296,7 +324,7 @@ type
 
   { IUSUARIOS_EVENTOS }
   IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
-  ['{351226EB-9947-4892-A278-211C9F071DBF}']
+  ['{8266AB36-18C0-48E4-8CB1-13779322E8C7}']
     { Property getters and setters }
     function GetAPLICACIONValue: String;
     procedure SetAPLICACIONValue(const aValue: String);
@@ -427,7 +455,7 @@ type
 
   { IUSUARIOS_LOGON }
   IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
-  ['{E20DC12D-CE5C-4CBF-A6E4-3EDF551CF78F}']
+  ['{1721EA9B-77A8-4E0E-978A-EDCD53AA859F}']
     { Property getters and setters }
     function GetLOGONIDValue: String;
     procedure SetLOGONIDValue(const aValue: String);
@@ -510,7 +538,7 @@ type
 
   { IPERMISOS }
   IPERMISOS = interface(IDAStronglyTypedDataTable)
-  ['{E5102A92-D8E5-4EBE-B311-813248EB7D0E}']
+  ['{92A64248-1BF3-424E-B311-4C879E30177A}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -581,7 +609,7 @@ type
 
   { IPERMISOSEX }
   IPERMISOSEX = interface(IDAStronglyTypedDataTable)
-  ['{8E1FEA71-ABDC-4688-A6A7-145E11A8C18D}']
+  ['{C134946D-8CCA-44D0-9C52-7B3B5EB08E49}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -664,7 +692,7 @@ type
 
   { IPERFILES }
   IPERFILES = interface(IDAStronglyTypedDataTable)
-  ['{8A8536E6-95D0-4D6C-9F52-8EF5D46948A9}']
+  ['{4B59467A-22C8-4D7C-A516-BBF3D6C6801A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1000,6 +1028,48 @@ begin
     DataTable.Fields[idx_USUARIOSCHECKSUM].AsVariant := Null;
 end;
 
+function TUSUARIOSDataTableRules.GetID_EMPLEADOValue: Integer;
+begin
+  result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger;
+end;
+
+procedure TUSUARIOSDataTableRules.SetID_EMPLEADOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger := aValue;
+end;
+
+function TUSUARIOSDataTableRules.GetID_EMPLEADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].IsNull;
+end;
+
+procedure TUSUARIOSDataTableRules.SetID_EMPLEADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsVariant := Null;
+end;
+
+function TUSUARIOSDataTableRules.GetID_TIENDAValue: Integer;
+begin
+  result := DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger;
+end;
+
+procedure TUSUARIOSDataTableRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger := aValue;
+end;
+
+function TUSUARIOSDataTableRules.GetID_TIENDAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_USUARIOSID_TIENDA].IsNull;
+end;
+
+procedure TUSUARIOSDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_USUARIOSID_TIENDA].AsVariant := Null;
+end;
+
 
 { TUSUARIOS_EVENTOSDataTableRules }
 constructor TUSUARIOS_EVENTOSDataTableRules.Create(aDataTable: TDADataTable);

Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas

@@ -9,17 +9,17 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOSDelta = '{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}';
+  RID_USUARIOSDelta = '{767AECF0-73DF-483C-BCD3-83A9E425177B}';
-  RID_USUARIOS_EVENTOSDelta = '{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}';
+  RID_USUARIOS_EVENTOSDelta = '{AF20CF49-049C-4541-B01D-CCAAC2CDA912}';
-  RID_USUARIOS_LOGONDelta = '{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}';
+  RID_USUARIOS_LOGONDelta = '{C4702DF5-B82A-469C-A97E-79BAF8012A26}';
-  RID_PERMISOSDelta = '{5B04B65B-14D8-4485-A305-214FDE2E6B38}';
+  RID_PERMISOSDelta = '{97700BF0-18B1-4CB0-8AFD-340B150C6A59}';
-  RID_PERMISOSEXDelta = '{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}';
+  RID_PERMISOSEXDelta = '{2F16E82F-201A-48B6-8898-32C56932E696}';
-  RID_PERFILESDelta = '{E9F8FD20-4505-4698-80CF-F4F641EB05F6}';
+  RID_PERFILESDelta = '{CA9075EF-2994-4366-94B6-7416B3D9936E}';
 
 type
   { IUSUARIOSDelta }
   IUSUARIOSDelta = interface(IUSUARIOS)
-  ['{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}']
+  ['{767AECF0-73DF-483C-BCD3-83A9E425177B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
@@ -33,6 +33,8 @@ type
     function GetOldTIPOValue : String;
     function GetOldID_PERFILValue : Integer;
     function GetOldCHECKSUMValue : String;
+    function GetOldID_EMPLEADOValue : Integer;
+    function GetOldID_TIENDAValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -47,6 +49,8 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property OldID_PERFIL : Integer read GetOldID_PERFILValue;
     property OldCHECKSUM : String read GetOldCHECKSUMValue;
+    property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue;
+    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
   end;
 
   { TUSUARIOSBusinessProcessorRules }
@@ -126,6 +130,18 @@ type
     function GetOldCHECKSUMIsNull: Boolean; virtual;
     procedure SetCHECKSUMValue(const aValue: String); virtual;
     procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPLEADOValue: Integer; virtual;
+    function GetID_EMPLEADOIsNull: Boolean; virtual;
+    function GetOldID_EMPLEADOValue: Integer; virtual;
+    function GetOldID_EMPLEADOIsNull: Boolean; virtual;
+    procedure SetID_EMPLEADOValue(const aValue: Integer); virtual;
+    procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual;
+    function GetID_TIENDAValue: Integer; virtual;
+    function GetID_TIENDAIsNull: Boolean; virtual;
+    function GetOldID_TIENDAValue: Integer; virtual;
+    function GetOldID_TIENDAIsNull: Boolean; virtual;
+    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -176,6 +192,14 @@ type
     property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
     property OldCHECKSUM : String read GetOldCHECKSUMValue;
     property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull;
+    property ID_EMPLEADO : Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
+    property ID_EMPLEADOIsNull : Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
+    property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue;
+    property OldID_EMPLEADOIsNull : Boolean read GetOldID_EMPLEADOIsNull;
+    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -185,7 +209,7 @@ type
 
   { IUSUARIOS_EVENTOSDelta }
   IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
-  ['{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}']
+  ['{AF20CF49-049C-4541-B01D-CCAAC2CDA912}']
     { Property getters and setters }
     function GetOldAPLICACIONValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -316,7 +340,7 @@ type
 
   { IUSUARIOS_LOGONDelta }
   IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
-  ['{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}']
+  ['{C4702DF5-B82A-469C-A97E-79BAF8012A26}']
     { Property getters and setters }
     function GetOldLOGONIDValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -398,7 +422,7 @@ type
 
   { IPERMISOSDelta }
   IPERMISOSDelta = interface(IPERMISOS)
-  ['{5B04B65B-14D8-4485-A305-214FDE2E6B38}']
+  ['{97700BF0-18B1-4CB0-8AFD-340B150C6A59}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -468,7 +492,7 @@ type
 
   { IPERMISOSEXDelta }
   IPERMISOSEXDelta = interface(IPERMISOSEX)
-  ['{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}']
+  ['{2F16E82F-201A-48B6-8898-32C56932E696}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -550,7 +574,7 @@ type
 
   { IPERFILESDelta }
   IPERFILESDelta = interface(IPERFILES)
-  ['{E9F8FD20-4505-4698-80CF-F4F641EB05F6}']
+  ['{CA9075EF-2994-4366-94B6-7416B3D9936E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
@@ -1006,6 +1030,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM] := Null;
 end;
 
+function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO];
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO]);
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO];
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO]);
+end;
+
+procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := aValue;
+end;
+
+procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := Null;
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetID_TIENDAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA];
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA]);
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA];
+end;
+
+function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA]);
+end;
+
+procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := aValue;
+end;
+
+procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := Null;
+end;
+
 
 { TUSUARIOS_EVENTOSBusinessProcessorRules }
 constructor TUSUARIOS_EVENTOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm

@@ -124,13 +124,8 @@ object srvUsuarios: TsrvUsuarios
             Connection = 'IBX'
             ConnectionType = 'Interbase'
             Default = True
-            TargetTable = 'USUARIOS'
+            TargetTable = 'V_USUARIOS'
-            SQL = 
+            StatementType = stAutoSQL
-              'SELECT '#10'    ID, USERNAME, LOGIN, PASS, PASSEXPIRED, BLOQUEADO,'#10' ' +
-              '   EMAIL, USERDAYSSUN, PRIVILEGED, TIPO, ID_PERFIL, CHECKSUM'#10'  F' +
-              'ROM'#10'    USUARIOS'#10'  WHERE TIPO = '#39'U'#39' AND {Where}'#10'  ORDER BY USERN' +
-              'AME'#10
-            StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
@@ -179,6 +174,14 @@ object srvUsuarios: TsrvUsuarios
               item
                 DatasetField = 'CHECKSUM'
                 TableField = 'CHECKSUM'
+              end
+              item
+                DatasetField = 'ID_EMPLEADO'
+                TableField = 'ID_EMPLEADO'
+              end
+              item
+                DatasetField = 'ID_TIENDA'
+                TableField = 'ID_TIENDA'
               end>
           end>
         Name = 'USUARIOS'
@@ -250,6 +253,14 @@ object srvUsuarios: TsrvUsuarios
             DataType = datString
             Size = 250
             DictionaryEntry = 'USUARIOS_CHECKSUM'
+          end
+          item
+            Name = 'ID_EMPLEADO'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_TIENDA'
+            DataType = datInteger
           end>
       end
       item
@@ -517,11 +528,8 @@ object srvUsuarios: TsrvUsuarios
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'USUARIOS'
+            TargetTable = 'V_PERFILES'
-            SQL = 
+            StatementType = stAutoSQL
-              'SELECT '#10'    ID, USERNAME, LOGIN, TIPO'#10'  FROM'#10'    USUARIOS'#10'  WHER' +
-              'E TIPO = '#39'P'#39' AND {Where}'#10'  ORDER BY USERNAME'#10
-            StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'

Source/Base/Base.dproj

@@ -50,20 +50,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@@ -93,8 +79,48 @@
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PluRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PRemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="adortl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
@@ -109,40 +135,7 @@
     </DCCReference>
     <DCCReference Include="Controladores\uControllerBase.pas" />
     <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
-    <DCCReference Include="cxIntl6D11.dcp" />
-    <DCCReference Include="cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dclIndyCore.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
-    <DCCReference Include="IndyCore.dcp" />
-    <DCCReference Include="IndyProtocols.dcp" />
-    <DCCReference Include="IndySystem.dcp" />
-    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="JSDialog100.dcp" />
-    <DCCReference Include="JvCmpD11R.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="JvCtrlsD11R.dcp" />
-    <DCCReference Include="JvDlgsD11R.dcp" />
-    <DCCReference Include="JvMMD11R.dcp" />
-    <DCCReference Include="JvNetD11R.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="pckMD5.dcp" />
-    <DCCReference Include="pckUCDataConnector.dcp" />
-    <DCCReference Include="pckUserControl_RT.dcp" />
-    <DCCReference Include="PluginSDK_D10R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schBase_Intf.pas" />
-    <DCCReference Include="TB2k_D10.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
     <DCCReference Include="uDataModuleBase.pas">
       <Form>DataModuleBase</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -167,13 +160,6 @@
     <DCCReference Include="Utiles\uNumUtils.pas" />
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="VclSmp.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas

@@ -71,6 +71,7 @@ begin
       ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
       ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
       ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
+      ParamByName('ID_USUARIO').Value := aChange.NewValueByName[fld_EmpleadosID_USUARIO];
       Execute;
     end;
   finally
@@ -101,6 +102,7 @@ begin
       ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
       ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
       ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
+      ParamByName('ID_USUARIO').Value := aChange.NewValueByName[fld_EmpleadosID_USUARIO];      
       Execute;
     end;
   finally

Source/Modulos/Contactos/Views/uViewEmpleado.dfm

@@ -8,8 +8,8 @@ inherited frViewEmpleado: TfrViewEmpleado
   inherited dxLayoutControlContacto: TdxLayoutControl
     Width = 642
     Height = 578
-    ExplicitWidth = 640
+    ExplicitWidth = 642
-    ExplicitHeight = 534
+    ExplicitHeight = 578
     inherited PngSpeedButton1: TPngSpeedButton
       Left = 597
       ExplicitLeft = 597
@@ -127,21 +127,29 @@ inherited frViewEmpleado: TfrViewEmpleado
       Left = 399
       TabOrder = 11
       ExplicitLeft = 399
+      ExplicitWidth = 91
+      Width = 91
     end
     inherited eTlfTrabajo: TcxDBTextEdit
       Left = 399
       TabOrder = 10
       ExplicitLeft = 399
+      ExplicitWidth = 127
+      Width = 127
     end
     inherited eTlfMovil: TcxDBTextEdit
       Left = 399
       TabOrder = 12
       ExplicitLeft = 399
+      ExplicitWidth = 155
+      Width = 155
     end
     inherited eFax: TcxDBTextEdit
       Left = 399
       TabOrder = 13
       ExplicitLeft = 399
+      ExplicitWidth = 121
+      Width = 121
     end
     inherited eNombre: TcxDBTextEdit
       Left = 121
@@ -181,6 +189,8 @@ inherited frViewEmpleado: TfrViewEmpleado
     inherited eReferencia: TcxDBTextEdit
       Left = 121
       ExplicitLeft = 121
+      ExplicitWidth = 38
+      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 121
@@ -193,23 +203,38 @@ inherited frViewEmpleado: TfrViewEmpleado
     end
     inherited frViewTienda1: TfrViewTienda
       Left = 304
+      Width = 451
+      Height = 42
       TabOrder = 17
       ExplicitLeft = 304
+      ExplicitWidth = 451
+      ExplicitHeight = 42
       inherited dxLayoutControl1: TdxLayoutControl
+        Width = 451
+        Height = 42
         inherited cbTienda: TcxDBComboBox
           Left = 55
           DataBinding.DataSource = dsContacto
           ExplicitLeft = 55
+          ExplicitWidth = 412
+          Width = 412
         end
         inherited cbVendedor: TcxDBLookupComboBox
           Left = 55
           DataBinding.DataField = 'ID_USUARIO'
           DataBinding.DataSource = dsContacto
+          Properties.ListColumns = <
+            item
+              FieldName = 'USERNAME'
+            end>
           ExplicitLeft = 55
+          ExplicitWidth = 376
+          Width = 376
         end
         inherited dxLayoutControl1Group_Root: TdxLayoutGroup
           inherited dxLayoutControl1Item2: TdxLayoutItem
             Caption = 'Usuario:'
+            Visible = True
           end
         end
       end

Source/Modulos/Contactos/Views/uViewEmpleado.pas

@@ -85,7 +85,8 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FGrupoController := TGruposEmpleadoController.Create;
-//  AppFactuGES.UsuariosController.
+  frViewTienda1.dsVendedores.DataTable := AppFactuGES.UsuariosController.BuscarTodosUsuarios.DataTable;
+  frViewTienda1.dsVendedores.DataTable.Active := True;
 end;
 
 procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject);

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -50,7 +50,7 @@ type
 
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
-    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);
+    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
   end;
 
   TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController)
@@ -111,7 +111,7 @@ type
 
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
-    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);    
+    procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
   end;
 
 implementation
@@ -631,7 +631,7 @@ begin
   FDetallesController := Value;
 end;
 
-procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);
+procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
 var
   EnEdicion: Boolean;
 begin
@@ -642,11 +642,19 @@ begin
        APresupuesto.DataTable.Edit;
 
     if ID_Tienda < 0 then
-       APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null
+    begin
+       APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null;
+       APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteTIENDA).AsVariant := Null
+    end
     else
+    begin
        APresupuesto.ID_TIENDA := ID_Tienda;
-       
+       APresupuesto.TIENDA := Tienda; 
+    end;
+
+APresupuesto.DataTable.DisableControls;
     APresupuesto.DataTable.Post;
+APresupuesto.DataTable.EnableControls;    
 
     if EnEdicion then
        APresupuesto.DataTable.Edit;

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj

@@ -43,6 +43,12 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -52,14 +58,14 @@
     <DelphiCompile Include="PresupuestosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\adortl.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Base.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Contactos_model.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dbrtl.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dsnap.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\rtl.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcl.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
     <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
     <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -89,8 +89,8 @@ type
 implementation
 
 uses
-  SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
+  SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, uFactuGES_App,
-  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
+  uDataTableUtils, DateUtils, uDateUtils, DB, uBizEmpresasTiendas;
 
 { TBizPresupuestoCliente }
 
@@ -200,8 +200,9 @@ begin
 //  INCIDENCIAS := NIL;
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
-  
+
-  ID_TIENDA := CTE_ID_TODAS;
+  ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
+  ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
   TIENDA := CTE_TODAS;
 end;
 

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -14,7 +14,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
-    ExplicitHeight = 629
     DesignSize = (
       985
       473)
@@ -303,7 +302,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
         ExplicitHeight = 46
         inherited cbTienda: TcxDBComboBox
           DataBinding.DataSource = DADataSource
-          Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
+          Properties.OnValidate = frViewTienda1cbTiendaPropertiesValidate
           ExplicitWidth = 412
           Width = 412
         end

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas

@@ -73,6 +73,8 @@ type
     procedure bFormasPagoClick(Sender: TObject);
     procedure frViewClientePresupuestoButton1Click(Sender: TObject);
     procedure frViewClientePresupuestoButton2Click(Sender: TObject);
+    procedure frViewTienda1cbTiendaPropertiesValidate(Sender: TObject;
+      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
     procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
   protected
     FPresupuesto : IBizPresupuestoCliente;
@@ -102,7 +104,7 @@ implementation
 { TfrViewPresupuestoCliente }
 
 uses
-  uClientesController, uBizDireccionesContacto;
+  uClientesController, uBizDireccionesContacto, uFactuGES_App;
 
 
 procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
@@ -193,13 +195,28 @@ begin
   frViewClientePresupuesto.actAnadirContacto.Execute;
 end;
 
-procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
+procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesChange(
+  Sender: TObject);
+begin
+  inherited;
+{
+  if assigned(Presupuesto)
+  and assigned(Controller) then
+  begin
+     Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda);
+  end;
+}
+end;
+
+procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesValidate(
+  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+  var Error: Boolean);
 begin
   inherited;
   if assigned(Presupuesto)
   and assigned(Controller) then
   begin
-     Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda);
+     Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda, frViewTienda1.cbTienda.Text);
   end;
 end;
 
@@ -235,6 +252,9 @@ begin
     dsFormaPago.DataTable.Active := True;
 
     frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
+//REPASAR
+    if FPresupuesto.EsNuevo then
+       frViewTienda1.SetIDTienda(FPresupuesto.ID_TIENDA);
   end
   else begin
     DADataSource.DataTable := NIL;

Source/Servidor/FactuGES_Server.dpr

@@ -111,10 +111,10 @@ uses
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
-  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
-  schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
+  schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "martes, 15 de enero de 2008 17:58\0"
+              VALUE "CompileDate", "martes, 15 de enero de 2008 19:32\0"
          END
     END
     BLOCK "VarFileInfo"