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
This commit is contained in:
parent
19430c3912
commit
2240d1f03d
@ -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
|
||||
Top = 64
|
||||
Left = 382
|
||||
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
|
||||
Top = 61
|
||||
Left = 464
|
||||
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
|
||||
|
||||
@ -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,
|
||||
Clientes, RdxFrameClientes, configuracion;
|
||||
Literales, Mensajes, StrFunc, DateUtils, InformeBase, cxDateUtils,
|
||||
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.
|
||||
|
||||
70
Factuges.dof
70
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\dxComnD7.bpl=ExpressCommonLibrary 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\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\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)
|
||||
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)
|
||||
[HistoryLists\hlDebugSourcePath]
|
||||
Count=1
|
||||
Item0=D:\Proyectos\Componentes\Indy9\
|
||||
|
||||
112
Factuges.dsk
112
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
|
||||
Count=1
|
||||
Module0=C:\Codigo Miguelo\Informes\InformeListadoClientes.pas
|
||||
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
|
||||
CurrentView=0
|
||||
ViewCount=5
|
||||
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
|
||||
Width=781
|
||||
Height=545
|
||||
Top=140
|
||||
Width=1308
|
||||
Height=827
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=773
|
||||
ClientHeight=511
|
||||
ClientWidth=1300
|
||||
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
|
||||
|
||||
BIN
Factuges.res
BIN
Factuges.res
Binary file not shown.
@ -1,7 +1,7 @@
|
||||
object dmInformeBase: TdmInformeBase
|
||||
OldCreateOrder = False
|
||||
Left = 141
|
||||
Top = 554
|
||||
Top = 555
|
||||
Height = 246
|
||||
Width = 321
|
||||
object FReport: TfrReport
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
inherited dmInformeListadoClientes: TdmInformeListadoClientes
|
||||
OldCreateOrder = True
|
||||
Left = 548
|
||||
Top = 252
|
||||
Top = 253
|
||||
inherited FReport: TfrReport
|
||||
Dataset = dsTablaClientes
|
||||
ReportForm = {19000000}
|
||||
|
||||
@ -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;
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user