Repaso a contactos:

* Títulos informativos en las ventanas (lista de clientes, nuevo cliente, etc...)
* Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@130 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/FactuGES.dproj

@@ -58,18 +58,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -86,9 +86,8 @@ begin
     Result.Edit;
     with Result do
     begin
-      // OJO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111
+      ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
-      //ID_EMPRESA := dmUsuarios.IDEmpresaActual;
+      USUARIO := AppFactuGES.UsuarioActivo.UserName;
-      //USUARIO := dmUsuarios.LoginInfo.Usuario;
     end;
 
     Result.Post;

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -78,54 +78,65 @@ inherited fEditorClientes: TfEditorClientes
     ParentFont = False
     TabOrder = 3
     ReadOnly = False
-    ExplicitLeft = 229
+    ExplicitTop = 102
-    ExplicitTop = 61
+    ExplicitWidth = 786
+    ExplicitHeight = 398
     inherited cxGrid: TcxGrid
       Width = 786
       Height = 270
+      ExplicitWidth = 786
+      ExplicitHeight = 270
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.FooterSummaryItems = <
           item
             Format = '0 clientes'
             Kind = skCount
-            Column = frViewClientes1.cxGridViewNIF_CIF
+            Column = frViewClientes1.cxGridViewTiendaWeb
           end>
       end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
       Width = 786
+      ExplicitWidth = 786
       inherited TBXDockablePanel1: TTBXDockablePanel
+        ExplicitWidth = 786
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 786
+          ExplicitWidth = 786
           inherited txtFiltroTodo: TcxTextEdit
-            ExplicitWidth = 273
+            ExplicitWidth = 457
-            Width = 273
+            Width = 457
           end
           inherited edtFechaIniFiltro: TcxDateEdit
-            ExplicitWidth = 121
+            ExplicitWidth = 240
-            Width = 121
+            Width = 240
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 483
+            Left = 564
-            ExplicitLeft = 483
+            ExplicitLeft = 564
             ExplicitWidth = 121
             Width = 121
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
           Width = 786
+          ExplicitWidth = 786
           inherited tbxBotones: TTBXToolbar
             Width = 776
+            ExplicitWidth = 776
           end
         end
       end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 372
+      ExplicitTop = 372
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 786
+        ExplicitWidth = 786
         inherited TBXToolbar1: TTBXToolbar
           Width = 776
+          ExplicitWidth = 776
         end
       end
     end

Source/Modulos/Contactos/Views/uEditorClientes.pas

@@ -35,7 +35,7 @@ implementation
 
 uses
   uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
-  uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils,
+  uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
   uGruposClienteController, uBizGruposCliente, uClientesController;
 
 {$R *.dfm}
@@ -62,7 +62,7 @@ end;
 constructor TfEditorClientes.Create(AOwner: TComponent);
 begin
   inherited;
-  ViewGrid := frViewClientes1; //CreateView(TfrViewClientes) as IViewContactos;
+  ViewGrid := frViewClientes1;
 end;
 
 procedure TfEditorClientes.EliminarInterno;
@@ -159,8 +159,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-  // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+  FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-//  FTitulo := 'Lista de clientes - ' + dmUsuarios.EmpresaActual.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Modulos/Contactos/Views/uEditorContacto.pas

@@ -53,7 +53,8 @@ implementation
 {$R *.dfm}
 
 uses
-  uCustomEditor, uDataModuleContactos, uDMBase, uDataModuleUsuarios;
+  uFactuGES_App, uCustomEditor, uDataModuleContactos,
+  uDMBase, uDataModuleUsuarios;
 
 {
 ******************************* TfEditorContacto *******************************
@@ -102,8 +103,7 @@ begin
 
   inherited PonerTitulos(FTitulo);
 
-// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+  Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
-//  Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
 end;
 
 procedure TfEditorContacto.SetContacto(const Value: IBizContacto);

Source/Modulos/Contactos/Views/uEditorContactos.dfm

@@ -2,7 +2,6 @@ inherited fEditorContactos: TfEditorContactos
   Left = 285
   Top = 448
   Caption = 'Lista de contactos'
-  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13

Source/Modulos/Contactos/Views/uEditorContactos.pas

@@ -45,9 +45,9 @@ type
 implementation
 
 uses
-  uCustomEditor, uDataModuleContactos,
+  uCustomEditor, uDataModuleContactos, uFactuGES_App,
-  uEditorDBBase, uFactuGES_App, 
+  uEditorDBBase, cxGrid, cxGridCustomTableView,
-  cxGrid, cxGridCustomTableView, uDBSelectionListUtils;
+  uDBSelectionListUtils;
 
 {$R *.dfm}
 
@@ -101,9 +101,8 @@ var
   FTitulo : String;
 begin
   FTitulo := ATitulo;
-  // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+  if FTitulo = '' then
-{  if FTitulo = '' then
+    FTitulo := 'Lista de contactos - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-    FTitulo := 'Lista de contactos - ' + dmUsuarios.EmpresaActual.NOMBRE;}
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Modulos/Contactos/Views/uEditorEmpleados.dfm

@@ -1,6 +1,5 @@
 inherited fEditorEmpleados: TfEditorEmpleados
   Caption = 'fEditorEmpleados'
-  ExplicitHeight = 478
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Contactos/Views/uEditorEmpleados.pas

@@ -33,7 +33,7 @@ implementation
 
 uses
   uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
-  uEmpleadosController, uDBSelectionListUtils;
+  uEmpleadosController, uDBSelectionListUtils, uFactuGES_App;
 
 {$R *.dfm}
 
@@ -139,8 +139,7 @@ procedure TfEditorEmpleados.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-// ojooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
+  FTitulo := 'Lista de empleados - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-//  FTitulo := 'Lista de empleados - ' + dmUsuarios.EmpresaActual.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Modulos/Contactos/Views/uEditorProveedores.dfm

@@ -1,7 +1,5 @@
 inherited fEditorProveedores: TfEditorProveedores
   Caption = 'fEditorProveedores'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Contactos/Views/uEditorProveedores.pas

@@ -32,7 +32,7 @@ implementation
 
 uses
   uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
-  uDBSelectionListUtils, uProveedoresController;
+  uDBSelectionListUtils, uProveedoresController, uFactuGES_App;
 
 {$R *.dfm}
 
@@ -138,8 +138,7 @@ procedure TfEditorProveedores.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-//  OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+  FTitulo := 'Lista de proveedores - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-//  FTitulo := 'Lista de proveedores - ' + dmUsuarios.EmpresaActual.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;