Informe de listado de articulos en almacén (v.3.0.4)

git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@6 172823e9-465a-9d4b-80ba-0a9f016f4eb1
2007-06-25 18:07:43 +00:00 · 2007-06-25 18:07:43 +00:00 · 8df21e61d3
commit 8df21e61d3
parent a7a938bd7f
21 changed files with 56231 additions and 55988 deletions
--- a/Almacenes/ArticulosAlmacen.dfm
+++ b/Almacenes/ArticulosAlmacen.dfm
@ -271,7 +271,6 @@ object frArticulosAlmacen: TfrArticulosAlmacen
      ParentFont = False
      TabOrder = 5
      Spacing = 6
-      Visible = False
      OnClick = bListadosClick
    end
  end
--- a/Almacenes/ArticulosAlmacen.pas
+++ b/Almacenes/ArticulosAlmacen.pas
@ -462,6 +462,7 @@ begin
    entArticulosAlmacenFisico : begin
                                 eAlmacen.Caption := 'Almacén:';
                                 bFinalizar.Visible := False;
+                                 bListar.Visible := True;
                                 cbxAlmacen.Width := 365;
                                 BarraEstado.Caption := Entidades.darNombreEntidad(entAlmacenFisico);
                                 dmTablaAlmacenes.darAlmacenesFisicos(EmpresaActiva.Codigo, FListaAlmacenesCodigo,FListaCodigosAlmacen);
@ -469,6 +470,7 @@ begin
    entArticulosAlmacenObra   : begin
                                 eAlmacen.Caption := 'Montaje:';
                                 bFinalizar.Visible := True;
+                                 bListar.Visible := False;                                 
                                 cbxAlmacen.Width := 260;
                                 BarraEstado.Caption := Entidades.darNombreEntidad(entAlmacenObra);
                                 dmTablaAlmacenes.darAlmacenesObras(EmpresaActiva.Codigo, FListaAlmacenesCodigo,FListaCodigosAlmacen);
--- a/Almacenes/ListadoArticulosAlmacen.ddp
+++ b/Almacenes/ListadoArticulosAlmacen.ddp
--- a/Almacenes/ListadoArticulosAlmacen.dfm
+++ b/Almacenes/ListadoArticulosAlmacen.dfm
@ -8,70 +8,53 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
  TabOrder = 0
  OnShow = RdxFrameShow
  Entidad = entArticuloAlmacen
-  object Titulo: TRdxPanelTituloOperacion
+  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
    Width = 880
    Height = 22
-    Caption = ' material de almac'#233'n'
+    Caption = ' '
    Color = 9685681
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 3692855
    Font.Height = -11
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
  end
-  object pnlDatos: TRdxPanel
+  object pnlVistaPrevia: TPanel
+    Left = 0
+    Top = 268
+    Width = 880
+    Height = 173
+    Align = alClient
+    ParentBackground = True
+    ParentColor = True
+    TabOrder = 0
+  end
+  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
    Width = 880
-    Height = 235
-    Caption = ' '
-    ParentColor = True
-    ColorHighLight = clBtnText
-    ColorShadow = clBtnShadow
+    Height = 246
    Align = alTop
-    TabOrder = 0
-    UseDockManager = True
-    object cDatos: TRdxCabecera
-      Left = 0
-      Top = 0
-      Width = 880
-      Height = 30
-      Caption = 'Par'#225'metros para el listado de material de almac'#233'n'
-      Align = alTop
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'MS Sans Serif'
-      Font.Style = [fsBold]
-      Margen = 10
-    end
-    object eInformacion: TLabel
+    AutoSize = True
+    BevelOuter = bvNone
+    BorderWidth = 10
+    ParentColor = True
+    TabOrder = 1
+    object eInfoCriterios: TLabel
      Left = 10
-      Top = 40
-      Width = 283
-      Height = 13
-      Caption = 'Elija el almac'#233'n del cual se generar'#225' el listado de su estado:'
-    end
-    object eAlmacen: TLabel
-      Left = 54
-      Top = 69
-      Width = 44
-      Height = 13
-      Alignment = taRightJustify
-      Caption = 'Almac'#233'n:'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
+      Top = 10
+      Width = 457
+      Height = 19
+      AutoSize = False
+      Caption = 'Elija una de las siguientes opciones para generar el listado:'
+      WordWrap = True
    end
    object Separador: TRdxShape
      Left = 31
-      Top = 100
+      Top = 119
      Width = 524
      Height = 1
      BackColor = clWhite
@ -91,15 +74,6 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      SurfaceType = stBrushOpaque
      Vectors = 10
    end
-    object eInfoCriterios: TLabel
-      Left = 10
-      Top = 114
-      Width = 457
-      Height = 19
-      AutoSize = False
-      Caption = 'Elija una de las siguientes opciones para generar el listado:'
-      WordWrap = True
-    end
    object Label1: TLabel
      Left = 295
      Top = 219
@ -108,76 +82,40 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      Caption = 'hasta'
      Visible = False
    end
-    object CodAlmacen: TcxButtonEdit
-      Left = 105
-      Top = 65
-      ParentFont = False
-      Properties.Buttons = <
-        item
-          Default = True
-          Glyph.Data = {
-            26050000424D260500000000000036040000280000000F0000000F0000000100
-            080000000000F0000000330B0000330B00000001000000010000212121003131
-            31004A4A4A00FFBD4A00636363006B6B6B00FF8C6B00FFC66B00FFFF8C000031
-            9400ADADAD00FFE7B500FFFFB500C6C6C600FFFFD600004ADE00FF00FF002152
-            FF008C8CFF0021ADFF008CD6FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010101010
-            101010101010101010FF101010101010101010100100001010FF101010101010
-            101010040F13090010FF1010101010101010040F14120F0010FF101010101010
-            10040F14120F00101000101010050202020214120F00101010FF101005070707
-            0306110F0010101010FF10050A0B0808070306021010101010FF10050B0E0C08
-            080703021010101010FF10050B0E0C0C0808030210101010100010050B0E0C0C
-            0C0803021010101010FF10050D0B0E0C0C0B0A021010101010FF1010050D0B0B
-            0B0A00101010101010FF101010050505050510101010101010FF101010101010
-            10101010101010101000}
-          Kind = bkGlyph
-        end>
-      Properties.ReadOnly = False
-      Properties.OnButtonClick = CodAlmacenPropertiesButtonClick
-      Properties.OnValidate = CodAlmacenPropertiesValidate
-      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-      TabOrder = 0
-      Width = 110
+    object eInformacion: TLabel
+      Left = 43
+      Top = 49
+      Width = 283
+      Height = 13
+      Caption = 'Elija el almac'#233'n del cual se generar'#225' el listado de su estado:'
    end
-    object NombreAlmacen: TRdxEdit
-      Left = 224
-      Top = 65
-      Width = 300
-      Height = 20
-      TabStop = False
-      ColorBorder = 8623776
-      ColorFlat = 15726583
-      ColorBoton = 12775679
-      ReadOnly = True
-      TabOrder = 1
+    object eAlmacen: TLabel
+      Left = 54
+      Top = 79
+      Width = 44
+      Height = 13
+      Alignment = taRightJustify
+      Caption = 'Almac'#233'n:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object cDatos: TRdxCabecera
+      Left = 10
+      Top = 10
+      Width = 860
+      Height = 30
+      Caption = 'Par'#225'metros para el listado de material de almac'#233'n'
+      Align = alTop
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      Margen = 10
    end
    object rbTodos: TRdxRadioButton
      Left = 24
@ -193,7 +131,7 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      ColorBorder = 8623776
      GroupIndex = 1
      ParentColor = False
-      TabOrder = 2
+      TabOrder = 0
      TabStop = True
      OnClick = rbTodosClick
    end
@ -208,9 +146,36 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      ColorDot = clBlack
      ColorBorder = 8623776
      GroupIndex = 1
-      TabOrder = 3
+      TabOrder = 1
      OnClick = rbArticulosClick
    end
+    object rbFamilias: TRdxRadioButton
+      Left = 24
+      Top = 217
+      Width = 97
+      Height = 17
+      Caption = 'Desde la familia'
+      ColorFocused = clWhite
+      ColorDown = clWhite
+      ColorDot = clBlack
+      ColorBorder = 8623776
+      GroupIndex = 1
+      TabOrder = 2
+      Visible = False
+      OnClick = rbFamiliasClick
+    end
+    object NombreAlmacen: TRdxEdit
+      Left = 224
+      Top = 75
+      Width = 300
+      Height = 20
+      TabStop = False
+      ColorBorder = 8623776
+      ColorFlat = 15726583
+      ColorBoton = 12775679
+      ReadOnly = True
+      TabOrder = 3
+    end
    object DescripcionIni: TcxButtonEdit
      Left = 124
      Top = 164
@ -329,20 +294,64 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      TabOrder = 5
      Width = 370
    end
-    object rbFamilias: TRdxRadioButton
-      Left = 24
-      Top = 217
-      Width = 97
-      Height = 17
-      Caption = 'Desde la familia'
-      ColorFocused = clWhite
-      ColorDown = clWhite
-      ColorDot = clBlack
-      ColorBorder = 8623776
-      GroupIndex = 1
+    object CodAlmacen: TcxButtonEdit
+      Left = 105
+      Top = 75
+      ParentFont = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Glyph.Data = {
+            26050000424D260500000000000036040000280000000F0000000F0000000100
+            080000000000F0000000330B0000330B00000001000000010000212121003131
+            31004A4A4A00FFBD4A00636363006B6B6B00FF8C6B00FFC66B00FFFF8C000031
+            9400ADADAD00FFE7B500FFFFB500C6C6C600FFFFD600004ADE00FF00FF002152
+            FF008C8CFF0021ADFF008CD6FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010101010
+            101010101010101010FF101010101010101010100100001010FF101010101010
+            101010040F13090010FF1010101010101010040F14120F0010FF101010101010
+            10040F14120F00101000101010050202020214120F00101010FF101005070707
+            0306110F0010101010FF10050A0B0808070306021010101010FF10050B0E0C08
+            080703021010101010FF10050B0E0C0C0808030210101010100010050B0E0C0C
+            0C0803021010101010FF10050D0B0E0C0C0B0A021010101010FF1010050D0B0B
+            0B0A00101010101010FF101010050505050510101010101010FF101010101010
+            10101010101010101000}
+          Kind = bkGlyph
+        end>
+      Properties.ReadOnly = False
+      Properties.OnButtonClick = CodAlmacenPropertiesButtonClick
+      Properties.OnValidate = CodAlmacenPropertiesValidate
+      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
      TabOrder = 6
