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

git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/tags/3.0.4@7 172823e9-465a-9d4b-80ba-0a9f016f4eb1
2007-06-25 18:09:41 +00:00
37 changed files with 132788 additions and 338 deletions
--- a/BaseDatos/TablaFacturasProveedor.pas
+++ b/BaseDatos/TablaFacturasProveedor.pas
@ -20,7 +20,6 @@
    ---------------------------------------------------------------------------
    02-02-2004    Se ha eliminado el atributo SERIE (P8 MULTIEMPRESA)
                  Se ha adaptado a los nuevos contadores
-
 ===============================================================================
 }

@ -155,7 +154,6 @@ type
    function DarTiposOpDesTrimestral(var ListaCodigos: TStrings): TStrings;
    function ComprobarTrimestreFactura(CodigoFactura: String): Boolean;
    function AsignarTrimestre(CodigoFactura: String; CodigoTrimestre: String): Boolean;
-    function ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
  end;

 var
@ -1197,47 +1195,6 @@ begin
  end;
 end;

-function TdmTablaFacturasProveedor.ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
-var
-  oSQL : TIBSQL;
-  Indice : Integer;
-  Cadena : String;
-begin
-  Result := False;
-  if Codigos.Count = 0 then
-     Exit;
-
-  //Formateamos los códigos para optimizar la sentencia SQL
-  for Indice:=0 to Codigos.Count-1 do
-  begin
-    if (Indice <> 0) then
-       Cadena := Cadena + ',';
-    Cadena := Cadena + '''' + Codigos.Strings[Indice] + '''';
-  end;
-
-  oSQL := TIBSQL.Create(Self);
-  with oSQL do
-  begin
-    Database := dmBaseDatos.BD;
-    Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('update FACTURASPROVEEDOR ');
-    SQL.Add('set SITUACION = :SITUACION ');
-    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
-    SQL.Add('and CODIGO IN (' + Cadena + ')');
-    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-    ParamByName('SITUACION').AsString := Situacion;
-    try
-      Prepare;
-      ExecQuery;
-      Result := True;
-    finally
-      Close;
-      Transaction := NIL;
-      Free;
-    end;
-  end;
-end;
-
 { TDatosFacturaProveedor }

 procedure TDatosFacturaProveedor.AssignTo(Dest: TPersistent);
--- a/Clientes/CambiarSituacionFacturas.dfm
+++ b/Clientes/CambiarSituacionFacturas.dfm
@ -84,12 +84,13 @@ object frCambiarSituacionFacturas: TfrCambiarSituacionFacturas
    object cbxSituacion: TcxComboBox
      Left = 96
      Top = 19
+      Width = 169
+      Height = 21
      ParentFont = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ReadOnly = False
      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
      TabOrder = 0
-      Width = 169
    end
  end
  object brDoble: TRdxBarraInferior
--- a/Clientes/CambiarSituacionFacturas.pas
+++ b/Clientes/CambiarSituacionFacturas.pas
@ -29,7 +29,7 @@ uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, StdCtrls, RdxBotones, RdxBarras, ExtCtrls,
-  RdxPaneles, TablaTrimestres, cxGraphics, Entidades;
+  RdxPaneles, TablaTrimestres;

 type
  TfrCambiarSituacionFacturas = class(TForm)
@ -46,14 +46,12 @@ type
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
-    FEntidad: TRdxEntidad;
    FCodigosFacturas : TStringList;
    FSituacion : String;
    procedure SetSituacion(Value : String);
  public
    property CodigosFacturas : TStringList read FCodigosFacturas write FCodigosFacturas;
    property Situacion : String read FSituacion write SetSituacion;
-    property Entidad: TRdxEntidad read FEntidad Write FEntidad;
  end;

 var
@ -62,22 +60,16 @@ var
 implementation

 uses
-  Mensajes, Literales, BaseDatos, Configuracion, RdxEmpresaActiva,
-  TablaFacturasCliente, TablaFacturasProveedor, StrFunc, Math;
+  Mensajes, Literales, BaseDatos, Configuracion, Entidades, RdxEmpresaActiva,
+  TablaFacturasCliente, StrFunc;

 {$R *.dfm}

 procedure TfrCambiarSituacionFacturas.bAceptarClick(Sender: TObject);
 var
 Indice :Integer;
- Resultado: Boolean;
 begin
-  if Entidad = entFacturaProveedor then
-     Resultado := dmTablaFacturasProveedor.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text)
-  else
-     Resultado := dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text);
-
-  if not Resultado then
+  if not dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text) then
  begin
    dmBaseDatos.Rollback;
    exit;
@ -89,7 +81,6 @@ end;
 procedure TfrCambiarSituacionFacturas.FormCreate(Sender: TObject);
 begin
  inherited;
-  FEntidad := entFacturaCliente; //Por defecto tratara los documentos de facturas de cliente
  FCodigosFacturas := TStringList.Create;
  cbxSituacion.Properties.Items := dmTablaFacturasCliente.DarSituaciones;
  cbxSituacion.ItemIndex := 0;
