Arreglo de error en todos los elegir, no se ha añadido la variable pnlHeader:TPanel en los pas

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

Source/GUIBase/uViewFormaPago.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
-  cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls;
+  cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
 
 type
   TfrViewFormaPago = class(TfrViewBase)

Source/GUIBase/uViewObservaciones.dfm

@@ -1,8 +1,9 @@
 inherited frViewObservaciones: TfrViewObservaciones
   Width = 300
+  ExplicitWidth = 300
   DesignSize = (
     300
-    226)
+    291)
   object Label5: TLabel
     Left = 8
     Top = 8

Source/GUIBase/uViewObservaciones.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
-  cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls;
+  cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
 
 type
   TfrViewObservaciones = class(TfrViewBase)

Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas

@@ -22,6 +22,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas

@@ -22,6 +22,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas

@@ -22,6 +22,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

Source/Modulos/Contactos/Views/uEditorElegirClientes.pas

@@ -23,6 +23,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas

@@ -22,6 +22,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -49,6 +49,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas

@@ -23,6 +23,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -23,6 +23,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -22,6 +22,7 @@ type
     actBuscar2: TAction;
     actQuitarFiltro2: TAction;
     actAnchoAuto2: TAction;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -58,6 +58,7 @@ type
     rbTodo: TcxRadioButton;
     rbFechas: TcxRadioButton;
     Button1: TBitBtn;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -4,59 +4,11 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
   ExplicitWidth = 662
   PixelsPerInch = 96
   TextHeight = 13
-  object pnlHeader: TPanel
-    Left = 0
-    Top = 0
-    Width = 656
-    Height = 64
-    Align = alTop
-    BevelOuter = bvNone
-    Color = clWhite
-    Padding.Left = 25
-    Padding.Top = 8
-    Padding.Right = 25
-    Padding.Bottom = 8
-    ParentBackground = False
-    TabOrder = 5
-    object lblTitle: TLabel
-      AlignWithMargins = True
-      Left = 25
-      Top = 8
-      Width = 606
-      Height = 13
-      Margins.Left = 0
-      Margins.Top = 0
-      Margins.Right = 0
-      Margins.Bottom = 8
-      Align = alTop
-      Caption = 'Seleccione recibos de cliente'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      ExplicitWidth = 135
-    end
-    object lblComments: TLabel
-      AlignWithMargins = True
-      Left = 50
-      Top = 29
-      Width = 581
-      Height = 27
-      Margins.Left = 25
-      Margins.Top = 0
-      Margins.Right = 0
-      Align = alClient
-      ExplicitWidth = 3
-      ExplicitHeight = 13
-    end
-  end
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Top = 144
+    Top = 148
     Width = 654
     Visible = False
-    ExplicitTop = 144
+    ExplicitTop = 148
     ExplicitWidth = 654
     inherited Image1: TImage
       Left = 627
@@ -64,10 +16,10 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
     end
   end
   inherited TBXDock: TTBXDock
-    Top = 171
+    Top = 175
     Width = 654
     Height = 72
-    ExplicitTop = 171
+    ExplicitTop = 175
     ExplicitWidth = 654
     ExplicitHeight = 72
     inherited tbxMain: TTBXToolbar
@@ -122,7 +74,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
     ExplicitTop = 609
     ExplicitWidth = 654
   end
-  inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+  inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 628
     Width = 654
@@ -167,19 +119,67 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
       end
     end
   end
-  inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
+  object pnlHeader: TPanel [4]
-    Top = 243
+    Left = 0
+    Top = 0
     Width = 654
-    Height = 366
+    Height = 64
-    ExplicitTop = 243
+    Align = alTop
+    BevelOuter = bvNone
+    Color = clWhite
+    Padding.Left = 25
+    Padding.Top = 8
+    Padding.Right = 25
+    Padding.Bottom = 8
+    ParentBackground = False
+    TabOrder = 6
+    object lblTitle: TLabel
+      AlignWithMargins = True
+      Left = 25
+      Top = 8
+      Width = 604
+      Height = 13
+      Margins.Left = 0
+      Margins.Top = 0
+      Margins.Right = 0
+      Margins.Bottom = 8
+      Align = alTop
+      Caption = 'Seleccione recibos de cliente'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      ExplicitWidth = 162
+    end
+    object lblComments: TLabel
+      AlignWithMargins = True
+      Left = 50
+      Top = 29
+      Width = 579
+      Height = 24
+      Margins.Left = 25
+      Margins.Top = 0
+      Margins.Right = 0
+      Align = alClient
+      ExplicitWidth = 3
+      ExplicitHeight = 13
+    end
+  end
+  inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
+    Top = 247
+    Width = 654
+    Height = 362
+    ExplicitTop = 247
     ExplicitWidth = 654
-    ExplicitHeight = 366
+    ExplicitHeight = 362
     inherited cxGrid: TcxGrid
       Width = 654
-      Height = 238
+      Height = 234
       RootLevelOptions.DetailTabsPosition = dtpNone
       ExplicitWidth = 654
-      ExplicitHeight = 238
+      ExplicitHeight = 234
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.DefaultGroupSummaryItems = <
           item
@@ -225,24 +225,22 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
             Width = 121
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 225
+            Left = 197
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 225
+            ExplicitLeft = 197
             ExplicitWidth = 343
             Width = 343
           end
           inherited eLista: TcxComboBox
-            Left = 605
+            Left = 528
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 605
+            ExplicitLeft = 528
-            ExplicitWidth = 215
-            Width = 215
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -256,8 +254,8 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
       end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
-      Top = 340
+      Top = 336
-      ExplicitTop = 340
+      ExplicitTop = 336
       ExplicitWidth = 654
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 654
@@ -284,7 +282,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
   end
   object pnlFiltrar: TTBXDockablePanel [6]
     Left = 0
-    Top = 60
+    Top = 64
     Align = alTop
     Caption = 'Filtrar'
     CaptionRotation = dpcrAlwaysVert

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

@@ -57,6 +57,7 @@ type
     rbTodo: TcxRadioButton;
     rbFechas: TcxRadioButton;
     Button1: TBitBtn;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

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

@@ -187,24 +187,22 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
           Width = 201
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 305
+          Left = 212
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 305
+          ExplicitLeft = 212
           ExplicitWidth = 216
           Width = 216
         end
         inherited eLista: TcxComboBox
-          Left = 558
+          Left = 389
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 558
+          ExplicitLeft = 389
-          ExplicitWidth = 215
-          Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

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

@@ -13,7 +13,8 @@ uses
   cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
   cxImage, Grids, DBGrids, uBizRecibosProveedor, cxGridCustomPopupMenu,
   cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
-  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
+  uViewBase;
    
 type
   IViewRecibosProveedor = interface(IViewGrid)

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.7.7.0\0"
               VALUE "ProductVersion", "1.7.7.0\0"
-              VALUE "CompileDate", "jueves, 09 de julio de 2009 16:19\0"
+              VALUE "CompileDate", "martes, 14 de julio de 2009 17:12\0"
          END
     END
     BLOCK "VarFileInfo"