-      Visible = False
-      OnClick = rbFamiliasClick
+      Width = 110
    end
    object cbFamiliaIni: TcxComboBox
      Left = 124
@ -369,14 +378,4 @@ object frListadoArticulosAlmacen: TfrListadoArticulosAlmacen
      Width = 165
    end
  end
-  object pnlVistaPrevia: TPanel
-    Left = 0
-    Top = 257
-    Width = 880
-    Height = 184
-    Align = alClient
-    ParentBackground = True
-    ParentColor = True
-    TabOrder = 1
-  end
 end
--- a/Almacenes/ListadoArticulosAlmacen.pas
+++ b/Almacenes/ListadoArticulosAlmacen.pas
@ -57,7 +57,7 @@ interface

 uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, StdCtrls, RdxTitulos, RdxPaneles, RdxCampos,
+  ExtCtrls, StdCtrls, RdxTitulos, RdxPaneles, RdxCampos, 
  cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit,
  cxDropDownEdit, RdxRadioButton, RdxShape, TablaArticulos, Tipos,
  RdxFrame, cxGraphics, Entidades, InformeEstadoAlmacen, VistaPrevia;
@ -80,6 +80,8 @@ type
    eInformacion: TLabel;
    cDatos: TRdxCabecera;
    cbFamiliaFin: TcxComboBox;
+    pnlTitulo: TRdxPanelTituloOperacion;
+    pnlCuerpo: TPanel;
    procedure DescripcionIniPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure CodAlmacenPropertiesValidate(Sender: TObject;
@ -122,12 +124,13 @@ type
    procedure ActualizarEstado; override;
    procedure FreeContenido; override;
    procedure VerModal; override;
+    function CloseFrame : Boolean; override;
    function CambiarEntidad (EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
  public
    { Public declarations }
    property CodigoAlmacen : Variant read FCodigoAlmacen write SetCodigoAlmacen;
    constructor Create(AOwner : TComponent); override;
-    destructor Destroy; override;    
+    destructor Destroy; override;
  end;

 var
@ -232,6 +235,7 @@ var
 begin
  inherited;
  ConfigurarFrame(Self, Self.Entidad);
+  dmTablaArticulos.ArtModelo := entArticulo;

  FCodigoAlmacen := NULL;
  FArticuloIni := TDatosArticulo.Create;
@ -264,14 +268,17 @@ end;

 destructor TfrListadoArticulosAlmacen.Destroy;
 begin
-  FreeAndNil(FArticuloIni);
-  FreeAndNil(FArticuloFin);
-  // El informe se destruye en el padre
+  FInforme.Free;
+  FArticuloIni.Free;
+  FArticuloFin.Free;
  inherited;
 end;

 procedure TfrListadoArticulosAlmacen.RefrescarInforme;
 begin
+  if VarIsNull(FCodigoAlmacen) then
+     Exit;
+
  with (FInforme as TdmInformeEstadoAlmacen) do
  begin
    CodigoAlmacen := FCodigoAlmacen;
@ -486,4 +493,11 @@ begin
  ConfigurarFrame(Self, Self.Entidad);
 end;

+function TfrListadoArticulosAlmacen.CloseFrame: Boolean;
+begin
+  FInforme.Preview := NIL;
+  (FVistaPrevia as TRdxFrame).CloseFrame;
+  Result := inherited CloseFrame;
+end;
+
 end.
--- a/BaseDatos/TablaArticulosAlmacen.dfm
+++ b/BaseDatos/TablaArticulosAlmacen.dfm
@ -1,5 +1,7 @@
 object dmTablaArticulosAlmacen: TdmTablaArticulosAlmacen
  OldCreateOrder = False
+  Left = 75
+  Top = 269
  Height = 168
  Width = 239
 end
--- a/Clientes/ListadoClientes.ddp
+++ b/Clientes/ListadoClientes.ddp
--- a/Clientes/ListadoClientes.dfm
+++ b/Clientes/ListadoClientes.dfm
@ -1,8 +1,8 @@
 object frListadoClientes: TfrListadoClientes
  Left = 0
  Top = 0
-  Width = 763
-  Height = 404
+  Width = 443
+  Height = 270
  Align = alClient
  Color = 16383743
  ParentColor = False
@ -10,7 +10,7 @@ object frListadoClientes: TfrListadoClientes
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 763
+    Width = 443
    Height = 22
    Caption = ' '
    Color = 9685681
@ -24,7 +24,7 @@ object frListadoClientes: TfrListadoClientes
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 763
+    Width = 443
    Height = 107
    Align = alTop
    AutoSize = True
@ -35,7 +35,7 @@ object frListadoClientes: TfrListadoClientes
    object pnlProveedor: TAdvPanel
      Left = 10
      Top = 10
-      Width = 743
+      Width = 423
      Height = 87
      Align = alTop
      BevelOuter = bvNone
@ -282,8 +282,8 @@ object frListadoClientes: TfrListadoClientes
  object pnlVistaPrevia: TPanel
    Left = 0
    Top = 129
-    Width = 763
-    Height = 275
+    Width = 443
+    Height = 141
    Align = alClient
    BevelOuter = bvNone
    Color = 16383743
--- a/Factuges.dof
+++ b/Factuges.dof
@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=0
-Release=3
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.0.3.0
+FileVersion=3.0.4.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
--- a/Factuges.drc
+++ b/Factuges.drc
--- a/Factuges.dsk
+++ b/Factuges.dsk
@ -1,37 +1,74 @@
 [Closed Files]
-File_0=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\PresupuestosClientes.pas',0,1,421,1,423,1,0
-File_1=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\VistaPrevia.pas',0,1,116,1,36,1,0
-File_2=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\VistaPreviaPresupuestos.pas',0,1,7,44,12,1,0
-File_3=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\ImprimirPresupuestosCliente.pas',0,1,56,15,56,1,0
-File_4=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformeContratoCliente.pas',0,1,22,29,2,0,0
-File_5=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformePresupuestoCliente.pas',0,1,82,1,84,1,0
-File_6=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas',0,1,4656,1,4680,0,0
-File_7=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\DB.pas',0,1,9289,1,9313,0,0
-File_8=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\IBCustomDataSet.pas',0,1,645,1,668,0,0
-File_9=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\Sys\variants.pas',0,1,2647,1,2674,0,0
+File_0=SourceModule,'E:\Miguelo\Informes\InformeEstadoAlmacen.pas',0,1,15,17,24,1,0
+File_1=SourceModule,'E:\Miguelo\Informes\InformeListadoClientes.pas',0,1,51,20,46,1,0
+File_2=SourceModule,'E:\Miguelo\BaseDatos\TablaArticulosAlmacen.pas',0,1,246,1,253,1,0
+File_3=SourceModule,'E:\Miguelo\BaseDatos\TablaArticulos.pas',0,1,243,18,256,0,0
+File_4=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\Forms.pas',0,1,2060,1,2076,0,0
+File_5=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\Controls.pas',0,1,5419,1,5430,0,0
+File_6=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\Sys\system.pas',0,1,8374,1,8385,0,0
+File_7=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas',0,1,2169,1,2180,0,0
+File_8=SourceModule,'E:\Miguelo\Frames\RdxDBFrame.pas',0,1,158,1,169,0,0
+File_9=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\Sys\variants.pas',0,1,596,1,609,0,0

 [Modules]
-Module0=D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.dpr
-Count=1
+Module0=E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas
+Module1=E:\Miguelo\Clientes\ListadoClientes.pas
+Module2=E:\Miguelo\Almacenes\ArticulosAlmacen.pas
+Module3=E:\Miguelo\Informes\PantallaInformesGeneral.pas
+Count=4
 EditWindowCount=1

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.dpr]
+[E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas]
 ModuleType=SourceModule
-FormState=0
+FormState=1
+FormOnTop=0
+
+[E:\Miguelo\Clientes\ListadoClientes.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[E:\Miguelo\Almacenes\ArticulosAlmacen.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[E:\Miguelo\Informes\PantallaInformesGeneral.pas]
+ModuleType=SourceModule
+FormState=1
 FormOnTop=0

 [C:\Archivos de programa\Borland\Delphi7\Projects\ProjectGroup1.bpg]
 FormState=0
 FormOnTop=0

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.todo]
+[E:\Miguelo\Factuges.dpr]
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Factuges.todo]
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Libreria\Configuracion.pas]
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Frames\RdxFrame.pas]
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Informes\InformeBase.pas]
 FormState=0
 FormOnTop=0

 [EditWindow0]
-ViewCount=1
-CurrentView=0
+ViewCount=4
+CurrentView=1
 View0=0
+View1=1
+View2=2
+View3=3
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
 Create=1
@ -49,15 +86,36 @@ LeftPanelSize=140
 LeftPanelClients=CodeExplorer@EditWindow0
 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
 RightPanelSize=0
-BottomPanelSize=0
+BottomPanelSize=85
 BottomPanelClients=MessageView@EditWindow0
-BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
+BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF

 [View0]
-Module=D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.dpr
+Module=E:\Miguelo\Almacenes\ArticulosAlmacen.pas
+CursorX=5
+CursorY=341
+TopLine=334
+LeftCol=1
+
+[View1]
+Module=E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas
+CursorX=15
+CursorY=124
+TopLine=124
+LeftCol=1
+
+[View2]
+Module=E:\Miguelo\Clientes\ListadoClientes.pas
+CursorX=15
+CursorY=66
+TopLine=66
+LeftCol=1
+
+[View3]
+Module=E:\Miguelo\Informes\PantallaInformesGeneral.pas
 CursorX=1
