Cambio en base para que el stylo de los informes base este en dmbase y se cambie el nombre de empresa de todos los informes cada vez que cambiemos de empresa

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

Source/ApplicationBase/Usuarios/Views/uViewPerfilesUsuario.dfm

@@ -66,10 +66,5 @@ inherited frViewPerfilesUsuario: TfrViewPerfilesUsuario
   inherited cxViewGridPopupMenu: TcxGridPopupMenu
     Left = 248
     Top = 160
-  end
+  end  
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/ApplicationBase/Usuarios/Views/uViewUsuarios.dfm

@@ -107,9 +107,4 @@ inherited frViewUsuarios: TfrViewUsuarios
     Left = 248
     Top = 160
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/ApplicationBase/uFactuGES_App.pas

@@ -142,7 +142,7 @@ implementation
 
 uses
   Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
-  uEmpresasViewRegister, uAppInfoUtils;
+  uEmpresasViewRegister, uAppInfoUtils, uDMBase;
 
 procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer);
 var
@@ -155,6 +155,9 @@ begin
     if not Aux.IsEmpty then
       FEmpresaActiva := Aux;
   end;
+
+  if Assigned(FEmpresaActiva) then
+     dmBase.dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaActiva.NOMBRE);
 end;
 
 procedure TAppFactuGES.CargarModulos;

Source/Base/uDMBase.dfm

@@ -2,8 +2,8 @@ object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
   OnDestroy = DataModuleDestroy
-  Height = 153
+  Height = 177
-  Width = 270
+  Width = 463
   object SmallImages: TPngImageList
     PngImages = <
       item
@@ -1747,4 +1747,40 @@ object dmBase: TdmBase
     Left = 184
     Top = 16
   end
+  object dxPrintStyleManager1: TdxPrintStyleManager
+    CurrentStyle = dxPrintStyleManager1Style1
+    Version = 0
+    Left = 280
+    Top = 16
+    object dxPrintStyleManager1Style1: TdxPSPrintStyle
+      PrinterPage.DMPaper = 9
+      PrinterPage.Footer = 6350
+      PrinterPage.Header = 6350
+      PrinterPage.Margins.Bottom = 20000
+      PrinterPage.Margins.Left = 12700
+      PrinterPage.Margins.Right = 12700
+      PrinterPage.Margins.Top = 20000
+      PrinterPage.PageFooter.CenterTitle.Strings = (
+        '[Date & Time Printed]')
+      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
+      PrinterPage.PageFooter.Font.Color = clBlack
+      PrinterPage.PageFooter.Font.Height = -12
+      PrinterPage.PageFooter.Font.Name = 'Tahoma'
+      PrinterPage.PageFooter.Font.Style = []
+      PrinterPage.PageFooter.RightTitle.Strings = (
+        '[Page #] de [Total Pages]')
+      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
+      PrinterPage.PageHeader.Font.Color = clBlack
+      PrinterPage.PageHeader.Font.Height = -15
+      PrinterPage.PageHeader.Font.Name = 'Tahoma'
+      PrinterPage.PageHeader.Font.Style = []
+      PrinterPage.PageHeader.LeftTitle.Strings = (
+        '')
+      PrinterPage.PageSize.X = 210000
+      PrinterPage.PageSize.Y = 297000
+      PrinterPage._dxMeasurementUnits_ = 0
+      PrinterPage._dxLastMU_ = 2
+      BuiltInStyle = True
+    end
+  end
 end

Source/Base/uDMBase.pas

@@ -6,7 +6,8 @@ uses
   Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
   TBXOffice2003Theme, Classes, ImgList,
   DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
-  JvComponentBase, cxIntlPrintSys3, JvLogFile;
+  JvComponentBase, cxIntlPrintSys3, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
+  dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore;
 
 type
   TdmBase = class(TDataModule)
@@ -16,6 +17,8 @@ type
     JvLogFile: TJvLogFile;
     cxIntl: TcxIntl;
     cxIntlPrintSys3: TcxIntlPrintSys3;
+    dxPrintStyleManager1: TdxPrintStyleManager;
+    dxPrintStyleManager1Style1: TdxPSPrintStyle;
     procedure DAClientDataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
@@ -135,6 +138,8 @@ end;
 
 procedure TdmBase.EscribirLog(const AMensaje: String);
 begin
+//  dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaInformesBase);
+
   FEscribirLog.Acquire;
   try
     JvLogFile.Add(AMensaje);

Source/GUIBase/uViewGrid.dfm

@@ -172,13 +172,15 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.Margins.Left = 12700
       PrinterPage.Margins.Right = 12700
       PrinterPage.Margins.Top = 12700
