Se modifica el listado de clientes para que se pueda filtrar por fecha de alta

git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@19 172823e9-465a-9d4b-80ba-0a9f016f4eb1

Clientes/ListadoClientes.dfm

@@ -1,7 +1,7 @@
 object frListadoClientes: TfrListadoClientes
   Left = 0
   Top = 0
-  Width = 443
+  Width = 1081
   Height = 270
   Align = alClient
   Color = 16383743
@@ -10,7 +10,7 @@ object frListadoClientes: TfrListadoClientes
   object pnlTitulo: TRdxPanelTituloOperacion
     Left = 0
     Top = 0
-    Width = 443
+    Width = 1081
     Height = 22
     Caption = ' '
     Color = 9685681
@@ -24,7 +24,7 @@ object frListadoClientes: TfrListadoClientes
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 443
+    Width = 1081
     Height = 107
     Align = alTop
     AutoSize = True
@@ -35,7 +35,7 @@ object frListadoClientes: TfrListadoClientes
     object pnlProveedor: TAdvPanel
       Left = 10
       Top = 10
-      Width = 423
+      Width = 1061
       Height = 87
       Align = alTop
       BevelOuter = bvNone
@@ -129,8 +129,8 @@ object frListadoClientes: TfrListadoClientes
         ParentFont = False
       end
       object Label2: TLabel
-        Left = 70
+        Left = 382
-        Top = 64
+        Top = 40
         Width = 76
         Height = 13
         Alignment = taRightJustify
@@ -157,6 +157,34 @@ 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
@@ -215,11 +243,11 @@ object frListadoClientes: TfrListadoClientes
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 0
         Text = 'NombreCliIni'
-        Width = 350
+        Width = 225
       end
       object NombreCliFin: TcxButtonEdit
-        Left = 152
+        Left = 464
-        Top = 61
+        Top = 37
         ParentFont = False
         Properties.Buttons = <
           item
@@ -275,14 +303,34 @@ object frListadoClientes: TfrListadoClientes
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Text = 'NombreCliFin'
-        Width = 350
+        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
       end
     end
   end
   object pnlVistaPrevia: TPanel
     Left = 0
     Top = 129
-    Width = 443
+    Width = 1081
     Height = 141
     Align = alClient
     BevelOuter = bvNone

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;
+  InformeListadoClientes, TablaClientes, Entidades, cxCalendar;
 
 type
   TfrListadoClientes = class(TRdxFrame)
@@ -45,6 +45,10 @@ 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;
@@ -55,6 +59,12 @@ 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;
@@ -82,8 +92,8 @@ implementation
 { TfrListadoClientes }
 
 uses
-  Literales, Mensajes, StrFunc, DateUtils, InformeBase,
+  Literales, Mensajes, StrFunc, DateUtils, InformeBase, cxDateUtils,
-  Clientes, RdxFrameClientes, configuracion;
+  Clientes, RdxFrameClientes, configuracion, TablaTrimestres;
 
 constructor TfrListadoClientes.Create(AOwner: TComponent);
 var
@@ -111,6 +121,12 @@ 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;
 
@@ -217,4 +233,46 @@ 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.

Factuges.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=0
-Release=6
+Release=7
 Build=0
 Debug=0
 PreRelease=0
@@ -126,28 +126,28 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.0.6.0
+FileVersion=3.0.7.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=2.6.0.0
+ProductVersion=3.0.7.0
 Comments=
 [Excluded Packages]
-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\dxThemeD7.bpl=Express XP Theme Manager 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\dxsbD7.bpl=ExpressSideBar 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\dxComnD7.bpl=ExpressCommonLibrary 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\dxComnD7.bpl=ExpressCommonLibrary 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,15 +156,51 @@ 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\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
-C:\Archivos de programa\EurekaLog 5\Delphi7\ExceptionExpert7.bpl=EurekaLog 5.1.9
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerD7.bpl=Database Comparer VCL
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerBdeD7.bpl=Database Comparer VCL BDE
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvCoreD7R.bpl=JVCL Core Components Runtime Package
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerDBXD7.bpl=Database Comparer VCL DBX
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerIbxD7.bpl=Database Comparer VCL IBX
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerAdoD7.bpl=Database Comparer VCL ADO
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvSystemD7R.bpl=JVCL System Components Runtime Package
-C:\WINDOWS\system32\dclShX_Namespace_V3D7.bpl=(untitled)
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JvStdCtrlsD7R.bpl=JVCL Standard Controls Runtime Package
-C:\WINDOWS\system32\vclShX_Namespace_v3D7.bpl=(untitled)
+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)
 [HistoryLists\hlDebugSourcePath]
 Count=1
 Item0=D:\Proyectos\Componentes\Indy9\

Factuges.dsk

@@ -11,11 +11,35 @@ 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=T:\Miguelo\Factuges.dpr
+Module0=C:\Codigo Miguelo\Informes\InformeListadoClientes.pas
-Count=1
+Module1=C:\Codigo Miguelo\Clientes\ListadoClientes.pas
+Module2=C:\Codigo Miguelo\Clientes\ListadoFacturacionProcedencia.pas
+Module3=C:\Codigo Miguelo\Informes\InformeListadoFacturacionProcedencia.pas
+Module4=C:\Codigo Miguelo\Factuges.dpr
+Count=5
 EditWindowCount=1
 
-[T:\Miguelo\Factuges.dpr]
+[C:\Codigo Miguelo\Informes\InformeListadoClientes.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Miguelo\Clientes\ListadoClientes.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Miguelo\Clientes\ListadoFacturacionProcedencia.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Miguelo\Informes\InformeListadoFacturacionProcedencia.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Miguelo\Factuges.dpr]
 ModuleType=SourceModule
 FormState=0
 FormOnTop=0