-CursorY=1
-TopLine=1
+CursorY=94
+TopLine=87
 LeftCol=1

 [Watches]
@ -88,7 +146,7 @@ LRDockWidth=294
 Dockable=1

 [Breakpoints]
-Count=48
+Count=49
 Breakpoint0='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',1194,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint1='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',1202,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint2='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',818,'',0,1,'',1,0,0,'',1,'','',''
@ -136,7 +194,8 @@ Breakpoint43='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',114,'',0,1,'',1,
 Breakpoint44='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',88,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint45='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',81,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint46='T:\Codigo (Miguelo)\Proveedores\PedidoProveedor.pas',936,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint47='T:\Codigo (Miguelo)\Frames\RdxDBFrame.pas',169,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint47='E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas',437,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint48='E:\Miguelo\BaseDatos\TablaArticulosAlmacen.pas',253,'',0,1,'',1,0,0,'',1,'','',''

 [AddressBreakpoints]
 Count=0
@ -207,7 +266,7 @@ FlagPane=64

 [AlignmentPalette]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=227
 Top=640
@ -224,19 +283,19 @@ Visible=1
 State=0
 Left=20
 Top=124
-Width=299
+Width=294
 Height=719
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=291
+ClientWidth=286
 ClientHeight=693
 TBDockHeight=431
 LRDockWidth=345
 Dockable=1
 SplitPos=170
 ArrangeBy=Name
-SelectedItem=
-ExpandedItems=Action,Actions,Anchors,ArrangeSettings,BusinessRulesClient,BusinessRulesServer,Caption,Channel.Encryption,Colors,DataBinding,DataController,DataRequestCall,DispatchOptions,DragDropSettings,Encryption,Fonts,ObjectTypes,Options,OptionsCustomize,OptionsView,ProcessorOptions,Properties,Properties.ListOptions,Properties.ListSource,ProxySettings,RemoteService.Message,RemoteUpdatesOptions,Root,RootLevelStyles,SchemaCall,Style,Style.LookAndFeel,StyleDisabled,StyleFocused,StyleHot,StyleManager.Colors,Styles,Styles.StyleSheet,Styles.StyleSheet.Styles,Styles.StyleSheet.Styles.Preview,Styles.StyleSheet.Styles.Preview.Font,Summary,Value,VisibleButtons
+SelectedItem=BarraExtra
+ExpandedItems=Action,Actions,Anchors,ArrangeSettings,BusinessRulesClient,BusinessRulesServer,Caption,Channel.Encryption,Colors,DataBinding,DataController,DataRequestCall,Dataset,Dataset.DataSet,DispatchOptions,DragDropSettings,Encryption,Fonts,ObjectTypes,Options,OptionsCustomize,OptionsView,ProcessorOptions,Properties,Properties.ListOptions,Properties.ListSource,ProxySettings,RemoteService.Message,RemoteUpdatesOptions,Root,RootLevelStyles,SchemaCall,Style,Style.LookAndFeel,StyleDisabled,StyleFocused,StyleHot,StyleManager.Colors,Styles,Styles.StyleSheet,Styles.StyleSheet.Styles,Styles.StyleSheet.Styles.Preview,Styles.StyleSheet.Styles.Preview.Font,Summary,Value,VisibleButtons
 HiddenCategories=

 [BreakpointWindow]
@ -301,8 +360,8 @@ Column3Width=250
 Create=1
 Visible=1
 State=0
-Left=49
-Top=185
+Left=646
+Top=122
 Width=490
 Height=543
 MaxLeft=-1
@ -428,26 +487,26 @@ State=0
 Left=0
 Top=12
 Width=140
-Height=499
+Height=411
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=140
-ClientHeight=499
+ClientHeight=411
 TBDockHeight=305
 LRDockWidth=140
 Dockable=1

 [MessageView@EditWindow0]
 Create=1
-Visible=0
+Visible=1
 State=0
-Left=-135
-Top=-573
-Width=443
+Left=12
+Top=0
+Width=761
 Height=85
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=443
+ClientWidth=761
 ClientHeight=85
 TBDockHeight=85
 LRDockWidth=443
--- a/Factuges.res
+++ b/Factuges.res
--- a/Factuges.~dsk
+++ b/Factuges.~dsk
@ -1,20 +1,45 @@
 [Closed Files]
-File_0=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\PresupuestosClientes.pas',0,1,421,1,423,1,0
-File_1=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\VistaPrevia.pas',0,1,116,1,36,1,0
-File_2=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\VistaPreviaPresupuestos.pas',0,1,7,44,12,1,0
-File_3=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\ImprimirPresupuestosCliente.pas',0,1,56,15,56,1,0
-File_4=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformeContratoCliente.pas',0,1,22,29,2,0,0
-File_5=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformePresupuestoCliente.pas',0,1,82,1,84,1,0
-File_6=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas',0,1,4656,1,4680,0,0
+File_0=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.dpr',0,1,1,1,1,0,0
+File_1=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\PresupuestosClientes.pas',0,1,421,1,423,1,0
+File_2=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\VistaPrevia.pas',0,1,116,1,36,1,0
+File_3=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\VistaPreviaPresupuestos.pas',0,1,7,44,12,1,0
+File_4=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Clientes\ImprimirPresupuestosCliente.pas',0,1,56,15,56,1,0
+File_5=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformeContratoCliente.pas',0,1,22,29,2,0,0
+File_6=SourceModule,'D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformePresupuestoCliente.pas',0,1,82,1,84,1,0
 File_7=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\DB.pas',0,1,9289,1,9313,0,0
 File_8=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\IBCustomDataSet.pas',0,1,645,1,668,0,0
-File_9=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\Sys\variants.pas',0,1,2647,1,2674,0,0

 [Modules]
-Count=0
-EditWindowCount=0
+Module0=E:\Miguelo\Clientes\ListadoClientes.pas
+Module1=E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas
+Module2=E:\Miguelo\Frames\RdxDBFrame.pas
+Module3=c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas
+Module4=E:\Miguelo\Almacenes\ArticulosAlmacen.pas
+Count=5
+EditWindowCount=1

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.dpr]
+[E:\Miguelo\Clientes\ListadoClientes.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Frames\RdxDBFrame.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[E:\Miguelo\Almacenes\ArticulosAlmacen.pas]
+ModuleType=SourceModule
 FormState=0
 FormOnTop=0

@ -22,22 +47,86 @@ FormOnTop=0
 FormState=0
 FormOnTop=0

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Factuges.todo]
+[E:\Miguelo\Factuges.dpr]
 FormState=0
 FormOnTop=0

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Informes\InformeBase.pas]
+[E:\Miguelo\Factuges.todo]
 FormState=0
 FormOnTop=0

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Libreria\Configuracion.pas]
+[E:\Miguelo\Libreria\Configuracion.pas]
 FormState=0
 FormOnTop=0

-[D:\Proyectos\FactuGES (Miguelo)\Codigo\Frames\RdxFrame.pas]
+[E:\Miguelo\Frames\RdxFrame.pas]
 FormState=0
 FormOnTop=0

+[EditWindow0]
+ViewCount=5
+CurrentView=4
+View0=0
+View1=1
+View2=2
+View3=3
+View4=4
+CodeExplorer=CodeExplorer@EditWindow0
+MessageView=MessageView@EditWindow0
+Create=1
+Visible=1
+State=0
+Left=329
+Top=139
+Width=781
+Height=545
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=773
+ClientHeight=511
+LeftPanelSize=140
+LeftPanelClients=CodeExplorer@EditWindow0
+LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
+RightPanelSize=0
+BottomPanelSize=85
+BottomPanelClients=MessageView@EditWindow0
+BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
+
+[View0]
+Module=E:\Miguelo\Almacenes\ArticulosAlmacen.pas
+CursorX=1
+CursorY=329
+TopLine=326
+LeftCol=1
+
+[View1]
+Module=c:\archivos de programa\borland\delphi7\source\rtl\common\classes.pas
+CursorX=1
+CursorY=2180
+TopLine=2169
+LeftCol=1
+
+[View2]
+Module=E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas
+CursorX=1
+CursorY=234
+TopLine=229
+LeftCol=1
+
+[View3]
+Module=E:\Miguelo\Frames\RdxDBFrame.pas
+CursorX=1
+CursorY=169
+TopLine=158
+LeftCol=1
+
+[View4]
+Module=E:\Miguelo\Clientes\ListadoClientes.pas
+CursorX=33
+CursorY=34
+TopLine=43
+LeftCol=1
+
 [Watches]
 Count=6
 Watch0='Self',256,0,18,1,0,'Watches'
@ -48,7 +137,7 @@ Watch4='temp',4,0,18,1,0,'Watches'
 Watch5='contenidomodal.class',256,0,18,1,0,'Watches'

 [WatchWindow]
-WatchColumnWidth=124
+WatchColumnWidth=100
 WatchShowColumnHeaders=1
 Create=1
 Visible=0
@ -66,7 +155,7 @@ LRDockWidth=294
 Dockable=1

 [Breakpoints]
-Count=48
+Count=49
 Breakpoint0='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',1194,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint1='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',1202,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint2='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',818,'',0,1,'',1,0,0,'',1,'','',''
@ -114,7 +203,8 @@ Breakpoint43='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',114,'',0,1,'',1,
 Breakpoint44='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',88,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint45='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',81,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint46='T:\Codigo (Miguelo)\Proveedores\PedidoProveedor.pas',936,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint47='T:\Codigo (Miguelo)\Frames\RdxDBFrame.pas',169,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint47='E:\Miguelo\Almacenes\ArticulosAlmacen.pas',329,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint48='E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas',234,'',0,1,'',1,0,0,'',1,'','',''

 [AddressBreakpoints]
 Count=0
@ -185,7 +275,7 @@ FlagPane=64

 [AlignmentPalette]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=227
 Top=640
@ -213,7 +303,7 @@ LRDockWidth=345
 Dockable=1
 SplitPos=170
 ArrangeBy=Name