+      PrinterPage.PageFooter.LeftTitle.Strings = (
+        'fssdfsdfdsfsd')
       PrinterPage.PageSize.X = 210000
       PrinterPage.PageSize.Y = 297000
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39601.447752534720000000
+      ReportDocument.CreationDate = 39601.798944490740000000
-      StyleManager = dxPrintStyleManager1
+      StyleManager = dmBase.dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
       OptionsExpanding.ExpandGroupRows = True
       OptionsExpanding.ExpandMasterRows = True
@@ -312,44 +314,6 @@ inherited frViewGrid: TfrViewGrid
       TextColor = clBlack
     end
   end
-  object dxPrintStyleManager1: TdxPrintStyleManager
-    CurrentStyle = dxPrintStyleManager1Style1
-    Version = 0
-    Left = 336
-    Top = 160
-    object dxPrintStyleManager1Style1: TdxPSPrintStyle
-      PrinterPage.DMPaper = 9
-      PrinterPage.Footer = 6350
-      PrinterPage.Header = 6350
-      PrinterPage.Margins.Bottom = 20000
-      PrinterPage.Margins.Left = 12700
-      PrinterPage.Margins.Right = 12700
-      PrinterPage.Margins.Top = 20000
-      PrinterPage.PageFooter.CenterTitle.Strings = (
-        '[Date & Time Printed]')
-      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
-      PrinterPage.PageFooter.Font.Color = clBlack
-      PrinterPage.PageFooter.Font.Height = -12
-      PrinterPage.PageFooter.Font.Name = 'Tahoma'
-      PrinterPage.PageFooter.Font.Style = []
-      PrinterPage.PageFooter.LeftTitle.Strings = (
-        'LUIS LEON REPRESENTACIONES S.L.')
-      PrinterPage.PageFooter.RightTitle.Strings = (
-        '[Page #] de [Total Pages]')
-      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
-      PrinterPage.PageHeader.Font.Color = clBlack
-      PrinterPage.PageHeader.Font.Height = -15
-      PrinterPage.PageHeader.Font.Name = 'Tahoma'
-      PrinterPage.PageHeader.Font.Style = []
-      PrinterPage.PageHeader.LeftTitle.Strings = (
-        '')
-      PrinterPage.PageSize.X = 210000
-      PrinterPage.PageSize.Y = 297000
-      PrinterPage._dxMeasurementUnits_ = 0
-      PrinterPage._dxLastMU_ = 2
-      BuiltInStyle = True
-    end
-  end
   object GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/GUIBase/uViewGrid.pas

@@ -57,8 +57,6 @@ type
     cxStyleGroupInforme: TcxStyle;
     cxStyleHeaderInforme: TcxStyle;
     cxStyleSelectionInforme: TcxStyle;
-    dxPrintStyleManager1: TdxPrintStyleManager;
-    dxPrintStyleManager1Style1: TdxPSPrintStyle;
     cxStyle_NORMAL_PAR: TcxStyle;
     cxStyle_NORMAL_IMPAR: TcxStyle;
     cxStyle_ORDENADO_PAR: TcxStyle;

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -308,11 +308,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       OnUpdate = actAlmacenesUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm

@@ -46,11 +46,6 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.dfm

@@ -33,9 +33,4 @@ inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranes
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm

@@ -37,11 +37,6 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm

@@ -234,11 +234,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
       OnUpdate = actAlmacenUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm

@@ -45,9 +45,4 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm

@@ -142,11 +142,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     inherited actNuevo: TAction

Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm

@@ -106,11 +106,6 @@ inherited frViewAlmacenes: TfrViewAlmacenes
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Articulos/Views/uViewArticulos.dfm

@@ -262,11 +262,6 @@ inherited frViewArticulos: TfrViewArticulos
       OnUpdate = actFabricanteUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -163,11 +163,6 @@ inherited fEditorClientes: TfEditorClientes
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 56

Source/Modulos/Contactos/Views/uEditorContactos.pas

@@ -80,10 +80,7 @@ end;
 
 procedure TfEditorContactos.ImprimirInterno;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
-}  
 end;
 
 procedure TfEditorContactos.ModificarInterno;
@@ -111,10 +108,7 @@ end;
 
 procedure TfEditorContactos.PrevisualizarInterno;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
-}  
 end;
 
 procedure TfEditorContactos.SetContactos(const Value: IBizContacto);

Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm

@@ -219,11 +219,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [6]
     Left = 112

Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm

@@ -221,11 +221,6 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [6]
     Left = 112

Source/Modulos/Contactos/Views/uEditorEmpleados.dfm

@@ -162,11 +162,6 @@ inherited fEditorEmpleados: TfEditorEmpleados
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 72

Source/Modulos/Contactos/Views/uEditorProveedores.dfm

@@ -142,11 +142,6 @@ inherited fEditorProveedores: TfEditorProveedores
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     inherited actNuevo: TAction

