Repaso a funcionamiento en multiempresa.

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

Source/Cliente/uPantallaPrincipal.dfm

@@ -85,7 +85,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
       NavPanelHotTrackFont.Style = []
       SmallImages = ModulesSmallImageList
       OnChange = JvNavigationPaneChange
-      ExplicitTop = 4
       object pagInicio: TJvNavPanelPage
         Left = 0
         Top = 0
@@ -265,23 +264,23 @@ object fPantallaPrincipal: TfPantallaPrincipal
       OnExecute = actAcercaExecute
     end
     object actMenuCompras: TAction
-      Category = 'Compras'
+      Category = 'Menus'
       Caption = 'Compras'
       OnExecute = actMenuComprasExecute
       OnUpdate = actMenuComprasUpdate
     end
-    object actLogisticaMenu: TAction
+    object actMenuLogistica: TAction
-      Category = 'Log'#237'stica'
+      Category = 'Menus'
       Caption = 'Log'#237'stica'
       Enabled = False
       Visible = False
-      OnExecute = actLogisticaMenuExecute
+      OnExecute = actMenuLogisticaExecute
       OnUpdate = actMenuComprasUpdate
     end
-    object actVentasMenu: TAction
+    object actMenuVentas: TAction
-      Category = 'Ventas'
+      Category = 'Menus'
       Caption = 'Ventas'
-      OnExecute = actVentasMenuExecute
+      OnExecute = actMenuVentasExecute
       OnUpdate = actMenuComprasUpdate
     end
     object actVerPanel: TAction
@@ -301,6 +300,18 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Caption = 'Configurar FactuGES...'
       OnExecute = actConfigurarExecute
     end
+    object actMenuContabilidad: TAction
+      Category = 'Menus'
+      Caption = 'Contabilidad'
+      OnExecute = actMenuContabilidadExecute
+      OnUpdate = actMenuComprasUpdate
+    end
+    object actMenuEmpresa: TAction
+      Category = 'Menus'
+      Caption = 'Empresa'
+      OnExecute = actMenuEmpresaExecute
+      OnUpdate = actMenuComprasUpdate
+    end
   end
   object ModulesSmallImageList: TPngImageList
     PngImages = <
@@ -625,7 +636,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     end
     object Empresa1_OLD: TMenuItem
       Tag = 1000
-      Caption = 'Empresa'
+      Action = actMenuEmpresa
       object Listadeempresas1_OLD: TMenuItem
         Caption = 'Lista de empresas'
         Visible = False
@@ -666,7 +677,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     end
     object Ventas1: TMenuItem
       Tag = 4000
-      Action = actVentasMenu
+      Action = actMenuVentas
       object N3: TMenuItem
         Tag = 200
         Caption = '-'
@@ -678,7 +689,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     end
     object Logistica1: TMenuItem
       Tag = 5000
-      Action = actLogisticaMenu
+      Action = actMenuLogistica
       object N7: TMenuItem
         Tag = 200
         Caption = '-'
@@ -690,7 +701,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     end
     object Contabilidad1: TMenuItem
       Tag = 6000
-      Caption = 'Contabilidad'
+      Action = actMenuContabilidad
     end
   end
   object JvXPMenuItemPainter1: TJvXPMenuItemPainter

Source/Cliente/uPantallaPrincipal.pas

@@ -63,8 +63,8 @@ type
     Compras1: TMenuItem;
     Ventas1: TMenuItem;
     actMenuCompras: TAction;
-    actLogisticaMenu: TAction;
+    actMenuLogistica: TAction;
-    actVentasMenu: TAction;
+    actMenuVentas: TAction;
     Logistica1: TMenuItem;
     pagInicio: TJvNavPanelPage;
     Panel1: TPanel;
@@ -91,6 +91,8 @@ type
     Contabilidad1: TMenuItem;
     actConfigurar: TAction;
     ConfigurarFactuGES1: TMenuItem;
+    actMenuContabilidad: TAction;
+    actMenuEmpresa: TAction;
     procedure FormCreate(Sender: TObject);
     procedure Salir1Click(Sender: TObject);
     procedure actSalirExecute(Sender: TObject);