-SelectedItem=
+SelectedItem=BarraExtra
 ExpandedItems=Action,Actions,Anchors,ArrangeSettings,BusinessRulesClient,BusinessRulesServer,Caption,Channel.Encryption,Colors,DataBinding,DataController,DataRequestCall,DispatchOptions,DragDropSettings,Encryption,Fonts,ObjectTypes,Options,OptionsCustomize,OptionsView,ProcessorOptions,Properties,Properties.ListOptions,Properties.ListSource,ProxySettings,RemoteService.Message,RemoteUpdatesOptions,Root,RootLevelStyles,SchemaCall,Style,Style.LookAndFeel,StyleDisabled,StyleFocused,StyleHot,StyleManager.Colors,Styles,Styles.StyleSheet,Styles.StyleSheet.Styles,Styles.StyleSheet.Styles.Preview,Styles.StyleSheet.Styles.Preview.Font,Summary,Value,VisibleButtons
 HiddenCategories=

@ -277,7 +367,7 @@ Column3Width=250

 [ObjectTree]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=49
 Top=185
@ -399,6 +489,38 @@ TBDockHeight=195
 LRDockWidth=383
 Dockable=1

+[CodeExplorer@EditWindow0]
+Create=1
+Visible=1
+State=0
+Left=0
+Top=12
+Width=140
+Height=411
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=140
+ClientHeight=411
+TBDockHeight=305
+LRDockWidth=140
+Dockable=1
+
+[MessageView@EditWindow0]
+Create=1
+Visible=1
+State=0
+Left=12
+Top=0
+Width=761
+Height=85
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=761
+ClientHeight=85
+TBDockHeight=85
+LRDockWidth=443
+Dockable=1
+
 [DockHosts]
 DockHostCount=0

--- a/Frames/RodaxFrameD7.drc
+++ b/Frames/RodaxFrameD7.drc
@ -8,260 +8,261 @@
  resources were bound to the produced executable.
 */