@@ -24,27 +48,43 @@ FormOnTop=0
 FormState=0
 FormOnTop=0
 
-[T:\Miguelo\Factuges.todo]
+[C:\Codigo Miguelo\Factuges.todo]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Miguelo\Informes\InformeBase.pas]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Miguelo\Libreria\Configuracion.pas]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Miguelo\Frames\RdxFrame.pas]
 FormState=0
 FormOnTop=0
 
 [EditWindow0]
-ViewCount=1
+ViewCount=5
-CurrentView=0
+CurrentView=1
 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
+Top=140
-Width=781
+Width=1308
-Height=545
+Height=827
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=773
+ClientWidth=1300
-ClientHeight=511
+ClientHeight=793
 LeftPanelSize=140
 LeftPanelClients=CodeExplorer@EditWindow0
 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
@@ -54,12 +94,40 @@ BottomPanelClients=MessageView@EditWindow0
 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
 
 [View0]
-Module=T:\Miguelo\Factuges.dpr
+Module=C:\Codigo Miguelo\Factuges.dpr
 CursorX=1
 CursorY=1
 TopLine=1
 LeftCol=1
 
+[View1]
+Module=C:\Codigo Miguelo\Informes\InformeListadoClientes.pas
+CursorX=58
+CursorY=79
+TopLine=74
+LeftCol=1
+
+[View2]
+Module=C:\Codigo Miguelo\Clientes\ListadoFacturacionProcedencia.pas
+CursorX=63
+CursorY=76
+TopLine=46
+LeftCol=1
+
+[View3]
+Module=C:\Codigo Miguelo\Informes\InformeListadoFacturacionProcedencia.pas
+CursorX=97
+CursorY=105
+TopLine=87
+LeftCol=1
+
+[View4]
+Module=C:\Codigo Miguelo\Clientes\ListadoClientes.pas
+CursorX=69
+CursorY=95
+TopLine=68
+LeftCol=1
+
 [Watches]
 Count=6
 Watch0='Self',256,0,18,1,0,'Watches'
@@ -147,7 +215,7 @@ Create=1
 Visible=1
 State=2
 Left=0
-Top=9
+Top=10
 Width=1680
 Height=112
 MaxLeft=-1
@@ -194,7 +262,7 @@ Create=1
 Visible=0
 State=0
 Left=355
-Top=311
+Top=312
 Width=531
 Height=352
 MaxLeft=-1
@@ -208,7 +276,7 @@ FlagPane=64
 
 [AlignmentPalette]
 Create=1
-Visible=0
+Visible=1
 State=0
 Left=227
 Top=640
@@ -236,7 +304,7 @@ LRDockWidth=345
 Dockable=1
 SplitPos=170
 ArrangeBy=Name
-SelectedItem=
+SelectedItem=Dataset
 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=
 
@@ -300,7 +368,7 @@ Column3Width=250
 
 [ObjectTree]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=646
 Top=122
@@ -375,7 +443,7 @@ Create=1
 Visible=0
 State=0
 Left=711
-Top=239
+Top=240
 Width=394
 Height=333
 MaxLeft=-1
@@ -429,11 +497,11 @@ State=0
 Left=0
 Top=12
 Width=140
-Height=411
+Height=693
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=140
-ClientHeight=411
+ClientHeight=693
 TBDockHeight=305
 LRDockWidth=140
 Dockable=1
@@ -444,11 +512,11 @@ Visible=1
 State=0
 Left=12
 Top=0
-Width=761
+Width=1288
 Height=85
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=761
+ClientWidth=1288
 ClientHeight=85
 TBDockHeight=85
 LRDockWidth=443

Informes/InformeBase.dfm

@@ -1,7 +1,7 @@
 object dmInformeBase: TdmInformeBase
   OldCreateOrder = False
   Left = 141
-  Top = 554
+  Top = 555
   Height = 246
   Width = 321
   object FReport: TfrReport

Informes/InformeListadoClientes.dfm

@@ -1,7 +1,7 @@
 inherited dmInformeListadoClientes: TdmInformeListadoClientes
   OldCreateOrder = True
   Left = 548
-  Top = 252
+  Top = 253
   inherited FReport: TfrReport
     Dataset = dsTablaClientes
     ReportForm = {19000000}

Informes/InformeListadoClientes.pas

@@ -39,6 +39,8 @@ type
   private
     FNombreIni: String;
     FNombreFin: String;
+    FFechaAltaIni: TDateTime;
+    FFechaAltaFin: TDateTime;
   protected
     procedure RellenarCabecera(Band: TfrBand); override;
     procedure PrepararConsultas; override;
@@ -47,6 +49,8 @@ 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
@@ -72,15 +76,18 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select CLIENTES.CODIGO, CLIENTES.NIFCIF, CLIENTES.NOMBRE, CALLE ');
+    SQL.Add('select CLIENTES.CODIGO, CLIENTES.FECHAALTA, 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('where (upper(CLIENTES.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN)) ');
+    SQL.Add('and (CLIENTES.FECHAALTA between :FECHAINI and :FECHAFIN)');
     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;
@@ -102,6 +109,7 @@ begin
           begin
             Memo.Clear;
             Memo.Add('Rango de clientes: ' + FNombreIni + ' - ' + FNombreFin);
+            Memo.Add('Rango de fechas: ' + DateToStr(FFechaAltaIni) + ' - ' + DateToStr(FFechaAltaFin));            
           end;
         end;
       end;