@@ -102,8 +104,8 @@ type
     procedure ApplicationEventsException(Sender: TObject; E: Exception);
     procedure actMenuComprasExecute(Sender: TObject);
     procedure actMenuComprasUpdate(Sender: TObject);
-    procedure actLogisticaMenuExecute(Sender: TObject);
+    procedure actMenuLogisticaExecute(Sender: TObject);
-    procedure actVentasMenuExecute(Sender: TObject);
+    procedure actMenuVentasExecute(Sender: TObject);
     procedure actActualizacionesExecute(Sender: TObject);
     procedure actVerPanelUpdate(Sender: TObject);
     procedure actVerPanelExecute(Sender: TObject);
@@ -116,6 +118,8 @@ type
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure actConfigurarExecute(Sender: TObject);
+    procedure actMenuContabilidadExecute(Sender: TObject);
+    procedure actMenuEmpresaExecute(Sender: TObject);
   private
     FContenido : TCustomEditor;
     procedure ShowEmbedded(AEditor : ICustomEditor);
@@ -129,6 +133,7 @@ type
   protected
     function GetWorkPanel : TWinControl;
   public
+    procedure CreateParams(var Params: TCreateParams);
     function IsShortcut(var Message: TWMKey): Boolean; override;
     procedure OnWorkPanelChanged(AEditor : ICustomEditor);
     constructor Create(AOwner: TComponent); override;
@@ -238,7 +243,7 @@ begin
   Close;
 end;
 
-procedure TfPantallaPrincipal.actVentasMenuExecute(Sender: TObject);
+procedure TfPantallaPrincipal.actMenuVentasExecute(Sender: TObject);
 begin
   //
 end;
@@ -363,7 +368,17 @@ begin
   (Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva);
 end;
 
-procedure TfPantallaPrincipal.actLogisticaMenuExecute(Sender: TObject);
+procedure TfPantallaPrincipal.actMenuContabilidadExecute(Sender: TObject);
+begin
+  //
+end;
+
+procedure TfPantallaPrincipal.actMenuEmpresaExecute(Sender: TObject);
+begin
+  //
+end;
+
+procedure TfPantallaPrincipal.actMenuLogisticaExecute(Sender: TObject);
 begin
   //
 end;
@@ -494,6 +509,13 @@ begin
   end;
 end;
 
+procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
+begin
+  { ¡¡¡No quitar este procedimiento aunque no haga nada!!!!!
+    Si se quita, esta pantalla principal se queda en el fondo
+    después de desaparecer la pantalla de login. }
+  inherited CreateParams(Params);
+end;
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
 {  fActualizacion := TfActualizacion.Create(Self);

Source/Modulos/Contactos/Plugin/uPluginContactos.dfm

@@ -323,11 +323,6 @@ object PluginContactos: TPluginContactos
         Tag = 102
         Action = actGruposCliente
       end
-      object Categoriasdeempleado1: TMenuItem
-        Tag = 103
-        Caption = 'Categorias de empleado'
-        ImageIndex = 4
-      end
       object Procedenciasdecliente1: TMenuItem
         Tag = 104
         Action = actProcedenciasCliente

Source/Modulos/Contactos/Views/uViewVendedor.dfm

@@ -25,6 +25,10 @@ inherited frViewVendedor: TfrViewVendedor
     inherited eCalle: TcxDBTextEdit
       Left = 121
       Top = 193
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 6
       ExplicitLeft = 121
       ExplicitTop = 193
@@ -32,23 +36,47 @@ inherited frViewVendedor: TfrViewVendedor
       Width = 152
     end
     inherited cbProvincia: TcxDBComboBox
+      Left = 121
+      Top = 220
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 7
+      ExplicitLeft = 121
+      ExplicitTop = 220
       ExplicitWidth = 144
       Width = 144
     end
     inherited cbPoblacion: TcxDBComboBox
+      Left = 121
+      Top = 247
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 9
+      ExplicitLeft = 121
+      ExplicitTop = 247
       ExplicitWidth = 236
       Width = 236
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 301
+      Left = 282
       Top = 220
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 8
-      ExplicitLeft = 301
+      ExplicitLeft = 282
       ExplicitTop = 220
     end
     inherited eObservaciones: TcxDBMemo
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 18
       ExplicitWidth = 596
       ExplicitHeight = 151
@@ -56,69 +84,70 @@ inherited frViewVendedor: TfrViewVendedor
       Width = 596
     end
     inherited eTlfParticular: TcxDBTextEdit
-      Left = 482
+      Left = 463
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 11
-      ExplicitLeft = 482
+      ExplicitLeft = 463
       ExplicitWidth = 91
       Width = 91
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 482
+      Left = 463
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 10
-      ExplicitLeft = 482
+      ExplicitLeft = 463
       ExplicitWidth = 127
       Width = 127
     end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 482
+      Left = 463
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 12
-      ExplicitLeft = 482
+      ExplicitLeft = 463
       ExplicitWidth = 155
       Width = 155
     end
     inherited eFax: TcxDBTextEdit
-      Left = 482
+      Left = 463
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 13
-      ExplicitLeft = 482
+      ExplicitLeft = 463
       ExplicitWidth = 121
       Width = 121
     end
     inherited eNombre: TcxDBTextEdit
       Left = 121
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       ExplicitLeft = 121
       ExplicitWidth = 263
       Width = 263
     end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 226
+      Left = 216
-      ExplicitLeft = 226
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 216
       ExplicitWidth = 100
       Width = 100
     end
-    inherited eMailTrabajo: TcxDBHyperLinkEdit
+    object cbUsuario: TcxComboBox [14]
-      Left = 482
-      Properties.Prefix = 'mailto:'
-      TabOrder = 14
-      ExplicitLeft = 482
-      ExplicitWidth = 129
-      Width = 129
-    end
-    inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 482
-      Properties.Prefix = 'mailto:'
-      TabOrder = 15
-      ExplicitLeft = 482
-      ExplicitWidth = 165
-      Width = 165
-    end
-    inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 482
-      TabOrder = 16
-      ExplicitLeft = 482
-      ExplicitWidth = 165
-      Width = 165
-    end
-    object cbUsuario: TcxComboBox [17]
       Left = 121
       Top = 82
       Anchors = [akLeft, akTop, akRight]
@@ -130,18 +159,22 @@ inherited frViewVendedor: TfrViewVendedor
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
       Width = 201
     end
-    object edtComision: TcxDBSpinEdit [18]
+    object edtComision: TcxDBSpinEdit [15]
       Left = 121
       Top = 109
       AutoSize = False
@@ -161,18 +194,61 @@ inherited frViewVendedor: TfrViewVendedor
       Style.Font.Style = []
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
       Style.TextColor = clWindowText
       Style.ButtonStyle = bts3D
       Style.IsFontAssigned = True
       StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 4
       Height = 21
       Width = 65
     end
+    inherited eMailTrabajo: TcxDBHyperLinkEdit
+      Left = 463
+      Properties.Prefix = 'mailto:'
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 14
+      ExplicitLeft = 463
+      ExplicitWidth = 129
+      Width = 129
+    end
+    inherited eMailParticular: TcxDBHyperLinkEdit
+      Left = 463
+      Properties.Prefix = 'mailto:'
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 15
+      ExplicitLeft = 463
+      ExplicitWidth = 165
+      Width = 165
+    end
+    inherited ePaginaWeb: TcxDBHyperLinkEdit
+      Left = 463
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 16
+      ExplicitLeft = 463
+      ExplicitWidth = 165
+      Width = 165
+    end
     inherited eReferencia: TcxDBTextEdit
       Left = 121
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       ExplicitLeft = 121
       ExplicitWidth = 38
       Width = 38
@@ -180,6 +256,10 @@ inherited frViewVendedor: TfrViewVendedor
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 121
       Top = 166
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 5
       ExplicitLeft = 121
       ExplicitTop = 166
@@ -187,15 +267,19 @@ inherited frViewVendedor: TfrViewVendedor
       Width = 152
     end
     inherited frViewTienda1: TfrViewTienda
-      Left = 387
+      Left = 368
       Width = 264
       TabOrder = 17
-      ExplicitLeft = 387
+      ExplicitLeft = 368
       ExplicitWidth = 264
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 264
         ExplicitWidth = 264
         inherited cbTienda: TcxComboBox
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 376
           Width = 376
         end
@@ -244,7 +328,7 @@ inherited frViewVendedor: TfrViewVendedor
           end
           inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
             AlignVert = avClient
-            Caption = 'El empleado pertenece a la tienda'
+            Caption = 'El vendedor pertenece a la tienda'
           end
         end
       end

Source/Modulos/Referencias/Controller/Referencias_controller.dproj

@@ -40,36 +40,17 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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><Source><Source Name="MainSource">Referencias_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></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">False</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><Source><Source Name="MainSource">Referencias_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Referencias_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicaReferencias_data.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaReferencias_data.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasemReferencias_data.dcp" />
+    <DCCReference Include="..\Referencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaseReferencias_data.dcp" />
+    <DCCReference Include="..\Referencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Application_BaReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Application_BasReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Application_BReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Application_Referencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatioReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatiReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AppliReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AppReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AReferencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Referencias_data.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Referencias_model.dcp" />
     <DCCReference Include="uReferenciasController.pas" />
     <DCCReference Include="View\uIEditorReferencias.pas" />
   </ItemGroup>

Source/Modulos/Referencias/Controller/uReferenciasController.pas

@@ -22,7 +22,7 @@ type
 
 //    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
-
+    procedure FiltrarEmpresa(AReferencias: IBizReferencia);
     function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
     procedure AsignarDataModule;
 
@@ -40,7 +40,7 @@ implementation
 
 uses
   cxControls, DB, uEditorRegistryUtils, schReferenciasClient_Intf,
-  uIEditorReferencias, uDataModuleReferencias,
+  uIEditorReferencias, uDataModuleReferencias, uFactuGES_App,
   uDAInterfaces, uDataTableUtils, uDialogUtils,
   uDateUtils, uROTypes, DateUtils, Controls, Windows;
 
@@ -54,6 +54,28 @@ end;
 function TReferenciasController.BuscarTodos: IBizReferencia;
 begin
   Result := FDataModule.GetItems;
+  FiltrarEmpresa(Result);
+end;
+
+procedure TReferenciasController.FiltrarEmpresa(AReferencias: IBizReferencia);
+var
+  Condicion: TDAWhereExpression;
+begin
+  if AReferencias.DataTable.Active then
+    AReferencias.DataTable.Active := False;
+
+  // Filtrar las facturas actuales por empresa
+  with AReferencias.DataTable.DynamicWhere do
+  begin
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA),
+      NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+  end;
 end;
 
 constructor TReferenciasController.Create;

Source/Modulos/Referencias/Views/uEditorReferencias.dfm

@@ -67,7 +67,6 @@ object fEditorReferencias: TfEditorReferencias
           DataController.Summary.DefaultGroupSummaryItems = <>
           DataController.Summary.FooterSummaryItems = <>
           DataController.Summary.SummaryGroups = <>
-          OptionsBehavior.AlwaysShowEditor = True
           OptionsBehavior.CellHints = True
           OptionsBehavior.FocusCellOnTab = True
           OptionsBehavior.GoToNextCellOnEnter = True

Source/Modulos/Referencias/Views/uEditorReferencias.pas

@@ -164,11 +164,7 @@ begin
      FReferencias.DataTable.Active := true;
 
   ListaReferencias.SetFocus;
-{
+  ListaReferenciasView.DataController.GotoFirst;
-  EnableScrollBar(ListaReferencias.Handle,SB_HORZ,ESB_DISABLE_BOTH);
-  ShowScrollBar(ListaReferencias.Handle,SB_HORZ,false);
-  EnableScrollBar(ListaReferencias.Handle,SB_VERT,ESB_DISABLE_BOTH);
-}  
 end;
 
 end.