-#define Literales_msgInfTri1 65184
-#define Literales_msgInfIntervaloTodosArt 65185
-#define Literales_msgInfIntervaloTodosCli 65186
-#define Literales_msgInfIntervaloTodosPro 65187
-#define Literales_msgInfIntervaloTodosMov 65188
-#define Literales_msgInfIntervaloDesArt 65189
-#define Literales_msgInfIntervaloFam 65190
-#define Literales_msgInfIntervaloCod 65191
-#define Literales_msgInfIntervaloCli 65192
-#define Literales_msgInfIntervaloFec 65193
-#define Literales_msgInfIntervaloPro 65194
-#define Literales_msgInfFaltaAlmacen 65195
-#define Literales_msgInfArticuloIniMayor 65196
-#define Literales_msgInfFamiliaIniMayor 65197
-#define Literales_msgLibEntBloqueada 65200
-#define Literales_msgLibNumEntRepetida 65201
-#define Literales_msgLibNumEntIncorrecta 65202
-#define Literales_msgLibFaltaDescEnt 65203
-#define Literales_msgLibCierre 65204
-#define Literales_msgVisBorrarVisita 65205
-#define Literales_msgVisBorrarVisitas 65206
-#define Literales_msgTriCodigoErroneo 65207
-#define Literales_msgTriCerrado 65208
-#define Literales_msgTriFacTriCer 65209
-#define Literales_msgTriPredeterminadoErr 65210
-#define Literales_msgTriPredeterminadoOk 65211
-#define Literales_msgTriCerrarPredeterminado 65212
-#define Literales_msgOpcTablaContBloqueada 65213
-#define Literales_msgOpcContadoresInc 65214
-#define Literales_msgInfTri0 65215
-#define Literales_msgCliSep6 65216
-#define Literales_msgCliSep7 65217
-#define Literales_msgCliSep8 65218
-#define Literales_msgCliSep9 65219
-#define Literales_msgCliIniMayor 65220
-#define Literales_msgCliNoHayCli 65221
-#define Literales_msgCliListBene1 65222
-#define Literales_msgCliListBeneNoFac 65223
-#define Literales_msgCliListBeneCon1 65224
-#define Literales_msgCliListBeneCon2 65225
-#define Literales_msgCliListBeneCon3 65226
-#define Literales_msgCliListBeneCon4 65227
-#define Literales_msgCliListBeneCon5 65228
-#define Literales_msgCliListBeneNoCon 65229
-#define Literales_msgCliBorrarPropiedades 65230
-#define Literales_msgLibNoExisteEnt 65231
-#define Literales_msgCliNoExisteFacPro 65232
-#define Literales_msgCliFacProBloqueado 65233
-#define Literales_msgCliCodPagRepetido 65234
-#define Literales_msgCliCodPagIncorrecto 65235
-#define Literales_msgCliNoExistePag 65236
-#define Literales_msgCliPagBloqueado 65237
-#define Literales_msgCliCodPagNoExiste 65238
-#define Literales_msgCliBorrarPago 65239
-#define Literales_msgCliFaltaCliPag 65240
-#define Literales_msgCliFaltaDescPag 65241
-#define Literales_msgCliErrorOp 65242
-#define Literales_msgCliSep1 65243
-#define Literales_msgCliSep2 65244
-#define Literales_msgCliSep3 65245
-#define Literales_msgCliSep4 65246
-#define Literales_msgCliSep5 65247
-#define Literales_msgObrEliminarDetalles 65248
-#define Literales_msgObrEliminarTodosDetalles 65249
-#define Literales_msgCliCodFacRepetido 65250
-#define Literales_msgCliCodFacIncorrecto 65251
-#define Literales_msgCliSinProvincia 65252
-#define Literales_msgCliFaltaNombreCliFac 65253
-#define Literales_msgCliCodArtNoExiste 65254
-#define Literales_msgCliCodArtIncorrecto 65255
-#define Literales_msgCliFaltaFechaAlta 65256
-#define Literales_msgCliFaltaArticulos 65257
-#define Literales_msgCliFaltaFechaVto 65258
-#define Literales_msgCliFechaVtoMenorFechaAlta 65259
-#define Literales_msgCliNoExisteFac 65260
-#define Literales_msgCliFacBloqueado 65261
-#define Literales_msgCliCodFacProRepetido 65262
-#define Literales_msgCliCodFacProIncorrecto 65263
-#define Literales_litObrOtros 65264
-#define Literales_litObrEntregas 65265
-#define Literales_litObrMontajes 65266
-#define Literales_litObrRemates 65267
-#define Literales_msgObrFaltaObr 65268
-#define Literales_msgObrAnadida 65269
-#define Literales_msgObrErrAnadir 65270
-#define Literales_msgObrNoExisteObr 65271
-#define Literales_msgObrObrBloqueado 65272
-#define Literales_msgObrInsRepetido 65273
-#define Literales_msgObrPedDesObl 65274
-#define Literales_msgObrPedSelec 65275
-#define Literales_msgObrPrePedBorrar 65276
-#define Literales_msgObrInsConOtrasTareas1 65277
-#define Literales_msgObrInsConOtrasTareas2 65278
-#define Literales_msgObrElijaContrago 65279
-#define Literales_msgCliPreNoEliminar 65280
-#define Literales_msgCliCambiarTipoPre 65281
-#define Literales_msgCliNoExisteTipoPre 65282
-#define Literales_msgCliPreErrAnadirDoc 65283
-#define Literales_msgCliPreErrEliminarDoc 65284
-#define Literales_msgCliCodConRepetido 65285
-#define Literales_msgCliCodConIncorrecto 65286
-#define Literales_msgCliFaltaNombreCliCon 65287
-#define Literales_msgCliFaltaFechaAltaCon 65288
-#define Literales_msgCliFaltaArticulosCon 65289
-#define Literales_msgCliNoExisteCon 65290
-#define Literales_msgCliConBloqueado 65291
-#define Literales_msgCliCrearContrato 65292
-#define Literales_msgCliCodConNoExiste 65293
-#define Literales_litObrObra 65294
-#define Literales_litObrPedidos 65295
-#define Literales_msgCliCodPreIncorrecto 65296
-#define Literales_msgCliFaltaNombreCliPre 65297
-#define Literales_msgCliFaltaFechaAltaPre 65298
-#define Literales_msgCliFaltaFechaDecisionPre 65299
-#define Literales_msgCliSobraFechaDecisionPre 65300
-#define Literales_msgCliFaltaArticulosPre 65301
-#define Literales_msgCliNoExistePre 65302
-#define Literales_msgCliNoExistePreOrigen 65303
-#define Literales_msgCliPreBloqueado 65304
-#define Literales_msgCliPreYaAceptado 65305
-#define Literales_msgCliPreYaRechazado 65306
-#define Literales_msgCliCambiarAAceptar 65307
-#define Literales_msgCliCambiarARechazar 65308
-#define Literales_msgCliPreConContrato 65309
-#define Literales_msgCliPreYaFacturado 65310
-#define Literales_msgCliPreNoModificar 65311
-#define Literales_msgCliCodCliIncorrecto 65312
-#define Literales_msgCliFaltaNombreCli 65313
-#define Literales_msgCliFaltaCli 65314
-#define Literales_msgCliNoExisteCli 65315
-#define Literales_msgCliCliBloqueado 65316
-#define Literales_msgCliBorrarSucursal 65317
-#define Literales_msgCliBorrarSucursales 65318
-#define Literales_msgCliCodCliNoExiste 65319
-#define Literales_msgCliFaltaCodCli 65320
-#define Literales_msgCliCliNoElim 65321
-#define Literales_msgCliCliNoFacPag 65322
-#define Literales_msgCliNoExisteCodigo 65323
-#define Literales_msgCliCodigoIniMenor 65324
-#define Literales_msgCliCodigoIncorrecto 65325
-#define Literales_msgCliFaltanCodigos 65326
-#define Literales_msgCliCodPreRepetido 65327
-#define Literales_msgCodPedRepetido 65328
-#define Literales_msgPedDistintoProv 65329
-#define Literales_msgProvContratoRepetido 65330
-#define Literales_msgProvCodPagRepetido 65331
-#define Literales_msgProvCodPagIncorrecto 65332
-#define Literales_msgProvNoExistePag 65333
-#define Literales_msgProvPagBloqueado 65334
-#define Literales_msgProvCodPagNoExiste 65335
-#define Literales_msgProvBorrarPago 65336
-#define Literales_msgProvFaltaProPag 65337
-#define Literales_msgProvFaltaDescPag 65338
-#define Literales_msgProvIniMayor 65339
-#define Literales_msgProvNoHayProv 65340
-#define Literales_msgCodPedNoExiste 65341
-#define Literales_msgCodPedIncorrecto 65342
-#define Literales_msgCliCodCliRepetido 65343
-#define Literales_msgProvFaltaFormaPagoFac 65344
-#define Literales_msgProvFaltaTipoFac 65345
-#define Literales_msgTipFacturas0 65346
-#define Literales_msgTipFacturas1 65347
-#define Literales_msgTipFacturas2 65348
-#define Literales_msgProvCantidadNoValida 65349
-#define Literales_msgProvPrecioNoValido 65350
-#define Literales_msgProvDtoNoValido 65351
-#define Literales_msgProvBorrarFacPed 65352
-#define Literales_msgProvPedidoNoFacturar 65353
-#define Literales_msgProvPedYaFacturado 65354
-#define Literales_msgProvNoExisteFacProv 65355
-#define Literales_msgProvFacProvBloqueada 65356
-#define Literales_msgPedidoNoProveedor 65357
-#define Literales_msgSitPedIncorrecta 65358
-#define Literales_msgErrorFacturarPed 65359
-#define Literales_msgPedFaltaFecAlta 65360
-#define Literales_msgPedFaltaFecRecepcion 65361
-#define Literales_msgPedFaltaFecEmision 65362
-#define Literales_msgPedFaltaAlmDes 65363
-#define Literales_msgPedProvBloqueado 65364
-#define Literales_msgPedFaltaArticulos 65365
-#define Literales_msgPedProvNotaPorDef 65366
-#define Literales_msgPedProvCodCliFinalIncorrecto 65367
-#define Literales_msgPedProvCodCliFinalNoExiste 65368
-#define Literales_msgProvCodFacRepetido 65369
-#define Literales_msgProvCodFacIncorrecto 65370
-#define Literales_msgProvFaltaNombreProvFac 65371
-#define Literales_msgProvFaltaFechaAltaFac 65372
-#define Literales_msgProvFaltaFechaVtoFac 65373
-#define Literales_msgProvFechaVtoAnteriorFac 65374
-#define Literales_msgProvFaltanDetallesFac 65375
-#define Literales_msgProvFaltaCodigo 65376
-#define Literales_msgProvBloqueado 65377
-#define Literales_msgPedYaFacturado 65378
-#define Literales_msgPedidoYaRecibido 65379
-#define Literales_msgPedidoNoModificar 65380
-#define Literales_msgPedidoNoEliminar 65381
-#define Literales_msgPedidoNoEmitir 65382
-#define Literales_msgPedidoNoRecibir 65383
-#define Literales_msgPedidoNoDevolver 65384
-#define Literales_msgPedidoNoCancelar 65385
-#define Literales_msgPedidoNoFacturar 65386
-#define Literales_msgCancelarPedido 65387
-#define Literales_msgPedCodPedRepetido 65388
-#define Literales_msgPedCodPedIncorrecto 65389
-#define Literales_msgPedPedProvNoExiste 65390
-#define Literales_msgPedFaltaNombreProv 65391
-#define Literales_msgDatosCopiaInvalida 65392
-#define Literales_msgDatosCopiaVacia 65393
-#define Literales_msgDatosFaltaDescripcionFpago 65394
-#define Literales_msgDatosTablaFpagoBloqueada 65395
-#define Literales_msgDatosFormaPagoRepetida 65396
-#define Literales_msgProvCodProvRepetido 65397
-#define Literales_msgProvCodProvIncorrecto 65398
-#define Literales_msgProvFaltaNombreProv 65399
-#define Literales_msgProvNoExisteProv 65400
-#define Literales_msgProvProvBloqueado 65401
-#define Literales_msgProvCodProvNoExiste 65402
-#define Literales_msgProvFaltaProv 65403
-#define Literales_msgProvBorrarRepresentante 65404
-#define Literales_msgProvBorrarRepresentantes 65405
-#define Literales_msgProvFaltaCodProv 65406
-#define Literales_msgProvProvNoElim 65407
-#define Literales_msgDatosInstBloqueado 65408
-#define Literales_msgDatosCodInstNoExiste 65409
-#define Literales_msgDatosNoExisteFamilia 65410
-#define Literales_msgDatosFaltaDescripcionFam 65411
-#define Literales_msgDatosTablaFamBloqueada 65412
-#define Literales_msgDatosFamiliaRepetida 65413
-#define Literales_msgDatosFamiliaModelo 65414
-#define Literales_msgDatosNoExisteProcedencia 65415
-#define Literales_msgDatosFaltaDescripcionProc 65416
-#define Literales_msgDatosTablaProcBloqueada 65417
-#define Literales_msgDatosProcRepetida 65418
-#define Literales_msgDatosProcModelo 65419
-#define Literales_msgDatosFaltaDescripcionProp 65420
-#define Literales_msgDatosTablaPropBloqueada 65421
-#define Literales_msgDatosPropiedadRepetida 65422
-#define Literales_msgDatosPropiedadUsada 65423
+#define Literales_msgInfTri0 65184
+#define Literales_msgInfTri1 65185
+#define Literales_msgInfIntervaloTodosArt 65186
+#define Literales_msgInfIntervaloTodosCli 65187
+#define Literales_msgInfIntervaloTodosPro 65188
+#define Literales_msgInfIntervaloTodosMov 65189
+#define Literales_msgInfIntervaloDesArt 65190
+#define Literales_msgInfIntervaloFam 65191
+#define Literales_msgInfIntervaloCod 65192
+#define Literales_msgInfIntervaloCli 65193
+#define Literales_msgInfIntervaloFec 65194
+#define Literales_msgInfIntervaloPro 65195
+#define Literales_msgInfFaltaAlmacen 65196
+#define Literales_msgInfArticuloIniMayor 65197
+#define Literales_msgInfFamiliaIniMayor 65198
+#define Literales_msgLibNoExisteEnt 65200
+#define Literales_msgLibEntBloqueada 65201
+#define Literales_msgLibNumEntRepetida 65202
+#define Literales_msgLibNumEntIncorrecta 65203
+#define Literales_msgLibFaltaDescEnt 65204
+#define Literales_msgLibCierre 65205
+#define Literales_msgVisBorrarVisita 65206
+#define Literales_msgVisBorrarVisitas 65207
+#define Literales_msgTriCodigoErroneo 65208
+#define Literales_msgTriCerrado 65209
+#define Literales_msgTriFacTriCer 65210
+#define Literales_msgTriPredeterminadoErr 65211
+#define Literales_msgTriPredeterminadoOk 65212
+#define Literales_msgTriCerrarPredeterminado 65213
+#define Literales_msgOpcTablaContBloqueada 65214
+#define Literales_msgOpcContadoresInc 65215
+#define Literales_msgCliSep5 65216
+#define Literales_msgCliSep6 65217
+#define Literales_msgCliSep7 65218
+#define Literales_msgCliSep8 65219
+#define Literales_msgCliSep9 65220
+#define Literales_msgCliIniMayor 65221
+#define Literales_msgCliNoHayCli 65222
+#define Literales_msgCliListBene1 65223
+#define Literales_msgCliListBeneNoFac 65224
+#define Literales_msgCliListBeneCon1 65225
+#define Literales_msgCliListBeneCon2 65226
+#define Literales_msgCliListBeneCon3 65227
+#define Literales_msgCliListBeneCon4 65228
+#define Literales_msgCliListBeneCon5 65229
+#define Literales_msgCliListBeneNoCon 65230
+#define Literales_msgCliBorrarPropiedades 65231
+#define Literales_msgCliCodFacProIncorrecto 65232
+#define Literales_msgCliNoExisteFacPro 65233
+#define Literales_msgCliFacProBloqueado 65234
+#define Literales_msgCliCodPagRepetido 65235
+#define Literales_msgCliCodPagIncorrecto 65236
+#define Literales_msgCliNoExistePag 65237
+#define Literales_msgCliPagBloqueado 65238
+#define Literales_msgCliCodPagNoExiste 65239
+#define Literales_msgCliBorrarPago 65240
+#define Literales_msgCliFaltaCliPag 65241
+#define Literales_msgCliFaltaDescPag 65242
+#define Literales_msgCliErrorOp 65243
+#define Literales_msgCliSep1 65244
+#define Literales_msgCliSep2 65245
+#define Literales_msgCliSep3 65246
+#define Literales_msgCliSep4 65247
+#define Literales_msgObrElijaContrago 65248
+#define Literales_msgObrEliminarDetalles 65249
+#define Literales_msgObrEliminarTodosDetalles 65250
+#define Literales_msgCliCodFacRepetido 65251
+#define Literales_msgCliCodFacIncorrecto 65252
+#define Literales_msgCliSinProvincia 65253
+#define Literales_msgCliFaltaNombreCliFac 65254
+#define Literales_msgCliCodArtNoExiste 65255
+#define Literales_msgCliCodArtIncorrecto 65256
+#define Literales_msgCliFaltaFechaAlta 65257
+#define Literales_msgCliFaltaArticulos 65258
+#define Literales_msgCliFaltaFechaVto 65259
+#define Literales_msgCliFechaVtoMenorFechaAlta 65260
+#define Literales_msgCliNoExisteFac 65261
+#define Literales_msgCliFacBloqueado 65262
+#define Literales_msgCliCodFacProRepetido 65263
+#define Literales_litObrPedidos 65264
+#define Literales_litObrOtros 65265
+#define Literales_litObrEntregas 65266
+#define Literales_litObrMontajes 65267
+#define Literales_litObrRemates 65268
+#define Literales_msgObrFaltaObr 65269
+#define Literales_msgObrAnadida 65270
+#define Literales_msgObrErrAnadir 65271
+#define Literales_msgObrNoExisteObr 65272
+#define Literales_msgObrObrBloqueado 65273
+#define Literales_msgObrInsRepetido 65274
+#define Literales_msgObrPedDesObl 65275
+#define Literales_msgObrPedSelec 65276
+#define Literales_msgObrPrePedBorrar 65277
+#define Literales_msgObrInsConOtrasTareas1 65278
+#define Literales_msgObrInsConOtrasTareas2 65279
+#define Literales_msgCliPreNoModificar 65280
+#define Literales_msgCliPreNoEliminar 65281
+#define Literales_msgCliCambiarTipoPre 65282
+#define Literales_msgCliNoExisteTipoPre 65283
+#define Literales_msgCliPreErrAnadirDoc 65284
+#define Literales_msgCliPreErrEliminarDoc 65285
+#define Literales_msgCliCodConRepetido 65286
+#define Literales_msgCliCodConIncorrecto 65287
+#define Literales_msgCliFaltaNombreCliCon 65288
+#define Literales_msgCliFaltaFechaAltaCon 65289
+#define Literales_msgCliFaltaArticulosCon 65290
+#define Literales_msgCliNoExisteCon 65291
+#define Literales_msgCliConBloqueado 65292
+#define Literales_msgCliCrearContrato 65293
+#define Literales_msgCliCodConNoExiste 65294
+#define Literales_litObrObra 65295
+#define Literales_msgCliCodPreRepetido 65296
+#define Literales_msgCliCodPreIncorrecto 65297
+#define Literales_msgCliFaltaNombreCliPre 65298
+#define Literales_msgCliFaltaFechaAltaPre 65299
+#define Literales_msgCliFaltaFechaDecisionPre 65300
+#define Literales_msgCliSobraFechaDecisionPre 65301
+#define Literales_msgCliFaltaArticulosPre 65302
+#define Literales_msgCliNoExistePre 65303
+#define Literales_msgCliNoExistePreOrigen 65304
+#define Literales_msgCliPreBloqueado 65305
+#define Literales_msgCliPreYaAceptado 65306
+#define Literales_msgCliPreYaRechazado 65307
+#define Literales_msgCliCambiarAAceptar 65308
+#define Literales_msgCliCambiarARechazar 65309
+#define Literales_msgCliPreConContrato 65310
+#define Literales_msgCliPreYaFacturado 65311
+#define Literales_msgCliCodCliRepetido 65312
+#define Literales_msgCliCodCliIncorrecto 65313
+#define Literales_msgCliFaltaNombreCli 65314
+#define Literales_msgCliFaltaCli 65315
+#define Literales_msgCliNoExisteCli 65316
+#define Literales_msgCliCliBloqueado 65317
+#define Literales_msgCliBorrarSucursal 65318
+#define Literales_msgCliBorrarSucursales 65319
+#define Literales_msgCliCodCliNoExiste 65320
+#define Literales_msgCliFaltaCodCli 65321
+#define Literales_msgCliCliNoElim 65322
+#define Literales_msgCliCliNoFacPag 65323
+#define Literales_msgCliNoExisteCodigo 65324
+#define Literales_msgCliCodigoIniMenor 65325
+#define Literales_msgCliCodigoIncorrecto 65326
+#define Literales_msgCliFaltanCodigos 65327
+#define Literales_msgErrorFacturarPed 65328
+#define Literales_msgCodPedRepetido 65329
+#define Literales_msgPedDistintoProv 65330
+#define Literales_msgProvContratoRepetido 65331
+#define Literales_msgProvCodPagRepetido 65332
+#define Literales_msgProvCodPagIncorrecto 65333
+#define Literales_msgProvNoExistePag 65334
+#define Literales_msgProvPagBloqueado 65335
+#define Literales_msgProvCodPagNoExiste 65336
+#define Literales_msgProvBorrarPago 65337
+#define Literales_msgProvFaltaProPag 65338
+#define Literales_msgProvFaltaDescPag 65339
+#define Literales_msgProvIniMayor 65340
+#define Literales_msgProvNoHayProv 65341
+#define Literales_msgCodPedNoExiste 65342
+#define Literales_msgCodPedIncorrecto 65343
+#define Literales_msgProvFaltanDetallesFac 65344
+#define Literales_msgProvFaltaFormaPagoFac 65345
+#define Literales_msgProvFaltaTipoFac 65346
+#define Literales_msgTipFacturas0 65347
+#define Literales_msgTipFacturas1 65348
+#define Literales_msgTipFacturas2 65349
+#define Literales_msgProvCantidadNoValida 65350
+#define Literales_msgProvPrecioNoValido 65351
+#define Literales_msgProvDtoNoValido 65352
+#define Literales_msgProvBorrarFacPed 65353
+#define Literales_msgProvPedidoNoFacturar 65354
+#define Literales_msgProvPedYaFacturado 65355
+#define Literales_msgProvNoExisteFacProv 65356
+#define Literales_msgProvFacProvBloqueada 65357
+#define Literales_msgPedidoNoProveedor 65358
+#define Literales_msgSitPedIncorrecta 65359
+#define Literales_msgPedFaltaNombreProv 65360
+#define Literales_msgPedFaltaFecAlta 65361
+#define Literales_msgPedFaltaFecRecepcion 65362
+#define Literales_msgPedFaltaFecEmision 65363
+#define Literales_msgPedFaltaAlmDes 65364
+#define Literales_msgPedProvBloqueado 65365
+#define Literales_msgPedFaltaArticulos 65366
+#define Literales_msgPedProvNotaPorDef 65367
+#define Literales_msgPedProvCodCliFinalIncorrecto 65368
+#define Literales_msgPedProvCodCliFinalNoExiste 65369
+#define Literales_msgProvCodFacRepetido 65370
+#define Literales_msgProvCodFacIncorrecto 65371
+#define Literales_msgProvFaltaNombreProvFac 65372
+#define Literales_msgProvFaltaFechaAltaFac 65373
+#define Literales_msgProvFaltaFechaVtoFac 65374
+#define Literales_msgProvFechaVtoAnteriorFac 65375
+#define Literales_msgProvProvNoElim 65376
+#define Literales_msgProvFaltaCodigo 65377
+#define Literales_msgProvBloqueado 65378
+#define Literales_msgPedYaFacturado 65379
+#define Literales_msgPedidoYaRecibido 65380
+#define Literales_msgPedidoNoModificar 65381
+#define Literales_msgPedidoNoEliminar 65382
+#define Literales_msgPedidoNoEmitir 65383
+#define Literales_msgPedidoNoRecibir 65384
+#define Literales_msgPedidoNoDevolver 65385
+#define Literales_msgPedidoNoCancelar 65386
+#define Literales_msgPedidoNoFacturar 65387
+#define Literales_msgCancelarPedido 65388
+#define Literales_msgPedCodPedRepetido 65389
+#define Literales_msgPedCodPedIncorrecto 65390
+#define Literales_msgPedPedProvNoExiste 65391
+#define Literales_msgDatosPropiedadUsada 65392
+#define Literales_msgDatosCopiaInvalida 65393
+#define Literales_msgDatosCopiaVacia 65394
+#define Literales_msgDatosFaltaDescripcionFpago 65395
+#define Literales_msgDatosTablaFpagoBloqueada 65396
+#define Literales_msgDatosFormaPagoRepetida 65397
+#define Literales_msgProvCodProvRepetido 65398
+#define Literales_msgProvCodProvIncorrecto 65399
+#define Literales_msgProvFaltaNombreProv 65400
+#define Literales_msgProvNoExisteProv 65401
+#define Literales_msgProvProvBloqueado 65402
+#define Literales_msgProvCodProvNoExiste 65403
+#define Literales_msgProvFaltaProv 65404
+#define Literales_msgProvBorrarRepresentante 65405
+#define Literales_msgProvBorrarRepresentantes 65406
+#define Literales_msgProvFaltaCodProv 65407
+#define Literales_msgDatosNoExisteInst 65408
+#define Literales_msgDatosInstBloqueado 65409
+#define Literales_msgDatosCodInstNoExiste 65410
+#define Literales_msgDatosNoExisteFamilia 65411
+#define Literales_msgDatosFaltaDescripcionFam 65412
+#define Literales_msgDatosTablaFamBloqueada 65413
+#define Literales_msgDatosFamiliaRepetida 65414
+#define Literales_msgDatosFamiliaModelo 65415
+#define Literales_msgDatosNoExisteProcedencia 65416
+#define Literales_msgDatosFaltaDescripcionProc 65417
+#define Literales_msgDatosTablaProcBloqueada 65418
+#define Literales_msgDatosProcRepetida 65419
+#define Literales_msgDatosProcModelo 65420
+#define Literales_msgDatosFaltaDescripcionProp 65421
+#define Literales_msgDatosTablaPropBloqueada 65422
+#define Literales_msgDatosPropiedadRepetida 65423
 #define Literales_msgDatosPropRepetida 65424
 #define Literales_msgDatosCargaPropFamilia 65425
 #define Literales_msgArtNoExisteArtAlm 65426
 #define Literales_msgArtNoHayArt 65427
 #define Literales_msgArtNoHayArtAlm 65428
 #define Literales_msgArtTieneExistencias 65429