Source/Modulos/Contactos/Views/uViewClientes.dfm

@@ -128,11 +128,6 @@ inherited frViewClientes: TfrViewClientes
   inherited cxStyleRepository1: TcxStyleRepository
     Left = 64
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Contactos/Views/uViewContactos.dfm

@@ -170,11 +170,6 @@ inherited frViewContactos: TfrViewContactos
     Left = 336
     Top = 304
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     Left = 264
     Top = 304

Source/Modulos/Contactos/Views/uViewEmpleados.dfm

@@ -61,11 +61,6 @@ inherited frViewEmpleados: TfrViewEmpleados
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Contactos/Views/uViewProveedores.dfm

@@ -111,11 +111,6 @@ inherited frViewProveedores: TfrViewProveedores
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm

@@ -224,11 +224,6 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [8]
     Left = 112

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm

@@ -191,11 +191,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item

Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm

@@ -39,9 +39,4 @@ inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCl
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -246,11 +246,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       OnUpdate = actProvinciaUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   object PngImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm

@@ -190,11 +190,6 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item

Source/Modulos/Facturas de proveedor/Views/uViewElegirArticulosFacturasProveedor.dfm

@@ -45,9 +45,4 @@ inherited frViewElegirArticulosFacturasProveedor: TfrViewElegirArticulosFacturas
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm

@@ -258,11 +258,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
       OnUpdate = actProvinciaUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm

@@ -263,11 +263,6 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 88

Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm

@@ -135,11 +135,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
       TextColor = clGreen
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm

@@ -212,11 +212,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 96

Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm

@@ -223,11 +223,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [9]
     Left = 112

Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm

@@ -223,11 +223,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   object ToolBar1: TToolBar [5]
     AlignWithMargins = True

Source/Modulos/Inventario/Views/uEditorInventario.dfm

@@ -215,11 +215,6 @@ inherited fEditorInventario: TfEditorInventario
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 88

Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm

@@ -153,11 +153,6 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
       TextColor = clRed
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   object PngImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.dfm

@@ -39,9 +39,4 @@ inherited frViewElegirArticulosCatalogo: TfrViewElegirArticulosCatalogo
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm

@@ -78,11 +78,6 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   object DADataSourceAlmacenes: TDADataSource
     Left = 56
     Top = 16

Source/Modulos/Inventario/Views/uViewInventario.dfm

@@ -195,11 +195,6 @@ inherited frViewInventario: TfrViewInventario
       TextColor = clRed
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Obras/Views/uEditorObras.dfm

@@ -147,11 +147,6 @@ inherited fEditorObras: TfEditorObras
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     inherited actNuevo: TAction

Source/Modulos/Obras/Views/uViewObras.dfm

@@ -109,9 +109,4 @@ inherited frViewObras: TfrViewObras
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm

@@ -219,11 +219,6 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm

@@ -172,11 +172,6 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item

Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm

@@ -69,9 +69,4 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm

@@ -272,11 +272,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
       OnUpdate = actAlmacenUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

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

@@ -39,9 +39,4 @@ inherited frViewElegirArticulosPresupuestosCliente: TfrViewElegirArticulosPresup
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

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

@@ -257,11 +257,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       OnUpdate = actProvinciaUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm

@@ -238,11 +238,6 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   object pnlFiltrar: TTBXDockablePanel [6]
     Left = 0

Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm

@@ -174,11 +174,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 136

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -248,12 +248,6 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
   inherited cxStyleRepositoryInforme: TcxStyleRepository
     Top = 184
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    Top = 184
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm

@@ -216,11 +216,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   object pnlFiltrar: TTBXDockablePanel [6]
     Left = 0

Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm

@@ -162,11 +162,6 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
         BuiltInReportLink = True
       end
     end
-    inherited dxPrintStyleManager1: TdxPrintStyleManager
-      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-        BuiltInStyle = True
-      end
-    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 136

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm

@@ -244,11 +244,6 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
       OnUpdate = actProveedorUpdate
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente_2.dfm

@@ -197,11 +197,6 @@ inherited frViewRecibosRemesaCliente2: TfrViewRecibosRemesaCliente2
       TextColor = clMaroon
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
   object PngImageList: TPngImageList
     PngImages = <
       item

Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm

@@ -117,9 +117,4 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm

@@ -118,9 +118,4 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
       BuiltInReportLink = True
     end
   end
-  inherited dxPrintStyleManager1: TdxPrintStyleManager
-    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
-      BuiltInStyle = True
-    end
-  end
 end

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.4.0\0"
               VALUE "ProductVersion", "1.0.4.0\0"
-              VALUE "CompileDate", "lunes, 02 de junio de 2008 17:48\0"
+              VALUE "CompileDate", "lunes, 02 de junio de 2008 20:01\0"
          END
     END
     BLOCK "VarFileInfo"