--- a/Clientes/ContratoCliente.pas
+++ b/Clientes/ContratoCliente.pas
@ -1230,8 +1230,6 @@ begin
      Post;
      InsertarPropiedades(FieldByName('NUMCONCEPTO').AsInteger);
      gridDetalles.Refresh;
-// Como no coge el importe lo comentamos
-//      CalcularTotalDetalle;
    end;
    FCodigoArticulo := Value;
  finally
--- a/Clientes/FacturasClientes.pas
+++ b/Clientes/FacturasClientes.pas
@ -468,7 +468,6 @@ var

 begin
  fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
-  fCambiarSituacionFacturas.Entidad := entFacturaCliente;

  //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
  IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;
--- a/Clientes/ListadoClientes.dfm
+++ b/Clientes/ListadoClientes.dfm
@ -1,7 +1,7 @@
 object frListadoClientes: TfrListadoClientes
  Left = 0
  Top = 0
-  Width = 1081
+  Width = 443
  Height = 270
  Align = alClient
  Color = 16383743
@ -10,7 +10,7 @@ object frListadoClientes: TfrListadoClientes
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 1081
+    Width = 443
    Height = 22
    Caption = ' '
    Color = 9685681
@ -24,7 +24,7 @@ object frListadoClientes: TfrListadoClientes
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 1081
+    Width = 443
    Height = 107
    Align = alTop
    AutoSize = True
@ -35,7 +35,7 @@ object frListadoClientes: TfrListadoClientes
    object pnlProveedor: TAdvPanel
      Left = 10
      Top = 10
-      Width = 1061
+      Width = 423
      Height = 87
      Align = alTop
      BevelOuter = bvNone
@ -129,8 +129,8 @@ object frListadoClientes: TfrListadoClientes
        ParentFont = False
      end
      object Label2: TLabel
-        Left = 382
-        Top = 40
+        Left = 70
+        Top = 64
        Width = 76
        Height = 13
        Alignment = taRightJustify
@ -157,34 +157,6 @@ object frListadoClientes: TfrListadoClientes
        ParentFont = False
        Visible = False
      end
-      object Label3: TLabel
-        Left = 19
-        Top = 66
-        Width = 127
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'Dados de alta entre el d'#237'a:'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object eFechaFin: TLabel
-        Left = 420
-        Top = 66
-        Width = 38
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'y el d'#237'a:'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
      object NombreCliIni: TcxButtonEdit
        Left = 152
        Top = 37
@ -243,11 +215,11 @@ object frListadoClientes: TfrListadoClientes
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 0
        Text = 'NombreCliIni'
-        Width = 225
+        Width = 350
      end
      object NombreCliFin: TcxButtonEdit
-        Left = 464
-        Top = 37
+        Left = 152
+        Top = 61
        ParentFont = False
        Properties.Buttons = <
          item
@ -303,34 +275,14 @@ object frListadoClientes: TfrListadoClientes
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 1
        Text = 'NombreCliFin'
-        Width = 225
-      end
-      object FechaIni: TcxDateEdit
-        Left = 152
-        Top = 62
-        ParentFont = False
-        Properties.ImmediatePost = True
-        Properties.OnValidate = FechaIniPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 2
-        Width = 225
-      end
-      object FechaFin: TcxDateEdit
-        Left = 464
-        Top = 62
-        ParentFont = False
-        Properties.ImmediatePost = True
-        Properties.OnValidate = FechaFinPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 3
-        Width = 225
+        Width = 350
      end
    end
  end
  object pnlVistaPrevia: TPanel
    Left = 0
    Top = 129
-    Width = 1081
+    Width = 443
    Height = 141
    Align = alClient
    BevelOuter = bvNone
--- a/Clientes/ListadoClientes.pas
+++ b/Clientes/ListadoClientes.pas
@ -32,7 +32,7 @@ uses
  Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
  AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
-  InformeListadoClientes, TablaClientes, Entidades, cxCalendar;
+  InformeListadoClientes, TablaClientes, Entidades;

 type
  TfrListadoClientes = class(TRdxFrame)
@ -45,10 +45,6 @@ type
    Label1: TLabel;
    NombreCliIni: TcxButtonEdit;
    NombreCliFin: TcxButtonEdit;