-#define Literales_msgDatosCodVendRepetido 65430
-#define Literales_msgDatosCodVendIncorrecto 65431
-#define Literales_msgDatosFaltaNombreVend 65432
-#define Literales_msgDatosNoExisteVend 65433
-#define Literales_msgDatosVendBloqueado 65434
-#define Literales_msgDatosCodVendNoExiste 65435
-#define Literales_msgDatosCodInstRepetido 65436
-#define Literales_msgDatosCodInstIncorrecto 65437
-#define Literales_msgDatosFaltaNombreInst 65438
-#define Literales_msgDatosNoExisteInst 65439
+#define Literales_msgArtExiste 65430
+#define Literales_msgDatosCodVendRepetido 65431
+#define Literales_msgDatosCodVendIncorrecto 65432
+#define Literales_msgDatosFaltaNombreVend 65433
+#define Literales_msgDatosNoExisteVend 65434
+#define Literales_msgDatosVendBloqueado 65435
+#define Literales_msgDatosCodVendNoExiste 65436
+#define Literales_msgDatosCodInstRepetido 65437
+#define Literales_msgDatosCodInstIncorrecto 65438
+#define Literales_msgDatosFaltaNombreInst 65439
 #define Literales_etiMovNombreAlmObrOrigen 65440
 #define Literales_etiMovIniTrasladoEnt 65441
 #define Literales_etiMovIniTrasladoSal 65442
@ -360,6 +361,7 @@
 #define Literales_msgFaltaConfig 65535
 STRINGTABLE
 BEGIN
+	Literales_msgInfTri0,	"No ha sido asignada la lista de tipos de operación al informe"
 	Literales_msgInfTri1,	"Existen más tipos de operacion que los iniciales 14!"
 	Literales_msgInfIntervaloTodosArt,	"Todos los artículos"
 	Literales_msgInfIntervaloTodosCli,	"Todos los clientes."
@ -374,6 +376,7 @@ BEGIN
 	Literales_msgInfFaltaAlmacen,	"Falta indicar el almacén que se utilizará para el listado."
 	Literales_msgInfArticuloIniMayor,	"La descripción del artículo inicial debe ser alfabéticamente anterior al artículo final."
 	Literales_msgInfFamiliaIniMayor,	"La familia inicial debe ser alfabéticamente anterior a la familia final."
+	Literales_msgLibNoExisteEnt,	"La entrada %s no existe en el libro."
 	Literales_msgLibEntBloqueada,	"La entrada %s está siendo modificada por otro usuario."
 	Literales_msgLibNumEntRepetida,	"Ya existe la entrada %s. Cambie el número de entrada por otra que no exista."
 	Literales_msgLibNumEntIncorrecta,	"%s no es un número de entrada correcta para un libro. Cambie el número de entrada por otra e inténtelo de nuevo."
@ -389,7 +392,7 @@ BEGIN
 	Literales_msgTriCerrarPredeterminado,	"El trimestre que desea cerrar esta como predeterminado, antes de cerrarlo debe seleccionar otro como predeterminado"
 	Literales_msgOpcTablaContBloqueada,	"Los valores de los contadores están siendo modificados por otro usuario. Inténtelo más tarde."
 	Literales_msgOpcContadoresInc,	"Todos los contadores deben de ser números enteros."
-	Literales_msgInfTri0,	"No ha sido asignada la lista de tipos de operación al informe"
+	Literales_msgCliSep5,	"[Anulación de entrada "
 	Literales_msgCliSep6,	" al modificar "
 	Literales_msgCliSep7,	" al eliminar "
 	Literales_msgCliSep8,	" "
@ -405,7 +408,7 @@ BEGIN
 	Literales_msgCliListBeneCon5,	"         Porcentaje beneficio: "
 	Literales_msgCliListBeneNoCon,	"No existen contratos de cliente"
 	Literales_msgCliBorrarPropiedades,	"¿Desea borrar todas las propiedades?"
-	Literales_msgLibNoExisteEnt,	"La entrada %s no existe en el libro."
+	Literales_msgCliCodFacProIncorrecto,	"%s no es un código correcto para una factura proforma. Cambie el codigo de la factura por otro e inténtelo de nuevo."
 	Literales_msgCliNoExisteFacPro,	"La factura proforma %s no existe."
 	Literales_msgCliFacProBloqueado,	"La factura proforma %s está siendo modificada por otro usuario."
 	Literales_msgCliCodPagRepetido,	"Ya existe el pago de cliente %s. Cambie el código del pago por otro que no exista."
@ -421,7 +424,7 @@ BEGIN
 	Literales_msgCliSep2,	" de cliente: "
 	Literales_msgCliSep3,	", "
 	Literales_msgCliSep4,	"] : "
-	Literales_msgCliSep5,	"[Anulación de entrada "
+	Literales_msgObrElijaContrago,	"Elija el contrato del que desea abrir un montaje"
 	Literales_msgObrEliminarDetalles,	"¿Desea eliminar esta linea?"
 	Literales_msgObrEliminarTodosDetalles,	"¿Desea eliminar todo?"
 	Literales_msgCliCodFacRepetido,	"Ya existe una factura de cliente con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta la factura."
@ -437,7 +440,7 @@ BEGIN
 	Literales_msgCliNoExisteFac,	"La factura de cliente %s no existe."
 	Literales_msgCliFacBloqueado,	"La factura de cliente %s está siendo modificada por otro usuario."
 	Literales_msgCliCodFacProRepetido,	"Ya existe la factura proforma %s. Cambie el codigo de la factura por otro que no exista."
-	Literales_msgCliCodFacProIncorrecto,	"%s no es un código correcto para una factura proforma. Cambie el codigo de la factura por otro e inténtelo de nuevo."
+	Literales_litObrPedidos,	"Pedidos "
 	Literales_litObrOtros,	"Otros "
 	Literales_litObrEntregas,	"Entregas "
 	Literales_litObrMontajes,	"Montajes "
@ -453,7 +456,7 @@ BEGIN
 	Literales_msgObrPrePedBorrar,	"¿Está seguro que desea eliminar pedido %s?"
 	Literales_msgObrInsConOtrasTareas1,	"No se ha podido eliminar el instalador por tener entregas,montajes o remates asociados"
 	Literales_msgObrInsConOtrasTareas2,	"No se ha podido eliminar todos los instaladores por tener entregas,montajes o remates asociados"
-	Literales_msgObrElijaContrago,	"Elija el contrato del que desea abrir un montaje"
+	Literales_msgCliPreNoModificar,	"Este presupuesto no se puede modificar porque está %s."
 	Literales_msgCliPreNoEliminar,	"Este presupuesto no se puede eliminar porque está %s."
 	Literales_msgCliCambiarTipoPre,	"¿Desea convertir este presupuesto en un presupuesto de %s?"
 	Literales_msgCliNoExisteTipoPre,	"No existe el tipo de presupuesto %s."
@ -469,7 +472,7 @@ BEGIN
 	Literales_msgCliCrearContrato,	"¿Desea crear ahora el contrato relacionado a este presupuesto?"
 	Literales_msgCliCodConNoExiste,	"No existe el contrato %s. Introduzca un codigo de contrato que sí exista."
 	Literales_litObrObra,	"Montaje "
-	Literales_litObrPedidos,	"Pedidos "
+	Literales_msgCliCodPreRepetido,	"Ya existe un presupuesto con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta el presupuesto."
 	Literales_msgCliCodPreIncorrecto,	"%s no es un código correcto para un presupuesto de cliente. Cambie el codigo del presupuesto por otro e inténtelo de nuevo."
 	Literales_msgCliFaltaNombreCliPre,	"Es obligatorio introducir los datos del cliente al que pertenece este presupuesto."
 	Literales_msgCliFaltaFechaAltaPre,	"Debe indicar la fecha de alta del presupuesto."
@ -485,7 +488,7 @@ BEGIN
 	Literales_msgCliCambiarARechazar,	"El presupuesto %s está aceptado. ¿Desea rechazarlo?"
 	Literales_msgCliPreConContrato,	"El presupuesto %s no se puede rechazar porque está aceptado y tiene un contrato asociado."
 	Literales_msgCliPreYaFacturado,	"El presupuesto %s ya está facturado."
-	Literales_msgCliPreNoModificar,	"Este presupuesto no se puede modificar porque está %s."
+	Literales_msgCliCodCliRepetido,	"Ya existe el cliente %s. Cambie el codigo del cliente por otro que no exista."
 	Literales_msgCliCodCliIncorrecto,	"%s no es un código correcto para un cliente. Cambie el codigo del cliente por otro e inténtelo de nuevo."
 	Literales_msgCliFaltaNombreCli,	"Es obligatorio introducir el cliente."
 	Literales_msgCliFaltaCli,	"Es obligatorio introducir un cliente."
@ -501,7 +504,7 @@ BEGIN
 	Literales_msgCliCodigoIniMenor,	"El código de cliente inicial debe ser menor que el código de cliente final"
 	Literales_msgCliCodigoIncorrecto,	"%s no es un código correcto para un cliente. Cambie el codigo por otro e inténtelo de nuevo."
 	Literales_msgCliFaltanCodigos,	"Falta indicar o completar el intervalo de códigos de cliente para el listado."
-	Literales_msgCliCodPreRepetido,	"Ya existe un presupuesto con el código %s. Se ha reemplazado por el código %s para que pueda dar de alta el presupuesto."
+	Literales_msgErrorFacturarPed,	"Error. No se ha podido añadir el pedido %s a la factura."
 	Literales_msgCodPedRepetido,	"El código de pedido %s ya existe en la lista de pedidos de la factura."
 	Literales_msgPedDistintoProv,	"El pedido %s pertenece a un proveedor distinto al que figura en la factura."
 	Literales_msgProvContratoRepetido,	"El contrato %s ya está incluído en la lista."
@ -517,7 +520,7 @@ BEGIN
 	Literales_msgProvNoHayProv,	"No existen proveedores dados de alta"
 	Literales_msgCodPedNoExiste,	"No existe el pedido a proveedor %s. Cambie el codigo del pedido por otro que sí exista."
 	Literales_msgCodPedIncorrecto,	"%s no es un código de pedido correcto. Cambie el codigo del pedido por otro e inténtelo de nuevo."
-	Literales_msgCliCodCliRepetido,	"Ya existe el cliente %s. Cambie el codigo del cliente por otro que no exista."
+	Literales_msgProvFaltanDetallesFac,	"Es necesario introducir al menos un pedido en la factura."
 	Literales_msgProvFaltaFormaPagoFac,	"Es necesario indicar la forma de pago."
 	Literales_msgProvFaltaTipoFac,	"Es necesario indicar el tipo de operación de la factura."
 	Literales_msgTipFacturas0,	"Todas"
@ -533,7 +536,7 @@ BEGIN
 	Literales_msgProvFacProvBloqueada,	"La factura de proveedor %s está siendo modificada por otro usuario."
 	Literales_msgPedidoNoProveedor,	"El pedido %s no pertenece al proveedor de la factura."
 	Literales_msgSitPedIncorrecta,	"No se puede añadir el pedido %s porque está %s y la factura es %s."