-    Label3: TLabel;
-    FechaIni: TcxDateEdit;
-    eFechaFin: TLabel;
-    FechaFin: TcxDateEdit;
    procedure CodigoCliIniPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure CodigoCliFinPropertiesButtonClick(Sender: TObject;
@ -59,12 +55,6 @@ type
    procedure NombreCliFinPropertiesValidate(Sender: TObject;
      var DisplayValue: Variant; var ErrorText: TCaption;
      var Error: Boolean);
-    procedure FechaIniPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
-    procedure FechaFinPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
  private
    FVistaPrevia : TfrVistaPrevia;
    FInforme : TdmInformeListadoClientes;
@ -92,8 +82,8 @@ implementation
 { TfrListadoClientes }

 uses
-  Literales, Mensajes, StrFunc, DateUtils, InformeBase, cxDateUtils,
-  Clientes, RdxFrameClientes, configuracion, TablaTrimestres;
+  Literales, Mensajes, StrFunc, DateUtils, InformeBase,
+  Clientes, RdxFrameClientes, configuracion;

 constructor TfrListadoClientes.Create(AOwner: TComponent);
 var
@ -121,12 +111,6 @@ begin
  FVistaPrevia.Parent := pnlVistaPrevia;
  FInforme := TdmInformeListadoClientes.Create(Self);
  FInforme.Preview := FVistaPrevia.Preview;
-
-  FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
-  FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
-  FInforme.FechaAltaIni := FechaIni.Date;
-  FInforme.FechaAltaFin := FechaFin.Date;
-
  RecogerParametrosInforme;
 end;

@ -233,46 +217,4 @@ begin
  ConfigurarFrame(Self, Self.Entidad);
 end;

-procedure TfrListadoClientes.FechaIniPropertiesValidate(Sender: TObject;
-  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
-var
-  ADate : TDateTime;
-begin
-  try
-    if DisplayValue > FechaFin.Date then
-    begin
-      ErrorText := msgFechasMal;
-      Error := True;
-      Exit;
-    end;
-    TextToDateEx(DisplayValue, ADate);
-    FInforme.FechaAltaIni := ADate;
-    FInforme.Previsualizar;
-  except
-    Error := True;
-    ErrorText := msgFechaNoValida;
-  end;
-end;
-
-procedure TfrListadoClientes.FechaFinPropertiesValidate(Sender: TObject;
-  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
-var
-  ADate : TDateTime;
-begin
-  try
-    if DisplayValue < FechaIni.Date then
-    begin
-      ErrorText := msgFechasMal;
-      Error := True;
-      Exit;
-    end;
-    TextToDateEx(DisplayValue, ADate);
-    FInforme.FechaAltaFin := ADate;
-    FInforme.Previsualizar
-  except
-    Error := True;
-    ErrorText := msgFechaNoValida;
-  end;
-end;
-
 end.
--- a/Clientes/PresupuestoCliente.pas
+++ b/Clientes/PresupuestoCliente.pas
@ -1360,8 +1360,6 @@ begin
      Post;
      InsertarPropiedades(FieldByName('NUMCONCEPTO').AsInteger);
      gridDetalles.Refresh;
-// Como no coge el importe lo comentamos       
-//      CalcularTotalDetalle;
    end;
    FCodigoArticulo := Value;
  finally
--- a/Factuges.dof
+++ b/Factuges.dof
@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=0
-Release=8
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@ -126,28 +126,28 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.0.8.0
+FileVersion=3.0.4.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=3.0.8.0
+ProductVersion=2.6.0.0
 Comments=
 [Excluded Packages]
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
@ -156,51 +156,15 @@ C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=Expre
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvCoreD7R.bpl=JVCL Core Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvSystemD7R.bpl=JVCL System Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvStdCtrlsD7R.bpl=JVCL Standard Controls Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvAppFrmD7R.bpl=JVCL Application and Form Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvBandsD7R.bpl=JVCL Band Objects Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvDBD7R.bpl=JVCL Database Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvDlgsD7R.bpl=JVCL Dialog Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvCustomD7R.bpl=JVCL Custom Controls Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvBDED7R.bpl=JVCL BDE Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvCmpD7R.bpl=JVCL Non-Visual Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvCryptD7R.bpl=JVCL Encryption and Compression Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvDockingD7R.bpl=JVCL Docking Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvDotNetCtrlsD7R.bpl=JVCL DotNet Controls Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvEDID7R.bpl=JVCL EDI Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvGlobusD7R.bpl=JVCL Globus Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvHMID7R.bpl=JVCL HMI Controls Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvInterpreterD7R.bpl=JVCL Interpreter Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvJansD7R.bpl=JVCL Jans Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvManagedThreadsD7R.bpl=JVCL Managed Threads Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvMMD7R.bpl=JVCL Multimedia and Image Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvNetD7R.bpl=JVCL Network Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvPageCompsD7R.bpl=JVCL Page Style Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvPluginD7R.bpl=JVCL Plugin Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvPrintPreviewD7R.bpl=JVCL Print Preview Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvRuntimeDesignD7R.bpl=JVCL Runtime Design Components Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvTimeFrameworkD7R.bpl=JVCL Time Framework Runtime Package
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
-C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\EurekaLog 5\Delphi7\ExceptionExpert7.bpl=EurekaLog 5.1.9
+C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerD7.bpl=Database Comparer VCL
+C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerBdeD7.bpl=Database Comparer VCL BDE
+C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerDBXD7.bpl=Database Comparer VCL DBX
+C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerIbxD7.bpl=Database Comparer VCL IBX
+C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerAdoD7.bpl=Database Comparer VCL ADO
+C:\WINDOWS\system32\dclShX_Namespace_V3D7.bpl=(untitled)
+C:\WINDOWS\system32\vclShX_Namespace_v3D7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
 Count=1
 Item0=D:\Proyectos\Componentes\Indy9\
--- a/Factuges.dpr
+++ b/Factuges.dpr
@ -28,7 +28,7 @@ program FactuGES;
 {%ToDo 'Factuges.todo'}

 uses
-//  ExceptionLog,
+  ExceptionLog,
  Forms,
  Windows,
  Mensajes,
--- a/Factuges.dsk
+++ b/Factuges.dsk
@ -1,61 +1,87 @@
 [Closed Files]
-File_0=SourceModule,'C:\Codigo Miguelo\BaseDatos\TablaEmpresas.pas',0,1,160,39,194,1,0
-File_1=SourceModule,'C:\Codigo Miguelo\Informes\InformeContratoCliente.pas',0,1,1,1,1,1,0
-File_2=SourceModule,'C:\Codigo Miguelo\Clientes\ListadoClientes.pas',0,1,68,69,95,1,0
-File_3=SourceModule,'C:\Codigo Miguelo\Informes\InformeListadoFacturacionProcedencia.pas',0,1,87,97,105,1,0
-File_4=SourceModule,'C:\Codigo Miguelo\Clientes\ListadoFacturacionProcedencia.pas',0,1,46,63,76,1,0
-File_5=SourceModule,'C:\Codigo Miguelo\Informes\InformeListadoClientes.pas',0,1,74,58,79,1,0
-File_6=SourceModule,'E:\Miguelo\Informes\InformeEstadoAlmacen.pas',0,1,15,17,24,1,0
-File_7=SourceModule,'E:\Miguelo\Informes\InformeListadoClientes.pas',0,1,51,20,46,1,0
-File_8=SourceModule,'E:\Miguelo\BaseDatos\TablaArticulosAlmacen.pas',0,1,246,1,253,1,0
-File_9=SourceModule,'E:\Miguelo\BaseDatos\TablaArticulos.pas',0,1,243,18,256,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=C:\Codigo\Informes\InformeFacturaCliente.pas
-Module1=C:\Codigo\Factuges.dpr
-Count=2
+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

-[C:\Codigo\Informes\InformeFacturaCliente.pas]
+[E:\Miguelo\Almacenes\ListadoArticulosAlmacen.pas]
 ModuleType=SourceModule
 FormState=1
-FormOnTop=1
+FormOnTop=0

-[C:\Codigo\Factuges.dpr]
+[E:\Miguelo\Clientes\ListadoClientes.pas]
 ModuleType=SourceModule
-FormState=0
+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

-[C:\Codigo\Factuges.todo]
+[E:\Miguelo\Factuges.dpr]
 FormState=0
 FormOnTop=0

-[C:\Codigo\Informes\InformeBase.pas]
+[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=2
+ViewCount=4
 CurrentView=1
 View0=0
 View1=1
+View2=2
+View3=3
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
 Create=1
 Visible=1
 State=0
 Left=329
-Top=140
-Width=1308
-Height=827
+Top=139
+Width=781
+Height=545
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=1300
-ClientHeight=793
+ClientWidth=773
+ClientHeight=511
 LeftPanelSize=140
 LeftPanelClients=CodeExplorer@EditWindow0
 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
@ -65,17 +91,31 @@ BottomPanelClients=MessageView@EditWindow0
 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF

 [View0]
-Module=C:\Codigo\Factuges.dpr
-CursorX=1
-CursorY=1
-TopLine=1
+Module=E:\Miguelo\Almacenes\ArticulosAlmacen.pas
+CursorX=5
+CursorY=341
+TopLine=334
 LeftCol=1

 [View1]
-Module=C:\Codigo\Informes\InformeFacturaCliente.pas
+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]
@ -165,14 +205,14 @@ Create=1
 Visible=1
 State=2
 Left=0
-Top=10
-Width=1920
+Top=9
+Width=1152
 Height=112
-MaxLeft=-1
-MaxTop=-1
-MaxWidth=1928
+MaxLeft=-4
+MaxTop=-4
+MaxWidth=1160
 MaxHeight=112
-ClientWidth=1920
+ClientWidth=1152
 ClientHeight=78

 [ProjectManager]
@ -212,7 +252,7 @@ Create=1
 Visible=0
 State=0
 Left=355
-Top=312
+Top=311
 Width=531
 Height=352
 MaxLeft=-1
@ -226,7 +266,7 @@ FlagPane=64

 [AlignmentPalette]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=227
 Top=640
@ -254,7 +294,7 @@ LRDockWidth=345
 Dockable=1
 SplitPos=170
 ArrangeBy=Name
-SelectedItem=Name
+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=

@ -318,7 +358,7 @@ Column3Width=250

 [ObjectTree]
 Create=1
-Visible=0
+Visible=1
 State=0
 Left=646
 Top=122
@ -393,7 +433,7 @@ Create=1
 Visible=0
 State=0
 Left=711
-Top=240
+Top=239
 Width=394
 Height=333
 MaxLeft=-1
@ -447,11 +487,11 @@ State=0
 Left=0
 Top=12
 Width=140
-Height=693
+Height=411
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=140
-ClientHeight=693
+ClientHeight=411
 TBDockHeight=305
 LRDockWidth=140
 Dockable=1
@ -462,11 +502,11 @@ Visible=1
 State=0
 Left=12
 Top=0
-Width=1288
+Width=761
 Height=85
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=1288
+ClientWidth=761
 ClientHeight=85
 TBDockHeight=85
 LRDockWidth=443
--- a/Factuges.res
+++ b/Factuges.res
--- a/Factuges.~dsk
+++ b/Factuges.~dsk
@ -0,0 +1,526 @@
+[Closed Files]
+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
+
+[Modules]
+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
+
+[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
+
+[C:\Archivos de programa\Borland\Delphi7\Projects\ProjectGroup1.bpg]
+FormState=0
+FormOnTop=0
+
+[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
+
+[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'
+Watch1='TablaAlmacenes.FieldByName(''NOMBRECLIENTE'').Required',256,0,18,1,0,'Watches'
+Watch2='VistaDetalles.GetColumnByFieldName(''DESCRIPCION'')',256,0,18,1,0,'Watches'
+Watch3='obj',16,0,18,1,0,'Watches'
+Watch4='temp',4,0,18,1,0,'Watches'
+Watch5='contenidomodal.class',256,0,18,1,0,'Watches'
+
+[WatchWindow]
+WatchColumnWidth=100
+WatchShowColumnHeaders=1
+Create=1
+Visible=0
+State=0
+Left=858
+Top=625
+Width=302
+Height=237
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=294
+ClientHeight=211
+TBDockHeight=128
+LRDockWidth=294
+Dockable=1
+
+[Breakpoints]
+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,'','',''
+Breakpoint3='C:\Archivos de programa\jvcl\run\JvProgramVersionCheck.pas',1534,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint4='D:\Proyectos\Componentes\Indy9\IdHTTP.pas',1081,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint5='D:\Proyectos\Componentes\Indy9\IdHTTP.pas',1115,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint6='D:\Proyectos\FactuGES (Miguelo)\Codigo\Almacenes\MovimientoAlmacenes.pas',1429,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint7='D:\Proyectos\Librerias\RdxGestorContadores.pas',547,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint8='D:\Proyectos\FactuGES (Miguelo)\Codigo\Almacenes\MovimientoAlmacenes.pas',863,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint9='D:\Proyectos\FactuGES (Miguelo)\Codigo\Almacenes\ArticuloObraHistorica.pas',281,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint10='D:\Proyectos\FactuGES (Miguelo)\Codigo\Almacenes\ArticuloObraHistorica.pas',321,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint11='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',145,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint12='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',153,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint13='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',178,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint14='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',183,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint15='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',188,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint16='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',194,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint17='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',200,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint18='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',206,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint19='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',212,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint20='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',218,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint21='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',224,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint22='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',232,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint23='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',128,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint24='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',120,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint25='T:\Codigo (Miguelo)\Datos\ArticulosModelo.pas',105,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint26='T:\Codigo (Miguelo)\Datos\Articulos.pas',158,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint27='T:\Codigo (Miguelo)\Datos\Articulos.pas',130,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint28='T:\Codigo (Miguelo)\Datos\Articulos.pas',110,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint29='T:\Codigo (Miguelo)\Datos\Articulos.pas',101,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint30='T:\Codigo (Miguelo)\Datos\Articulos.pas',95,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint31='T:\Codigo (Miguelo)\Datos\Articulos.pas',89,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint32='T:\Codigo (Miguelo)\Datos\Articulos.pas',83,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint33='T:\Codigo (Miguelo)\Datos\Articulos.pas',77,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint34='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',173,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint35='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',165,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint36='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',160,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint37='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',182,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint38='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',189,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint39='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',198,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint40='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',207,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint41='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',141,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint42='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',133,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint43='T:\Codigo (Miguelo)\Frames\RdxFrameArticulos.pas',114,'',0,1,'',1,0,0,'',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='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
+
+[Main Window]
+Create=1
+Visible=1
+State=2
+Left=0
+Top=9
+Width=1152
+Height=112
+MaxLeft=-1
+MaxTop=-1
+MaxWidth=1160
+MaxHeight=112
+ClientWidth=1152
+ClientHeight=78
+
+[ProjectManager]
+Create=1
+Visible=1
+State=0
+Left=1
+Top=148
+Width=369
+Height=563
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=361
+ClientHeight=537
+TBDockHeight=305
+LRDockWidth=345
+Dockable=1
+
+[Components]
+Left=421
+Top=252
+Width=181
+Height=264
+Create=1
+Visible=0
+State=0
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=173
+ClientHeight=238
+TBDockHeight=235
+LRDockWidth=183
+Dockable=1
+
+[CPUWindow]
+Create=1
+Visible=0
+State=0
+Left=355
+Top=311
+Width=531
+Height=352
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=523
+ClientHeight=318
+DumpPane=79
+DisassemblyPane=187
+RegisterPane=231
+FlagPane=64
+
+[AlignmentPalette]
+Create=1
+Visible=0
+State=0
+Left=227
+Top=640
+Width=156
+Height=84
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=150
+ClientHeight=60
+
+[PropertyInspector]
+Create=1
+Visible=1
+State=0
+Left=20
+Top=124
+Width=299
+Height=719
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=291
+ClientHeight=693
+TBDockHeight=431
+LRDockWidth=345
+Dockable=1
+SplitPos=170
+ArrangeBy=Name
+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=
+
+[BreakpointWindow]
+Create=1
+Visible=0
+State=0
+Left=32
+Top=202
+Width=735
+Height=197
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=727
+ClientHeight=171
+TBDockHeight=197
+LRDockWidth=737
+Dockable=1
+Column0Width=100
+Column1Width=75
+Column2Width=200
+Column3Width=200
+Column4Width=75
+Column5Width=75
+
+[CallStackWindow]
+Create=1
+Visible=0
+State=0
+Left=858
+Top=137
+Width=302
+Height=438
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=294
+ClientHeight=412
+TBDockHeight=161
+LRDockWidth=294
+Dockable=1
+
+[ThreadStatusWindow]
+Create=1
+Visible=0
+State=0
+Left=194
+Top=108
+Width=622
+Height=152
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=614
+ClientHeight=126
+TBDockHeight=152
+LRDockWidth=624
+Dockable=1
+Column0Width=145
+Column1Width=100
+Column2Width=115
+Column3Width=250
+
+[ObjectTree]
+Create=1
+Visible=0
+State=0
+Left=49
+Top=185
+Width=490
+Height=543
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=482
+ClientHeight=517
+TBDockHeight=288
+LRDockWidth=167
+Dockable=1
+
+[DebugLogView]
+Create=1
+Visible=0
+State=0
+Left=304
+Top=239
+Width=415
+Height=291
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=407
+ClientHeight=265
+TBDockHeight=291
+LRDockWidth=417
+Dockable=1
+
+[LocalVarsWindow]
+Create=1
+Visible=0
+State=0
+Left=290
+Top=580
+Width=419
+Height=192
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=411
+ClientHeight=166
+TBDockHeight=192
+LRDockWidth=421
+Dockable=1
+
+[ToDo List]
+Create=1
+Visible=0
+State=0
+Left=174
+Top=63
+Width=519
+Height=455
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=511
+ClientHeight=429
+TBDockHeight=250
+LRDockWidth=470
+Dockable=1
+Column0Width=377
+Column1Width=30
+Column2Width=55
+Column3Width=70
+Column4Width=103
+SortOrder=6
+ShowHints=1
+ShowChecked=1
+
+[FPUWindow]
+Create=1
+Visible=0
+State=0
+Left=711
+Top=239
+Width=394
+Height=333
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=386
+ClientHeight=299
+RegisterPane=121
+FlagPane=126
+
+[ModuleWindow]
+Create=1
+Visible=0
+State=0
+Left=198
+Top=131
+Width=636
+Height=355
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=628
+ClientHeight=329
+TBDockHeight=355
+LRDockWidth=638
+Dockable=1
+Column0Width=125
+Column1Width=100
+Column2Width=155
+EntryPointPane=225
+CompUnitPane=104
+
+[MessageHintFrm]
+Create=1
+Visible=0
+State=0
+Left=323
+Top=383
+Width=383
+Height=195
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=375
+ClientHeight=169
+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/Iconos/Logo_nuevo.bmp
+++ b/Iconos/Logo_nuevo.bmp
--- a/Iconos/Logo_nuevo.gif
+++ b/Iconos/Logo_nuevo.gif
--- a/Informes/InformeBase.dfm
+++ b/Informes/InformeBase.dfm
@ -1,7 +1,7 @@
 object dmInformeBase: TdmInformeBase
  OldCreateOrder = False
  Left = 141
-  Top = 555
+  Top = 554
  Height = 246
  Width = 321
  object FReport: TfrReport
--- a/Informes/InformeFacturaCliente.dfm
+++ b/Informes/InformeFacturaCliente.dfm
@ -1,7 +1,5 @@
 inherited dmInformeFacturaCliente: TdmInformeFacturaCliente
  OldCreateOrder = True
-  Left = 434
-  Top = 492
  Width = 344
  inherited FReport: TfrReport
    Dataset = TablaCab
--- a/Informes/InformeHistorialFacturacionClientes.pas
+++ b/Informes/InformeHistorialFacturacionClientes.pas
@ -88,14 +88,14 @@ begin
    SQL.Add('COALESCE(C.CODIGOPOSTAL, FC.CODIGOPOSTAL) as CODIGOPOSTAL, ');
    SQL.Add('COALESCE(C.POBLACION, FC.POBLACION) as POBLACION ,');
    SQL.Add('COALESCE(C.PROVINCIA, FC.PROVINCIA) as PROVINCIA ,');    
-    SQL.Add('FC.IVA, (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
+    SQL.Add('FC.IVA, FC.BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
    SQL.Add('from FACTURASCLIENTE FC left join sucursalescliente C');
    SQL.Add('on (FC.CODIGOCLIENTE = C.CODIGOCLIENTE) and (C.TIPO = ''P'')');
    SQL.Add('where FC.CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(FC.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FC.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FC.BASEIMPONIBLE >= :BASEIMPONIBLE ');
    SQL.Add('order by FC.NOMBRE, FC.FECHAFACTURA');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeHistorialFacturacionProveedores.pas
+++ b/Informes/InformeHistorialFacturacionProveedores.pas
@ -87,14 +87,14 @@ begin
    SQL.Add('COALESCE(P.CODIGOPOSTAL, FP.CODIGOPOSTAL) as CODIGOPOSTAL, ');
    SQL.Add('COALESCE(P.POBLACION, FP.POBLACION) as POBLACION ,');
    SQL.Add('COALESCE(P.PROVINCIA, FP.PROVINCIA) as PROVINCIA ,');
-    SQL.Add('FP.IVA, (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
+    SQL.Add('FP.IVA, FP.BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
    SQL.Add('from FACTURASPROVEEDOR FP left join PROVEEDORES P');
    SQL.Add('on FP.CODIGOPROVEEDOR = P.CODIGO');
    SQL.Add('where FP.CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(FP.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FP.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FP.BASEIMPONIBLE >= :BASEIMPONIBLE ');
    SQL.Add('order by FP.NOMBRE, FP.FECHAFACTURA');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeListadoClientes.dfm
+++ b/Informes/InformeListadoClientes.dfm
@ -1,7 +1,7 @@
 inherited dmInformeListadoClientes: TdmInformeListadoClientes
  OldCreateOrder = True
  Left = 548
-  Top = 253
+  Top = 252
  inherited FReport: TfrReport
    Dataset = dsTablaClientes
    ReportForm = {19000000}
--- a/Informes/InformeListadoClientes.pas
+++ b/Informes/InformeListadoClientes.pas
@ -39,8 +39,6 @@ type
  private
    FNombreIni: String;
    FNombreFin: String;
-    FFechaAltaIni: TDateTime;
-    FFechaAltaFin: TDateTime;
  protected
    procedure RellenarCabecera(Band: TfrBand); override;
    procedure PrepararConsultas; override;
@ -49,8 +47,6 @@ type
  published
    property NombreIni : String read FNombreIni write FNombreIni;
    property NombreFin : String read FNombreFin write FNombreFin;
-    property FechaAltaIni : TDateTime read FFechaAltaIni write FFechaAltaIni;
-    property FechaAltaFin : TDateTime read FFechaAltaFin write FFechaAltaFin;
  end;

 var
@ -76,18 +72,15 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select CLIENTES.CODIGO, CLIENTES.FECHAALTA, CLIENTES.NIFCIF, CLIENTES.NOMBRE, CALLE ');
+    SQL.Add('select CLIENTES.CODIGO, CLIENTES.NIFCIF, CLIENTES.NOMBRE, CALLE ');
    SQL.Add('||'', ''||NUMERO AS DIRECCION, TELEFONO1, TELEFONO2, FAX, CORREO ');
    SQL.Add('from CLIENTES left join SUCURSALESCLIENTE on ');
    SQL.Add('(SUCURSALESCLIENTE.CODIGOCLIENTE = CLIENTES.CODIGO and ');
    SQL.Add('SUCURSALESCLIENTE.TIPO = ''P'')' );
-    SQL.Add('where (upper(CLIENTES.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN)) ');
-    SQL.Add('and (CLIENTES.FECHAALTA between :FECHAINI and :FECHAFIN)');
+    SQL.Add('where upper(CLIENTES.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('order by CLIENTES.NOMBRE');
    ParamByName('NOMBREINI').AsString := FNombreIni;
    ParamByName('NOMBREFIN').AsString := FNombreFin;
-    ParamByName('FECHAINI').AsDate := FFechaAltaIni;
-    ParamByName('FECHAFIN').AsDate := FFechaAltaFin;
    Prepare;
  end;
 end;
@ -109,7 +102,6 @@ begin
          begin
            Memo.Clear;
            Memo.Add('Rango de clientes: ' + FNombreIni + ' - ' + FNombreFin);
-            Memo.Add('Rango de fechas: ' + DateToStr(FFechaAltaIni) + ' - ' + DateToStr(FFechaAltaFin));            
          end;
        end;
      end;
--- a/Informes/InformeResumenFacturacionClientes.pas
+++ b/Informes/InformeResumenFacturacionClientes.pas
@ -84,13 +84,13 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
    SQL.Add('from FACTURASCLIENTE ');
    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
    SQL.Add('order by NOMBRE');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeResumenFacturacionProveedores.pas
+++ b/Informes/InformeResumenFacturacionProveedores.pas
@ -82,13 +82,13 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
    SQL.Add('from FACTURASPROVEEDOR ');
    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
    SQL.Add('order by NOMBRE');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Proveedores/FacturasProveedores.dfm
+++ b/Proveedores/FacturasProveedores.dfm
--- a/Proveedores/FacturasProveedores.pas
+++ b/Proveedores/FacturasProveedores.pas
@ -83,8 +83,6 @@ type
    eNombre: TLabel;
    Buscar: TcxTextEdit;
    bLimpiar: TRdxBoton;
-    bFacturar: TRdxBoton;
-    actCambiarSituacion: TAction;
    procedure RdxFrameFacturasProveedorShow(Sender: TObject);
    procedure actAnadirExecute(Sender: TObject);
    procedure actModificarExecute(Sender: TObject);
@ -103,7 +101,6 @@ type
    procedure actRefrescarDatosExecute(Sender: TObject);
    procedure BuscarPropertiesChange(Sender: TObject);
    procedure bLimpiarClick(Sender: TObject);
-    procedure actCambiarSituacionExecute(Sender: TObject);
  private
    procedure ActualizarBotones;
  protected
@ -126,7 +123,7 @@ implementation

 { TfrFacturasProveedores }
 uses
-  BaseDatos, TablaFacturasProveedor, IBDatabase, CambiarSituacionFacturas,
+  BaseDatos, TablaFacturasProveedor, IBDatabase,
  IBCustomDataSet, Mensajes, Entidades, Variants,
  FacturaProveedor, Constantes, FacturasProveedorPendientes, TablaEmpresas,
  Configuracion;
@ -225,7 +222,7 @@ end;
 procedure TfrFacturasProveedores.RdxFrameFacturasProveedorShow(
  Sender: TObject);
 begin
-  gridFacturas.SetFocus
+  gridFacturas.SetFocus;
 end;

 procedure TfrFacturasProveedores.actAnadirExecute(Sender: TObject);
@ -335,27 +332,4 @@ begin
  Buscar.Text := '';
 end;

-procedure TfrFacturasProveedores.actCambiarSituacionExecute(Sender: TObject);
-var
-  IndiceCol1 : Integer;
-  IndiceSel : Integer;
-  fCambiarSituacionFacturas : TfrCambiarSituacionFacturas;
-
-begin
-  fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
-  fCambiarSituacionFacturas.Entidad := entFacturaProveedor;
-
-  //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
-  IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;
-  for IndiceSel:=0 to gridFacturasDBTableView1.Controller.SelectedRowCount-1 do
-      fCambiarSituacionFacturas.CodigosFacturas.Append(gridFacturasDBTableView1.Controller.SelectedRows[IndiceSel].Values[IndiceCol1]);
-
-  try
-    fCambiarSituacionFacturas.ShowModal;
-  finally
-    fCambiarSituacionFacturas.Free;
-    bRefrescar.Click;
-  end;
-end;
-
 end.
--- a/Temp/FACTUGES.INI
+++ b/Temp/FACTUGES.INI
@ -1,8 +1,7 @@
 [BD]
-MIGUELO ROBERTO=localhost:c:\Codigo\bd\miguelo.gdb
 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:\Miguelo\bd\miguelo.gdb



--- a/Temp/Factuges.exe
+++ b/Temp/Factuges.exe
--- a/Temp/Factuges.map
+++ b/Temp/Factuges.map
--- a/Temp/Informes/ContratoCliente.frf
+++ b/Temp/Informes/ContratoCliente.frf
--- a/Temp/Informes/ContratoReforma.frf
+++ b/Temp/Informes/ContratoReforma.frf
--- a/Temp/Informes/FacturaCliente.frf
+++ b/Temp/Informes/FacturaCliente.frf
--- a/Temp/Informes/ListadoClientes.frf
+++ b/Temp/Informes/ListadoClientes.frf
--- a/Temp/Informes/PedidoProveedor.frf
+++ b/Temp/Informes/PedidoProveedor.frf
--- a/Temp/Informes/PresupuestoCliente.frf
+++ b/Temp/Informes/PresupuestoCliente.frf
--- a/Temp/Informes/PresupuestoReforma.frf
+++ b/Temp/Informes/PresupuestoReforma.frf
--- a/Temp/update/versionlocal.ini
+++ b/Temp/update/versionlocal.ini
@ -1,6 +1,18 @@
 [Version]
-Count=0
-CurrentProductionProgramVersion=
+Count=1
+CurrentProductionProgramVersion=3.0.3.0
 CurrentBetaProgramVersion=
 CurrentAlphaProgramVersion=

+[Program Version 0]
+DownloadPasswordRequired=FALSE
+ProgramLocationPath=files
+ProgramLocationFileName=instalar.exe
+ProgramVersion=3.0.3.0
+ProgramReleaseType=prtProduction
+ProgramSize=1000000
+ProgramReleaseDate=07/06/2007
+
+[Program Version 0\VersionDescription]
+Count=0
+
--- a/bd/miguelo.gdb
+++ b/bd/miguelo.gdb