-	Literales_msgErrorFacturarPed,	"Error. No se ha podido añadir el pedido %s a la factura."
+	Literales_msgPedFaltaNombreProv,	"Es obligatorio introducir los datos del proveedor al que va dirigido este pedido."
 	Literales_msgPedFaltaFecAlta,	"Debe indicar la fecha de alta del pedido a proveedor."
 	Literales_msgPedFaltaFecRecepcion,	"Es obligatorio indicar la fecha de recepción del pedido."
 	Literales_msgPedFaltaFecEmision,	"Para poder emitir el pedido, debe indicar la fecha de emisión del pedido."
@ -549,7 +552,7 @@ BEGIN
 	Literales_msgProvFaltaFechaAltaFac,	"La factura debe tener fecha de alta."
 	Literales_msgProvFaltaFechaVtoFac,	"La factura debe tener fecha de vencimiento."
 	Literales_msgProvFechaVtoAnteriorFac,	"La fecha de vencimiento no puede ser anterior a la fecha de alta de la factura."
-	Literales_msgProvFaltanDetallesFac,	"Es necesario introducir al menos un pedido en la factura."
+	Literales_msgProvProvNoElim,	"Asegurese que el proveedor %s no tenga asociados facturas o pagos."
 	Literales_msgProvFaltaCodigo,	"Debe introducir un código de proveedor para poder realizar el listado."
 	Literales_msgProvBloqueado,	"El proveedor %s está siendo modificado por otro usuario."
 	Literales_msgPedYaFacturado,	"El pedido %s ya está facturado."
@ -565,7 +568,7 @@ BEGIN
 	Literales_msgPedCodPedRepetido,	"Ya existe el pedido %s. Cambie el codigo del pedido por otro que no exista."
 	Literales_msgPedCodPedIncorrecto,	"%s no es un código correcto para un pedido a proveedor. Cambie el codigo del pedido por otro e inténtelo de nuevo."
 	Literales_msgPedPedProvNoExiste,	"El pedido a proveedor %s no existe. Cambie el codigo del pedido por otro que sí exista."
-	Literales_msgPedFaltaNombreProv,	"Es obligatorio introducir los datos del proveedor al que va dirigido este pedido."
+	Literales_msgDatosPropiedadUsada,	"Asegurese que la propiedad que desea eliminar no tenga asociada ninguna otra."
 	Literales_msgDatosCopiaInvalida,	"Debe elegir otra propiedad diferente a la que está modificando."
 	Literales_msgDatosCopiaVacia,	"Debe indicar una propiedad."
 	Literales_msgDatosFaltaDescripcionFpago,	"Es necesario que introduzca el nombre de la forma de pago, o en su defecto, elimine la fila."
@ -581,7 +584,7 @@ BEGIN
 	Literales_msgProvBorrarRepresentante,	"¿Desea borrar este representante?"
 	Literales_msgProvBorrarRepresentantes,	"¿Desea borrar todos los representantes?"
 	Literales_msgProvFaltaCodProv,	"Es obligatorio que el proveedor esté dado de alta (tenga un código de proveedor asociado)"
-	Literales_msgProvProvNoElim,	"Asegurese que el proveedor %s no tenga asociados facturas o pagos."
+	Literales_msgDatosNoExisteInst,	"El instalador %s no existe."
 	Literales_msgDatosInstBloqueado,	"El instalador %s está siendo modificado por otro usuario."
 	Literales_msgDatosCodInstNoExiste,	"No existe el instalador %s. Introduzca un vendedor que sí exista."
 	Literales_msgDatosNoExisteFamilia,	"No existe la familia"
@ -597,13 +600,13 @@ BEGIN
 	Literales_msgDatosFaltaDescripcionProp,	"Es necesario que introduzca el nombre de la propiedad, o en su defecto, elimine la fila."
 	Literales_msgDatosTablaPropBloqueada,	"Las propiedades están siendo modificadas por otro usuario. Inténtelo más tarde."
 	Literales_msgDatosPropiedadRepetida,	"Ya existe la propiedad %s. Cambie la propiedad por otra que no exista."
-	Literales_msgDatosPropiedadUsada,	"Asegurese que la propiedad que desea eliminar no tenga asociada ninguna otra."
 	Literales_msgDatosPropRepetida,	"El artículo no puede tener propiedades repetidas."
 	Literales_msgDatosCargaPropFamilia,	"La familia tiene propiedades predeterminadas. ¿Desea utilizarlas en el artículo?"
 	Literales_msgArtNoExisteArtAlm,	"El artículo %s no existe en el almacén."
 	Literales_msgArtNoHayArt,	"No hay articulos dados de alta, por lo tanto no es posible seleccionar."
 	Literales_msgArtNoHayArtAlm,	"No hay articulos en el almacén, por lo tanto no es posible seleccionar"
 	Literales_msgArtTieneExistencias,	"El artículo tiene todavía existencias y no puede ser eliminado."
+	Literales_msgArtExiste,	"El artículo %s existe en algún almacen o montaje por lo que no puede ser eliminado."
 	Literales_msgDatosCodVendRepetido,	"Ya existe el vendedor %s. Cambie el codigo del vendedor por otro que no exista."
 	Literales_msgDatosCodVendIncorrecto,	"%s no es un código correcto para un vendedor. Cambie el codigo del vendedor por otro e inténtelo de nuevo."
 	Literales_msgDatosFaltaNombreVend,	"Es obligatorio introducir el nombre del vendedor."
@ -613,7 +616,6 @@ BEGIN
 	Literales_msgDatosCodInstRepetido,	"Ya existe el instalador %s. Cambie el codigo del instalador por otro que no exista."
 	Literales_msgDatosCodInstIncorrecto,	"%s no es un código correcto para un instalador. Cambie el codigo del instalador por otro e inténtelo de nuevo."
 	Literales_msgDatosFaltaNombreInst,	"Es obligatorio introducir el nombre del instalador."
-	Literales_msgDatosNoExisteInst,	"El instalador %s no existe."
 	Literales_etiMovNombreAlmObrOrigen,	"Nombre del almacén/montaje origen:"
 	Literales_etiMovIniTrasladoEnt,	"Entrada por traslado desde el almacén con código \""
 	Literales_etiMovIniTrasladoSal,	"Salida por traslado al almacén con código \""
--- a/Informes/InformeEstadoAlmacen.ddp
+++ b/Informes/InformeEstadoAlmacen.ddp
--- a/Informes/InformeEstadoAlmacen.pas
+++ b/Informes/InformeEstadoAlmacen.pas
@ -19,8 +19,8 @@ type
    FTipo: TTipoInforme;
    FDesIni: string;
    FDesFin: string;
-    procedure InformeGetParametersText(Memo : TStringList);
  protected
+    procedure RellenarCabecera(Band: TfrBand); override;
    procedure PrepararConsultas; override;
  public
    constructor Create(AOwner: TComponent); override;
@ -50,24 +50,9 @@ constructor TdmInformeEstadoAlmacen.Create(AOwner: TComponent);
 begin
  inherited;
  FNombreInforme := 'ListadoEstadoAlmacen.frf';
-  //OnGetParametersText := InformeGetParametersText;   ¡¡¡ REVISAR !!!
  Tipo := tiTodo;
 end;

-procedure TdmInformeEstadoAlmacen.InformeGetParametersText(
-  Memo: TStringList);
-begin
-  with Memo do
-  begin
-    Add('Almacén: ' + IntToStr(CodigoAlmacen) + ' - ' + NombreAlmacen);
-    case Tipo of
-      tiTodo            : Add(msgInfIntervaloTodosArt);
-      tiPorDescripcion  : Add(SysUtils.Format(msgInfIntervaloDesArt, [FDesIni, FDesFin]));
-      tiPorFamilias     : Add(SysUtils.Format(msgInfIntervaloFam, [FFamIni, FFamFin]));
-    end;
-  end;
-end;
-
 procedure TdmInformeEstadoAlmacen.PrepararConsultas;
 begin
  TablaEstado.Database := FBaseDatos;
@ -137,4 +122,32 @@ begin
  end;
 end;

+procedure TdmInformeEstadoAlmacen.RellenarCabecera(Band: TfrBand);
+var
+  iCont : Integer;
+  Objeto : TfrView;
+begin
+  inherited;
+  with Band do
+  begin
+     for iCont := 0 to Objects.Count - 1 do
+      begin
+        Objeto := Objects[iCont];
+        if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
+        begin
+          with (Objeto as TfrMemoView) do
+          begin
+            Memo.Clear;
+            Memo.Add('Almacén: ' + IntToStr(CodigoAlmacen) + ' - ' + NombreAlmacen);
+            case Tipo of
+              tiTodo            : Memo.Add(msgInfIntervaloTodosArt);
+              tiPorDescripcion  : Memo.Add(SysUtils.Format(msgInfIntervaloDesArt, [FDesIni, FDesFin]));
+              tiPorFamilias     : Memo.Add(SysUtils.Format(msgInfIntervaloFam, [FFamIni, FFamFin]));
+            end;
+          end;
+        end;
+      end;
+  end;
+end;
+
 end.
--- a/Temp/FACTUGES.INI
+++ b/Temp/FACTUGES.INI
@ -1,7 +1,7 @@
 [BD]
 MIGUELO RIVAS=david:D:\Proyectos\FactuGES (Miguelo)\Codigo\bd\miguelo.gdb
 ACANA DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\bd\acana.gdb
-MIGUELO ROBERTO=roberto:E:\Codigo (Miguelo)\bd\miguelo.gdb
+MIGUELO ROBERTO=roberto:E:\Miguelo\bd\miguelo.gdb



--- a/Temp/Factuges.exe
+++ b/Temp/Factuges.exe
--- a/Temp/Factuges.map
+++ b/Temp/Factuges.map
--- a/Temp/Informes/ListadoEstadoAlmacen.frf
+++ b/Temp/Informes/ListadoEstadoAlmacen.frf
--- a/bd/miguelo.gdb
+++ b/bd/miguelo.gdb