first commit (2012-02-01)
This commit is contained in:
BIN
bin/gestionServicios.exe
Normal file
BIN
bin/gestionServicios.exe
Normal file
Binary file not shown.
BIN
bin/gestionServicios.tds
Normal file
BIN
bin/gestionServicios.tds
Normal file
Binary file not shown.
BIN
bin/gestorServicios.s3db
Normal file
BIN
bin/gestorServicios.s3db
Normal file
Binary file not shown.
BIN
bin/sqlite3.dll
Normal file
BIN
bin/sqlite3.dll
Normal file
Binary file not shown.
185
gestionServicios.bpr
Normal file
185
gestionServicios.bpr
Normal file
@ -0,0 +1,185 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8' ?>
|
||||||
|
<!-- C++Builder XML Project -->
|
||||||
|
<PROJECT>
|
||||||
|
<MACROS>
|
||||||
|
<VERSION value="BCB.06.00"/>
|
||||||
|
<PROJECT value=""C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin\gestionServicios.exe""/>
|
||||||
|
<OBJFILES value="obj\gestionServicios.obj obj\clientes.obj obj\tsplash.obj obj\agentes.obj
|
||||||
|
obj\imprimirClientes.obj obj\cuentaPolizas.obj
|
||||||
|
obj\imprimirCuentaPolizas.obj obj\imprimirFichaCliente.obj obj\login_dlg.obj"/>
|
||||||
|
<RESFILES value="gestionServicios.res"/>
|
||||||
|
<IDLFILES value=""/>
|
||||||
|
<IDLGENFILES value=""/>
|
||||||
|
<DEFFILE value=""/>
|
||||||
|
<RESDEPEN value="$(RESFILES) src\clientes.dfm src\tsplash.dfm src\agentes.dfm
|
||||||
|
src\imprimirClientes.dfm src\cuentaPolizas.dfm
|
||||||
|
src\imprimirCuentaPolizas.dfm src\imprimirFichaCliente.dfm src\login_dlg.dfm"/>
|
||||||
|
<LIBFILES value=""/>
|
||||||
|
<LIBRARIES value="vclx.lib bdertl.lib QR5RunC6.lib ZParseSql.lib ZDbc.lib ZCore.lib
|
||||||
|
ZPlain.lib ZComponent.lib vcldb.lib dbrtl.lib rtl.lib vcl.lib"/>
|
||||||
|
<SPARELIBS value="vcl.lib rtl.lib dbrtl.lib vcldb.lib ZComponent.lib ZPlain.lib ZCore.lib
|
||||||
|
ZDbc.lib ZParseSql.lib QR5RunC6.lib bdertl.lib vclx.lib"/>
|
||||||
|
<PACKAGES value="vcl.bpi rtl.bpi dbrtl.bpi adortl.bpi vcldb.bpi vclx.bpi bdertl.bpi
|
||||||
|
vcldbx.bpi ibxpress.bpi dsnap.bpi cds.bpi bdecds.bpi teeui.bpi teedb.bpi
|
||||||
|
tee.bpi dss.bpi visualclx.bpi visualdbclx.bpi dsnapcrba.bpi dsnapcon.bpi
|
||||||
|
bcbsmp.bpi vclie.bpi xmlrtl.bpi inet.bpi inetdbbde.bpi inetdbxpress.bpi
|
||||||
|
inetdb.bpi nmfast.bpi webdsnap.bpi bcbie.bpi websnap.bpi soaprtl.bpi
|
||||||
|
dclocx.bpi dbexpress.bpi dbxcds.bpi indy.bpi bcb2kaxserver.bpi JDsoft.bpi
|
||||||
|
TVidGrab.bpi ZComponent.bpi ZPlain.bpi ZCore.bpi ZDbc.bpi ZParseSql.bpi
|
||||||
|
QR5RunC6.bpi"/>
|
||||||
|
<PATHCPP value=".;src"/>
|
||||||
|
<PATHPAS value=".;"/>
|
||||||
|
<PATHRC value=".;"/>
|
||||||
|
<PATHASM value=".;"/>
|
||||||
|
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||||
|
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||||
|
<LINKER value="ilink32"/>
|
||||||
|
<USERDEFINES value="_DEBUG"/>
|
||||||
|
<SYSDEFINES value="NO_STRICT"/>
|
||||||
|
<MAINSOURCE value="gestionServicios.cpp"/>
|
||||||
|
<INCLUDEPATH value=""C:\Archivos de programa\Borland\Quickrep5";C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain"/>
|
||||||
|
<LIBPATH value=""C:\Archivos de programa\Borland\Quickrep5";C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
|
||||||
|
<WARNINGS value="-w-par"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</MACROS>
|
||||||
|
<OPTIONS>
|
||||||
|
<IDLCFLAGS value="-I"C:\Archivos de programa\Borland\Quickrep5"
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\component -Isrc -I..\HAguila
|
||||||
|
-I$(BCB)\include -I$(BCB)\include\vcl
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\core
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\dbc
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\parsesql
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\plain -src_suffix cpp -D_DEBUG -boa"/>
|
||||||
|
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
|
||||||
|
-tW -tWM"/>
|
||||||
|
<PFLAGS value="-N2"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-N0"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-$YD -$W -$O- -$A8 -v -JPHNE -M"/>
|
||||||
|
<RFLAGS value=""/>
|
||||||
|
<AFLAGS value="/mx /w2 /zd"/>
|
||||||
|
<LFLAGS value="-l"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-I"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-D"" -aa -Tpe -x -Gn -v"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</OPTIONS>
|
||||||
|
<LINKER>
|
||||||
|
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||||
|
<ALLRES value="$(RESFILES)"/>
|
||||||
|
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</LINKER>
|
||||||
|
<FILELIST>
|
||||||
|
<FILE FILENAME="gestionServicios.res" FORMNAME="" UNITNAME="gestionServicios.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="gestionServicios.cpp" FORMNAME="" UNITNAME="gestionServicios" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\clientes.cpp" FORMNAME="gestionClientes" UNITNAME="clientes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\tsplash.cpp" FORMNAME="Splash" UNITNAME="tsplash" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\agentes.cpp" FORMNAME="gestionAgentes" UNITNAME="agentes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirClientes.cpp" FORMNAME="imprimirCarteraClientes" UNITNAME="imprimirClientes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\cuentaPolizas.cpp" FORMNAME="gestionCuentaPolizas" UNITNAME="cuentaPolizas" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirCuentaPolizas.cpp" FORMNAME="imprCuentaPolizas" UNITNAME="imprimirCuentaPolizas" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirFichaCliente.cpp" FORMNAME="imprFichaCliente" UNITNAME="imprimirFichaCliente" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\login_dlg.cpp" FORMNAME="login" UNITNAME="login_dlg" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
</FILELIST>
|
||||||
|
<BUILDTOOLS>
|
||||||
|
</BUILDTOOLS>
|
||||||
|
|
||||||
|
<IDEOPTIONS>
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1034
|
||||||
|
CodePage=1252
|
||||||
|
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
|
|
||||||
|
[Excluded Packages]
|
||||||
|
c:\archivos de programa\borland\cbuilder6\Bin\dclqrt60.bpl=QuickReport Components
|
||||||
|
c:\archivos de programa\borland\cbuilder6\Bin\dcltqr60.bpl=TeeChart for QuickReport Components
|
||||||
|
|
||||||
|
[HistoryLists\hlIncludePath]
|
||||||
|
Count=6
|
||||||
|
Item0=C:\Archivos de programa\Borland\Quickrep5;C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain
|
||||||
|
Item1=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain
|
||||||
|
Item2=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core
|
||||||
|
Item3=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
Item4=src;..\HAguila;..\gestionServicios\src;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
Item5=..\HAguila;..\gestionServicios\src;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
|
||||||
|
[HistoryLists\hlLibraryPath]
|
||||||
|
Count=4
|
||||||
|
Item0=C:\Archivos de programa\Borland\Quickrep5;C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item1=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item2=src;..\HAguila;..\gestionServicios\src;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item3=..\HAguila;..\gestionServicios\src;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
|
||||||
|
[HistoryLists\hlDebugSourcePath]
|
||||||
|
Count=1
|
||||||
|
Item0=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[HistoryLists\hlConditionals]
|
||||||
|
Count=1
|
||||||
|
Item0=_DEBUG
|
||||||
|
|
||||||
|
[HistoryLists\hlIntOutputDir]
|
||||||
|
Count=1
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj
|
||||||
|
|
||||||
|
[HistoryLists\hlFinalOutputDir]
|
||||||
|
Count=2
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin\
|
||||||
|
Item1=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin
|
||||||
|
|
||||||
|
[HistoryLists\hIBPIOutputDir]
|
||||||
|
Count=1
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj
|
||||||
|
|
||||||
|
[Debugging]
|
||||||
|
DebugSourceDirs=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
HostApplication=
|
||||||
|
RemoteHost=
|
||||||
|
RemotePath=
|
||||||
|
RemoteLauncher=
|
||||||
|
RemoteCWD=
|
||||||
|
RemoteDebug=0
|
||||||
|
|
||||||
|
[Compiler]
|
||||||
|
ShowInfoMsgs=0
|
||||||
|
LinkDebugVcl=0
|
||||||
|
LinkCGLIB=0
|
||||||
|
|
||||||
|
[CORBA]
|
||||||
|
AddServerUnit=1
|
||||||
|
AddClientUnit=1
|
||||||
|
PrecompiledHeaders=1
|
||||||
|
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
</IDEOPTIONS>
|
||||||
|
</PROJECT>
|
||||||
51
gestionServicios.cpp
Normal file
51
gestionServicios.cpp
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include "tsplash.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
USEFORM("src\clientes.cpp", gestionClientes);
|
||||||
|
USEFORM("src\tsplash.cpp", Splash);
|
||||||
|
USEFORM("src\agentes.cpp", gestionAgentes);
|
||||||
|
USEFORM("src\imprimirClientes.cpp", imprimirCarteraClientes);
|
||||||
|
USEFORM("src\cuentaPolizas.cpp", gestionCuentaPolizas);
|
||||||
|
USEFORM("src\imprimirCuentaPolizas.cpp", imprCuentaPolizas);
|
||||||
|
USEFORM("src\imprimirFichaCliente.cpp", imprFichaCliente);
|
||||||
|
USEFORM("src\login_dlg.cpp", login);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||||
|
{
|
||||||
|
try {//outer finally
|
||||||
|
try
|
||||||
|
{
|
||||||
|
Application->Initialize();
|
||||||
|
Splash = new TSplash(NULL);
|
||||||
|
Splash->Show();
|
||||||
|
Splash->Repaint();
|
||||||
|
|
||||||
|
Application->CreateForm(__classid(TgestionClientes), &gestionClientes);
|
||||||
|
Application->Run();
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
catch (...)
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
throw Exception("");
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
__finally{
|
||||||
|
if(Splash)
|
||||||
|
delete Splash;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
gestionServicios.res
Normal file
BIN
gestionServicios.res
Normal file
Binary file not shown.
185
gestionServicios.~bpr
Normal file
185
gestionServicios.~bpr
Normal file
@ -0,0 +1,185 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8' ?>
|
||||||
|
<!-- C++Builder XML Project -->
|
||||||
|
<PROJECT>
|
||||||
|
<MACROS>
|
||||||
|
<VERSION value="BCB.06.00"/>
|
||||||
|
<PROJECT value=""C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin\gestionServicios.exe""/>
|
||||||
|
<OBJFILES value="obj\gestionServicios.obj obj\clientes.obj obj\tsplash.obj obj\agentes.obj
|
||||||
|
obj\imprimirClientes.obj obj\cuentaPolizas.obj
|
||||||
|
obj\imprimirCuentaPolizas.obj obj\imprimirFichaCliente.obj obj\login_dlg.obj"/>
|
||||||
|
<RESFILES value="gestionServicios.res"/>
|
||||||
|
<IDLFILES value=""/>
|
||||||
|
<IDLGENFILES value=""/>
|
||||||
|
<DEFFILE value=""/>
|
||||||
|
<RESDEPEN value="$(RESFILES) src\clientes.dfm src\tsplash.dfm src\agentes.dfm
|
||||||
|
src\imprimirClientes.dfm src\cuentaPolizas.dfm
|
||||||
|
src\imprimirCuentaPolizas.dfm src\imprimirFichaCliente.dfm src\login_dlg.dfm"/>
|
||||||
|
<LIBFILES value=""/>
|
||||||
|
<LIBRARIES value="vclx.lib bdertl.lib QR5RunC6.lib ZParseSql.lib ZDbc.lib ZCore.lib
|
||||||
|
ZPlain.lib ZComponent.lib vcldb.lib dbrtl.lib rtl.lib vcl.lib"/>
|
||||||
|
<SPARELIBS value="vcl.lib rtl.lib dbrtl.lib vcldb.lib ZComponent.lib ZPlain.lib ZCore.lib
|
||||||
|
ZDbc.lib ZParseSql.lib QR5RunC6.lib bdertl.lib vclx.lib"/>
|
||||||
|
<PACKAGES value="vcl.bpi rtl.bpi dbrtl.bpi adortl.bpi vcldb.bpi vclx.bpi bdertl.bpi
|
||||||
|
vcldbx.bpi ibxpress.bpi dsnap.bpi cds.bpi bdecds.bpi teeui.bpi teedb.bpi
|
||||||
|
tee.bpi dss.bpi visualclx.bpi visualdbclx.bpi dsnapcrba.bpi dsnapcon.bpi
|
||||||
|
bcbsmp.bpi vclie.bpi xmlrtl.bpi inet.bpi inetdbbde.bpi inetdbxpress.bpi
|
||||||
|
inetdb.bpi nmfast.bpi webdsnap.bpi bcbie.bpi websnap.bpi soaprtl.bpi
|
||||||
|
dclocx.bpi dbexpress.bpi dbxcds.bpi indy.bpi bcb2kaxserver.bpi JDsoft.bpi
|
||||||
|
TVidGrab.bpi ZComponent.bpi ZPlain.bpi ZCore.bpi ZDbc.bpi ZParseSql.bpi
|
||||||
|
QR5RunC6.bpi"/>
|
||||||
|
<PATHCPP value=".;src"/>
|
||||||
|
<PATHPAS value=".;"/>
|
||||||
|
<PATHRC value=".;"/>
|
||||||
|
<PATHASM value=".;"/>
|
||||||
|
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||||
|
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||||
|
<LINKER value="ilink32"/>
|
||||||
|
<USERDEFINES value="_DEBUG"/>
|
||||||
|
<SYSDEFINES value="NO_STRICT"/>
|
||||||
|
<MAINSOURCE value="gestionServicios.cpp"/>
|
||||||
|
<INCLUDEPATH value=""C:\Archivos de programa\Borland\Quickrep5";C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain"/>
|
||||||
|
<LIBPATH value=""C:\Archivos de programa\Borland\Quickrep5";C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
|
||||||
|
<WARNINGS value="-w-par"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</MACROS>
|
||||||
|
<OPTIONS>
|
||||||
|
<IDLCFLAGS value="-I"C:\Archivos de programa\Borland\Quickrep5"
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\component -Isrc -I..\HAguila
|
||||||
|
-I$(BCB)\include -I$(BCB)\include\vcl
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\core
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\dbc
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\parsesql
|
||||||
|
-IC:\programacion\VCLs\zeos_mySQL\src\plain -src_suffix cpp -D_DEBUG -boa"/>
|
||||||
|
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
|
||||||
|
-tW -tWM"/>
|
||||||
|
<PFLAGS value="-N2"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-N0"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-$YD -$W -$O- -$A8 -v -JPHNE -M"/>
|
||||||
|
<RFLAGS value=""/>
|
||||||
|
<AFLAGS value="/mx /w2 /zd"/>
|
||||||
|
<LFLAGS value="-l"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-I"C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj"
|
||||||
|
-D"" -aa -Tpe -x -Gn -v"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</OPTIONS>
|
||||||
|
<LINKER>
|
||||||
|
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||||
|
<ALLRES value="$(RESFILES)"/>
|
||||||
|
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||||
|
<OTHERFILES value=""/>
|
||||||
|
</LINKER>
|
||||||
|
<FILELIST>
|
||||||
|
<FILE FILENAME="gestionServicios.res" FORMNAME="" UNITNAME="gestionServicios.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="gestionServicios.cpp" FORMNAME="" UNITNAME="gestionServicios" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\clientes.cpp" FORMNAME="gestionClientes" UNITNAME="clientes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\tsplash.cpp" FORMNAME="Splash" UNITNAME="tsplash" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\agentes.cpp" FORMNAME="gestionAgentes" UNITNAME="agentes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirClientes.cpp" FORMNAME="imprimirCarteraClientes" UNITNAME="imprimirClientes" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\cuentaPolizas.cpp" FORMNAME="gestionCuentaPolizas" UNITNAME="cuentaPolizas" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirCuentaPolizas.cpp" FORMNAME="imprCuentaPolizas" UNITNAME="imprimirCuentaPolizas" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\imprimirFichaCliente.cpp" FORMNAME="imprFichaCliente" UNITNAME="imprimirFichaCliente" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
<FILE FILENAME="src\login_dlg.cpp" FORMNAME="login" UNITNAME="login_dlg" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
|
||||||
|
</FILELIST>
|
||||||
|
<BUILDTOOLS>
|
||||||
|
</BUILDTOOLS>
|
||||||
|
|
||||||
|
<IDEOPTIONS>
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1034
|
||||||
|
CodePage=1252
|
||||||
|
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
|
|
||||||
|
[Excluded Packages]
|
||||||
|
c:\archivos de programa\borland\cbuilder6\Bin\dclqrt60.bpl=QuickReport Components
|
||||||
|
c:\archivos de programa\borland\cbuilder6\Bin\dcltqr60.bpl=TeeChart for QuickReport Components
|
||||||
|
|
||||||
|
[HistoryLists\hlIncludePath]
|
||||||
|
Count=6
|
||||||
|
Item0=C:\Archivos de programa\Borland\Quickrep5;C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain
|
||||||
|
Item1=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core;C:\programacion\VCLs\zeos_mySQL\src\dbc;C:\programacion\VCLs\zeos_mySQL\src\parsesql;C:\programacion\VCLs\zeos_mySQL\src\plain
|
||||||
|
Item2=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl;C:\programacion\VCLs\zeos_mySQL\src\core
|
||||||
|
Item3=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
Item4=src;..\HAguila;..\gestionServicios\src;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
Item5=..\HAguila;..\gestionServicios\src;$(BCB)\include;$(BCB)\include\vcl
|
||||||
|
|
||||||
|
[HistoryLists\hlLibraryPath]
|
||||||
|
Count=4
|
||||||
|
Item0=C:\Archivos de programa\Borland\Quickrep5;C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item1=C:\programacion\VCLs\zeos_mySQL\src\component;src;..\HAguila;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item2=src;..\HAguila;..\gestionServicios\src;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
Item3=..\HAguila;..\gestionServicios\src;$(BCB)\Projects\Lib;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||||
|
|
||||||
|
[HistoryLists\hlDebugSourcePath]
|
||||||
|
Count=1
|
||||||
|
Item0=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[HistoryLists\hlConditionals]
|
||||||
|
Count=1
|
||||||
|
Item0=_DEBUG
|
||||||
|
|
||||||
|
[HistoryLists\hlIntOutputDir]
|
||||||
|
Count=1
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj
|
||||||
|
|
||||||
|
[HistoryLists\hlFinalOutputDir]
|
||||||
|
Count=2
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin\
|
||||||
|
Item1=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\bin
|
||||||
|
|
||||||
|
[HistoryLists\hIBPIOutputDir]
|
||||||
|
Count=1
|
||||||
|
Item0=C:\Documents and Settings\Administrador\Mis documentos\CBuilder\Ventas\gestionServicios\obj
|
||||||
|
|
||||||
|
[Debugging]
|
||||||
|
DebugSourceDirs=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
HostApplication=
|
||||||
|
RemoteHost=
|
||||||
|
RemotePath=
|
||||||
|
RemoteLauncher=
|
||||||
|
RemoteCWD=
|
||||||
|
RemoteDebug=0
|
||||||
|
|
||||||
|
[Compiler]
|
||||||
|
ShowInfoMsgs=0
|
||||||
|
LinkDebugVcl=0
|
||||||
|
LinkCGLIB=0
|
||||||
|
|
||||||
|
[CORBA]
|
||||||
|
AddServerUnit=1
|
||||||
|
AddClientUnit=1
|
||||||
|
PrecompiledHeaders=1
|
||||||
|
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
</IDEOPTIONS>
|
||||||
|
</PROJECT>
|
||||||
52
gestionServicios.~cpp
Normal file
52
gestionServicios.~cpp
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include "tsplash.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
USEFORM("src\clientes.cpp", gestionClientes);
|
||||||
|
USEFORM("src\tsplash.cpp", Splash);
|
||||||
|
USEFORM("src\agentes.cpp", gestionAgentes);
|
||||||
|
USEFORM("src\imprimirClientes.cpp", imprimirCarteraClientes);
|
||||||
|
USEFORM("src\cuentaPolizas.cpp", gestionCuentaPolizas);
|
||||||
|
USEFORM("src\imprimirCuentaPolizas.cpp", imprCuentaPolizas);
|
||||||
|
USEFORM("src\imprimirFichaCliente.cpp", imprFichaCliente);
|
||||||
|
USEFORM("src\login_dlg.cpp", login);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||||
|
{
|
||||||
|
try {//outer finally
|
||||||
|
try
|
||||||
|
{
|
||||||
|
Application->Initialize();
|
||||||
|
Splash = new TSplash(NULL);
|
||||||
|
Splash->Show();
|
||||||
|
Splash->Repaint();
|
||||||
|
|
||||||
|
Application->CreateForm(__classid(TgestionClientes), &gestionClientes);
|
||||||
|
Application->CreateForm(__classid(Tlogin), &login);
|
||||||
|
Application->Run();
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
catch (...)
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
throw Exception("");
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
__finally{
|
||||||
|
if(Splash)
|
||||||
|
delete Splash;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
gestorServicios.s3db
Normal file
BIN
gestorServicios.s3db
Normal file
Binary file not shown.
11
leeme.txt
Normal file
11
leeme.txt
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
2011-12-29 JDsoft Actualizaci<63>n para a<>adir control de polizas externas
|
||||||
|
|
||||||
|
CREATE TABLE [serviciosExternos] (
|
||||||
|
[id] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,
|
||||||
|
[cliente] INTEGER NULL,
|
||||||
|
[tipoServicio] INTEGER NULL,
|
||||||
|
[nPoliza] vARCHAR(15) NULL,
|
||||||
|
[fechaEfecto] DATE NULL,
|
||||||
|
[fechaVencimiento] dATE NULL,
|
||||||
|
[primaNeta] NUMERIC DEFAULT '0' NULL
|
||||||
|
)
|
||||||
BIN
obj/agentes.obj
Normal file
BIN
obj/agentes.obj
Normal file
Binary file not shown.
BIN
obj/clientes.obj
Normal file
BIN
obj/clientes.obj
Normal file
Binary file not shown.
BIN
obj/cuentaPolizas.obj
Normal file
BIN
obj/cuentaPolizas.obj
Normal file
Binary file not shown.
BIN
obj/gestionServicios.obj
Normal file
BIN
obj/gestionServicios.obj
Normal file
Binary file not shown.
BIN
obj/imprimirClientes.obj
Normal file
BIN
obj/imprimirClientes.obj
Normal file
Binary file not shown.
BIN
obj/imprimirCuentaPolizas.obj
Normal file
BIN
obj/imprimirCuentaPolizas.obj
Normal file
Binary file not shown.
BIN
obj/imprimirFichaCliente.obj
Normal file
BIN
obj/imprimirFichaCliente.obj
Normal file
Binary file not shown.
BIN
obj/login_dlg.obj
Normal file
BIN
obj/login_dlg.obj
Normal file
Binary file not shown.
BIN
obj/tsplash.obj
Normal file
BIN
obj/tsplash.obj
Normal file
Binary file not shown.
BIN
sqlite3.dll
Normal file
BIN
sqlite3.dll
Normal file
Binary file not shown.
19
src/agentes.cpp
Normal file
19
src/agentes.cpp
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "agentes.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionAgentes *gestionAgentes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionAgentes::TgestionAgentes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
38
src/agentes.dfm
Normal file
38
src/agentes.dfm
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
object gestionAgentes: TgestionAgentes
|
||||||
|
Left = 511
|
||||||
|
Top = 161
|
||||||
|
Width = 400
|
||||||
|
Height = 450
|
||||||
|
Caption = 'Gesti'#243'n de Agentes'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object DBGrid2: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 392
|
||||||
|
Height = 420
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
TitleFont.Charset = DEFAULT_CHARSET
|
||||||
|
TitleFont.Color = clWindowText
|
||||||
|
TitleFont.Height = -11
|
||||||
|
TitleFont.Name = 'MS Sans Serif'
|
||||||
|
TitleFont.Style = []
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Title.Caption = 'Nombre del Agente'
|
||||||
|
Width = 352
|
||||||
|
Visible = True
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
28
src/agentes.h
Normal file
28
src/agentes.h
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef agentesH
|
||||||
|
#define agentesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionAgentes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TDBGrid *DBGrid2;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionAgentes(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionAgentes *gestionAgentes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
19
src/agentes.~cpp
Normal file
19
src/agentes.~cpp
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "agentes.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionAgentes *gestionAgentes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionAgentes::TgestionAgentes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
44
src/agentes.~dfm
Normal file
44
src/agentes.~dfm
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
object gestionAgentes: TgestionAgentes
|
||||||
|
Left = 511
|
||||||
|
Top = 161
|
||||||
|
Width = 400
|
||||||
|
Height = 450
|
||||||
|
Caption = 'Gesti'#243'n de Agentes'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object DBGrid2: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 392
|
||||||
|
Height = 420
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
TitleFont.Charset = DEFAULT_CHARSET
|
||||||
|
TitleFont.Color = clWindowText
|
||||||
|
TitleFont.Height = -11
|
||||||
|
TitleFont.Name = 'MS Sans Serif'
|
||||||
|
TitleFont.Style = []
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'id'
|
||||||
|
ReadOnly = True
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Title.Caption = 'Nombre del Agente'
|
||||||
|
Width = 295
|
||||||
|
Visible = True
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
28
src/agentes.~h
Normal file
28
src/agentes.~h
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef agentesH
|
||||||
|
#define agentesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionAgentes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TDBGrid *DBGrid2;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionAgentes(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionAgentes *gestionAgentes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
600
src/clientes.cpp
Normal file
600
src/clientes.cpp
Normal file
@ -0,0 +1,600 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <DateUtils.hpp>
|
||||||
|
#include "tsplash.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "agentes.h"
|
||||||
|
#include "imprimirClientes.h"
|
||||||
|
#include "cuentaPolizas.h"
|
||||||
|
#include "imprimirFichaCliente.h"
|
||||||
|
#include "login_dlg.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZConnection"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma link "ZSqlUpdate"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionClientes *gestionClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionClientes::TgestionClientes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
gettingAutoIncrement = false;
|
||||||
|
|
||||||
|
#define IDM_ABOUTBOX 1
|
||||||
|
HMENU pSysMenu = GetSystemMenu(this->Handle, FALSE);
|
||||||
|
if (pSysMenu != NULL)
|
||||||
|
{
|
||||||
|
AppendMenu(pSysMenu, MF_SEPARATOR,0,0);
|
||||||
|
AppendMenu(pSysMenu, MF_STRING, IDM_ABOUTBOX, "Acerca de...");
|
||||||
|
}
|
||||||
|
WindowProc=MyWndProc;
|
||||||
|
|
||||||
|
|
||||||
|
// Cargamos el listado de agentes disponibles
|
||||||
|
TZQuery *zquery;
|
||||||
|
zquery = new TZQuery(this);
|
||||||
|
zquery->Connection = ZConnection1;
|
||||||
|
zquery->SQL->Clear();
|
||||||
|
zquery->SQL->Add("SELECT id,nombre FROM agentes ORDER BY nombre");
|
||||||
|
zquery->Active=zquery->Connection->Connected;
|
||||||
|
|
||||||
|
srch_agentes->Items->Clear();
|
||||||
|
srch_agentes->Items->AddObject("",(TObject *)(-1) );
|
||||||
|
srch_agentes->Items->AddObject("-[ Sin Agente Asignado ]-",(TObject *)(0) );
|
||||||
|
while(!zquery->Eof)
|
||||||
|
{
|
||||||
|
srch_agentes->Items->AddObject(zquery->FieldByName("nombre")->AsString,(TObject *)(zquery->FieldByName("id")->AsInteger));
|
||||||
|
zquery->Next();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// Orden del listado
|
||||||
|
dsListado_sort = "c.id";
|
||||||
|
|
||||||
|
|
||||||
|
zuClientes->ModifySQL->Clear();
|
||||||
|
zuClientes->ModifySQL->Add("UPDATE clientes SET agente=:agente, nombre=:nombre, dni=:dni, calle=:calle, poblacion=:poblacion, provincia=:provincia, cp=:cp, telefono=:telefono, movil=:movil, fax=:fax, correo=:correo, cobroCalle=:cobroCalle, estado=:estado, gradoFidelidad=:gradoFidelidad, pCargo=:pCargo, fechaNacimiento=:fechaNacimiento, fechaCarnet=:fechaCarnet, fecha=:fecha, hora=:hora, notas=:notas WHERE id=:OLD_id");
|
||||||
|
zuClientes->DeleteSQL->Clear();
|
||||||
|
zuClientes->DeleteSQL->Add("DELETE FROM clientes WHERE id=:OLD_id");
|
||||||
|
zuClientes->InsertSQL->Clear();
|
||||||
|
zuClientes->InsertSQL->Add("INSERT INTO clientes (agente, nombre, dni, calle, poblacion, provincia, cp, telefono, movil, fax, correo, cobroCalle, estado, gradoFidelidad, pCargo, fechaNacimiento, fechaCarnet, fecha, hora, notas) VALUES (:agente, :nombre, :dni, :calle, :poblacion, :provincia, :cp, :telefono, :movil, :fax, :correo, :cobroCalle, :estado, :gradoFidelidad, :pCargo, :fechaNacimiento, :fechaCarnet, :fecha, :hora, :notas)");
|
||||||
|
|
||||||
|
zuServicios->ModifySQL->Clear();
|
||||||
|
zuServicios->ModifySQL->Add("UPDATE servicios SET tipoServicio=:tipoServicio, nPoliza=:nPoliza, fechaEfecto=:fechaEfecto, fechaVencimiento=:fechaVencimiento, primaNeta=:primaNeta WHERE id=:OLD_id");
|
||||||
|
zuServicios->DeleteSQL->Clear();
|
||||||
|
zuServicios->DeleteSQL->Add("DELETE FROM servicios WHERE id=:OLD_id");
|
||||||
|
zuServicios->InsertSQL->Clear();
|
||||||
|
zuServicios->InsertSQL->Add("INSERT INTO servicios (cliente, tipoServicio, nPoliza, fechaEfecto, fechaVencimiento, primaNeta) VALUES (:cliente, :tipoServicio, :nPoliza, :fechaEfecto, :fechaVencimiento, :primaNeta)");
|
||||||
|
|
||||||
|
|
||||||
|
zuServiciosExternos->ModifySQL->Clear();
|
||||||
|
zuServiciosExternos->ModifySQL->Add("UPDATE serviciosExternos SET tipoServicio=:tipoServicio, nPoliza=:nPoliza, fechaEfecto=:fechaEfecto, fechaVencimiento=:fechaVencimiento, primaNeta=:primaNeta WHERE id=:OLD_id");
|
||||||
|
zuServiciosExternos->DeleteSQL->Clear();
|
||||||
|
zuServiciosExternos->DeleteSQL->Add("DELETE FROM serviciosExternos WHERE id=:OLD_id");
|
||||||
|
zuServiciosExternos->InsertSQL->Clear();
|
||||||
|
zuServiciosExternos->InsertSQL->Add("INSERT INTO serviciosExternos (cliente, tipoServicio, nPoliza, fechaEfecto, fechaVencimiento, primaNeta) VALUES (:cliente, :tipoServicio, :nPoliza, :fechaEfecto, :fechaVencimiento, :primaNeta)");
|
||||||
|
|
||||||
|
|
||||||
|
PageControl1->ActivePage = TabSheet1;
|
||||||
|
PageControl2->ActivePage = TabSheet3;
|
||||||
|
|
||||||
|
zqClientes->Active = zqClientes->Connection->Connected;
|
||||||
|
zqServicios->Active = zqServicios->Connection->Connected;
|
||||||
|
zqServiciosExternos->Active = zqServicios->Connection->Connected;
|
||||||
|
zqTipoServicios->Active = zqTipoServicios->Connection->Connected;
|
||||||
|
zqFamiliares->Active = zqFamiliares->Connection->Connected;
|
||||||
|
zqAgentes->Active = zqAgentes->Connection->Connected;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::MyWndProc(Messages::TMessage &Message)
|
||||||
|
{
|
||||||
|
HMENU hMenu;
|
||||||
|
hMenu = GetSystemMenu (this->Handle, FALSE);
|
||||||
|
if (Message.Msg == WM_SYSCOMMAND)
|
||||||
|
{
|
||||||
|
switch(Message.WParamLo)
|
||||||
|
{
|
||||||
|
case IDM_ABOUTBOX:
|
||||||
|
if ( Splash==NULL ) Splash = new TSplash(NULL);
|
||||||
|
Splash->pressKeyToClose = true;
|
||||||
|
Splash->Show();
|
||||||
|
Splash->Repaint();
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
WndProc(Message);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
else
|
||||||
|
WndProc(Message);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(Splash){
|
||||||
|
delete Splash;
|
||||||
|
Splash = NULL;
|
||||||
|
|
||||||
|
Tlogin *login;
|
||||||
|
login = new Tlogin(this);
|
||||||
|
|
||||||
|
do {
|
||||||
|
login->ShowModal();
|
||||||
|
if ( login->ModalResult!=mrOk ) {
|
||||||
|
Close();
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if ( login->auth ) break;
|
||||||
|
|
||||||
|
MessageDlg("Error iniciando sesi<73>n.\nEl usuario/contrase<73>a no es correcto.",mtError, TMsgDlgButtons() << mbOK, 0);
|
||||||
|
login->pass->Text = "";
|
||||||
|
} while(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::DBGrid1DblClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
PageControl1->ActivePage = TabSheet2;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DBGrid1TitleClick(TColumn *Column)
|
||||||
|
{
|
||||||
|
if ( dsListado_sort.Pos(Column->FieldName)==1 && dsListado_sort.Pos(" ASC")==0 )
|
||||||
|
dsListado_sort = Column->FieldName + " ASC";
|
||||||
|
else
|
||||||
|
dsListado_sort = Column->FieldName + " DESC";
|
||||||
|
|
||||||
|
dsListado_Indice = Column->Index;
|
||||||
|
|
||||||
|
doFilterClick(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::doFilterClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
AnsiString where,orderBy,query, leftJOIN;
|
||||||
|
|
||||||
|
where = "";
|
||||||
|
leftJOIN = "";
|
||||||
|
if ( !srch_vFilter->Text.IsEmpty() )
|
||||||
|
switch( srch_kFilter->ItemIndex ) {
|
||||||
|
case 0:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.id='"+srch_vFilter->Text+"'";
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.nombre LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" (c.telefono LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
where+=" OR c.movil LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
where+=" OR c.fax LIKE '%"+srch_vFilter->Text+"%')";
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.calle LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 4:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.poblacion LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 5:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.provincia LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 6:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.cp LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 7:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.dni LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 8:
|
||||||
|
System::TDateTime fecha;
|
||||||
|
if ( TryStrToDate(srch_vFilter->Text, fecha) ) {
|
||||||
|
DateSeparator = '-';
|
||||||
|
ShortDateFormat = "yyyy-mm-dd";
|
||||||
|
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" p.fechaVencimiento<='"+DateToStr(fecha)+"'";
|
||||||
|
leftJOIN = " LEFT JOIN serviciosExternos p ON (p.cliente=c.id) ";
|
||||||
|
|
||||||
|
DateSeparator = '/';
|
||||||
|
ShortDateFormat = "dd/mm/yyyy";
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
int agente;
|
||||||
|
if ( srch_agentes->ItemIndex>0 ) {
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
if ( agente>=0 ) {
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" a.id="+AnsiString(agente);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
orderBy = " ORDER BY ";
|
||||||
|
if ( dsListado_sort.Pos("agenteNombre")>0 ) orderBy += "a.nombre"; else orderBy += "c."+dsListado_sort;
|
||||||
|
|
||||||
|
|
||||||
|
query = "SELECT c.id, c.agente, a.nombre agenteNombre, c.nombre, c.dni, c.calle, c.poblacion, c.provincia, c.cp, c.telefono, c.movil, c.fax, c.correo, c.cobroCalle, c.estado, c.gradoFidelidad, c.pCargo, c.fechaNacimiento,c.fechaCarnet,c.fecha, c.hora, c.notas";
|
||||||
|
query+= " FROM clientes c LEFT JOIN agentes a ON (a.id=c.agente)";
|
||||||
|
query+= leftJOIN;
|
||||||
|
query+= where;
|
||||||
|
query+= orderBy;
|
||||||
|
|
||||||
|
|
||||||
|
// Volver a filtrar el listado...
|
||||||
|
zqClientes->SQL->Clear();
|
||||||
|
zqClientes->SQL->Add(query);
|
||||||
|
zqClientes->Active = zqClientes->Connection->Connected;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DBGrid1DrawColumnCell(TObject *Sender,
|
||||||
|
const TRect &Rect, int DataCol, TColumn *Column,
|
||||||
|
TGridDrawState State)
|
||||||
|
{
|
||||||
|
//- ---------------------------------------------------------
|
||||||
|
if ( !State.Contains(gdSelected) )
|
||||||
|
{
|
||||||
|
Graphics::TBitmap *Bmp;
|
||||||
|
TDBGrid *dbG;
|
||||||
|
dbG = (TDBGrid *)Sender;
|
||||||
|
|
||||||
|
// Determina la columna clicada...
|
||||||
|
if ( Column->Index == dsListado_Indice )
|
||||||
|
{
|
||||||
|
Bmp = new Graphics::TBitmap();
|
||||||
|
Bmp->TransparentColor = clWhite;
|
||||||
|
Bmp->Transparent = true;
|
||||||
|
Bmp->TransparentMode = tmAuto;
|
||||||
|
|
||||||
|
try {
|
||||||
|
// Determina la imagen mostrada de acuerdo con el orden de los registros
|
||||||
|
if ( dsListado_sort.Pos(Column->FieldName) == 1 && dsListado_sort.Pos(" ASC")== 0 )
|
||||||
|
gridIcons->GetBitmap(0, Bmp); // Set abajo
|
||||||
|
else
|
||||||
|
gridIcons->GetBitmap(1, Bmp); // Set arriba
|
||||||
|
|
||||||
|
dbG->Canvas->Draw( Rect.right - Bmp->Width,2, Bmp);
|
||||||
|
} __finally {
|
||||||
|
delete Bmp; // Liberamos la variable Bmp de la memoria
|
||||||
|
}
|
||||||
|
}
|
||||||
|
dbG->DefaultDrawColumnCell(Rect,DataCol,Column,State);
|
||||||
|
}
|
||||||
|
//- ---------------------------------------------------------
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesBeforePost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
// Comprobar que no exista el DNI introducido
|
||||||
|
AnsiString dni;
|
||||||
|
dni = zqClientes->FieldByName("dni")->AsString;
|
||||||
|
|
||||||
|
|
||||||
|
if ( DataSet->State == dsInsert && !dni.IsEmpty() ) {
|
||||||
|
TZQuery *q;
|
||||||
|
q = new TZQuery(this);
|
||||||
|
q->SQL->Clear();
|
||||||
|
q->SQL->Add( AnsiString("select id FROM clientes WHERE dni='")+dni+AnsiString("'") );
|
||||||
|
q->Connection = ZConnection1;
|
||||||
|
q->Active = true;
|
||||||
|
|
||||||
|
if ( q->RecordCount>0 ) {
|
||||||
|
int res;
|
||||||
|
res = MessageDlg("El dni introducido ya existe, ficha " + IntToStr(q->FieldByName("id")->AsInteger) + ". <20>Duplicar ficha?", mtInformation, mbYesNoCancel, 0);
|
||||||
|
switch( res ) {
|
||||||
|
case mrCancel:
|
||||||
|
Abort();
|
||||||
|
return;
|
||||||
|
break;
|
||||||
|
case mrNo:
|
||||||
|
zqClientes->CancelUpdates();
|
||||||
|
zqClientes->Locate("id",q->FieldByName("id")->AsInteger, TLocateOptions() );
|
||||||
|
return;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Guardamos el contenido de los combos
|
||||||
|
zqClientes->FieldByName("fechaNacimiento")->AsDateTime = DateTimePicker1->DateTime;
|
||||||
|
zqClientes->FieldByName("fechaCarnet")->AsDateTime = DateTimePicker2->DateTime;
|
||||||
|
switch( dbEstadoCivil->ItemIndex ) {
|
||||||
|
case 0: zqClientes->FieldByName("estado")->AsString = "S"; break;
|
||||||
|
case 1: zqClientes->FieldByName("estado")->AsString = "C"; break;
|
||||||
|
case 2: zqClientes->FieldByName("estado")->AsString = "D"; break;
|
||||||
|
case 3: zqClientes->FieldByName("estado")->AsString = "V"; break;
|
||||||
|
}
|
||||||
|
zqClientes->FieldByName("gradoFidelidad")->AsInteger = cbGradoFidelidad->ItemIndex;
|
||||||
|
zqClientes->FieldByName("pCargo")->AsString = (dbPCargo->Checked?"Y":"N");
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DateTimePicker1CloseUp(TObject *Sender)
|
||||||
|
{
|
||||||
|
lbEdad->Caption = AnsiString( YearsBetween(TDateTime::CurrentDate(), DateTimePicker1->DateTime) ) + " A<>os";
|
||||||
|
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesAfterScroll(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
dbUpdating = true;
|
||||||
|
|
||||||
|
// Guardamos el contenido de los combos
|
||||||
|
DateTimePicker1->DateTime = zqClientes->FieldByName("fechaNacimiento")->AsDateTime;
|
||||||
|
DateTimePicker2->DateTime = zqClientes->FieldByName("fechaCarnet")->AsDateTime;
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="S" ) dbEstadoCivil->ItemIndex = 0; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="C" ) dbEstadoCivil->ItemIndex = 1; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="D" ) dbEstadoCivil->ItemIndex = 2; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="V" ) dbEstadoCivil->ItemIndex = 3;
|
||||||
|
|
||||||
|
if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 0 ) cbGradoFidelidad->ItemIndex = 0;
|
||||||
|
else if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 1 ) cbGradoFidelidad->ItemIndex = 1;
|
||||||
|
else if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 2 ) cbGradoFidelidad->ItemIndex = 2;
|
||||||
|
else cbGradoFidelidad->ItemIndex = 2;
|
||||||
|
|
||||||
|
dbPCargo->Checked = (zqClientes->FieldByName("pCargo")->AsString=="Y");
|
||||||
|
|
||||||
|
lbEdad->Caption = AnsiString( YearsBetween(TDateTime::CurrentDate(), DateTimePicker1->DateTime) ) + " A<>os";
|
||||||
|
|
||||||
|
dbUpdating = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dbEstadoCivilChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dbPCargoClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::Salir1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::GestindeAgentes1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionAgentes *f;
|
||||||
|
f = new TgestionAgentes(this);
|
||||||
|
f->DBGrid2->DataSource = dsAgentes;
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresNewRecord(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqFamiliares->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqFamiliares->FieldByName("sexo")->AsString = "H";
|
||||||
|
zqFamiliares->FieldByName("estado")->AsString = "C";
|
||||||
|
zqFamiliares->FieldByName("relacion")->AsString = "C";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresBeforePost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
// Convertir los desplegables
|
||||||
|
zqFamiliares->FieldByName("sexo")->AsString = (zqFamiliares->FieldByName("sexo")->AsString=="Hombre"?"H":"M");
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Soltero" ) zqFamiliares->FieldByName("estado")->AsString = "S"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Casado" ) zqFamiliares->FieldByName("estado")->AsString = "C"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Divorciado" ) zqFamiliares->FieldByName("estado")->AsString = "D"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Viudo" ) zqFamiliares->FieldByName("estado")->AsString = "V";
|
||||||
|
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Padre/Madre" ) zqFamiliares->FieldByName("relacion")->AsString = "P"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Marido/Mujer" ) zqFamiliares->FieldByName("relacion")->AsString = "C"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Hermano/a" ) zqFamiliares->FieldByName("relacion")->AsString = "H"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Hijo/a" ) zqFamiliares->FieldByName("relacion")->AsString = "N"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "otros" ) zqFamiliares->FieldByName("relacion")->AsString = "o";
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresestadoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "S" ) Text = "Soltero"; else
|
||||||
|
if ( Sender->AsString == "C" ) Text = "Casado"; else
|
||||||
|
if ( Sender->AsString == "D" ) Text = "Divorciado"; else
|
||||||
|
if ( Sender->AsString == "V" ) Text = "Viudo";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresrelacionGetText(
|
||||||
|
TField *Sender, AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "P" ) Text = "Padre/Madre"; else
|
||||||
|
if ( Sender->AsString == "C" ) Text = "Marido/Mujer"; else
|
||||||
|
if ( Sender->AsString == "H" ) Text = "Hermano/a"; else
|
||||||
|
if ( Sender->AsString == "N" ) Text = "Hijo/a"; else
|
||||||
|
if ( Sender->AsString == "o" ) Text = "otros";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaressexoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "H" ) Text = "Hombre"; else
|
||||||
|
if ( Sender->AsString == "M" ) Text = "Mujer";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqServiciosNewRecord(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqServicios->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqServicios->FieldByName("primaNeta")->AsCurrency = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::TiposdeServicio1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionAgentes *f;
|
||||||
|
f = new TgestionAgentes(this);
|
||||||
|
f->Caption = "Tipos de Servicios";
|
||||||
|
f->DBGrid2->Columns->Items[0]->Title->Caption = "Nombre del Servicio Contratado";
|
||||||
|
f->DBGrid2->DataSource = dsTipoServicios;
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::ImprimirListado1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprimirCarteraClientes *i;
|
||||||
|
i = new TimprimirCarteraClientes(this);
|
||||||
|
i->QuickRep1->DataSet = zqClientes;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::ImprimirFicha1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprFichaCliente *i;
|
||||||
|
i = new TimprFichaCliente(this);
|
||||||
|
|
||||||
|
i->rID->Caption = zqClientes->FieldByName("id")->AsString;
|
||||||
|
i->rNombre->Caption = zqClientes->FieldByName("nombre")->AsString;
|
||||||
|
i->rDNI->Caption = zqClientes->FieldByName("dni")->AsString;
|
||||||
|
i->rFechaNacimiento->Caption = zqClientes->FieldByName("fechaNacimiento")->AsString;
|
||||||
|
i->rEstadoCivil->Caption = zqClientes->FieldByName("estado")->AsString;
|
||||||
|
i->rPCargo->Caption = zqClientes->FieldByName("pCargo")->AsString=="Y"?"SI":"NO";
|
||||||
|
i->rCalle->Caption = zqClientes->FieldByName("calle")->AsString;
|
||||||
|
i->rPoblacion->Caption = zqClientes->FieldByName("poblacion")->AsString;
|
||||||
|
i->rProvincia->Caption = zqClientes->FieldByName("provincia")->AsString;
|
||||||
|
i->rCP->Caption = zqClientes->FieldByName("cp")->AsString;
|
||||||
|
i->rDirCobro->Caption = zqClientes->FieldByName("cobroCalle")->AsString;
|
||||||
|
i->rTelefono->Caption = zqClientes->FieldByName("telefono")->AsString;
|
||||||
|
i->rMovil->Caption = zqClientes->FieldByName("movil")->AsString;
|
||||||
|
i->rFax->Caption = zqClientes->FieldByName("fax")->AsString;
|
||||||
|
i->rEMail->Caption = zqClientes->FieldByName("correo")->AsString;
|
||||||
|
i->rAgente->Caption = DBLookupComboBox1->Text;
|
||||||
|
i->rGradoFidelidad->Caption = zqClientes->FieldByName("gradoFidelidad")->AsString;
|
||||||
|
i->rNotas->Lines->Text = zqClientes->FieldByName("notas")->AsString;
|
||||||
|
|
||||||
|
i->QuickRep1->DataSet = zqFamiliares;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::CuentaPolizas1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionCuentaPolizas *f;
|
||||||
|
f = new TgestionCuentaPolizas(this);
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dsClientesStateChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dsClientes->State==dsInsert ) {
|
||||||
|
PageControl2->ActivePage = TabSheet5;
|
||||||
|
}
|
||||||
|
|
||||||
|
TabSheet3->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
TabSheet6->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
TabSheet4->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesAfterPost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
if ( gettingAutoIncrement ) return;
|
||||||
|
// Read auto-increment
|
||||||
|
if ( zqClientes->FieldByName("id")->AsInteger==0 ) {
|
||||||
|
gettingAutoIncrement = true;
|
||||||
|
|
||||||
|
zqClientes->Edit();
|
||||||
|
|
||||||
|
TZQuery *q;
|
||||||
|
q = new TZQuery(this);
|
||||||
|
q->SQL->Clear();
|
||||||
|
q->SQL->Add("select last_insert_rowid() id");
|
||||||
|
q->Connection = ZConnection1;
|
||||||
|
q->Active = true;
|
||||||
|
|
||||||
|
zqClientes->FieldByName("id")->AsInteger = q->FieldByName("id")->AsInteger;
|
||||||
|
delete q;
|
||||||
|
|
||||||
|
zqClientes->Post();
|
||||||
|
gettingAutoIncrement = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::cbGradoFidelidadChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::FormClose(TObject *Sender,
|
||||||
|
TCloseAction &Action)
|
||||||
|
{
|
||||||
|
if( zqClientes->State == dsEdit || zqClientes->State == dsInsert ) zqClientes->Post();
|
||||||
|
if( zqServicios->State == dsEdit || zqServicios->State == dsInsert ) zqServicios->Post();
|
||||||
|
if( zqFamiliares->State == dsEdit || zqFamiliares->State == dsInsert ) zqFamiliares->Post();
|
||||||
|
if( zqAgentes->State == dsEdit || zqAgentes->State == dsInsert ) zqAgentes->Post();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqServiciosExternosNewRecord(
|
||||||
|
TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqServiciosExternos->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqServiciosExternos->FieldByName("primaNeta")->AsCurrency = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::PageControl2Changing(TObject *Sender,
|
||||||
|
bool &AllowChange)
|
||||||
|
{
|
||||||
|
AllowChange = ( dsClientes->State!=dsInsert );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/clientes.ddp
Normal file
BIN
src/clientes.ddp
Normal file
Binary file not shown.
1665
src/clientes.dfm
Normal file
1665
src/clientes.dfm
Normal file
File diff suppressed because it is too large
Load Diff
211
src/clientes.h
Normal file
211
src/clientes.h
Normal file
@ -0,0 +1,211 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef clientesH
|
||||||
|
#define clientesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZConnection.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include "ZSqlUpdate.hpp"
|
||||||
|
#include <ComCtrls.hpp>
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ImgList.hpp>
|
||||||
|
#include <DBCtrls.hpp>
|
||||||
|
#include <Mask.hpp>
|
||||||
|
#include <Menus.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionClientes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPageControl *PageControl1;
|
||||||
|
TTabSheet *TabSheet1;
|
||||||
|
TTabSheet *TabSheet2;
|
||||||
|
TPanel *Panel1;
|
||||||
|
TDBGrid *DBGrid1;
|
||||||
|
TZConnection *ZConnection1;
|
||||||
|
TZQuery *zqClientes;
|
||||||
|
TZUpdateSQL *zuClientes;
|
||||||
|
TDataSource *dsClientes;
|
||||||
|
TLabel *Label1;
|
||||||
|
TComboBox *srch_kFilter;
|
||||||
|
TEdit *srch_vFilter;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TComboBox *srch_agentes;
|
||||||
|
TImageList *gridIcons;
|
||||||
|
TLabel *Label2;
|
||||||
|
TDBEdit *DBEdit1;
|
||||||
|
TPageControl *PageControl2;
|
||||||
|
TTabSheet *TabSheet3;
|
||||||
|
TTabSheet *TabSheet4;
|
||||||
|
TTabSheet *TabSheet5;
|
||||||
|
TDBMemo *DBMemo1;
|
||||||
|
TDBGrid *DBGrid2;
|
||||||
|
TPanel *Panel2;
|
||||||
|
TDBGrid *DBGrid3;
|
||||||
|
TDBNavigator *DBNavigator1;
|
||||||
|
TLabel *Label4;
|
||||||
|
TDBText *DBText1;
|
||||||
|
TLabel *Label5;
|
||||||
|
TDBEdit *DBEdit2;
|
||||||
|
TLabel *Label6;
|
||||||
|
TDBEdit *DBEdit3;
|
||||||
|
TLabel *Label7;
|
||||||
|
TDBEdit *DBEdit4;
|
||||||
|
TLabel *Label8;
|
||||||
|
TDBEdit *DBEdit5;
|
||||||
|
TLabel *Label9;
|
||||||
|
TDBEdit *DBEdit6;
|
||||||
|
TLabel *Label10;
|
||||||
|
TDBEdit *DBEdit7;
|
||||||
|
TLabel *Label11;
|
||||||
|
TDBEdit *DBEdit8;
|
||||||
|
TLabel *Label12;
|
||||||
|
TDBEdit *DBEdit9;
|
||||||
|
TLabel *Label13;
|
||||||
|
TDBEdit *DBEdit10;
|
||||||
|
TLabel *Label14;
|
||||||
|
TDBEdit *DBEdit11;
|
||||||
|
TLabel *Label15;
|
||||||
|
TLabel *Label16;
|
||||||
|
TLabel *lbEdad;
|
||||||
|
TDateTimePicker *DateTimePicker1;
|
||||||
|
TLabel *Label18;
|
||||||
|
TComboBox *dbEstadoCivil;
|
||||||
|
TGroupBox *GroupBox1;
|
||||||
|
TLabel *Label3;
|
||||||
|
TLabel *Label19;
|
||||||
|
TCheckBox *dbPCargo;
|
||||||
|
TIntegerField *zqClientesid;
|
||||||
|
TIntegerField *zqClientesagente;
|
||||||
|
TStringField *zqClientesagenteNombre;
|
||||||
|
TStringField *zqClientesnombre;
|
||||||
|
TStringField *zqClientesdni;
|
||||||
|
TStringField *zqClientescalle;
|
||||||
|
TStringField *zqClientespoblacion;
|
||||||
|
TStringField *zqClientesprovincia;
|
||||||
|
TStringField *zqClientescp;
|
||||||
|
TStringField *zqClientestelefono;
|
||||||
|
TStringField *zqClientesmovil;
|
||||||
|
TStringField *zqClientesfax;
|
||||||
|
TStringField *zqClientescorreo;
|
||||||
|
TStringField *zqClientescobroCalle;
|
||||||
|
TStringField *zqClientesestado;
|
||||||
|
TIntegerField *zqClientesgradoFidelidad;
|
||||||
|
TStringField *zqClientespCargo;
|
||||||
|
TDateField *zqClientesfechaNacimiento;
|
||||||
|
TDateField *zqClientesfecha;
|
||||||
|
TTimeField *zqClienteshora;
|
||||||
|
TMemoField *zqClientesnotas;
|
||||||
|
TMainMenu *MainMenu1;
|
||||||
|
TMenuItem *menu_Clientes1;
|
||||||
|
TMenuItem *menu_Agentes1;
|
||||||
|
TMenuItem *ImprimirFicha1;
|
||||||
|
TMenuItem *ImprimirListado1;
|
||||||
|
TMenuItem *GestindeAgentes1;
|
||||||
|
TMenuItem *CuentaPolizas1;
|
||||||
|
TMenuItem *Salir1;
|
||||||
|
TZQuery *zqFamiliares;
|
||||||
|
TDataSource *dsFamiliares;
|
||||||
|
TIntegerField *zqFamiliaresid;
|
||||||
|
TIntegerField *zqFamiliarescliente;
|
||||||
|
TStringField *zqFamiliaresnombre;
|
||||||
|
TStringField *zqFamiliaresdni;
|
||||||
|
TStringField *zqFamiliaressexo;
|
||||||
|
TStringField *zqFamiliaresestado;
|
||||||
|
TStringField *zqFamiliaresrelacion;
|
||||||
|
TDateField *zqFamiliaresfechaNacimiento;
|
||||||
|
TZQuery *zqServicios;
|
||||||
|
TDataSource *dsServicios;
|
||||||
|
TIntegerField *zqServiciosid;
|
||||||
|
TIntegerField *zqServicioscliente;
|
||||||
|
TIntegerField *zqServiciostipoServicio;
|
||||||
|
TStringField *zqServiciosnPoliza;
|
||||||
|
TDateField *zqServiciosfechaEfecto;
|
||||||
|
TDateField *zqServiciosfechaVencimiento;
|
||||||
|
TFloatField *zqServiciosprimaNeta;
|
||||||
|
TZQuery *zqTipoServicios;
|
||||||
|
TIntegerField *zqTipoServiciosid;
|
||||||
|
TStringField *zqTipoServiciosnombre;
|
||||||
|
TStringField *zqServiciosnombreServicio;
|
||||||
|
TZUpdateSQL *zuServicios;
|
||||||
|
TDataSource *dsAgentes;
|
||||||
|
TMenuItem *TiposdeServicio1;
|
||||||
|
TMenuItem *N1;
|
||||||
|
TDataSource *dsTipoServicios;
|
||||||
|
TDBLookupComboBox *DBLookupComboBox1;
|
||||||
|
TZQuery *zqAgentes;
|
||||||
|
TImageList *ImageList1;
|
||||||
|
TComboBox *cbGradoFidelidad;
|
||||||
|
TTabSheet *TabSheet6;
|
||||||
|
TDBGrid *DBGrid4;
|
||||||
|
TDataSource *dsServiciosExternos;
|
||||||
|
TZQuery *zqServiciosExternos;
|
||||||
|
TIntegerField *IntegerField1;
|
||||||
|
TIntegerField *IntegerField2;
|
||||||
|
TIntegerField *IntegerField3;
|
||||||
|
TStringField *StringField1;
|
||||||
|
TDateField *DateField1;
|
||||||
|
TDateField *DateField2;
|
||||||
|
TFloatField *FloatField1;
|
||||||
|
TStringField *StringField2;
|
||||||
|
TZUpdateSQL *zuServiciosExternos;
|
||||||
|
TLabel *Label17;
|
||||||
|
TDateTimePicker *DateTimePicker2;
|
||||||
|
TDateField *zqClientesfechaCarnet;
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1DblClick(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1TitleClick(TColumn *Column);
|
||||||
|
void __fastcall doFilterClick(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1DrawColumnCell(TObject *Sender,
|
||||||
|
const TRect &Rect, int DataCol, TColumn *Column,
|
||||||
|
TGridDrawState State);
|
||||||
|
void __fastcall zqClientesBeforePost(TDataSet *DataSet);
|
||||||
|
void __fastcall DateTimePicker1CloseUp(TObject *Sender);
|
||||||
|
void __fastcall zqClientesAfterScroll(TDataSet *DataSet);
|
||||||
|
void __fastcall dbEstadoCivilChange(TObject *Sender);
|
||||||
|
void __fastcall dbPCargoClick(TObject *Sender);
|
||||||
|
void __fastcall Salir1Click(TObject *Sender);
|
||||||
|
void __fastcall GestindeAgentes1Click(TObject *Sender);
|
||||||
|
void __fastcall zqFamiliaresNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall zqFamiliaresBeforePost(TDataSet *DataSet);
|
||||||
|
void __fastcall zqFamiliaresestadoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqFamiliaresrelacionGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqFamiliaressexoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqServiciosNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall TiposdeServicio1Click(TObject *Sender);
|
||||||
|
void __fastcall ImprimirListado1Click(TObject *Sender);
|
||||||
|
void __fastcall ImprimirFicha1Click(TObject *Sender);
|
||||||
|
void __fastcall CuentaPolizas1Click(TObject *Sender);
|
||||||
|
void __fastcall dsClientesStateChange(TObject *Sender);
|
||||||
|
void __fastcall zqClientesAfterPost(TDataSet *DataSet);
|
||||||
|
void __fastcall cbGradoFidelidadChange(TObject *Sender);
|
||||||
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||||
|
void __fastcall zqServiciosExternosNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall PageControl2Changing(TObject *Sender,
|
||||||
|
bool &AllowChange);
|
||||||
|
private: // User declarations
|
||||||
|
void __fastcall MyWndProc(Messages::TMessage &Message);
|
||||||
|
AnsiString dsListado_sort;
|
||||||
|
int dsListado_Indice;
|
||||||
|
bool dbUpdating, gettingAutoIncrement;
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionClientes(TComponent* Owner);
|
||||||
|
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionClientes *gestionClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
600
src/clientes.~cpp
Normal file
600
src/clientes.~cpp
Normal file
@ -0,0 +1,600 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <DateUtils.hpp>
|
||||||
|
#include "tsplash.h"
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "agentes.h"
|
||||||
|
#include "imprimirClientes.h"
|
||||||
|
#include "cuentaPolizas.h"
|
||||||
|
#include "imprimirFichaCliente.h"
|
||||||
|
#include "login_dlg.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZConnection"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma link "ZSqlUpdate"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionClientes *gestionClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionClientes::TgestionClientes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
gettingAutoIncrement = false;
|
||||||
|
|
||||||
|
#define IDM_ABOUTBOX 1
|
||||||
|
HMENU pSysMenu = GetSystemMenu(this->Handle, FALSE);
|
||||||
|
if (pSysMenu != NULL)
|
||||||
|
{
|
||||||
|
AppendMenu(pSysMenu, MF_SEPARATOR,0,0);
|
||||||
|
AppendMenu(pSysMenu, MF_STRING, IDM_ABOUTBOX, "Acerca de...");
|
||||||
|
}
|
||||||
|
WindowProc=MyWndProc;
|
||||||
|
|
||||||
|
|
||||||
|
// Cargamos el listado de agentes disponibles
|
||||||
|
TZQuery *zquery;
|
||||||
|
zquery = new TZQuery(this);
|
||||||
|
zquery->Connection = ZConnection1;
|
||||||
|
zquery->SQL->Clear();
|
||||||
|
zquery->SQL->Add("SELECT id,nombre FROM agentes ORDER BY nombre");
|
||||||
|
zquery->Active=zquery->Connection->Connected;
|
||||||
|
|
||||||
|
srch_agentes->Items->Clear();
|
||||||
|
srch_agentes->Items->AddObject("",(TObject *)(-1) );
|
||||||
|
srch_agentes->Items->AddObject("-[ Sin Agente Asignado ]-",(TObject *)(0) );
|
||||||
|
while(!zquery->Eof)
|
||||||
|
{
|
||||||
|
srch_agentes->Items->AddObject(zquery->FieldByName("nombre")->AsString,(TObject *)(zquery->FieldByName("id")->AsInteger));
|
||||||
|
zquery->Next();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// Orden del listado
|
||||||
|
dsListado_sort = "c.id";
|
||||||
|
|
||||||
|
|
||||||
|
zuClientes->ModifySQL->Clear();
|
||||||
|
zuClientes->ModifySQL->Add("UPDATE clientes SET agente=:agente, nombre=:nombre, dni=:dni, calle=:calle, poblacion=:poblacion, provincia=:provincia, cp=:cp, telefono=:telefono, movil=:movil, fax=:fax, correo=:correo, cobroCalle=:cobroCalle, estado=:estado, gradoFidelidad=:gradoFidelidad, pCargo=:pCargo, fechaNacimiento=:fechaNacimiento, fechaCarnet=:fechaCarnet, fecha=:fecha, hora=:hora, notas=:notas WHERE id=:OLD_id");
|
||||||
|
zuClientes->DeleteSQL->Clear();
|
||||||
|
zuClientes->DeleteSQL->Add("DELETE FROM clientes WHERE id=:OLD_id");
|
||||||
|
zuClientes->InsertSQL->Clear();
|
||||||
|
zuClientes->InsertSQL->Add("INSERT INTO clientes (agente, nombre, dni, calle, poblacion, provincia, cp, telefono, movil, fax, correo, cobroCalle, estado, gradoFidelidad, pCargo, fechaNacimiento, fechaCarnet, fecha, hora, notas) VALUES (:agente, :nombre, :dni, :calle, :poblacion, :provincia, :cp, :telefono, :movil, :fax, :correo, :cobroCalle, :estado, :gradoFidelidad, :pCargo, :fechaNacimiento, :fechaCarnet, :fecha, :hora, :notas)");
|
||||||
|
|
||||||
|
zuServicios->ModifySQL->Clear();
|
||||||
|
zuServicios->ModifySQL->Add("UPDATE servicios SET tipoServicio=:tipoServicio, nPoliza=:nPoliza, fechaEfecto=:fechaEfecto, fechaVencimiento=:fechaVencimiento, primaNeta=:primaNeta WHERE id=:OLD_id");
|
||||||
|
zuServicios->DeleteSQL->Clear();
|
||||||
|
zuServicios->DeleteSQL->Add("DELETE FROM servicios WHERE id=:OLD_id");
|
||||||
|
zuServicios->InsertSQL->Clear();
|
||||||
|
zuServicios->InsertSQL->Add("INSERT INTO servicios (cliente, tipoServicio, nPoliza, fechaEfecto, fechaVencimiento, primaNeta) VALUES (:cliente, :tipoServicio, :nPoliza, :fechaEfecto, :fechaVencimiento, :primaNeta)");
|
||||||
|
|
||||||
|
|
||||||
|
zuServiciosExternos->ModifySQL->Clear();
|
||||||
|
zuServiciosExternos->ModifySQL->Add("UPDATE serviciosExternos SET tipoServicio=:tipoServicio, nPoliza=:nPoliza, fechaEfecto=:fechaEfecto, fechaVencimiento=:fechaVencimiento, primaNeta=:primaNeta WHERE id=:OLD_id");
|
||||||
|
zuServiciosExternos->DeleteSQL->Clear();
|
||||||
|
zuServiciosExternos->DeleteSQL->Add("DELETE FROM serviciosExternos WHERE id=:OLD_id");
|
||||||
|
zuServiciosExternos->InsertSQL->Clear();
|
||||||
|
zuServiciosExternos->InsertSQL->Add("INSERT INTO serviciosExternos (cliente, tipoServicio, nPoliza, fechaEfecto, fechaVencimiento, primaNeta) VALUES (:cliente, :tipoServicio, :nPoliza, :fechaEfecto, :fechaVencimiento, :primaNeta)");
|
||||||
|
|
||||||
|
|
||||||
|
PageControl1->ActivePage = TabSheet1;
|
||||||
|
PageControl2->ActivePage = TabSheet3;
|
||||||
|
|
||||||
|
zqClientes->Active = zqClientes->Connection->Connected;
|
||||||
|
zqServicios->Active = zqServicios->Connection->Connected;
|
||||||
|
zqServiciosExternos->Active = zqServicios->Connection->Connected;
|
||||||
|
zqTipoServicios->Active = zqTipoServicios->Connection->Connected;
|
||||||
|
zqFamiliares->Active = zqFamiliares->Connection->Connected;
|
||||||
|
zqAgentes->Active = zqAgentes->Connection->Connected;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::MyWndProc(Messages::TMessage &Message)
|
||||||
|
{
|
||||||
|
HMENU hMenu;
|
||||||
|
hMenu = GetSystemMenu (this->Handle, FALSE);
|
||||||
|
if (Message.Msg == WM_SYSCOMMAND)
|
||||||
|
{
|
||||||
|
switch(Message.WParamLo)
|
||||||
|
{
|
||||||
|
case IDM_ABOUTBOX:
|
||||||
|
if ( Splash==NULL ) Splash = new TSplash(NULL);
|
||||||
|
Splash->pressKeyToClose = true;
|
||||||
|
Splash->Show();
|
||||||
|
Splash->Repaint();
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
WndProc(Message);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
else
|
||||||
|
WndProc(Message);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(Splash){
|
||||||
|
delete Splash;
|
||||||
|
Splash = NULL;
|
||||||
|
|
||||||
|
Tlogin *login;
|
||||||
|
login = new Tlogin(this);
|
||||||
|
|
||||||
|
do {
|
||||||
|
login->ShowModal();
|
||||||
|
if ( login->ModalResult!=mrOk ) {
|
||||||
|
Close();
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if ( login->auth ) break;
|
||||||
|
|
||||||
|
MessageDlg("Error iniciando sesi<73>n.\nEl usuario/contrase<73>a no es correcto.",mtError, TMsgDlgButtons() << mbOK, 0);
|
||||||
|
login->pass->Text = "";
|
||||||
|
} while(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionClientes::DBGrid1DblClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
PageControl1->ActivePage = TabSheet2;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DBGrid1TitleClick(TColumn *Column)
|
||||||
|
{
|
||||||
|
if ( dsListado_sort.Pos(Column->FieldName)==1 && dsListado_sort.Pos(" ASC")==0 )
|
||||||
|
dsListado_sort = Column->FieldName + " ASC";
|
||||||
|
else
|
||||||
|
dsListado_sort = Column->FieldName + " DESC";
|
||||||
|
|
||||||
|
dsListado_Indice = Column->Index;
|
||||||
|
|
||||||
|
doFilterClick(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::doFilterClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
AnsiString where,orderBy,query, leftJOIN;
|
||||||
|
|
||||||
|
where = "";
|
||||||
|
leftJOIN = "";
|
||||||
|
if ( !srch_vFilter->Text.IsEmpty() )
|
||||||
|
switch( srch_kFilter->ItemIndex ) {
|
||||||
|
case 0:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.id='"+srch_vFilter->Text+"'";
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.nombre LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" (c.telefono LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
where+=" OR c.movil LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
where+=" OR c.fax LIKE '%"+srch_vFilter->Text+"%')";
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.calle LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 4:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.poblacion LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 5:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.provincia LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 6:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.cp LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 7:
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" c.dni LIKE '%"+srch_vFilter->Text+"%'";
|
||||||
|
break;
|
||||||
|
case 8:
|
||||||
|
System::TDateTime fecha;
|
||||||
|
if ( TryStrToDate(srch_vFilter->Text, fecha) ) {
|
||||||
|
DateSeparator = '-';
|
||||||
|
ShortDateFormat = "yyyy-mm-dd";
|
||||||
|
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" p.fechaVencimiento<='"+DateToStr(fecha)+"'";
|
||||||
|
leftJOIN = " LEFT JOIN serviciosExternos p ON (p.cliente=c.id) ";
|
||||||
|
|
||||||
|
DateSeparator = '/';
|
||||||
|
ShortDateFormat = "dd/mm/yyyy";
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
int agente;
|
||||||
|
if ( srch_agentes->ItemIndex>0 ) {
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
if ( agente>=0 ) {
|
||||||
|
if ( where.IsEmpty() ) where = " WHERE "; else where+=" AND ";
|
||||||
|
where+=" a.id="+AnsiString(agente);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
orderBy = " ORDER BY ";
|
||||||
|
if ( dsListado_sort.Pos("agenteNombre")>0 ) orderBy += "a.nombre"; else orderBy += "c."+dsListado_sort;
|
||||||
|
|
||||||
|
|
||||||
|
query = "SELECT c.id, c.agente, a.nombre agenteNombre, c.nombre, c.dni, c.calle, c.poblacion, c.provincia, c.cp, c.telefono, c.movil, c.fax, c.correo, c.cobroCalle, c.estado, c.gradoFidelidad, c.pCargo, c.fechaNacimiento,c.fechaCarnet,c.fecha, c.hora, c.notas";
|
||||||
|
query+= " FROM clientes c LEFT JOIN agentes a ON (a.id=c.agente)";
|
||||||
|
query+= leftJOIN;
|
||||||
|
query+= where;
|
||||||
|
query+= orderBy;
|
||||||
|
|
||||||
|
|
||||||
|
// Volver a filtrar el listado...
|
||||||
|
zqClientes->SQL->Clear();
|
||||||
|
zqClientes->SQL->Add(query);
|
||||||
|
zqClientes->Active = zqClientes->Connection->Connected;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DBGrid1DrawColumnCell(TObject *Sender,
|
||||||
|
const TRect &Rect, int DataCol, TColumn *Column,
|
||||||
|
TGridDrawState State)
|
||||||
|
{
|
||||||
|
//- ---------------------------------------------------------
|
||||||
|
if ( !State.Contains(gdSelected) )
|
||||||
|
{
|
||||||
|
Graphics::TBitmap *Bmp;
|
||||||
|
TDBGrid *dbG;
|
||||||
|
dbG = (TDBGrid *)Sender;
|
||||||
|
|
||||||
|
// Determina la columna clicada...
|
||||||
|
if ( Column->Index == dsListado_Indice )
|
||||||
|
{
|
||||||
|
Bmp = new Graphics::TBitmap();
|
||||||
|
Bmp->TransparentColor = clWhite;
|
||||||
|
Bmp->Transparent = true;
|
||||||
|
Bmp->TransparentMode = tmAuto;
|
||||||
|
|
||||||
|
try {
|
||||||
|
// Determina la imagen mostrada de acuerdo con el orden de los registros
|
||||||
|
if ( dsListado_sort.Pos(Column->FieldName) == 1 && dsListado_sort.Pos(" ASC")== 0 )
|
||||||
|
gridIcons->GetBitmap(0, Bmp); // Set abajo
|
||||||
|
else
|
||||||
|
gridIcons->GetBitmap(1, Bmp); // Set arriba
|
||||||
|
|
||||||
|
dbG->Canvas->Draw( Rect.right - Bmp->Width,2, Bmp);
|
||||||
|
} __finally {
|
||||||
|
delete Bmp; // Liberamos la variable Bmp de la memoria
|
||||||
|
}
|
||||||
|
}
|
||||||
|
dbG->DefaultDrawColumnCell(Rect,DataCol,Column,State);
|
||||||
|
}
|
||||||
|
//- ---------------------------------------------------------
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesBeforePost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
// Comprobar que no exista el DNI introducido
|
||||||
|
AnsiString dni;
|
||||||
|
dni = zqClientes->FieldByName("dni")->AsString;
|
||||||
|
|
||||||
|
|
||||||
|
if ( DataSet->State == dsInsert && !dni.IsEmpty() ) {
|
||||||
|
TZQuery *q;
|
||||||
|
q = new TZQuery(this);
|
||||||
|
q->SQL->Clear();
|
||||||
|
q->SQL->Add( AnsiString("select id FROM clientes WHERE dni='")+dni+AnsiString("'") );
|
||||||
|
q->Connection = ZConnection1;
|
||||||
|
q->Active = true;
|
||||||
|
|
||||||
|
if ( q->RecordCount>0 ) {
|
||||||
|
int res;
|
||||||
|
res = MessageDlg("El dni introducido ya existe, ficha " + IntToStr(q->FieldByName("id")->AsInteger) + ". <20>Duplicar ficha?", mtInformation, mbYesNoCancel, 0);
|
||||||
|
switch( res ) {
|
||||||
|
case mrCancel:
|
||||||
|
Abort();
|
||||||
|
return;
|
||||||
|
break;
|
||||||
|
case mrNo:
|
||||||
|
zqClientes->CancelUpdates();
|
||||||
|
zqClientes->Locate("id",q->FieldByName("id")->AsInteger, TLocateOptions() );
|
||||||
|
return;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Guardamos el contenido de los combos
|
||||||
|
zqClientes->FieldByName("fechaNacimiento")->AsDateTime = DateTimePicker1->DateTime;
|
||||||
|
zqClientes->FieldByName("fechaCarnet")->AsDateTime = DateTimePicker2->DateTime;
|
||||||
|
switch( dbEstadoCivil->ItemIndex ) {
|
||||||
|
case 0: zqClientes->FieldByName("estado")->AsString = "S"; break;
|
||||||
|
case 1: zqClientes->FieldByName("estado")->AsString = "C"; break;
|
||||||
|
case 2: zqClientes->FieldByName("estado")->AsString = "D"; break;
|
||||||
|
case 3: zqClientes->FieldByName("estado")->AsString = "V"; break;
|
||||||
|
}
|
||||||
|
zqClientes->FieldByName("gradoFidelidad")->AsInteger = cbGradoFidelidad->ItemIndex;
|
||||||
|
zqClientes->FieldByName("pCargo")->AsString = (dbPCargo->Checked?"Y":"N");
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::DateTimePicker1CloseUp(TObject *Sender)
|
||||||
|
{
|
||||||
|
lbEdad->Caption = AnsiString( YearsBetween(TDateTime::CurrentDate(), DateTimePicker1->DateTime) ) + " A<>os";
|
||||||
|
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesAfterScroll(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
dbUpdating = true;
|
||||||
|
|
||||||
|
// Guardamos el contenido de los combos
|
||||||
|
DateTimePicker1->DateTime = zqClientes->FieldByName("fechaNacimiento")->AsDateTime;
|
||||||
|
DateTimePicker2->DateTime = zqClientes->FieldByName("fechaCarnet")->AsDateTime;
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="S" ) dbEstadoCivil->ItemIndex = 0; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="C" ) dbEstadoCivil->ItemIndex = 1; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="D" ) dbEstadoCivil->ItemIndex = 2; else
|
||||||
|
if ( zqClientes->FieldByName("estado")->AsString=="V" ) dbEstadoCivil->ItemIndex = 3;
|
||||||
|
|
||||||
|
if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 0 ) cbGradoFidelidad->ItemIndex = 0;
|
||||||
|
else if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 1 ) cbGradoFidelidad->ItemIndex = 1;
|
||||||
|
else if ( zqClientes->FieldByName("gradoFidelidad")->AsInteger == 2 ) cbGradoFidelidad->ItemIndex = 2;
|
||||||
|
else cbGradoFidelidad->ItemIndex = 2;
|
||||||
|
|
||||||
|
dbPCargo->Checked = (zqClientes->FieldByName("pCargo")->AsString=="Y");
|
||||||
|
|
||||||
|
lbEdad->Caption = AnsiString( YearsBetween(TDateTime::CurrentDate(), DateTimePicker1->DateTime) ) + " A<>os";
|
||||||
|
|
||||||
|
dbUpdating = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dbEstadoCivilChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dbPCargoClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::Salir1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::GestindeAgentes1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionAgentes *f;
|
||||||
|
f = new TgestionAgentes(this);
|
||||||
|
f->DBGrid2->DataSource = dsAgentes;
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresNewRecord(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqFamiliares->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqFamiliares->FieldByName("sexo")->AsString = "H";
|
||||||
|
zqFamiliares->FieldByName("estado")->AsString = "C";
|
||||||
|
zqFamiliares->FieldByName("relacion")->AsString = "C";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresBeforePost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
// Convertir los desplegables
|
||||||
|
zqFamiliares->FieldByName("sexo")->AsString = (zqFamiliares->FieldByName("sexo")->AsString=="Hombre"?"H":"M");
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Soltero" ) zqFamiliares->FieldByName("estado")->AsString = "S"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Casado" ) zqFamiliares->FieldByName("estado")->AsString = "C"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Divorciado" ) zqFamiliares->FieldByName("estado")->AsString = "D"; else
|
||||||
|
if ( zqFamiliares->FieldByName("estado")->AsString=="Viudo" ) zqFamiliares->FieldByName("estado")->AsString = "V";
|
||||||
|
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Padre/Madre" ) zqFamiliares->FieldByName("relacion")->AsString = "P"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Marido/Mujer" ) zqFamiliares->FieldByName("relacion")->AsString = "C"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Hermano/a" ) zqFamiliares->FieldByName("relacion")->AsString = "H"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "Hijo/a" ) zqFamiliares->FieldByName("relacion")->AsString = "N"; else
|
||||||
|
if ( zqFamiliares->FieldByName("relacion")->AsString == "otros" ) zqFamiliares->FieldByName("relacion")->AsString = "o";
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresestadoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "S" ) Text = "Soltero"; else
|
||||||
|
if ( Sender->AsString == "C" ) Text = "Casado"; else
|
||||||
|
if ( Sender->AsString == "D" ) Text = "Divorciado"; else
|
||||||
|
if ( Sender->AsString == "V" ) Text = "Viudo";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaresrelacionGetText(
|
||||||
|
TField *Sender, AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "P" ) Text = "Padre/Madre"; else
|
||||||
|
if ( Sender->AsString == "C" ) Text = "Marido/Mujer"; else
|
||||||
|
if ( Sender->AsString == "H" ) Text = "Hermano/a"; else
|
||||||
|
if ( Sender->AsString == "N" ) Text = "Hijo/a"; else
|
||||||
|
if ( Sender->AsString == "o" ) Text = "otros";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqFamiliaressexoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText)
|
||||||
|
{
|
||||||
|
if ( Sender->AsString == "H" ) Text = "Hombre"; else
|
||||||
|
if ( Sender->AsString == "M" ) Text = "Mujer";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqServiciosNewRecord(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqServicios->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqServicios->FieldByName("primaNeta")->AsCurrency = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::TiposdeServicio1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionAgentes *f;
|
||||||
|
f = new TgestionAgentes(this);
|
||||||
|
f->Caption = "Tipos de Servicios";
|
||||||
|
f->DBGrid2->Columns->Items[0]->Title->Caption = "Nombre del Servicio Contratado";
|
||||||
|
f->DBGrid2->DataSource = dsTipoServicios;
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::ImprimirListado1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprimirCarteraClientes *i;
|
||||||
|
i = new TimprimirCarteraClientes(this);
|
||||||
|
i->QuickRep1->DataSet = zqClientes;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::ImprimirFicha1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprFichaCliente *i;
|
||||||
|
i = new TimprFichaCliente(this);
|
||||||
|
|
||||||
|
i->rID->Caption = zqClientes->FieldByName("id")->AsString;
|
||||||
|
i->rNombre->Caption = zqClientes->FieldByName("nombre")->AsString;
|
||||||
|
i->rDNI->Caption = zqClientes->FieldByName("dni")->AsString;
|
||||||
|
i->rFechaNacimiento->Caption = zqClientes->FieldByName("fechaNacimiento")->AsString;
|
||||||
|
i->rEstadoCivil->Caption = zqClientes->FieldByName("estado")->AsString;
|
||||||
|
i->rPCargo->Caption = zqClientes->FieldByName("pCargo")->AsString=="Y"?"SI":"NO";
|
||||||
|
i->rCalle->Caption = zqClientes->FieldByName("calle")->AsString;
|
||||||
|
i->rPoblacion->Caption = zqClientes->FieldByName("poblacion")->AsString;
|
||||||
|
i->rProvincia->Caption = zqClientes->FieldByName("provincia")->AsString;
|
||||||
|
i->rCP->Caption = zqClientes->FieldByName("cp")->AsString;
|
||||||
|
i->rDirCobro->Caption = zqClientes->FieldByName("cobroCalle")->AsString;
|
||||||
|
i->rTelefono->Caption = zqClientes->FieldByName("telefono")->AsString;
|
||||||
|
i->rMovil->Caption = zqClientes->FieldByName("movil")->AsString;
|
||||||
|
i->rFax->Caption = zqClientes->FieldByName("fax")->AsString;
|
||||||
|
i->rEMail->Caption = zqClientes->FieldByName("correo")->AsString;
|
||||||
|
i->rAgente->Caption = DBLookupComboBox1->Text;
|
||||||
|
i->rGradoFidelidad->Caption = zqClientes->FieldByName("gradoFidelidad")->AsString;
|
||||||
|
i->rNotas->Lines->Text = zqClientes->FieldByName("notas")->AsString;
|
||||||
|
|
||||||
|
i->QuickRep1->DataSet = zqFamiliares;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::CuentaPolizas1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TgestionCuentaPolizas *f;
|
||||||
|
f = new TgestionCuentaPolizas(this);
|
||||||
|
f->ShowModal();
|
||||||
|
delete f;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::dsClientesStateChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dsClientes->State==dsInsert ) {
|
||||||
|
PageControl2->ActivePage = TabSheet5;
|
||||||
|
}
|
||||||
|
|
||||||
|
TabSheet3->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
TabSheet6->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
TabSheet4->Enabled = (dsClientes->State!=dsInsert);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqClientesAfterPost(TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
if ( gettingAutoIncrement ) return;
|
||||||
|
// Read auto-increment
|
||||||
|
if ( zqClientes->FieldByName("id")->AsInteger==0 ) {
|
||||||
|
gettingAutoIncrement = true;
|
||||||
|
|
||||||
|
zqClientes->Edit();
|
||||||
|
|
||||||
|
TZQuery *q;
|
||||||
|
q = new TZQuery(this);
|
||||||
|
q->SQL->Clear();
|
||||||
|
q->SQL->Add("select last_insert_rowid() id");
|
||||||
|
q->Connection = ZConnection1;
|
||||||
|
q->Active = true;
|
||||||
|
|
||||||
|
zqClientes->FieldByName("id")->AsInteger = q->FieldByName("id")->AsInteger;
|
||||||
|
delete q;
|
||||||
|
|
||||||
|
zqClientes->Post();
|
||||||
|
gettingAutoIncrement = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::cbGradoFidelidadChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( dbUpdating ) return;
|
||||||
|
if (zqClientes->State != dsEdit || zqClientes->State != dsInsert ) zqClientes->Edit();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::FormClose(TObject *Sender,
|
||||||
|
TCloseAction &Action)
|
||||||
|
{
|
||||||
|
if( zqClientes->State == dsEdit || zqClientes->State == dsInsert ) zqClientes->Post();
|
||||||
|
if( zqServicios->State == dsEdit || zqServicios->State == dsInsert ) zqServicios->Post();
|
||||||
|
if( zqFamiliares->State == dsEdit || zqFamiliares->State == dsInsert ) zqFamiliares->Post();
|
||||||
|
if( zqAgentes->State == dsEdit || zqAgentes->State == dsInsert ) zqAgentes->Post();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::zqServiciosExternosNewRecord(
|
||||||
|
TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
zqServiciosExternos->FieldByName("cliente")->AsInteger = zqClientes->FieldByName("id")->AsInteger;
|
||||||
|
zqServiciosExternos->FieldByName("primaNeta")->AsCurrency = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TgestionClientes::PageControl2Changing(TObject *Sender,
|
||||||
|
bool &AllowChange)
|
||||||
|
{
|
||||||
|
AllowChange = ( dsClientes->State!=dsInsert );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/clientes.~ddp
Normal file
BIN
src/clientes.~ddp
Normal file
Binary file not shown.
1665
src/clientes.~dfm
Normal file
1665
src/clientes.~dfm
Normal file
File diff suppressed because it is too large
Load Diff
211
src/clientes.~h
Normal file
211
src/clientes.~h
Normal file
@ -0,0 +1,211 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef clientesH
|
||||||
|
#define clientesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZConnection.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include "ZSqlUpdate.hpp"
|
||||||
|
#include <ComCtrls.hpp>
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ImgList.hpp>
|
||||||
|
#include <DBCtrls.hpp>
|
||||||
|
#include <Mask.hpp>
|
||||||
|
#include <Menus.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionClientes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPageControl *PageControl1;
|
||||||
|
TTabSheet *TabSheet1;
|
||||||
|
TTabSheet *TabSheet2;
|
||||||
|
TPanel *Panel1;
|
||||||
|
TDBGrid *DBGrid1;
|
||||||
|
TZConnection *ZConnection1;
|
||||||
|
TZQuery *zqClientes;
|
||||||
|
TZUpdateSQL *zuClientes;
|
||||||
|
TDataSource *dsClientes;
|
||||||
|
TLabel *Label1;
|
||||||
|
TComboBox *srch_kFilter;
|
||||||
|
TEdit *srch_vFilter;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TComboBox *srch_agentes;
|
||||||
|
TImageList *gridIcons;
|
||||||
|
TLabel *Label2;
|
||||||
|
TDBEdit *DBEdit1;
|
||||||
|
TPageControl *PageControl2;
|
||||||
|
TTabSheet *TabSheet3;
|
||||||
|
TTabSheet *TabSheet4;
|
||||||
|
TTabSheet *TabSheet5;
|
||||||
|
TDBMemo *DBMemo1;
|
||||||
|
TDBGrid *DBGrid2;
|
||||||
|
TPanel *Panel2;
|
||||||
|
TDBGrid *DBGrid3;
|
||||||
|
TDBNavigator *DBNavigator1;
|
||||||
|
TLabel *Label4;
|
||||||
|
TDBText *DBText1;
|
||||||
|
TLabel *Label5;
|
||||||
|
TDBEdit *DBEdit2;
|
||||||
|
TLabel *Label6;
|
||||||
|
TDBEdit *DBEdit3;
|
||||||
|
TLabel *Label7;
|
||||||
|
TDBEdit *DBEdit4;
|
||||||
|
TLabel *Label8;
|
||||||
|
TDBEdit *DBEdit5;
|
||||||
|
TLabel *Label9;
|
||||||
|
TDBEdit *DBEdit6;
|
||||||
|
TLabel *Label10;
|
||||||
|
TDBEdit *DBEdit7;
|
||||||
|
TLabel *Label11;
|
||||||
|
TDBEdit *DBEdit8;
|
||||||
|
TLabel *Label12;
|
||||||
|
TDBEdit *DBEdit9;
|
||||||
|
TLabel *Label13;
|
||||||
|
TDBEdit *DBEdit10;
|
||||||
|
TLabel *Label14;
|
||||||
|
TDBEdit *DBEdit11;
|
||||||
|
TLabel *Label15;
|
||||||
|
TLabel *Label16;
|
||||||
|
TLabel *lbEdad;
|
||||||
|
TDateTimePicker *DateTimePicker1;
|
||||||
|
TLabel *Label18;
|
||||||
|
TComboBox *dbEstadoCivil;
|
||||||
|
TGroupBox *GroupBox1;
|
||||||
|
TLabel *Label3;
|
||||||
|
TLabel *Label19;
|
||||||
|
TCheckBox *dbPCargo;
|
||||||
|
TIntegerField *zqClientesid;
|
||||||
|
TIntegerField *zqClientesagente;
|
||||||
|
TStringField *zqClientesagenteNombre;
|
||||||
|
TStringField *zqClientesnombre;
|
||||||
|
TStringField *zqClientesdni;
|
||||||
|
TStringField *zqClientescalle;
|
||||||
|
TStringField *zqClientespoblacion;
|
||||||
|
TStringField *zqClientesprovincia;
|
||||||
|
TStringField *zqClientescp;
|
||||||
|
TStringField *zqClientestelefono;
|
||||||
|
TStringField *zqClientesmovil;
|
||||||
|
TStringField *zqClientesfax;
|
||||||
|
TStringField *zqClientescorreo;
|
||||||
|
TStringField *zqClientescobroCalle;
|
||||||
|
TStringField *zqClientesestado;
|
||||||
|
TIntegerField *zqClientesgradoFidelidad;
|
||||||
|
TStringField *zqClientespCargo;
|
||||||
|
TDateField *zqClientesfechaNacimiento;
|
||||||
|
TDateField *zqClientesfecha;
|
||||||
|
TTimeField *zqClienteshora;
|
||||||
|
TMemoField *zqClientesnotas;
|
||||||
|
TMainMenu *MainMenu1;
|
||||||
|
TMenuItem *menu_Clientes1;
|
||||||
|
TMenuItem *menu_Agentes1;
|
||||||
|
TMenuItem *ImprimirFicha1;
|
||||||
|
TMenuItem *ImprimirListado1;
|
||||||
|
TMenuItem *GestindeAgentes1;
|
||||||
|
TMenuItem *CuentaPolizas1;
|
||||||
|
TMenuItem *Salir1;
|
||||||
|
TZQuery *zqFamiliares;
|
||||||
|
TDataSource *dsFamiliares;
|
||||||
|
TIntegerField *zqFamiliaresid;
|
||||||
|
TIntegerField *zqFamiliarescliente;
|
||||||
|
TStringField *zqFamiliaresnombre;
|
||||||
|
TStringField *zqFamiliaresdni;
|
||||||
|
TStringField *zqFamiliaressexo;
|
||||||
|
TStringField *zqFamiliaresestado;
|
||||||
|
TStringField *zqFamiliaresrelacion;
|
||||||
|
TDateField *zqFamiliaresfechaNacimiento;
|
||||||
|
TZQuery *zqServicios;
|
||||||
|
TDataSource *dsServicios;
|
||||||
|
TIntegerField *zqServiciosid;
|
||||||
|
TIntegerField *zqServicioscliente;
|
||||||
|
TIntegerField *zqServiciostipoServicio;
|
||||||
|
TStringField *zqServiciosnPoliza;
|
||||||
|
TDateField *zqServiciosfechaEfecto;
|
||||||
|
TDateField *zqServiciosfechaVencimiento;
|
||||||
|
TFloatField *zqServiciosprimaNeta;
|
||||||
|
TZQuery *zqTipoServicios;
|
||||||
|
TIntegerField *zqTipoServiciosid;
|
||||||
|
TStringField *zqTipoServiciosnombre;
|
||||||
|
TStringField *zqServiciosnombreServicio;
|
||||||
|
TZUpdateSQL *zuServicios;
|
||||||
|
TDataSource *dsAgentes;
|
||||||
|
TMenuItem *TiposdeServicio1;
|
||||||
|
TMenuItem *N1;
|
||||||
|
TDataSource *dsTipoServicios;
|
||||||
|
TDBLookupComboBox *DBLookupComboBox1;
|
||||||
|
TZQuery *zqAgentes;
|
||||||
|
TImageList *ImageList1;
|
||||||
|
TComboBox *cbGradoFidelidad;
|
||||||
|
TTabSheet *TabSheet6;
|
||||||
|
TDBGrid *DBGrid4;
|
||||||
|
TDataSource *dsServiciosExternos;
|
||||||
|
TZQuery *zqServiciosExternos;
|
||||||
|
TIntegerField *IntegerField1;
|
||||||
|
TIntegerField *IntegerField2;
|
||||||
|
TIntegerField *IntegerField3;
|
||||||
|
TStringField *StringField1;
|
||||||
|
TDateField *DateField1;
|
||||||
|
TDateField *DateField2;
|
||||||
|
TFloatField *FloatField1;
|
||||||
|
TStringField *StringField2;
|
||||||
|
TZUpdateSQL *zuServiciosExternos;
|
||||||
|
TLabel *Label17;
|
||||||
|
TDateTimePicker *DateTimePicker2;
|
||||||
|
TDateField *zqClientesfechaCarnet;
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1DblClick(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1TitleClick(TColumn *Column);
|
||||||
|
void __fastcall doFilterClick(TObject *Sender);
|
||||||
|
void __fastcall DBGrid1DrawColumnCell(TObject *Sender,
|
||||||
|
const TRect &Rect, int DataCol, TColumn *Column,
|
||||||
|
TGridDrawState State);
|
||||||
|
void __fastcall zqClientesBeforePost(TDataSet *DataSet);
|
||||||
|
void __fastcall DateTimePicker1CloseUp(TObject *Sender);
|
||||||
|
void __fastcall zqClientesAfterScroll(TDataSet *DataSet);
|
||||||
|
void __fastcall dbEstadoCivilChange(TObject *Sender);
|
||||||
|
void __fastcall dbPCargoClick(TObject *Sender);
|
||||||
|
void __fastcall Salir1Click(TObject *Sender);
|
||||||
|
void __fastcall GestindeAgentes1Click(TObject *Sender);
|
||||||
|
void __fastcall zqFamiliaresNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall zqFamiliaresBeforePost(TDataSet *DataSet);
|
||||||
|
void __fastcall zqFamiliaresestadoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqFamiliaresrelacionGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqFamiliaressexoGetText(TField *Sender,
|
||||||
|
AnsiString &Text, bool DisplayText);
|
||||||
|
void __fastcall zqServiciosNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall TiposdeServicio1Click(TObject *Sender);
|
||||||
|
void __fastcall ImprimirListado1Click(TObject *Sender);
|
||||||
|
void __fastcall ImprimirFicha1Click(TObject *Sender);
|
||||||
|
void __fastcall CuentaPolizas1Click(TObject *Sender);
|
||||||
|
void __fastcall dsClientesStateChange(TObject *Sender);
|
||||||
|
void __fastcall zqClientesAfterPost(TDataSet *DataSet);
|
||||||
|
void __fastcall cbGradoFidelidadChange(TObject *Sender);
|
||||||
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||||
|
void __fastcall zqServiciosExternosNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall PageControl2Changing(TObject *Sender,
|
||||||
|
bool &AllowChange);
|
||||||
|
private: // User declarations
|
||||||
|
void __fastcall MyWndProc(Messages::TMessage &Message);
|
||||||
|
AnsiString dsListado_sort;
|
||||||
|
int dsListado_Indice;
|
||||||
|
bool dbUpdating, gettingAutoIncrement;
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionClientes(TComponent* Owner);
|
||||||
|
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionClientes *gestionClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
133
src/cuentaPolizas.cpp
Normal file
133
src/cuentaPolizas.cpp
Normal file
@ -0,0 +1,133 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "cuentaPolizas.h"
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "imprimirCuentaPolizas.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionCuentaPolizas *gestionCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionCuentaPolizas::TgestionCuentaPolizas(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
// Cargamos el listado de agentes disponibles
|
||||||
|
TZQuery *zquery;
|
||||||
|
zquery = new TZQuery(this);
|
||||||
|
zquery->Connection = gestionClientes->ZConnection1;
|
||||||
|
zquery->SQL->Clear();
|
||||||
|
zquery->SQL->Add("SELECT id,nombre FROM agentes ORDER BY nombre");
|
||||||
|
zquery->Active=zquery->Connection->Connected;
|
||||||
|
|
||||||
|
srch_agentes->Items->Clear();
|
||||||
|
while(!zquery->Eof)
|
||||||
|
{
|
||||||
|
srch_agentes->Items->AddObject(zquery->FieldByName("nombre")->AsString,(TObject *)(zquery->FieldByName("id")->AsInteger));
|
||||||
|
zquery->Next();
|
||||||
|
}
|
||||||
|
srch_agentes->ItemIndex = 0;
|
||||||
|
|
||||||
|
unsigned short yyyy,mm,dd;
|
||||||
|
TDateTime::CurrentDate().DecodeDate(&yyyy,&mm,&dd);
|
||||||
|
srch_mes->ItemIndex = mm-1;
|
||||||
|
UpDown1->Position = yyyy;
|
||||||
|
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::zqCuentaPolizasNewRecord(
|
||||||
|
TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
AnsiString fecha;
|
||||||
|
fecha = "1/"+AnsiString(srch_mes->ItemIndex+1)+"/"+AnsiString(UpDown1->Position);
|
||||||
|
zqCuentaPolizas->FieldByName("fecha")->AsDateTime = TDateTime::TDateTime(fecha);
|
||||||
|
|
||||||
|
int agente;
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
zqCuentaPolizas->FieldByName("agente")->AsInteger = agente;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::execFilter(TObject *Sender)
|
||||||
|
{
|
||||||
|
int agente;
|
||||||
|
if ( srch_agentes->ItemIndex<0 ) return;
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
|
||||||
|
AnsiString where,orderBy,query;
|
||||||
|
|
||||||
|
AnsiString desde, hasta;
|
||||||
|
desde = Format("%.4d-%.2d-01", ARRAYOFCONST((UpDown1->Position,(srch_mes->ItemIndex+1))) );
|
||||||
|
if ( srch_mes->ItemIndex==11 )
|
||||||
|
hasta = Format("%.4d-01-01", ARRAYOFCONST((UpDown1->Position+1)) );
|
||||||
|
else
|
||||||
|
hasta = Format("%.4d-%.2d-01", ARRAYOFCONST((UpDown1->Position,(srch_mes->ItemIndex+2))) );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
where = " WHERE fecha>='"+desde+"' AND fecha<'"+hasta+"' AND agente="+agente;
|
||||||
|
orderBy = " ORDER BY fecha ASC";
|
||||||
|
|
||||||
|
query = "SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,puntos";
|
||||||
|
query+=" FROM cuentaPolizas";
|
||||||
|
query+=where;
|
||||||
|
query+=orderBy;
|
||||||
|
|
||||||
|
zqCuentaPolizas->SQL->Clear();
|
||||||
|
zqCuentaPolizas->SQL->Add(query);
|
||||||
|
zqCuentaPolizas->Active = zqCuentaPolizas->Connection->Connected;
|
||||||
|
|
||||||
|
Currency totalPrimaNeta, totalComision, totalPuntos;
|
||||||
|
totalPrimaNeta=0; totalComision=0; totalPuntos=0;
|
||||||
|
zqCuentaPolizas->First();
|
||||||
|
while(!zqCuentaPolizas->Eof){
|
||||||
|
totalPrimaNeta+=zqCuentaPolizas->FieldByName("primaNeta")->AsCurrency;
|
||||||
|
totalComision+=zqCuentaPolizas->FieldByName("comision")->AsCurrency;
|
||||||
|
totalPuntos+=zqCuentaPolizas->FieldByName("puntos")->AsCurrency;
|
||||||
|
zqCuentaPolizas->Next();
|
||||||
|
}
|
||||||
|
|
||||||
|
lbTotalPolizas->Caption = zqCuentaPolizas->RecordCount;
|
||||||
|
lbTotalPrimaNeta->Caption = AnsiString(totalPrimaNeta);
|
||||||
|
lbTotalComision->Caption = AnsiString(totalComision);
|
||||||
|
lbTotalPuntos->Caption = AnsiString(totalPuntos);
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::SpeedButton1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( srch_mes->ItemIndex==0 ) {
|
||||||
|
srch_mes->ItemIndex=11;
|
||||||
|
UpDown1->Position--;
|
||||||
|
} else
|
||||||
|
srch_mes->ItemIndex--;
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::SpeedButton2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( srch_mes->ItemIndex==11 ) {
|
||||||
|
srch_mes->ItemIndex=0;
|
||||||
|
UpDown1->Position++;
|
||||||
|
} else
|
||||||
|
srch_mes->ItemIndex++;
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::BitBtn2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprCuentaPolizas *i;
|
||||||
|
i = new TimprCuentaPolizas(this);
|
||||||
|
i->qrlbFecha->Caption = AnsiString(UpDown1->Position)+" - "+srch_mes->Items->Strings[srch_mes->ItemIndex];
|
||||||
|
i->qrlbAgente->Caption = srch_agentes->Items->Strings[srch_agentes->ItemIndex];
|
||||||
|
i->QuickRep1->DataSet = zqCuentaPolizas;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
src/cuentaPolizas.ddp
Normal file
BIN
src/cuentaPolizas.ddp
Normal file
Binary file not shown.
362
src/cuentaPolizas.dfm
Normal file
362
src/cuentaPolizas.dfm
Normal file
@ -0,0 +1,362 @@
|
|||||||
|
object gestionCuentaPolizas: TgestionCuentaPolizas
|
||||||
|
Left = 118
|
||||||
|
Top = 122
|
||||||
|
Width = 800
|
||||||
|
Height = 600
|
||||||
|
Caption = 'Cuenta Polizas'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 16
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 792
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 0
|
||||||
|
object SpeedButton1: TSpeedButton
|
||||||
|
Left = 568
|
||||||
|
Top = 8
|
||||||
|
Width = 23
|
||||||
|
Height = 22
|
||||||
|
Caption = '<'
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton2: TSpeedButton
|
||||||
|
Left = 592
|
||||||
|
Top = 8
|
||||||
|
Width = 23
|
||||||
|
Height = 22
|
||||||
|
Caption = '>'
|
||||||
|
OnClick = SpeedButton2Click
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 456
|
||||||
|
Top = 8
|
||||||
|
Width = 107
|
||||||
|
Height = 24
|
||||||
|
Caption = '&Filtrar'
|
||||||
|
Default = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = execFilter
|
||||||
|
Glyph.Data = {
|
||||||
|
42020000424D4202000000000000420000002800000010000000100000000100
|
||||||
|
10000300000000020000120B0000120B00000000000000000000007C0000E003
|
||||||
|
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FBB6FF14A2722E415C4150722D14ABB6FFF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7F565B261A682A304F53575357104B4726E619365B
|
||||||
|
FF7FFF7FFF7FFF7FFF7F765F2416ED42745B304BEC3EEC3E304B545BCC3EC415
|
||||||
|
365BFF7FFF7FFF7FBB7386220E43745BEC3AEB3ACB3ACB36CB36CB3A545BCD3E
|
||||||
|
E619BB6FFF7FFF7F524FA932755BEC3EEC3A0E43BA6B314FCA36CB36CB3A745B
|
||||||
|
6826F14AFF7FFF7FC82E524F514F0C3B0F43DD7BFF7FFF7F304BCB36CB3A304B
|
||||||
|
104F2722FF7FFF7FA52674572E3F2E43DD77FF7FDD77FF7FFF7F314BCB3AED3E
|
||||||
|
5357E415FF7FFF7FC62A745B2E430C3B755BBA6BEC3A965FFF7FFF7F314FED3E
|
||||||
|
54570416FF7FFF7F09375253524F0D3B0C370C370C370C37965FFF7FDC73314F
|
||||||
|
314F6722FF7FFF7F7357EB3A755B2D3F0D3B0C3B0C370C370C3B965F0D3F755B
|
||||||
|
A92E114BFF7FFF7FDC7309332F4B755B2D3F2D3B0D3B0D3B0D3B0D3F755B0E47
|
||||||
|
8622BB73FF7FFF7FFF7FB767072F2F4B755B524F2E432E43524F755B0F47851E
|
||||||
|
765FFF7FFF7FFF7FFF7FFF7FB76709370B3B5253745774575253CA36C62A965F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FDC7393572A3BE72EE72E09377257DB73FF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||||
|
FF7FFF7FFF7F}
|
||||||
|
end
|
||||||
|
object srch_agentes: TComboBox
|
||||||
|
Left = 232
|
||||||
|
Top = 8
|
||||||
|
Width = 217
|
||||||
|
Height = 24
|
||||||
|
ItemHeight = 16
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object srch_mes: TComboBox
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
Width = 145
|
||||||
|
Height = 24
|
||||||
|
ItemHeight = 16
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Enero'
|
||||||
|
Items.Strings = (
|
||||||
|
'Enero'
|
||||||
|
'Febrero'
|
||||||
|
'Marzo'
|
||||||
|
'Abril'
|
||||||
|
'Mayo'
|
||||||
|
'Junio'
|
||||||
|
'Julio'
|
||||||
|
'Agosto'
|
||||||
|
'Septiembre'
|
||||||
|
'Octubre'
|
||||||
|
'Noviembre'
|
||||||
|
'Diciembre')
|
||||||
|
end
|
||||||
|
object srch_ano: TEdit
|
||||||
|
Left = 160
|
||||||
|
Top = 8
|
||||||
|
Width = 49
|
||||||
|
Height = 24
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = '2.010'
|
||||||
|
end
|
||||||
|
object UpDown1: TUpDown
|
||||||
|
Left = 209
|
||||||
|
Top = 8
|
||||||
|
Width = 15
|
||||||
|
Height = 24
|
||||||
|
Associate = srch_ano
|
||||||
|
Min = 1900
|
||||||
|
Max = 2100
|
||||||
|
Position = 2010
|
||||||
|
TabOrder = 4
|
||||||
|
Wrap = False
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 656
|
||||||
|
Top = 8
|
||||||
|
Width = 107
|
||||||
|
Height = 24
|
||||||
|
Caption = '&Imprimir'
|
||||||
|
Default = True
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = BitBtn2Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36030000424D3603000000000000360000002800000010000000100000000100
|
||||||
|
1800000000000003000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000007A7A7A696969000000696969A1A1A10000000000000000
|
||||||
|
000000000000000000000000000000000000001E1E1E8C8C8C8C8C8CB2B2B287
|
||||||
|
8787785757B59797A1A1A1A1A1A1A1A1A1000000000000000000000000000000
|
||||||
|
8C8C8C8C8C8CF0F0F0E7E7E7A9A9A99F9F9F3A34344B4B4B6E6E6EB7B7B7C2C2
|
||||||
|
C2A1A1A1A1A1A10000000000008C8C8CFEFEFEF0F0F0E7E7E7DADADAA0A0A096
|
||||||
|
96968383836363635757576E6E6E969696B1B1B17575750000000000008C8C8C
|
||||||
|
F0F0F0DDDDDDA1A1A18181816E6E6E6C6C6C767676939393A9A9A99A9A9A6868
|
||||||
|
687575750000000000000000008C8C8C9696968C8C8CBCBCBCC4C4C4CBCBCB9D
|
||||||
|
9D9D959595767676747474747474879D8E7575750000000000000000008C8C8C
|
||||||
|
D1D1D1CFCFCFC4C4C4CECECE9D9D9DA1A1A1A1A1A1CCCCCCC2C2C2B5B5B58E8E
|
||||||
|
8E7575750000000000000000008C8C8CD0D0D0C4C4C4C7C7C79D9D9DDADADAEA
|
||||||
|
EAEADADADAA1A1A1A1A1A1A1A1A1B4B4B4757575000000000000000000CECECE
|
||||||
|
9D9D9D9D9D9D9D9D9DBDBDBDD5D5D5E6E6E6EAEAEAE7E7E7E1E1E1DEDEDEA1A1
|
||||||
|
A1B1B1B1000000000000000000000000000000D3D3D3D1936DB0B0B0B0B0B0B0
|
||||||
|
B0B0B0B0B0B0B0B0C1C1C1A3A3A39C9C9C000000000000000000000000000000
|
||||||
|
0000009F8181D1936DFFCA98FFDAB6FFE0C2F2D9C1D1936D8787870000000000
|
||||||
|
00000000000000000000000000000000000000D1936DFFD5AFFFD5AFFFD5AFFF
|
||||||
|
D5AFFFD5AFD1936D000000000000000000000000000000000000000000000000
|
||||||
|
000000D1936DFFE1C5FFE1C5FFE1C5FFE1C5FFE1C5D1936D0000000000000000
|
||||||
|
00000000000000000000000000000000814B4BD1936DFFEEDDFFEEDDFFEEDDFF
|
||||||
|
EEDDFFEEDDD1936D000000000000000000000000000000000000000000000000
|
||||||
|
D1936DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD1936D0000000000000000000000
|
||||||
|
00000000000000000000000000814B4BD1936DD1936DD1936DD1936DD1936DD1
|
||||||
|
936DA98181000000000000000000000000000000000000000000}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DBGrid1: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 41
|
||||||
|
Width = 792
|
||||||
|
Height = 463
|
||||||
|
Align = alClient
|
||||||
|
DataSource = dsCuentaPolizas
|
||||||
|
TabOrder = 1
|
||||||
|
TitleFont.Charset = DEFAULT_CHARSET
|
||||||
|
TitleFont.Color = clWindowText
|
||||||
|
TitleFont.Height = -13
|
||||||
|
TitleFont.Name = 'Tahoma'
|
||||||
|
TitleFont.Style = []
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'fecha'
|
||||||
|
Title.Caption = 'Fecha'
|
||||||
|
Width = 89
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Title.Caption = 'Nombre'
|
||||||
|
Width = 261
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'numPoliza'
|
||||||
|
Title.Caption = 'Num. Poliza'
|
||||||
|
Width = 129
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'primaNeta'
|
||||||
|
Title.Caption = 'Prima Neta'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'comision'
|
||||||
|
Title.Caption = 'Comision'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'puntos'
|
||||||
|
Title.Caption = 'Puntos'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 504
|
||||||
|
Width = 792
|
||||||
|
Height = 66
|
||||||
|
Align = alBottom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 376
|
||||||
|
Top = 8
|
||||||
|
Width = 80
|
||||||
|
Height = 16
|
||||||
|
Caption = 'Total Polizas'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 504
|
||||||
|
Top = 8
|
||||||
|
Width = 79
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Pima Neta'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 592
|
||||||
|
Top = 8
|
||||||
|
Width = 71
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Comisi'#243'n'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 688
|
||||||
|
Top = 8
|
||||||
|
Width = 60
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Puntos'
|
||||||
|
end
|
||||||
|
object lbTotalPolizas: TLabel
|
||||||
|
Left = 376
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalPrimaNeta: TLabel
|
||||||
|
Left = 504
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalComision: TLabel
|
||||||
|
Left = 584
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalPuntos: TLabel
|
||||||
|
Left = 672
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object zqCuentaPolizas: TZQuery
|
||||||
|
Connection = gestionClientes.ZConnection1
|
||||||
|
OnNewRecord = zqCuentaPolizasNewRecord
|
||||||
|
SQL.Strings = (
|
||||||
|
|
||||||
|
'SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,punto' +
|
||||||
|
's'
|
||||||
|
' FROM cuentaPolizas')
|
||||||
|
Params = <>
|
||||||
|
Left = 216
|
||||||
|
Top = 448
|
||||||
|
object zqCuentaPolizasid: TIntegerField
|
||||||
|
AutoGenerateValue = arAutoInc
|
||||||
|
FieldName = 'id'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasagente: TIntegerField
|
||||||
|
FieldName = 'agente'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasfecha: TDateField
|
||||||
|
FieldName = 'fecha'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasnombre: TStringField
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Size = 45
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasnumPoliza: TStringField
|
||||||
|
FieldName = 'numPoliza'
|
||||||
|
Size = 45
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasprimaNeta: TFloatField
|
||||||
|
FieldName = 'primaNeta'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizascomision: TFloatField
|
||||||
|
FieldName = 'comision'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizaspuntos: TFloatField
|
||||||
|
FieldName = 'puntos'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsCuentaPolizas: TDataSource
|
||||||
|
DataSet = zqCuentaPolizas
|
||||||
|
Left = 216
|
||||||
|
Top = 416
|
||||||
|
end
|
||||||
|
end
|
||||||
64
src/cuentaPolizas.h
Normal file
64
src/cuentaPolizas.h
Normal file
@ -0,0 +1,64 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef cuentaPolizasH
|
||||||
|
#define cuentaPolizasH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ComCtrls.hpp>
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionCuentaPolizas : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPanel *Panel1;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TComboBox *srch_agentes;
|
||||||
|
TDBGrid *DBGrid1;
|
||||||
|
TComboBox *srch_mes;
|
||||||
|
TEdit *srch_ano;
|
||||||
|
TUpDown *UpDown1;
|
||||||
|
TZQuery *zqCuentaPolizas;
|
||||||
|
TPanel *Panel2;
|
||||||
|
TDataSource *dsCuentaPolizas;
|
||||||
|
TIntegerField *zqCuentaPolizasid;
|
||||||
|
TIntegerField *zqCuentaPolizasagente;
|
||||||
|
TDateField *zqCuentaPolizasfecha;
|
||||||
|
TStringField *zqCuentaPolizasnombre;
|
||||||
|
TStringField *zqCuentaPolizasnumPoliza;
|
||||||
|
TFloatField *zqCuentaPolizasprimaNeta;
|
||||||
|
TFloatField *zqCuentaPolizascomision;
|
||||||
|
TFloatField *zqCuentaPolizaspuntos;
|
||||||
|
TSpeedButton *SpeedButton1;
|
||||||
|
TSpeedButton *SpeedButton2;
|
||||||
|
TBitBtn *BitBtn2;
|
||||||
|
TLabel *Label1;
|
||||||
|
TLabel *Label2;
|
||||||
|
TLabel *Label3;
|
||||||
|
TLabel *Label4;
|
||||||
|
TLabel *lbTotalPolizas;
|
||||||
|
TLabel *lbTotalPrimaNeta;
|
||||||
|
TLabel *lbTotalComision;
|
||||||
|
TLabel *lbTotalPuntos;
|
||||||
|
void __fastcall zqCuentaPolizasNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall execFilter(TObject *Sender);
|
||||||
|
void __fastcall SpeedButton1Click(TObject *Sender);
|
||||||
|
void __fastcall SpeedButton2Click(TObject *Sender);
|
||||||
|
void __fastcall BitBtn2Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionCuentaPolizas(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionCuentaPolizas *gestionCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
132
src/cuentaPolizas.~cpp
Normal file
132
src/cuentaPolizas.~cpp
Normal file
@ -0,0 +1,132 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "cuentaPolizas.h"
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "imprimirCuentaPolizas.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "ZAbstractDataset"
|
||||||
|
#pragma link "ZAbstractRODataset"
|
||||||
|
#pragma link "ZDataset"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TgestionCuentaPolizas *gestionCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TgestionCuentaPolizas::TgestionCuentaPolizas(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
// Cargamos el listado de agentes disponibles
|
||||||
|
TZQuery *zquery;
|
||||||
|
zquery = new TZQuery(this);
|
||||||
|
zquery->Connection = gestionClientes->ZConnection1;
|
||||||
|
zquery->SQL->Clear();
|
||||||
|
zquery->SQL->Add("SELECT id,nombre FROM agentes ORDER BY nombre");
|
||||||
|
zquery->Active=zquery->Connection->Connected;
|
||||||
|
|
||||||
|
srch_agentes->Items->Clear();
|
||||||
|
while(!zquery->Eof)
|
||||||
|
{
|
||||||
|
srch_agentes->Items->AddObject(zquery->FieldByName("nombre")->AsString,(TObject *)(zquery->FieldByName("id")->AsInteger));
|
||||||
|
zquery->Next();
|
||||||
|
}
|
||||||
|
srch_agentes->ItemIndex = 0;
|
||||||
|
|
||||||
|
unsigned short yyyy,mm,dd;
|
||||||
|
TDateTime::CurrentDate().DecodeDate(&yyyy,&mm,&dd);
|
||||||
|
srch_mes->ItemIndex = mm-1;
|
||||||
|
UpDown1->Position = yyyy;
|
||||||
|
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::zqCuentaPolizasNewRecord(
|
||||||
|
TDataSet *DataSet)
|
||||||
|
{
|
||||||
|
AnsiString fecha;
|
||||||
|
fecha = "1/"+AnsiString(srch_mes->ItemIndex+1)+"/"+AnsiString(UpDown1->Position);
|
||||||
|
zqCuentaPolizas->FieldByName("fecha")->AsDateTime = TDateTime::TDateTime(fecha);
|
||||||
|
|
||||||
|
int agente;
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
zqCuentaPolizas->FieldByName("agente")->AsInteger = agente;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::execFilter(TObject *Sender)
|
||||||
|
{
|
||||||
|
int agente;
|
||||||
|
agente = (int)srch_agentes->Items->Objects[srch_agentes->ItemIndex];
|
||||||
|
|
||||||
|
AnsiString where,orderBy,query;
|
||||||
|
|
||||||
|
AnsiString desde, hasta;
|
||||||
|
desde = Format("%.4d-%.2d-01", ARRAYOFCONST((UpDown1->Position,(srch_mes->ItemIndex+1))) );
|
||||||
|
if ( srch_mes->ItemIndex==11 )
|
||||||
|
hasta = Format("%.4d-01-01", ARRAYOFCONST((UpDown1->Position+1)) );
|
||||||
|
else
|
||||||
|
hasta = Format("%.4d-%.2d-01", ARRAYOFCONST((UpDown1->Position,(srch_mes->ItemIndex+2))) );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
where = " WHERE fecha>='"+desde+"' AND fecha<'"+hasta+"' AND agente="+agente;
|
||||||
|
orderBy = " ORDER BY fecha ASC";
|
||||||
|
|
||||||
|
query = "SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,puntos";
|
||||||
|
query+=" FROM cuentaPolizas";
|
||||||
|
query+=where;
|
||||||
|
query+=orderBy;
|
||||||
|
|
||||||
|
zqCuentaPolizas->SQL->Clear();
|
||||||
|
zqCuentaPolizas->SQL->Add(query);
|
||||||
|
zqCuentaPolizas->Active = zqCuentaPolizas->Connection->Connected;
|
||||||
|
|
||||||
|
Currency totalPrimaNeta, totalComision, totalPuntos;
|
||||||
|
totalPrimaNeta=0; totalComision=0; totalPuntos=0;
|
||||||
|
zqCuentaPolizas->First();
|
||||||
|
while(!zqCuentaPolizas->Eof){
|
||||||
|
totalPrimaNeta+=zqCuentaPolizas->FieldByName("primaNeta")->AsCurrency;
|
||||||
|
totalComision+=zqCuentaPolizas->FieldByName("comision")->AsCurrency;
|
||||||
|
totalPuntos+=zqCuentaPolizas->FieldByName("puntos")->AsCurrency;
|
||||||
|
zqCuentaPolizas->Next();
|
||||||
|
}
|
||||||
|
|
||||||
|
lbTotalPolizas->Caption = zqCuentaPolizas->RecordCount;
|
||||||
|
lbTotalPrimaNeta->Caption = AnsiString(totalPrimaNeta);
|
||||||
|
lbTotalComision->Caption = AnsiString(totalComision);
|
||||||
|
lbTotalPuntos->Caption = AnsiString(totalPuntos);
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::SpeedButton1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( srch_mes->ItemIndex==0 ) {
|
||||||
|
srch_mes->ItemIndex=11;
|
||||||
|
UpDown1->Position--;
|
||||||
|
} else
|
||||||
|
srch_mes->ItemIndex--;
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::SpeedButton2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( srch_mes->ItemIndex==11 ) {
|
||||||
|
srch_mes->ItemIndex=0;
|
||||||
|
UpDown1->Position++;
|
||||||
|
} else
|
||||||
|
srch_mes->ItemIndex++;
|
||||||
|
execFilter(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TgestionCuentaPolizas::BitBtn2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TimprCuentaPolizas *i;
|
||||||
|
i = new TimprCuentaPolizas(this);
|
||||||
|
i->qrlbFecha->Caption = AnsiString(UpDown1->Position)+" - "+srch_mes->Items->Strings[srch_mes->ItemIndex];
|
||||||
|
i->qrlbAgente->Caption = srch_agentes->Items->Strings[srch_agentes->ItemIndex];
|
||||||
|
i->QuickRep1->DataSet = zqCuentaPolizas;
|
||||||
|
i->QuickRep1->Preview();
|
||||||
|
delete i;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
src/cuentaPolizas.~ddp
Normal file
BIN
src/cuentaPolizas.~ddp
Normal file
Binary file not shown.
362
src/cuentaPolizas.~dfm
Normal file
362
src/cuentaPolizas.~dfm
Normal file
@ -0,0 +1,362 @@
|
|||||||
|
object gestionCuentaPolizas: TgestionCuentaPolizas
|
||||||
|
Left = 118
|
||||||
|
Top = 122
|
||||||
|
Width = 800
|
||||||
|
Height = 600
|
||||||
|
Caption = 'Cuenta Polizas'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 16
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 792
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 0
|
||||||
|
object SpeedButton1: TSpeedButton
|
||||||
|
Left = 568
|
||||||
|
Top = 8
|
||||||
|
Width = 23
|
||||||
|
Height = 22
|
||||||
|
Caption = '<'
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton2: TSpeedButton
|
||||||
|
Left = 592
|
||||||
|
Top = 8
|
||||||
|
Width = 23
|
||||||
|
Height = 22
|
||||||
|
Caption = '>'
|
||||||
|
OnClick = SpeedButton2Click
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 456
|
||||||
|
Top = 8
|
||||||
|
Width = 107
|
||||||
|
Height = 24
|
||||||
|
Caption = '&Filtrar'
|
||||||
|
Default = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = execFilter
|
||||||
|
Glyph.Data = {
|
||||||
|
42020000424D4202000000000000420000002800000010000000100000000100
|
||||||
|
10000300000000020000120B0000120B00000000000000000000007C0000E003
|
||||||
|
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FBB6FF14A2722E415C4150722D14ABB6FFF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7F565B261A682A304F53575357104B4726E619365B
|
||||||
|
FF7FFF7FFF7FFF7FFF7F765F2416ED42745B304BEC3EEC3E304B545BCC3EC415
|
||||||
|
365BFF7FFF7FFF7FBB7386220E43745BEC3AEB3ACB3ACB36CB36CB3A545BCD3E
|
||||||
|
E619BB6FFF7FFF7F524FA932755BEC3EEC3A0E43BA6B314FCA36CB36CB3A745B
|
||||||
|
6826F14AFF7FFF7FC82E524F514F0C3B0F43DD7BFF7FFF7F304BCB36CB3A304B
|
||||||
|
104F2722FF7FFF7FA52674572E3F2E43DD77FF7FDD77FF7FFF7F314BCB3AED3E
|
||||||
|
5357E415FF7FFF7FC62A745B2E430C3B755BBA6BEC3A965FFF7FFF7F314FED3E
|
||||||
|
54570416FF7FFF7F09375253524F0D3B0C370C370C370C37965FFF7FDC73314F
|
||||||
|
314F6722FF7FFF7F7357EB3A755B2D3F0D3B0C3B0C370C370C3B965F0D3F755B
|
||||||
|
A92E114BFF7FFF7FDC7309332F4B755B2D3F2D3B0D3B0D3B0D3B0D3F755B0E47
|
||||||
|
8622BB73FF7FFF7FFF7FB767072F2F4B755B524F2E432E43524F755B0F47851E
|
||||||
|
765FFF7FFF7FFF7FFF7FFF7FB76709370B3B5253745774575253CA36C62A965F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FDC7393572A3BE72EE72E09377257DB73FF7F
|
||||||
|
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||||
|
FF7FFF7FFF7F}
|
||||||
|
end
|
||||||
|
object srch_agentes: TComboBox
|
||||||
|
Left = 232
|
||||||
|
Top = 8
|
||||||
|
Width = 217
|
||||||
|
Height = 24
|
||||||
|
ItemHeight = 16
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object srch_mes: TComboBox
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
Width = 145
|
||||||
|
Height = 24
|
||||||
|
ItemHeight = 16
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Enero'
|
||||||
|
Items.Strings = (
|
||||||
|
'Enero'
|
||||||
|
'Febrero'
|
||||||
|
'Marzo'
|
||||||
|
'Abril'
|
||||||
|
'Mayo'
|
||||||
|
'Junio'
|
||||||
|
'Julio'
|
||||||
|
'Agosto'
|
||||||
|
'Septiembre'
|
||||||
|
'Octubre'
|
||||||
|
'Noviembre'
|
||||||
|
'Diciembre')
|
||||||
|
end
|
||||||
|
object srch_ano: TEdit
|
||||||
|
Left = 160
|
||||||
|
Top = 8
|
||||||
|
Width = 49
|
||||||
|
Height = 24
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = '2.010'
|
||||||
|
end
|
||||||
|
object UpDown1: TUpDown
|
||||||
|
Left = 209
|
||||||
|
Top = 8
|
||||||
|
Width = 15
|
||||||
|
Height = 24
|
||||||
|
Associate = srch_ano
|
||||||
|
Min = 1900
|
||||||
|
Max = 2100
|
||||||
|
Position = 2010
|
||||||
|
TabOrder = 4
|
||||||
|
Wrap = False
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 656
|
||||||
|
Top = 8
|
||||||
|
Width = 107
|
||||||
|
Height = 24
|
||||||
|
Caption = '&Imprimir'
|
||||||
|
Default = True
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = BitBtn2Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36030000424D3603000000000000360000002800000010000000100000000100
|
||||||
|
1800000000000003000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000007A7A7A696969000000696969A1A1A10000000000000000
|
||||||
|
000000000000000000000000000000000000001E1E1E8C8C8C8C8C8CB2B2B287
|
||||||
|
8787785757B59797A1A1A1A1A1A1A1A1A1000000000000000000000000000000
|
||||||
|
8C8C8C8C8C8CF0F0F0E7E7E7A9A9A99F9F9F3A34344B4B4B6E6E6EB7B7B7C2C2
|
||||||
|
C2A1A1A1A1A1A10000000000008C8C8CFEFEFEF0F0F0E7E7E7DADADAA0A0A096
|
||||||
|
96968383836363635757576E6E6E969696B1B1B17575750000000000008C8C8C
|
||||||
|
F0F0F0DDDDDDA1A1A18181816E6E6E6C6C6C767676939393A9A9A99A9A9A6868
|
||||||
|
687575750000000000000000008C8C8C9696968C8C8CBCBCBCC4C4C4CBCBCB9D
|
||||||
|
9D9D959595767676747474747474879D8E7575750000000000000000008C8C8C
|
||||||
|
D1D1D1CFCFCFC4C4C4CECECE9D9D9DA1A1A1A1A1A1CCCCCCC2C2C2B5B5B58E8E
|
||||||
|
8E7575750000000000000000008C8C8CD0D0D0C4C4C4C7C7C79D9D9DDADADAEA
|
||||||
|
EAEADADADAA1A1A1A1A1A1A1A1A1B4B4B4757575000000000000000000CECECE
|
||||||
|
9D9D9D9D9D9D9D9D9DBDBDBDD5D5D5E6E6E6EAEAEAE7E7E7E1E1E1DEDEDEA1A1
|
||||||
|
A1B1B1B1000000000000000000000000000000D3D3D3D1936DB0B0B0B0B0B0B0
|
||||||
|
B0B0B0B0B0B0B0B0C1C1C1A3A3A39C9C9C000000000000000000000000000000
|
||||||
|
0000009F8181D1936DFFCA98FFDAB6FFE0C2F2D9C1D1936D8787870000000000
|
||||||
|
00000000000000000000000000000000000000D1936DFFD5AFFFD5AFFFD5AFFF
|
||||||
|
D5AFFFD5AFD1936D000000000000000000000000000000000000000000000000
|
||||||
|
000000D1936DFFE1C5FFE1C5FFE1C5FFE1C5FFE1C5D1936D0000000000000000
|
||||||
|
00000000000000000000000000000000814B4BD1936DFFEEDDFFEEDDFFEEDDFF
|
||||||
|
EEDDFFEEDDD1936D000000000000000000000000000000000000000000000000
|
||||||
|
D1936DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD1936D0000000000000000000000
|
||||||
|
00000000000000000000000000814B4BD1936DD1936DD1936DD1936DD1936DD1
|
||||||
|
936DA98181000000000000000000000000000000000000000000}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DBGrid1: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 41
|
||||||
|
Width = 792
|
||||||
|
Height = 463
|
||||||
|
Align = alClient
|
||||||
|
DataSource = dsCuentaPolizas
|
||||||
|
TabOrder = 1
|
||||||
|
TitleFont.Charset = DEFAULT_CHARSET
|
||||||
|
TitleFont.Color = clWindowText
|
||||||
|
TitleFont.Height = -13
|
||||||
|
TitleFont.Name = 'Tahoma'
|
||||||
|
TitleFont.Style = []
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'fecha'
|
||||||
|
Title.Caption = 'Fecha'
|
||||||
|
Width = 89
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Title.Caption = 'Nombre'
|
||||||
|
Width = 261
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'numPoliza'
|
||||||
|
Title.Caption = 'Num. Poliza'
|
||||||
|
Width = 129
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'primaNeta'
|
||||||
|
Title.Caption = 'Prima Neta'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'comision'
|
||||||
|
Title.Caption = 'Comision'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'puntos'
|
||||||
|
Title.Caption = 'Puntos'
|
||||||
|
Width = 90
|
||||||
|
Visible = True
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 504
|
||||||
|
Width = 792
|
||||||
|
Height = 66
|
||||||
|
Align = alBottom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 376
|
||||||
|
Top = 8
|
||||||
|
Width = 80
|
||||||
|
Height = 16
|
||||||
|
Caption = 'Total Polizas'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 504
|
||||||
|
Top = 8
|
||||||
|
Width = 79
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Pima Neta'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 592
|
||||||
|
Top = 8
|
||||||
|
Width = 71
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Comisi'#243'n'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 688
|
||||||
|
Top = 8
|
||||||
|
Width = 60
|
||||||
|
Height = 16
|
||||||
|
Caption = 'T. Puntos'
|
||||||
|
end
|
||||||
|
object lbTotalPolizas: TLabel
|
||||||
|
Left = 376
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalPrimaNeta: TLabel
|
||||||
|
Left = 504
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalComision: TLabel
|
||||||
|
Left = 584
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lbTotalPuntos: TLabel
|
||||||
|
Left = 672
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 16
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'lbTotalPolizas'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object zqCuentaPolizas: TZQuery
|
||||||
|
Connection = gestionClientes.ZConnection1
|
||||||
|
OnNewRecord = zqCuentaPolizasNewRecord
|
||||||
|
SQL.Strings = (
|
||||||
|
|
||||||
|
'SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,punto' +
|
||||||
|
's'
|
||||||
|
' FROM cuentaPolizas')
|
||||||
|
Params = <>
|
||||||
|
Left = 216
|
||||||
|
Top = 448
|
||||||
|
object zqCuentaPolizasid: TIntegerField
|
||||||
|
AutoGenerateValue = arAutoInc
|
||||||
|
FieldName = 'id'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasagente: TIntegerField
|
||||||
|
FieldName = 'agente'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasfecha: TDateField
|
||||||
|
FieldName = 'fecha'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasnombre: TStringField
|
||||||
|
FieldName = 'nombre'
|
||||||
|
Size = 45
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasnumPoliza: TStringField
|
||||||
|
FieldName = 'numPoliza'
|
||||||
|
Size = 45
|
||||||
|
end
|
||||||
|
object zqCuentaPolizasprimaNeta: TFloatField
|
||||||
|
FieldName = 'primaNeta'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizascomision: TFloatField
|
||||||
|
FieldName = 'comision'
|
||||||
|
end
|
||||||
|
object zqCuentaPolizaspuntos: TFloatField
|
||||||
|
FieldName = 'puntos'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsCuentaPolizas: TDataSource
|
||||||
|
DataSet = zqCuentaPolizas
|
||||||
|
Left = 216
|
||||||
|
Top = 416
|
||||||
|
end
|
||||||
|
end
|
||||||
64
src/cuentaPolizas.~h
Normal file
64
src/cuentaPolizas.~h
Normal file
@ -0,0 +1,64 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef cuentaPolizasH
|
||||||
|
#define cuentaPolizasH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "ZAbstractDataset.hpp"
|
||||||
|
#include "ZAbstractRODataset.hpp"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ComCtrls.hpp>
|
||||||
|
#include <DB.hpp>
|
||||||
|
#include <DBGrids.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TgestionCuentaPolizas : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPanel *Panel1;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TComboBox *srch_agentes;
|
||||||
|
TDBGrid *DBGrid1;
|
||||||
|
TComboBox *srch_mes;
|
||||||
|
TEdit *srch_ano;
|
||||||
|
TUpDown *UpDown1;
|
||||||
|
TZQuery *zqCuentaPolizas;
|
||||||
|
TPanel *Panel2;
|
||||||
|
TDataSource *dsCuentaPolizas;
|
||||||
|
TIntegerField *zqCuentaPolizasid;
|
||||||
|
TIntegerField *zqCuentaPolizasagente;
|
||||||
|
TDateField *zqCuentaPolizasfecha;
|
||||||
|
TStringField *zqCuentaPolizasnombre;
|
||||||
|
TStringField *zqCuentaPolizasnumPoliza;
|
||||||
|
TFloatField *zqCuentaPolizasprimaNeta;
|
||||||
|
TFloatField *zqCuentaPolizascomision;
|
||||||
|
TFloatField *zqCuentaPolizaspuntos;
|
||||||
|
TSpeedButton *SpeedButton1;
|
||||||
|
TSpeedButton *SpeedButton2;
|
||||||
|
TBitBtn *BitBtn2;
|
||||||
|
TLabel *Label1;
|
||||||
|
TLabel *Label2;
|
||||||
|
TLabel *Label3;
|
||||||
|
TLabel *Label4;
|
||||||
|
TLabel *lbTotalPolizas;
|
||||||
|
TLabel *lbTotalPrimaNeta;
|
||||||
|
TLabel *lbTotalComision;
|
||||||
|
TLabel *lbTotalPuntos;
|
||||||
|
void __fastcall zqCuentaPolizasNewRecord(TDataSet *DataSet);
|
||||||
|
void __fastcall execFilter(TObject *Sender);
|
||||||
|
void __fastcall SpeedButton1Click(TObject *Sender);
|
||||||
|
void __fastcall SpeedButton2Click(TObject *Sender);
|
||||||
|
void __fastcall BitBtn2Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TgestionCuentaPolizas(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TgestionCuentaPolizas *gestionCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
17
src/imprimirClientes.cpp
Normal file
17
src/imprimirClientes.cpp
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirClientes.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprimirCarteraClientes *imprimirCarteraClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprimirCarteraClientes::TimprimirCarteraClientes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
477
src/imprimirClientes.dfm
Normal file
477
src/imprimirClientes.dfm
Normal file
@ -0,0 +1,477 @@
|
|||||||
|
object imprimirCarteraClientes: TimprimirCarteraClientes
|
||||||
|
Left = 509
|
||||||
|
Top = 348
|
||||||
|
Width = 837
|
||||||
|
Height = 476
|
||||||
|
Caption = 'Imprimir :: Cartera de Clientes'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object QuickRep1: TQuickRep
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 794
|
||||||
|
Height = 1123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Functions.Strings = (
|
||||||
|
'PAGENUMBER'
|
||||||
|
'COLUMNNUMBER'
|
||||||
|
'REPORTTITLE')
|
||||||
|
Functions.DATA = (
|
||||||
|
'0'
|
||||||
|
'0'
|
||||||
|
#39#39)
|
||||||
|
Options = [FirstPageHeader, LastPageFooter]
|
||||||
|
Page.Columns = 1
|
||||||
|
Page.Orientation = poPortrait
|
||||||
|
Page.PaperSize = Default
|
||||||
|
Page.Values = (
|
||||||
|
100
|
||||||
|
2970
|
||||||
|
100
|
||||||
|
2100
|
||||||
|
100
|
||||||
|
100
|
||||||
|
0)
|
||||||
|
PrinterSettings.Copies = 1
|
||||||
|
PrinterSettings.OutputBin = Auto
|
||||||
|
PrinterSettings.Duplex = False
|
||||||
|
PrinterSettings.FirstPage = 0
|
||||||
|
PrinterSettings.LastPage = 0
|
||||||
|
PrinterSettings.UseStandardprinter = False
|
||||||
|
PrinterSettings.UseCustomBinCode = False
|
||||||
|
PrinterSettings.CustomBinCode = 0
|
||||||
|
PrinterSettings.ExtendedDuplex = 0
|
||||||
|
PrinterSettings.UseCustomPaperCode = False
|
||||||
|
PrinterSettings.CustomPaperCode = 0
|
||||||
|
PrinterSettings.PrintMetaFile = False
|
||||||
|
PrinterSettings.PrintQuality = 0
|
||||||
|
PrinterSettings.Collate = 0
|
||||||
|
PrinterSettings.ColorOption = 0
|
||||||
|
PrintIfEmpty = True
|
||||||
|
SnapToGrid = True
|
||||||
|
Units = MM
|
||||||
|
Zoom = 100
|
||||||
|
PrevFormStyle = fsNormal
|
||||||
|
PreviewInitialState = wsNormal
|
||||||
|
PrevInitialZoom = qrZoomToFit
|
||||||
|
PreviewDefaultSaveType = stQRP
|
||||||
|
object QRPBand1: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 38
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbTitle
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel1: TQRLabel
|
||||||
|
Left = 264
|
||||||
|
Top = 8
|
||||||
|
Width = 178
|
||||||
|
Height = 23
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
60.8541666666667
|
||||||
|
698.5
|
||||||
|
21.1666666666667
|
||||||
|
470.958333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Cartera de Clientes'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 14
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand2: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 118
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbDetail
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr1: TQRExpr
|
||||||
|
Left = 35
|
||||||
|
Top = 0
|
||||||
|
Width = 11
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
92.6041666666667
|
||||||
|
0
|
||||||
|
29.1041666666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'id'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr2: TQRExpr
|
||||||
|
Left = 56
|
||||||
|
Top = 0
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
0
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'nombre'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr3: TQRExpr
|
||||||
|
Left = 600
|
||||||
|
Top = 0
|
||||||
|
Width = 103
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1587.5
|
||||||
|
0
|
||||||
|
272.520833333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'telefono+'#39', '#39'+movil'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr4: TQRExpr
|
||||||
|
Left = 512
|
||||||
|
Top = 0
|
||||||
|
Width = 18
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1354.66666666667
|
||||||
|
0
|
||||||
|
47.625)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'dni'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr5: TQRExpr
|
||||||
|
Left = 56
|
||||||
|
Top = 16
|
||||||
|
Width = 273
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
42.3333333333333
|
||||||
|
722.3125)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clGray
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Color = clWhite
|
||||||
|
ParentFont = False
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'calle+'#39', '#39'+poblacion+'#39', CP: '#39'+cp+'#39' ('#39'+provincia+'#39')'#39
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand3: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 158
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.8
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbPageFooter
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
end
|
||||||
|
object QRPBand4: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 78
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = True
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbColumnHeader
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel2: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 14
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
42.3333333333333
|
||||||
|
37.0416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'ID'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel3: TQRLabel
|
||||||
|
Left = 56
|
||||||
|
Top = 16
|
||||||
|
Width = 124
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
42.3333333333333
|
||||||
|
328.083333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Nombre del Cliente'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel4: TQRLabel
|
||||||
|
Left = 600
|
||||||
|
Top = 16
|
||||||
|
Width = 63
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1587.5
|
||||||
|
42.3333333333333
|
||||||
|
166.6875)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Tel'#233'fonos'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel5: TQRLabel
|
||||||
|
Left = 512
|
||||||
|
Top = 16
|
||||||
|
Width = 35
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1354.66666666667
|
||||||
|
42.3333333333333
|
||||||
|
92.6041666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'D.N.I.'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
40
src/imprimirClientes.h
Normal file
40
src/imprimirClientes.h
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirClientesH
|
||||||
|
#define imprimirClientesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprimirCarteraClientes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRPBand *QRPBand2;
|
||||||
|
TQRPBand *QRPBand3;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRPBand *QRPBand4;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRLabel *QRLabel5;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprimirCarteraClientes(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprimirCarteraClientes *imprimirCarteraClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
17
src/imprimirClientes.~cpp
Normal file
17
src/imprimirClientes.~cpp
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirClientes.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprimirCarteraClientes *imprimirCarteraClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprimirCarteraClientes::TimprimirCarteraClientes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
477
src/imprimirClientes.~dfm
Normal file
477
src/imprimirClientes.~dfm
Normal file
@ -0,0 +1,477 @@
|
|||||||
|
object imprimirCarteraClientes: TimprimirCarteraClientes
|
||||||
|
Left = 232
|
||||||
|
Top = 319
|
||||||
|
Width = 837
|
||||||
|
Height = 476
|
||||||
|
Caption = 'Imprimir :: Cartera de Clientes'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object QuickRep1: TQuickRep
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 794
|
||||||
|
Height = 1123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Functions.Strings = (
|
||||||
|
'PAGENUMBER'
|
||||||
|
'COLUMNNUMBER'
|
||||||
|
'REPORTTITLE')
|
||||||
|
Functions.DATA = (
|
||||||
|
'0'
|
||||||
|
'0'
|
||||||
|
#39#39)
|
||||||
|
Options = [FirstPageHeader, LastPageFooter]
|
||||||
|
Page.Columns = 1
|
||||||
|
Page.Orientation = poPortrait
|
||||||
|
Page.PaperSize = Default
|
||||||
|
Page.Values = (
|
||||||
|
100
|
||||||
|
2970
|
||||||
|
100
|
||||||
|
2100
|
||||||
|
100
|
||||||
|
100
|
||||||
|
0)
|
||||||
|
PrinterSettings.Copies = 1
|
||||||
|
PrinterSettings.OutputBin = Auto
|
||||||
|
PrinterSettings.Duplex = False
|
||||||
|
PrinterSettings.FirstPage = 0
|
||||||
|
PrinterSettings.LastPage = 0
|
||||||
|
PrinterSettings.UseStandardprinter = False
|
||||||
|
PrinterSettings.UseCustomBinCode = False
|
||||||
|
PrinterSettings.CustomBinCode = 0
|
||||||
|
PrinterSettings.ExtendedDuplex = 0
|
||||||
|
PrinterSettings.UseCustomPaperCode = False
|
||||||
|
PrinterSettings.CustomPaperCode = 0
|
||||||
|
PrinterSettings.PrintMetaFile = False
|
||||||
|
PrinterSettings.PrintQuality = 0
|
||||||
|
PrinterSettings.Collate = 0
|
||||||
|
PrinterSettings.ColorOption = 0
|
||||||
|
PrintIfEmpty = True
|
||||||
|
SnapToGrid = True
|
||||||
|
Units = MM
|
||||||
|
Zoom = 100
|
||||||
|
PrevFormStyle = fsNormal
|
||||||
|
PreviewInitialState = wsNormal
|
||||||
|
PrevInitialZoom = qrZoomToFit
|
||||||
|
PreviewDefaultSaveType = stQRP
|
||||||
|
object QRPBand1: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 38
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbTitle
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel1: TQRLabel
|
||||||
|
Left = 264
|
||||||
|
Top = 8
|
||||||
|
Width = 178
|
||||||
|
Height = 23
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
60.8541666666667
|
||||||
|
698.5
|
||||||
|
21.1666666666667
|
||||||
|
470.958333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Cartera de Clientes'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 14
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand2: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 118
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbDetail
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr1: TQRExpr
|
||||||
|
Left = 35
|
||||||
|
Top = 0
|
||||||
|
Width = 11
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
92.6041666666667
|
||||||
|
0
|
||||||
|
29.1041666666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'id'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr2: TQRExpr
|
||||||
|
Left = 56
|
||||||
|
Top = 0
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
0
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'nombre'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr3: TQRExpr
|
||||||
|
Left = 600
|
||||||
|
Top = 0
|
||||||
|
Width = 103
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1587.5
|
||||||
|
0
|
||||||
|
272.520833333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'telefono+'#39', '#39'+movil'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr4: TQRExpr
|
||||||
|
Left = 512
|
||||||
|
Top = 0
|
||||||
|
Width = 18
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1354.66666666667
|
||||||
|
0
|
||||||
|
47.625)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'dni'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr5: TQRExpr
|
||||||
|
Left = 56
|
||||||
|
Top = 16
|
||||||
|
Width = 273
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
42.3333333333333
|
||||||
|
722.3125)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clGray
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Color = clWhite
|
||||||
|
ParentFont = False
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'calle+'#39', '#39'+poblacion+'#39', CP: '#39'+cp+'#39' ('#39'+provincia+'#39')'#39
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand3: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 158
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.8
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbPageFooter
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
end
|
||||||
|
object QRPBand4: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 78
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = True
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbColumnHeader
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel2: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 14
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
42.3333333333333
|
||||||
|
37.0416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'ID'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel3: TQRLabel
|
||||||
|
Left = 56
|
||||||
|
Top = 16
|
||||||
|
Width = 124
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
148.166666666667
|
||||||
|
42.3333333333333
|
||||||
|
328.083333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Nombre del Cliente'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel4: TQRLabel
|
||||||
|
Left = 600
|
||||||
|
Top = 16
|
||||||
|
Width = 63
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1587.5
|
||||||
|
42.3333333333333
|
||||||
|
166.6875)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Tel'#233'fonos'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel5: TQRLabel
|
||||||
|
Left = 512
|
||||||
|
Top = 16
|
||||||
|
Width = 35
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1354.66666666667
|
||||||
|
42.3333333333333
|
||||||
|
92.6041666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'D.N.I.'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
40
src/imprimirClientes.~h
Normal file
40
src/imprimirClientes.~h
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirClientesH
|
||||||
|
#define imprimirClientesH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprimirCarteraClientes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRPBand *QRPBand2;
|
||||||
|
TQRPBand *QRPBand3;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRPBand *QRPBand4;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRLabel *QRLabel5;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprimirCarteraClientes(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprimirCarteraClientes *imprimirCarteraClientes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
17
src/imprimirCuentaPolizas.cpp
Normal file
17
src/imprimirCuentaPolizas.cpp
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirCuentaPolizas.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprCuentaPolizas *imprCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprCuentaPolizas::TimprCuentaPolizas(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
786
src/imprimirCuentaPolizas.dfm
Normal file
786
src/imprimirCuentaPolizas.dfm
Normal file
@ -0,0 +1,786 @@
|
|||||||
|
object imprCuentaPolizas: TimprCuentaPolizas
|
||||||
|
Left = 119
|
||||||
|
Top = 136
|
||||||
|
Width = 947
|
||||||
|
Height = 567
|
||||||
|
Caption = 'Imprimir :: Cuenta Polizas'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object QuickRep1: TQuickRep
|
||||||
|
Left = 32
|
||||||
|
Top = 23
|
||||||
|
Width = 794
|
||||||
|
Height = 1123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Functions.Strings = (
|
||||||
|
'PAGENUMBER'
|
||||||
|
'COLUMNNUMBER'
|
||||||
|
'REPORTTITLE')
|
||||||
|
Functions.DATA = (
|
||||||
|
'0'
|
||||||
|
'0'
|
||||||
|
#39#39)
|
||||||
|
Options = [FirstPageHeader, LastPageFooter]
|
||||||
|
Page.Columns = 1
|
||||||
|
Page.Orientation = poPortrait
|
||||||
|
Page.PaperSize = Default
|
||||||
|
Page.Values = (
|
||||||
|
100
|
||||||
|
2970
|
||||||
|
100
|
||||||
|
2100
|
||||||
|
100
|
||||||
|
100
|
||||||
|
0)
|
||||||
|
PrinterSettings.Copies = 1
|
||||||
|
PrinterSettings.OutputBin = Auto
|
||||||
|
PrinterSettings.Duplex = False
|
||||||
|
PrinterSettings.FirstPage = 0
|
||||||
|
PrinterSettings.LastPage = 0
|
||||||
|
PrinterSettings.UseStandardprinter = False
|
||||||
|
PrinterSettings.UseCustomBinCode = False
|
||||||
|
PrinterSettings.CustomBinCode = 0
|
||||||
|
PrinterSettings.ExtendedDuplex = 0
|
||||||
|
PrinterSettings.UseCustomPaperCode = False
|
||||||
|
PrinterSettings.CustomPaperCode = 0
|
||||||
|
PrinterSettings.PrintMetaFile = False
|
||||||
|
PrinterSettings.PrintQuality = 0
|
||||||
|
PrinterSettings.Collate = 0
|
||||||
|
PrinterSettings.ColorOption = 0
|
||||||
|
PrintIfEmpty = True
|
||||||
|
SnapToGrid = True
|
||||||
|
Units = MM
|
||||||
|
Zoom = 100
|
||||||
|
PrevFormStyle = fsNormal
|
||||||
|
PreviewInitialState = wsNormal
|
||||||
|
PrevInitialZoom = qrZoomToFit
|
||||||
|
PreviewDefaultSaveType = stQRP
|
||||||
|
object QRPBand1: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 38
|
||||||
|
Width = 718
|
||||||
|
Height = 123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
325.4375
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbTitle
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel1: TQRLabel
|
||||||
|
Left = 304
|
||||||
|
Top = 8
|
||||||
|
Width = 139
|
||||||
|
Height = 23
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
60.8541666666667
|
||||||
|
804.333333333333
|
||||||
|
21.1666666666667
|
||||||
|
367.770833333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Cuenta Polizas'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 14
|
||||||
|
end
|
||||||
|
object QRLabel6: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 48
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
127
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Fecha:'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel7: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 80
|
||||||
|
Width = 50
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
211.666666666667
|
||||||
|
132.291666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Agente:'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object qrlbFecha: TQRLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 48
|
||||||
|
Width = 58
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
211.666666666667
|
||||||
|
127
|
||||||
|
153.458333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'qrlbFecha'
|
||||||
|
Color = clWhite
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object qrlbAgente: TQRLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 80
|
||||||
|
Width = 58
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
211.666666666667
|
||||||
|
211.666666666667
|
||||||
|
153.458333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'qrlbFecha'
|
||||||
|
Color = clWhite
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand2: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 201
|
||||||
|
Width = 718
|
||||||
|
Height = 24
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
63.5
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbDetail
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr1: TQRExpr
|
||||||
|
Left = 22
|
||||||
|
Top = 0
|
||||||
|
Width = 32
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
58.2083333333333
|
||||||
|
0
|
||||||
|
84.6666666666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'fecha'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr2: TQRExpr
|
||||||
|
Left = 64
|
||||||
|
Top = 0
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
169.333333333333
|
||||||
|
0
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'nombre'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr3: TQRExpr
|
||||||
|
Left = 672
|
||||||
|
Top = 0
|
||||||
|
Width = 40
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1778
|
||||||
|
0
|
||||||
|
105.833333333333)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'puntos'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr4: TQRExpr
|
||||||
|
Left = 592
|
||||||
|
Top = 0
|
||||||
|
Width = 53
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1566.33333333333
|
||||||
|
0
|
||||||
|
140.229166666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'comision'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr5: TQRExpr
|
||||||
|
Left = 336
|
||||||
|
Top = 0
|
||||||
|
Width = 62
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
889
|
||||||
|
0
|
||||||
|
164.041666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'numPoliza'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr9: TQRExpr
|
||||||
|
Left = 506
|
||||||
|
Top = 0
|
||||||
|
Width = 60
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1338.79166666667
|
||||||
|
0
|
||||||
|
158.75)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'primaNeta'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand3: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 225
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = True
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbPageFooter
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr6: TQRExpr
|
||||||
|
Left = 634
|
||||||
|
Top = 8
|
||||||
|
Width = 77
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1677.45833333333
|
||||||
|
21.1666666666667
|
||||||
|
203.729166666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'SUM(puntos)'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr7: TQRExpr
|
||||||
|
Left = 554
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1465.79166666667
|
||||||
|
21.1666666666667
|
||||||
|
238.125)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'SUM(comision)'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr8: TQRExpr
|
||||||
|
Left = 336
|
||||||
|
Top = 8
|
||||||
|
Width = 45
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
889
|
||||||
|
21.1666666666667
|
||||||
|
119.0625)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'COUNT'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr10: TQRExpr
|
||||||
|
Left = 474
|
||||||
|
Top = 8
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1254.125
|
||||||
|
21.1666666666667
|
||||||
|
256.645833333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'SUM(primaNeta)'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand4: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 161
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = True
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbColumnHeader
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel2: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 40
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
42.3333333333333
|
||||||
|
105.833333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Fecha'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel3: TQRLabel
|
||||||
|
Left = 64
|
||||||
|
Top = 16
|
||||||
|
Width = 124
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
169.333333333333
|
||||||
|
42.3333333333333
|
||||||
|
328.083333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Nombre del Cliente'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel4: TQRLabel
|
||||||
|
Left = 656
|
||||||
|
Top = 16
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1735.66666666667
|
||||||
|
42.3333333333333
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Puntos'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel5: TQRLabel
|
||||||
|
Left = 576
|
||||||
|
Top = 16
|
||||||
|
Width = 60
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1524
|
||||||
|
42.3333333333333
|
||||||
|
158.75)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Comisi'#243'n'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel8: TQRLabel
|
||||||
|
Left = 336
|
||||||
|
Top = 16
|
||||||
|
Width = 78
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
889
|
||||||
|
42.3333333333333
|
||||||
|
206.375)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'N'#250'm. Poliza'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel9: TQRLabel
|
||||||
|
Left = 488
|
||||||
|
Top = 16
|
||||||
|
Width = 72
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1291.16666666667
|
||||||
|
42.3333333333333
|
||||||
|
190.5)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Prima Neta'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
51
src/imprimirCuentaPolizas.h
Normal file
51
src/imprimirCuentaPolizas.h
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirCuentaPolizasH
|
||||||
|
#define imprimirCuentaPolizasH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprCuentaPolizas : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRPBand *QRPBand2;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRPBand *QRPBand3;
|
||||||
|
TQRPBand *QRPBand4;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRLabel *QRLabel5;
|
||||||
|
TQRLabel *QRLabel6;
|
||||||
|
TQRLabel *QRLabel7;
|
||||||
|
TQRLabel *QRLabel8;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
TQRExpr *QRExpr6;
|
||||||
|
TQRExpr *QRExpr7;
|
||||||
|
TQRExpr *QRExpr8;
|
||||||
|
TQRLabel *qrlbFecha;
|
||||||
|
TQRLabel *qrlbAgente;
|
||||||
|
TQRLabel *QRLabel9;
|
||||||
|
TQRExpr *QRExpr9;
|
||||||
|
TQRExpr *QRExpr10;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprCuentaPolizas(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprCuentaPolizas *imprCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
17
src/imprimirCuentaPolizas.~cpp
Normal file
17
src/imprimirCuentaPolizas.~cpp
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirCuentaPolizas.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprCuentaPolizas *imprCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprCuentaPolizas::TimprCuentaPolizas(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
700
src/imprimirCuentaPolizas.~dfm
Normal file
700
src/imprimirCuentaPolizas.~dfm
Normal file
@ -0,0 +1,700 @@
|
|||||||
|
object imprCuentaPolizas: TimprCuentaPolizas
|
||||||
|
Left = 2
|
||||||
|
Top = 110
|
||||||
|
Width = 947
|
||||||
|
Height = 567
|
||||||
|
Caption = 'Imprimir :: Cuenta Polizas'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Scaled = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object QuickRep1: TQuickRep
|
||||||
|
Left = 32
|
||||||
|
Top = 23
|
||||||
|
Width = 794
|
||||||
|
Height = 1123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
Functions.Strings = (
|
||||||
|
'PAGENUMBER'
|
||||||
|
'COLUMNNUMBER'
|
||||||
|
'REPORTTITLE')
|
||||||
|
Functions.DATA = (
|
||||||
|
'0'
|
||||||
|
'0'
|
||||||
|
#39#39)
|
||||||
|
Options = [FirstPageHeader, LastPageFooter]
|
||||||
|
Page.Columns = 1
|
||||||
|
Page.Orientation = poPortrait
|
||||||
|
Page.PaperSize = Default
|
||||||
|
Page.Values = (
|
||||||
|
100
|
||||||
|
2970
|
||||||
|
100
|
||||||
|
2100
|
||||||
|
100
|
||||||
|
100
|
||||||
|
0)
|
||||||
|
PrinterSettings.Copies = 1
|
||||||
|
PrinterSettings.OutputBin = Auto
|
||||||
|
PrinterSettings.Duplex = False
|
||||||
|
PrinterSettings.FirstPage = 0
|
||||||
|
PrinterSettings.LastPage = 0
|
||||||
|
PrinterSettings.UseStandardprinter = False
|
||||||
|
PrinterSettings.UseCustomBinCode = False
|
||||||
|
PrinterSettings.CustomBinCode = 0
|
||||||
|
PrinterSettings.ExtendedDuplex = 0
|
||||||
|
PrinterSettings.UseCustomPaperCode = False
|
||||||
|
PrinterSettings.CustomPaperCode = 0
|
||||||
|
PrinterSettings.PrintMetaFile = False
|
||||||
|
PrinterSettings.PrintQuality = 0
|
||||||
|
PrinterSettings.Collate = 0
|
||||||
|
PrinterSettings.ColorOption = 0
|
||||||
|
PrintIfEmpty = True
|
||||||
|
SnapToGrid = True
|
||||||
|
Units = MM
|
||||||
|
Zoom = 100
|
||||||
|
PrevFormStyle = fsNormal
|
||||||
|
PreviewInitialState = wsNormal
|
||||||
|
PrevInitialZoom = qrZoomToFit
|
||||||
|
PreviewDefaultSaveType = stQRP
|
||||||
|
object QRPBand1: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 38
|
||||||
|
Width = 718
|
||||||
|
Height = 123
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
325.4375
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbTitle
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel1: TQRLabel
|
||||||
|
Left = 304
|
||||||
|
Top = 8
|
||||||
|
Width = 139
|
||||||
|
Height = 23
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
60.8541666666667
|
||||||
|
804.333333333333
|
||||||
|
21.1666666666667
|
||||||
|
367.770833333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Cuenta Polizas'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 14
|
||||||
|
end
|
||||||
|
object QRLabel6: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 48
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
127
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Fecha:'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel7: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 80
|
||||||
|
Width = 50
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
211.666666666667
|
||||||
|
132.291666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Agente:'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object qrlbFecha: TQRLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 48
|
||||||
|
Width = 58
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
211.666666666667
|
||||||
|
127
|
||||||
|
153.458333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'qrlbFecha'
|
||||||
|
Color = clWhite
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object qrlbAgente: TQRLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 80
|
||||||
|
Width = 58
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
211.666666666667
|
||||||
|
211.666666666667
|
||||||
|
153.458333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'qrlbFecha'
|
||||||
|
Color = clWhite
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand2: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 201
|
||||||
|
Width = 718
|
||||||
|
Height = 24
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
63.5
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbDetail
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr1: TQRExpr
|
||||||
|
Left = 22
|
||||||
|
Top = 0
|
||||||
|
Width = 32
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
58.2083333333333
|
||||||
|
0
|
||||||
|
84.6666666666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'fecha'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr2: TQRExpr
|
||||||
|
Left = 64
|
||||||
|
Top = 0
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
169.333333333333
|
||||||
|
0
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'nombre'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr3: TQRExpr
|
||||||
|
Left = 672
|
||||||
|
Top = 0
|
||||||
|
Width = 40
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1778
|
||||||
|
0
|
||||||
|
105.833333333333)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'puntos'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr4: TQRExpr
|
||||||
|
Left = 592
|
||||||
|
Top = 0
|
||||||
|
Width = 53
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1566.33333333333
|
||||||
|
0
|
||||||
|
140.229166666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'comision'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr5: TQRExpr
|
||||||
|
Left = 416
|
||||||
|
Top = 0
|
||||||
|
Width = 62
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1100.66666666667
|
||||||
|
0
|
||||||
|
164.041666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'numPoliza'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand3: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 225
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = True
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbPageFooter
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRExpr6: TQRExpr
|
||||||
|
Left = 634
|
||||||
|
Top = 8
|
||||||
|
Width = 77
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1677.45833333333
|
||||||
|
21.1666666666667
|
||||||
|
203.729166666667)
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'SUM(puntos)'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr7: TQRExpr
|
||||||
|
Left = 554
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1465.79166666667
|
||||||
|
21.1666666666667
|
||||||
|
238.125)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'SUM(comision)'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRExpr8: TQRExpr
|
||||||
|
Left = 416
|
||||||
|
Top = 8
|
||||||
|
Width = 45
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1100.66666666667
|
||||||
|
21.1666666666667
|
||||||
|
119.0625)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Color = clWhite
|
||||||
|
ResetAfterPrint = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
Expression = 'COUNT'
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object QRPBand4: TQRPBand
|
||||||
|
Left = 38
|
||||||
|
Top = 161
|
||||||
|
Width = 718
|
||||||
|
Height = 40
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = True
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
AlignToBottom = False
|
||||||
|
Color = clWhite
|
||||||
|
TransparentBand = False
|
||||||
|
ForceNewColumn = False
|
||||||
|
ForceNewPage = False
|
||||||
|
Size.Values = (
|
||||||
|
105.833333333333
|
||||||
|
1899.70833333333)
|
||||||
|
PreCaluculateBandHeight = False
|
||||||
|
KeepOnOnePage = False
|
||||||
|
BandType = rbColumnHeader
|
||||||
|
AlwaysUseSpace = False
|
||||||
|
NotOnFirstPage = False
|
||||||
|
NotOnLastPage = False
|
||||||
|
object QRLabel2: TQRLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 40
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
42.3333333333333
|
||||||
|
42.3333333333333
|
||||||
|
105.833333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Fecha'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel3: TQRLabel
|
||||||
|
Left = 64
|
||||||
|
Top = 16
|
||||||
|
Width = 124
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
169.333333333333
|
||||||
|
42.3333333333333
|
||||||
|
328.083333333333)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Nombre del Cliente'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel4: TQRLabel
|
||||||
|
Left = 656
|
||||||
|
Top = 16
|
||||||
|
Width = 44
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1735.66666666667
|
||||||
|
42.3333333333333
|
||||||
|
116.416666666667)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Puntos'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel5: TQRLabel
|
||||||
|
Left = 576
|
||||||
|
Top = 16
|
||||||
|
Width = 60
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1524
|
||||||
|
42.3333333333333
|
||||||
|
158.75)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'Comisi'#243'n'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
object QRLabel8: TQRLabel
|
||||||
|
Left = 416
|
||||||
|
Top = 16
|
||||||
|
Width = 78
|
||||||
|
Height = 17
|
||||||
|
Frame.Color = clBlack
|
||||||
|
Frame.DrawTop = False
|
||||||
|
Frame.DrawBottom = False
|
||||||
|
Frame.DrawLeft = False
|
||||||
|
Frame.DrawRight = False
|
||||||
|
Size.Values = (
|
||||||
|
44.9791666666667
|
||||||
|
1100.66666666667
|
||||||
|
42.3333333333333
|
||||||
|
206.375)
|
||||||
|
Alignment = taLeftJustify
|
||||||
|
AlignToBand = False
|
||||||
|
AutoSize = True
|
||||||
|
AutoStretch = False
|
||||||
|
Caption = 'N'#250'm. Poliza'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = False
|
||||||
|
WordWrap = True
|
||||||
|
ExportAs = exptText
|
||||||
|
FontSize = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
48
src/imprimirCuentaPolizas.~h
Normal file
48
src/imprimirCuentaPolizas.~h
Normal file
@ -0,0 +1,48 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirCuentaPolizasH
|
||||||
|
#define imprimirCuentaPolizasH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprCuentaPolizas : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRPBand *QRPBand2;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRPBand *QRPBand3;
|
||||||
|
TQRPBand *QRPBand4;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRLabel *QRLabel5;
|
||||||
|
TQRLabel *QRLabel6;
|
||||||
|
TQRLabel *QRLabel7;
|
||||||
|
TQRLabel *QRLabel8;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
TQRExpr *QRExpr6;
|
||||||
|
TQRExpr *QRExpr7;
|
||||||
|
TQRExpr *QRExpr8;
|
||||||
|
TQRLabel *qrlbFecha;
|
||||||
|
TQRLabel *qrlbAgente;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprCuentaPolizas(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprCuentaPolizas *imprCuentaPolizas;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
43
src/imprimirFichaCliente.cpp
Normal file
43
src/imprimirFichaCliente.cpp
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirFichaCliente.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprFichaCliente *imprFichaCliente;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprFichaCliente::TimprFichaCliente(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr6Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "P" ) Value = "Padre/Madre"; else
|
||||||
|
if ( Value == "C" ) Value = "Marido/Mujer"; else
|
||||||
|
if ( Value == "H" ) Value = "Hermano/a"; else
|
||||||
|
if ( Value == "N" ) Value = "Hijo/a"; else
|
||||||
|
if ( Value == "o" ) Value = "otros";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr5Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "S" ) Value = "Soltero"; else
|
||||||
|
if ( Value == "C" ) Value = "Casado"; else
|
||||||
|
if ( Value == "D" ) Value = "Divorciado"; else
|
||||||
|
if ( Value == "V" ) Value = "Viudo";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr4Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "H" ) Value = "Hombre"; else
|
||||||
|
if ( Value == "M" ) Value = "Mujer";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
src/imprimirFichaCliente.ddp
Normal file
BIN
src/imprimirFichaCliente.ddp
Normal file
Binary file not shown.
1653
src/imprimirFichaCliente.dfm
Normal file
1653
src/imprimirFichaCliente.dfm
Normal file
File diff suppressed because it is too large
Load Diff
84
src/imprimirFichaCliente.h
Normal file
84
src/imprimirFichaCliente.h
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirFichaClienteH
|
||||||
|
#define imprimirFichaClienteH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprFichaCliente : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *rNombre;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRLabel *rID;
|
||||||
|
TQRLabel *QRLabel6;
|
||||||
|
TQRLabel *rDNI;
|
||||||
|
TQRLabel *QRLabel8;
|
||||||
|
TQRLabel *rFechaNacimiento;
|
||||||
|
TQRLabel *QRLabel10;
|
||||||
|
TQRLabel *rEstadoCivil;
|
||||||
|
TQRLabel *QRLabel12;
|
||||||
|
TQRLabel *rPCargo;
|
||||||
|
TQRLabel *QRLabel14;
|
||||||
|
TQRLabel *rCalle;
|
||||||
|
TQRLabel *QRLabel16;
|
||||||
|
TQRLabel *rPoblacion;
|
||||||
|
TQRLabel *QRLabel18;
|
||||||
|
TQRLabel *rProvincia;
|
||||||
|
TQRLabel *QRLabel20;
|
||||||
|
TQRLabel *rCP;
|
||||||
|
TQRLabel *QRLabel22;
|
||||||
|
TQRLabel *rDirCobro;
|
||||||
|
TQRLabel *QRLabel24;
|
||||||
|
TQRLabel *rTelefono;
|
||||||
|
TQRLabel *QRLabel26;
|
||||||
|
TQRLabel *rMovil;
|
||||||
|
TQRLabel *QRLabel28;
|
||||||
|
TQRLabel *rFax;
|
||||||
|
TQRLabel *QRLabel30;
|
||||||
|
TQRLabel *rEMail;
|
||||||
|
TQRShape *QRShape1;
|
||||||
|
TQRShape *QRShape2;
|
||||||
|
TQRLabel *rAgente;
|
||||||
|
TQRLabel *QRLabel33;
|
||||||
|
TQRLabel *QRLabel34;
|
||||||
|
TQRLabel *rGradoFidelidad;
|
||||||
|
TQRLabel *QRLabel36;
|
||||||
|
TQRBand *QRBand1;
|
||||||
|
TQRLabel *QRLabel37;
|
||||||
|
TQRLabel *QRLabel38;
|
||||||
|
TQRLabel *QRLabel39;
|
||||||
|
TQRLabel *QRLabel40;
|
||||||
|
TQRLabel *QRLabel41;
|
||||||
|
TQRLabel *QRLabel42;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
TQRExpr *QRExpr6;
|
||||||
|
TQRBand *QRBand2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRPMemo *rNotas;
|
||||||
|
void __fastcall QRExpr6Print(TObject *sender, AnsiString &Value);
|
||||||
|
void __fastcall QRExpr5Print(TObject *sender, AnsiString &Value);
|
||||||
|
void __fastcall QRExpr4Print(TObject *sender, AnsiString &Value);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprFichaCliente(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprFichaCliente *imprFichaCliente;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
43
src/imprimirFichaCliente.~cpp
Normal file
43
src/imprimirFichaCliente.~cpp
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "imprimirFichaCliente.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "qrpctrls"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TimprFichaCliente *imprFichaCliente;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TimprFichaCliente::TimprFichaCliente(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr6Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "P" ) Value = "Padre/Madre"; else
|
||||||
|
if ( Value == "C" ) Value = "Marido/Mujer"; else
|
||||||
|
if ( Value == "H" ) Value = "Hermano/a"; else
|
||||||
|
if ( Value == "N" ) Value = "Hijo/a"; else
|
||||||
|
if ( Value == "o" ) Value = "otros";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr5Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "S" ) Value = "Soltero"; else
|
||||||
|
if ( Value == "C" ) Value = "Casado"; else
|
||||||
|
if ( Value == "D" ) Value = "Divorciado"; else
|
||||||
|
if ( Value == "V" ) Value = "Viudo";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TimprFichaCliente::QRExpr4Print(TObject *sender,
|
||||||
|
AnsiString &Value)
|
||||||
|
{
|
||||||
|
if ( Value == "H" ) Value = "Hombre"; else
|
||||||
|
if ( Value == "M" ) Value = "Mujer";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
src/imprimirFichaCliente.~ddp
Normal file
BIN
src/imprimirFichaCliente.~ddp
Normal file
Binary file not shown.
1653
src/imprimirFichaCliente.~dfm
Normal file
1653
src/imprimirFichaCliente.~dfm
Normal file
File diff suppressed because it is too large
Load Diff
84
src/imprimirFichaCliente.~h
Normal file
84
src/imprimirFichaCliente.~h
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef imprimirFichaClienteH
|
||||||
|
#define imprimirFichaClienteH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <QuickRpt.hpp>
|
||||||
|
#include "qrpctrls.hpp"
|
||||||
|
#include <QRCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TimprFichaCliente : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TQuickRep *QuickRep1;
|
||||||
|
TQRPBand *QRPBand1;
|
||||||
|
TQRLabel *QRLabel1;
|
||||||
|
TQRLabel *QRLabel2;
|
||||||
|
TQRLabel *rNombre;
|
||||||
|
TQRLabel *QRLabel4;
|
||||||
|
TQRLabel *rID;
|
||||||
|
TQRLabel *QRLabel6;
|
||||||
|
TQRLabel *rDNI;
|
||||||
|
TQRLabel *QRLabel8;
|
||||||
|
TQRLabel *rFechaNacimiento;
|
||||||
|
TQRLabel *QRLabel10;
|
||||||
|
TQRLabel *rEstadoCivil;
|
||||||
|
TQRLabel *QRLabel12;
|
||||||
|
TQRLabel *rPCargo;
|
||||||
|
TQRLabel *QRLabel14;
|
||||||
|
TQRLabel *rCalle;
|
||||||
|
TQRLabel *QRLabel16;
|
||||||
|
TQRLabel *rPoblacion;
|
||||||
|
TQRLabel *QRLabel18;
|
||||||
|
TQRLabel *rProvincia;
|
||||||
|
TQRLabel *QRLabel20;
|
||||||
|
TQRLabel *rCP;
|
||||||
|
TQRLabel *QRLabel22;
|
||||||
|
TQRLabel *rDirCobro;
|
||||||
|
TQRLabel *QRLabel24;
|
||||||
|
TQRLabel *rTelefono;
|
||||||
|
TQRLabel *QRLabel26;
|
||||||
|
TQRLabel *rMovil;
|
||||||
|
TQRLabel *QRLabel28;
|
||||||
|
TQRLabel *rFax;
|
||||||
|
TQRLabel *QRLabel30;
|
||||||
|
TQRLabel *rEMail;
|
||||||
|
TQRShape *QRShape1;
|
||||||
|
TQRShape *QRShape2;
|
||||||
|
TQRLabel *rAgente;
|
||||||
|
TQRLabel *QRLabel33;
|
||||||
|
TQRLabel *QRLabel34;
|
||||||
|
TQRLabel *rGradoFidelidad;
|
||||||
|
TQRLabel *QRLabel36;
|
||||||
|
TQRBand *QRBand1;
|
||||||
|
TQRLabel *QRLabel37;
|
||||||
|
TQRLabel *QRLabel38;
|
||||||
|
TQRLabel *QRLabel39;
|
||||||
|
TQRLabel *QRLabel40;
|
||||||
|
TQRLabel *QRLabel41;
|
||||||
|
TQRLabel *QRLabel42;
|
||||||
|
TQRExpr *QRExpr1;
|
||||||
|
TQRExpr *QRExpr2;
|
||||||
|
TQRExpr *QRExpr3;
|
||||||
|
TQRExpr *QRExpr4;
|
||||||
|
TQRExpr *QRExpr5;
|
||||||
|
TQRExpr *QRExpr6;
|
||||||
|
TQRBand *QRBand2;
|
||||||
|
TQRLabel *QRLabel3;
|
||||||
|
TQRPMemo *rNotas;
|
||||||
|
void __fastcall QRExpr6Print(TObject *sender, AnsiString &Value);
|
||||||
|
void __fastcall QRExpr5Print(TObject *sender, AnsiString &Value);
|
||||||
|
void __fastcall QRExpr4Print(TObject *sender, AnsiString &Value);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TimprFichaCliente(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TimprFichaCliente *imprFichaCliente;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
74
src/login_dlg.cpp
Normal file
74
src/login_dlg.cpp
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "login_dlg.h"
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "tsplash.h"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
Tlogin *login;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall Tlogin::Tlogin(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
auth = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall Tlogin::BitBtn1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall Tlogin::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(Splash){
|
||||||
|
delete Splash;
|
||||||
|
Splash = NULL;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool __fastcall Tlogin::validateUserPass(AnsiString user, AnsiString pass) {
|
||||||
|
bool auth = false;
|
||||||
|
|
||||||
|
if ( !gestionClientes->ZConnection1->Connected ) return false;
|
||||||
|
|
||||||
|
TZQuery *zq;
|
||||||
|
zq = new TZQuery(this);
|
||||||
|
zq->Connection = gestionClientes->ZConnection1;
|
||||||
|
|
||||||
|
|
||||||
|
zq->SQL->Clear();
|
||||||
|
zq->SQL->Add("SELECT id FROM usuarios WHERE usuario='"+user+"' AND password='"+pass+"'");
|
||||||
|
zq->Active = true;
|
||||||
|
if ( zq->RecordCount>0 ) {
|
||||||
|
auth = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( auth ) {
|
||||||
|
// Registrar acceso OK
|
||||||
|
} else {
|
||||||
|
// Registrar acceso !OK
|
||||||
|
}
|
||||||
|
|
||||||
|
return auth;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall Tlogin::BitBtn2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
TCursor Save_Cursor = Screen->Cursor;
|
||||||
|
Screen->Cursor = crHourGlass; // Show hourglass cursor
|
||||||
|
try {
|
||||||
|
auth = validateUserPass( user->Text, pass->Text );
|
||||||
|
} __finally {
|
||||||
|
Screen->Cursor = Save_Cursor; // always restore the cursor
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/login_dlg.ddp
Normal file
BIN
src/login_dlg.ddp
Normal file
Binary file not shown.
193
src/login_dlg.dfm
Normal file
193
src/login_dlg.dfm
Normal file
@ -0,0 +1,193 @@
|
|||||||
|
object login: Tlogin
|
||||||
|
Left = 346
|
||||||
|
Top = 452
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Login...'
|
||||||
|
ClientHeight = 188
|
||||||
|
ClientWidth = 368
|
||||||
|
Color = clBlack
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clCream
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 20
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 140
|
||||||
|
Height = 171
|
||||||
|
AutoSize = True
|
||||||
|
Picture.Data = {
|
||||||
|
0A544A504547496D616765360B0000FFD8FFE000104A46494600010101006000
|
||||||
|
600000FFDB004300100B0C0E0C0A100E0D0E1211101318281A18161618312325
|
||||||
|
1D283A333D3C3933383740485C4E404457453738506D51575F626768673E4D71
|
||||||
|
797064785C656763FFDB0043011112121815182F1A1A2F634238426363636363
|
||||||
|
6363636363636363636363636363636363636363636363636363636363636363
|
||||||
|
63636363636363636363636363FFC000110800AB008C03012200021101031101
|
||||||
|
FFC4001B00010002030101000000000000000000000004050203060107FFC400
|
||||||
|
3810000202010203060306040701000000000102000311042105123113224151
|
||||||
|
6171068191142332B1C1D13342A1F0152452536272E1A2FFC400190101000301
|
||||||
|
010000000000000000000000000102030405FFC4001F11010100020202030100
|
||||||
|
00000000000000000102110321123104415132FFDA000C03010002110311003F
|
||||||
|
00F9FC44D9452F7B854192606B8C1F29714E968A46E058DE39E93785ABFDA4C7
|
||||||
|
B4ADCA274A0C1F28C1F29D07253FED27D20D74FF00B49F48F386942A8CC70A09
|
||||||
|
32751C1F5570C84C0F59D0697455D54FDA6DA9517C36DCC36A19CEDB2F801276
|
||||||
|
85159C0F548B9001F632BEDA9EA6C3A9067566E5AF1CEC067A64CC751453ADAB
|
||||||
|
0D827C1846C727126DBC3350B714084F919B2BE17CCEA86E50E4E3946FBC9101
|
||||||
|
11AC6E55193270E1BCA076D6046233CBE32C74BA3A74E01049DC9761D420EA47
|
||||||
|
B9DA6A50755AB24E143B16623A28F1FA091B15BAAD13E9D55FF1237469167577
|
||||||
|
D696E86E0D9E66516227FA17A0FE93956186224C1E44440F40C9C0975A7A0514
|
||||||
|
2A8D9DC65BDBCA57F0DA85BAB50DF846E65A35773317C0DCCAE5749918F2E3A1
|
||||||
|
199B16BCF423EB3C146A361D9F5F59B129D42824D2481EB31B57D3D1564EDF9C
|
||||||
|
99C2B86BEBB882D5CA7913769A74696A5C0D9537CC4E9B40BFE1BF0EEAF5E7F8
|
||||||
|
966CA4FAED270EE97D28F8BEA56ED59AA9FE0D5DD5F5F332228C2938CE0749A4
|
||||||
|
1DF324D1CA56D66CE2BA99C63CF181F9CD6B2B7EDE7F87EAFB137332A2B6F927
|
||||||
|
73FF00920D01B9D9C12C876383D7D62ED6EAAFAFB27BDD90ED82662A8B532AD4
|
||||||
|
E49C6FFB48EC8DF5E2BED3524EC830A0F8B1E9F4EB3CE1F5611EECE1F3D9D5FF
|
||||||
|
0062376F90C9FA46B68353F6639B9970187FCBC7F69219151574F9014028CE3E
|
||||||
|
B637E43E50B691B53605A404C8ED7C3CAB1F87EA72665A3A94540D99FBDC96C7
|
||||||
|
5158EBF53B4D079B5BADC7E00E703C9547EC24E27EEC15CAF698E5F4AC7E11F3
|
||||||
|
3BFCA4A1A175B6D7A8B5AC4C2D87BC08E83C87B0951AED29ADBB44EF56DB8227
|
||||||
|
425681A7B15BCB3BF5CF84F6AD357F61297216E61CC7CC7944A9D391893788E8
|
||||||
|
4E96CCA9E6ADB706429642CF82AFDEBB792CBDE501401BE7ACA4E0A7F8ABE240
|
||||||
|
FCC4BE423233E739F9BDB5C3D36D6A4104E3CA6F15E141F01B4D28E07286DB0D
|
||||||
|
93372B0EC8F97319CF5A466C9F76B939E624CB1F89CFD9BE1CD1E99760E413F2
|
||||||
|
19FD657B05EEC9DF1B9FF2DA11E1BFE4274707DA9C9F4E44493A5601DD08CF69
|
||||||
|
5B20F7236FEA2470265CB91D48F51E136608EE948A50A3B35AC4961CA4041FA9
|
||||||
|
9BB466B4B56C6500D632A078B787F58C30D8A927CC78CC8291BF43E9E1098DF5
|
||||||
|
23359DA91CEEA46327F139E9FD77F948FABB02524564957FBB427A940773F369
|
||||||
|
B2A37330AD18966C853FE924609FA48B70FB5EB0269C1E4DABA81F2FEF788B5A
|
||||||
|
DDC3F4CD628000E6D43766A73D146EC7F4965AB006A855550D630407957F947F
|
||||||
|
28FD64BE11454BDB5E726AA93B3518EAA3259BE783F5947AEE25D8D96335AE4D
|
||||||
|
ADCEC8A70326109E34D450A6CD5D8A5C77869EBEF163E44F84AFD771335356AB
|
||||||
|
80CC72E3F49557F15B9F22BEE0F4904BB33E58E4E64E8B5D25F40BB4D621DD4A
|
||||||
|
F3ACE6986188F29D4E954B68C313B721FCA7316FF15BDE1099C1DC2EA4A93F88
|
||||||
|
103DE5EABE475C78CE5AA735D8AC3C0CBEED79916E5DD5FAFA1F1133E4C77DAF
|
||||||
|
8DD278B4737F7D66F4B8671B63F29522DC7B4D8B6EDD661715FC96A6DEE6E73C
|
||||||
|
A719F396FF00167DFF0006D06A17700E09F71FF93955BB62B99D15370E23F095
|
||||||
|
B4039B34E4301EC7F6335E29ADC572BB73604CC4C44CC4D5993C332990A2D650
|
||||||
|
CB53953B0217AC25A803DEC3F27748CFA79493C329A802F5D763EA33855C6140
|
||||||
|
F139F39E6A784EA1E945C8018E49073896DA0D3AE92A14D5B9FE666F1FD84CF3
|
||||||
|
E492749895AA3D8F05BEE728ACE37E41B2E4AA803E40CE078870FD5576359623
|
||||||
|
10770713B8D7BA5BC21B24F202A5B07C989FDA614DB46B34C2C41CC87BAC8DE1
|
||||||
|
173B8496C2FB7CE48C759BF4749D46A12B1E266DE2B48A75AEAA303326704A79
|
||||||
|
79B5047E1E9EA66CAAE9D174FA4755395446DFE83F4338FB0E6C63EB2EB8C6B8
|
||||||
|
D63B0ACF551CC7CE51C8812569358D43004064F1523322C49172852C19AEE5F6
|
||||||
|
6D8CCC57675054FB30946091D0CC858E3A3195F189DAF025B9C853F212C783EB
|
||||||
|
5F43AAEFA1ECEC186044E546A2D1D1CCCD35DA84208B0ED1E26DD3EAE814DE42
|
||||||
|
6F5B6EA7D26A91B47C62BBAB156A76F592B349194B908F53893A427F0DD3A387
|
||||||
|
B6C50C077541F396B5B2AAF2E30074C74FA4AAE17A9AF9CD06E420EEABEB2CB1
|
||||||
|
8F1236F94E3E6DF976B47A0AAB1E52541F21913D28194E5762082C9EA3CA62C0
|
||||||
|
72631B13D67ADDC000DBCB7992CABBBB6A6A1A6652D5DB9039467C8FE8248D0E
|
||||||
|
87EC3A76A5CF7D8E48F2F2935C9C8E61CC48F622189C72160DCBE0FF00BCD72E
|
||||||
|
5B94D234E378CE95AEE29841B1336AB269A9D8E2BAFF00FA33A2D669EBB118F6
|
||||||
|
6CAFD76F1F39C5F14BAC6BCD657915760B3A78F299456C44D45CD7DCCEC77266
|
||||||
|
B889A208888088880888809E8761FCC6791036D173D772B2939067D134B7769A
|
||||||
|
5A6D6C86B101DB7DFA6E27CE2B38B149F39F44D162FD2E9BB307BE800037E9B4
|
||||||
|
C39FF94C48E52775DCF9A1DFE919CB750C7A7919E354F5FE35618F113C160200
|
||||||
|
60187AF59C6B3D077F6D883B1F9420E56392727A89E8C153CAD9F47FDE787600
|
||||||
|
312A0FFAB712462848CF87963A4E63E2BD361D751DDEFF0094E9ED7AA9C768E1
|
||||||
|
01E8C7A19C97C4BAF4D45AB554C19136C8F19BF0CBE5B4550C444EB548888088
|
||||||
|
88088880888819D201B541E999F56E014228A026084AF9B3E18F0FA9C9F94F93
|
||||||
|
A6EC009F54F85E97D2F0AA5493CD68E63EDE139FE47F0B6337567C55929D0BBB
|
||||||
|
28663B2FA4E76B73664BA679464B0DB6965F106AB75AF242A8DFD4C87A4A01A6
|
||||||
|
9A5F67D55A398FFC44E49D45EC6CFB359A74466E960E65CF53395E3BC66DAAC7
|
||||||
|
D3E9DF0BE38963F1BF16C6A8D143639072EC7A4E2598BB658E4CEBE1E3D4F2AA
|
||||||
|
5BF4DB66AEFB061AC623DE69249EB113A1522220222202222022220222206480
|
||||||
|
971CBD67D47E196B1783D4FA807BA0F2FB784F9E703466E29472A07C38D88C83
|
||||||
|
BCFA8EADD69D2851804F80E989CDF22F531FD5F09DED49AD2FA9E20A83725B27
|
||||||
|
FBFACA8F8BF881AF50B550E40AC0518973A1608FA9D737441DDF5F01384E2BA8
|
||||||
|
3A8D63B139DE57831DE5BFC4E57A45B2D7B5B99D893EB30889D6CC8888088880
|
||||||
|
8888088880888808899D2336A83E703BDF82349459A2ED0D03B60FB587F2965C
|
||||||
|
775180C89FF518FA7EF257074AB4BC26BB2A4ECD790103D48954C3ED9C492B3F
|
||||||
|
857BCDE9FD89E7E796F3B97E3693A44E337FD8782D748D99C7337E938463CCC4
|
||||||
|
9F19D17C5BADEDB58C8A7BA0E00F2139C9D7C58F8E319E57748889AAA4444044
|
||||||
|
4404444044440444404BDF8534156BB8905B9199402769453ABF8135089AF6A5
|
||||||
|
B01AC1804FBCAE76CC6D899EDD8F13B174DA4AEA5D86327DA5469DFB0D16A358
|
||||||
|
E4067CAAFCFF00F26DE3579BF50403B31E51ED2AFE25D50D2E8134CBB1037F73
|
||||||
|
38B0C77646B6E9C8EBEE37EA9DCF9C8F04E4E6277B1222202222022220222202
|
||||||
|
22202222024AE1DAA3A3D65770FE539916207616718D30D5D7A8ED39AB5C1E5F
|
||||||
|
1F6941C67899E23AA6B31852738CCAECC4A6384C6EE26DB48889741111011110
|
||||||
|
111103FFD9}
|
||||||
|
end
|
||||||
|
object lb_login: TLabel
|
||||||
|
Left = 144
|
||||||
|
Top = 8
|
||||||
|
Width = 68
|
||||||
|
Height = 20
|
||||||
|
Caption = 'Usuario:'
|
||||||
|
end
|
||||||
|
object lb_pass: TLabel
|
||||||
|
Left = 144
|
||||||
|
Top = 72
|
||||||
|
Width = 99
|
||||||
|
Height = 20
|
||||||
|
Caption = 'Contrase'#241'a:'
|
||||||
|
end
|
||||||
|
object user: TEdit
|
||||||
|
Left = 144
|
||||||
|
Top = 32
|
||||||
|
Width = 217
|
||||||
|
Height = 28
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object pass: TEdit
|
||||||
|
Left = 144
|
||||||
|
Top = 104
|
||||||
|
Width = 217
|
||||||
|
Height = 28
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
PasswordChar = 'o'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 144
|
||||||
|
Top = 152
|
||||||
|
Width = 105
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Cancelar'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = BitBtn1Click
|
||||||
|
Kind = bkCancel
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 256
|
||||||
|
Top = 152
|
||||||
|
Width = 105
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Aceptar'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = BitBtn2Click
|
||||||
|
Kind = bkOK
|
||||||
|
end
|
||||||
|
end
|
||||||
38
src/login_dlg.h
Normal file
38
src/login_dlg.h
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef login_dlgH
|
||||||
|
#define login_dlgH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <jpeg.hpp>
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class Tlogin : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TImage *Image1;
|
||||||
|
TLabel *lb_login;
|
||||||
|
TLabel *lb_pass;
|
||||||
|
TEdit *user;
|
||||||
|
TEdit *pass;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TBitBtn *BitBtn2;
|
||||||
|
void __fastcall BitBtn1Click(TObject *Sender);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
void __fastcall BitBtn2Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
bool __fastcall validateUserPass(AnsiString user, AnsiString pass);
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall Tlogin(TComponent* Owner);
|
||||||
|
bool auth;
|
||||||
|
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE Tlogin *login;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
62
src/login_dlg.~cpp
Normal file
62
src/login_dlg.~cpp
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "login_dlg.h"
|
||||||
|
#include "clientes.h"
|
||||||
|
#include "tsplash.h"
|
||||||
|
#include "ZDataset.hpp"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
Tlogin *login;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall Tlogin::Tlogin(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
auth = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall Tlogin::BitBtn1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall Tlogin::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(Splash){
|
||||||
|
delete Splash;
|
||||||
|
Splash = NULL;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool __fastcall Tlogin::validateUserPass(AnsiString user, AnsiString pass) {
|
||||||
|
bool auth = false;
|
||||||
|
|
||||||
|
if ( !gestionClientes->ZConnection1->Connected ) return false;
|
||||||
|
|
||||||
|
TZQuery *zq;
|
||||||
|
zq = new TZQuery(this);
|
||||||
|
zq->Connection = gestionClientes->ZConnection1;
|
||||||
|
|
||||||
|
|
||||||
|
zq->SQL->Clear();
|
||||||
|
zq->SQL->Add("SELECT id FROM usuarios WHERE usuario='"+user+"' AND password='"+pass+"'");
|
||||||
|
zq->Active = true;
|
||||||
|
if ( zq->RecordCount>0 ) {
|
||||||
|
auth = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( auth ) {
|
||||||
|
// Registrar acceso OK
|
||||||
|
} else {
|
||||||
|
// Registrar acceso !OK
|
||||||
|
}
|
||||||
|
|
||||||
|
return auth;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/login_dlg.~ddp
Normal file
BIN
src/login_dlg.~ddp
Normal file
Binary file not shown.
192
src/login_dlg.~dfm
Normal file
192
src/login_dlg.~dfm
Normal file
@ -0,0 +1,192 @@
|
|||||||
|
object login: Tlogin
|
||||||
|
Left = 346
|
||||||
|
Top = 452
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Login...'
|
||||||
|
ClientHeight = 188
|
||||||
|
ClientWidth = 368
|
||||||
|
Color = clBlack
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clCream
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 20
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 140
|
||||||
|
Height = 171
|
||||||
|
AutoSize = True
|
||||||
|
Picture.Data = {
|
||||||
|
0A544A504547496D616765360B0000FFD8FFE000104A46494600010101006000
|
||||||
|
600000FFDB004300100B0C0E0C0A100E0D0E1211101318281A18161618312325
|
||||||
|
1D283A333D3C3933383740485C4E404457453738506D51575F626768673E4D71
|
||||||
|
797064785C656763FFDB0043011112121815182F1A1A2F634238426363636363
|
||||||
|
6363636363636363636363636363636363636363636363636363636363636363
|
||||||
|
63636363636363636363636363FFC000110800AB008C03012200021101031101
|
||||||
|
FFC4001B00010002030101000000000000000000000004050203060107FFC400
|
||||||
|
3810000202010203060306040701000000000102000311042105123113224151
|
||||||
|
6171068191142332B1C1D13342A1F0152452536272E1A2FFC400190101000301
|
||||||
|
010000000000000000000000000102030405FFC4001F11010100020202030100
|
||||||
|
00000000000000000102110321123104415132FFDA000C03010002110311003F
|
||||||
|
00F9FC44D9452F7B854192606B8C1F29714E968A46E058DE39E93785ABFDA4C7
|
||||||
|
B4ADCA274A0C1F28C1F29D07253FED27D20D74FF00B49F48F386942A8CC70A09
|
||||||
|
32751C1F5570C84C0F59D0697455D54FDA6DA9517C36DCC36A19CEDB2F801276
|
||||||
|
85159C0F548B9001F632BEDA9EA6C3A9067566E5AF1CEC067A64CC751453ADAB
|
||||||
|
0D827C1846C727126DBC3350B714084F919B2BE17CCEA86E50E4E3946FBC9101
|
||||||
|
11AC6E55193270E1BCA076D6046233CBE32C74BA3A74E01049DC9761D420EA47
|
||||||
|
B9DA6A50755AB24E143B16623A28F1FA091B15BAAD13E9D55FF1237469167577
|
||||||
|
D696E86E0D9E66516227FA17A0FE93956186224C1E44440F40C9C0975A7A0514
|
||||||
|
2A8D9DC65BDBCA57F0DA85BAB50DF846E65A35773317C0DCCAE5749918F2E3A1
|
||||||
|
199B16BCF423EB3C146A361D9F5F59B129D42824D2481EB31B57D3D1564EDF9C
|
||||||
|
99C2B86BEBB882D5CA7913769A74696A5C0D9537CC4E9B40BFE1BF0EEAF5E7F8
|
||||||
|
966CA4FAED270EE97D28F8BEA56ED59AA9FE0D5DD5F5F332228C2938CE0749A4
|
||||||
|
1DF324D1CA56D66CE2BA99C63CF181F9CD6B2B7EDE7F87EAFB137332A2B6F927
|
||||||
|
73FF00920D01B9D9C12C876383D7D62ED6EAAFAFB27BDD90ED82662A8B532AD4
|
||||||
|
E49C6FFB48EC8DF5E2BED3524EC830A0F8B1E9F4EB3CE1F5611EECE1F3D9D5FF
|
||||||
|
0062376F90C9FA46B68353F6639B9970187FCBC7F69219151574F9014028CE3E
|
||||||
|
B637E43E50B691B53605A404C8ED7C3CAB1F87EA72665A3A94540D99FBDC96C7
|
||||||
|
5158EBF53B4D079B5BADC7E00E703C9547EC24E27EEC15CAF698E5F4AC7E11F3
|
||||||
|
3BFCA4A1A175B6D7A8B5AC4C2D87BC08E83C87B0951AED29ADBB44EF56DB8227
|
||||||
|
425681A7B15BCB3BF5CF84F6AD357F61297216E61CC7CC7944A9D391893788E8
|
||||||
|
4E96CCA9E6ADB706429642CF82AFDEBB792CBDE501401BE7ACA4E0A7F8ABE240
|
||||||
|
FCC4BE423233E739F9BDB5C3D36D6A4104E3CA6F15E141F01B4D28E07286DB0D
|
||||||
|
93372B0EC8F97319CF5A466C9F76B939E624CB1F89CFD9BE1CD1E99760E413F2
|
||||||
|
19FD657B05EEC9DF1B9FF2DA11E1BFE4274707DA9C9F4E44493A5601DD08CF69
|
||||||
|
5B20F7236FEA2470265CB91D48F51E136608EE948A50A3B35AC4961CA4041FA9
|
||||||
|
9BB466B4B56C6500D632A078B787F58C30D8A927CC78CC8291BF43E9E1098DF5
|
||||||
|
23359DA91CEEA46327F139E9FD77F948FABB02524564957FBB427A940773F369
|
||||||
|
B2A37330AD18966C853FE924609FA48B70FB5EB0269C1E4DABA81F2FEF788B5A
|
||||||
|
DDC3F4CD628000E6D43766A73D146EC7F4965AB006A855550D630407957F947F
|
||||||
|
28FD64BE11454BDB5E726AA93B3518EAA3259BE783F5947AEE25D8D96335AE4D
|
||||||
|
ADCEC8A70326109E34D450A6CD5D8A5C77869EBEF163E44F84AFD771335356AB
|
||||||
|
80CC72E3F49557F15B9F22BEE0F4904BB33E58E4E64E8B5D25F40BB4D621DD4A
|
||||||
|
F3ACE6986188F29D4E954B68C313B721FCA7316FF15BDE1099C1DC2EA4A93F88
|
||||||
|
103DE5EABE475C78CE5AA735D8AC3C0CBEED79916E5DD5FAFA1F1133E4C77DAF
|
||||||
|
8DD278B4737F7D66F4B8671B63F29522DC7B4D8B6EDD661715FC96A6DEE6E73C
|
||||||
|
A719F396FF00167DFF0006D06A17700E09F71FF93955BB62B99D15370E23F095
|
||||||
|
B4039B34E4301EC7F6335E29ADC572BB73604CC4C44CC4D5993C332990A2D650
|
||||||
|
CB53953B0217AC25A803DEC3F27748CFA79493C329A802F5D763EA33855C6140
|
||||||
|
F139F39E6A784EA1E945C8018E49073896DA0D3AE92A14D5B9FE666F1FD84CF3
|
||||||
|
E492749895AA3D8F05BEE728ACE37E41B2E4AA803E40CE078870FD5576359623
|
||||||
|
10770713B8D7BA5BC21B24F202A5B07C989FDA614DB46B34C2C41CC87BAC8DE1
|
||||||
|
173B8496C2FB7CE48C759BF4749D46A12B1E266DE2B48A75AEAA303326704A79
|
||||||
|
79B5047E1E9EA66CAAE9D174FA4755395446DFE83F4338FB0E6C63EB2EB8C6B8
|
||||||
|
D63B0ACF551CC7CE51C8812569358D43004064F1523322C49172852C19AEE5F6
|
||||||
|
6D8CCC57675054FB30946091D0CC858E3A3195F189DAF025B9C853F212C783EB
|
||||||
|
5F43AAEFA1ECEC186044E546A2D1D1CCCD35DA84208B0ED1E26DD3EAE814DE42
|
||||||
|
6F5B6EA7D26A91B47C62BBAB156A76F592B349194B908F53893A427F0DD3A387
|
||||||
|
B6C50C077541F396B5B2AAF2E30074C74FA4AAE17A9AF9CD06E420EEABEB2CB1
|
||||||
|
8F1236F94E3E6DF976B47A0AAB1E52541F21913D28194E5762082C9EA3CA62C0
|
||||||
|
72631B13D67ADDC000DBCB7992CABBBB6A6A1A6652D5DB9039467C8FE8248D0E
|
||||||
|
87EC3A76A5CF7D8E48F2F2935C9C8E61CC48F622189C72160DCBE0FF00BCD72E
|
||||||
|
5B94D234E378CE95AEE29841B1336AB269A9D8E2BAFF00FA33A2D669EBB118F6
|
||||||
|
6CAFD76F1F39C5F14BAC6BCD657915760B3A78F299456C44D45CD7DCCEC77266
|
||||||
|
B889A208888088880888809E8761FCC6791036D173D772B2939067D134B7769A
|
||||||
|
5A6D6C86B101DB7DFA6E27CE2B38B149F39F44D162FD2E9BB307BE800037E9B4
|
||||||
|
C39FF94C48E52775DCF9A1DFE919CB750C7A7919E354F5FE35618F113C160200
|
||||||
|
60187AF59C6B3D077F6D883B1F9420E56392727A89E8C153CAD9F47FDE787600
|
||||||
|
312A0FFAB712462848CF87963A4E63E2BD361D751DDEFF0094E9ED7AA9C768E1
|
||||||
|
01E8C7A19C97C4BAF4D45AB554C19136C8F19BF0CBE5B4550C444EB548888088
|
||||||
|
88088880888819D201B541E999F56E014228A026084AF9B3E18F0FA9C9F94F93
|
||||||
|
A6EC009F54F85E97D2F0AA5493CD68E63EDE139FE47F0B6337567C55929D0BBB
|
||||||
|
28663B2FA4E76B73664BA679464B0DB6965F106AB75AF242A8DFD4C87A4A01A6
|
||||||
|
9A5F67D55A398FFC44E49D45EC6CFB359A74466E960E65CF53395E3BC66DAAC7
|
||||||
|
D3E9DF0BE38963F1BF16C6A8D143639072EC7A4E2598BB658E4CEBE1E3D4F2AA
|
||||||
|
5BF4DB66AEFB061AC623DE69249EB113A1522220222202222022220222206480
|
||||||
|
971CBD67D47E196B1783D4FA807BA0F2FB784F9E703466E29472A07C38D88C83
|
||||||
|
BCFA8EADD69D2851804F80E989CDF22F531FD5F09DED49AD2FA9E20A83725B27
|
||||||
|
FBFACA8F8BF881AF50B550E40AC0518973A1608FA9D737441DDF5F01384E2BA8
|
||||||
|
3A8D63B139DE57831DE5BFC4E57A45B2D7B5B99D893EB30889D6CC8888088880
|
||||||
|
8888088880888808899D2336A83E703BDF82349459A2ED0D03B60FB587F2965C
|
||||||
|
775180C89FF518FA7EF257074AB4BC26BB2A4ECD790103D48954C3ED9C492B3F
|
||||||
|
857BCDE9FD89E7E796F3B97E3693A44E337FD8782D748D99C7337E938463CCC4
|
||||||
|
9F19D17C5BADEDB58C8A7BA0E00F2139C9D7C58F8E319E57748889AAA4444044
|
||||||
|
4404444044440444404BDF8534156BB8905B9199402769453ABF8135089AF6A5
|
||||||
|
B01AC1804FBCAE76CC6D899EDD8F13B174DA4AEA5D86327DA5469DFB0D16A358
|
||||||
|
E4067CAAFCFF00F26DE3579BF50403B31E51ED2AFE25D50D2E8134CBB1037F73
|
||||||
|
38B0C77646B6E9C8EBEE37EA9DCF9C8F04E4E6277B1222202222022220222202
|
||||||
|
22202222024AE1DAA3A3D65770FE539916207616718D30D5D7A8ED39AB5C1E5F
|
||||||
|
1F6941C67899E23AA6B31852738CCAECC4A6384C6EE26DB48889741111011110
|
||||||
|
111103FFD9}
|
||||||
|
end
|
||||||
|
object lb_login: TLabel
|
||||||
|
Left = 144
|
||||||
|
Top = 8
|
||||||
|
Width = 68
|
||||||
|
Height = 20
|
||||||
|
Caption = 'Usuario:'
|
||||||
|
end
|
||||||
|
object lb_pass: TLabel
|
||||||
|
Left = 144
|
||||||
|
Top = 72
|
||||||
|
Width = 99
|
||||||
|
Height = 20
|
||||||
|
Caption = 'Contrase'#241'a:'
|
||||||
|
end
|
||||||
|
object user: TEdit
|
||||||
|
Left = 144
|
||||||
|
Top = 32
|
||||||
|
Width = 217
|
||||||
|
Height = 28
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object pass: TEdit
|
||||||
|
Left = 144
|
||||||
|
Top = 104
|
||||||
|
Width = 217
|
||||||
|
Height = 28
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
PasswordChar = 'o'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 144
|
||||||
|
Top = 152
|
||||||
|
Width = 105
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Cancelar'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = BitBtn1Click
|
||||||
|
Kind = bkCancel
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 256
|
||||||
|
Top = 152
|
||||||
|
Width = 105
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Aceptar'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
Kind = bkOK
|
||||||
|
end
|
||||||
|
end
|
||||||
37
src/login_dlg.~h
Normal file
37
src/login_dlg.~h
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef login_dlgH
|
||||||
|
#define login_dlgH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <jpeg.hpp>
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class Tlogin : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TImage *Image1;
|
||||||
|
TLabel *lb_login;
|
||||||
|
TLabel *lb_pass;
|
||||||
|
TEdit *user;
|
||||||
|
TEdit *pass;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TBitBtn *BitBtn2;
|
||||||
|
void __fastcall BitBtn1Click(TObject *Sender);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
bool __fastcall validateUserPass(AnsiString user, AnsiString pass);
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall Tlogin(TComponent* Owner);
|
||||||
|
bool auth;
|
||||||
|
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE Tlogin *login;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
88
src/tsplash.cpp
Normal file
88
src/tsplash.cpp
Normal file
@ -0,0 +1,88 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <windows.h>
|
||||||
|
#define min(a, b) (((a) < (b)) ? (a) : (b))
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "tsplash.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TSplash *Splash;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TSplash::TSplash(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
pressKeyToClose = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSplash::GetNextSpan(PByteArray row, int SpanLeft, int *SpanRight, TColor *SpanColor, int y)
|
||||||
|
{
|
||||||
|
int column;
|
||||||
|
TColor TempColor;
|
||||||
|
|
||||||
|
column = SpanLeft;
|
||||||
|
TempColor = MaskColor(SpanLeft,y);
|
||||||
|
while ( column <= ImageMap->Width && TempColor == MaskColor(column,y) ) column = column + 1;;
|
||||||
|
|
||||||
|
*SpanRight = column - 1;
|
||||||
|
*SpanColor = TempColor;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
TColor __fastcall TSplash::MaskColor(int x,int y)
|
||||||
|
{
|
||||||
|
if ( ImageMap->Canvas->Pixels[x][y] == 0x00FF00FF ) return clFuchsia; else return clBlack;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSplash::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
int y;
|
||||||
|
PByteArray row;
|
||||||
|
HRGN YRgn;
|
||||||
|
HRGN SpanRgn;
|
||||||
|
int SpanLeft;
|
||||||
|
int SpanRight;
|
||||||
|
TColor SpanColor;
|
||||||
|
|
||||||
|
Canvas->Brush->Style = bsClear;
|
||||||
|
ImageMap = Image1->Picture->Bitmap;
|
||||||
|
WindowRgn = CreateRectRgn(0, 0, 0, 0);
|
||||||
|
for (y=0;y<ImageMap->Height;y++) {
|
||||||
|
YRgn = CreateRectRgn(0, y, 0, y);
|
||||||
|
// row = (PByteArray)ImageMap->ScanLine[y];
|
||||||
|
|
||||||
|
SpanLeft = 0;
|
||||||
|
SpanRight = 0;
|
||||||
|
do {
|
||||||
|
GetNextSpan(row, SpanLeft, &SpanRight, &SpanColor,y);
|
||||||
|
if ( SpanColor != clFuchsia ) {
|
||||||
|
SpanRgn = CreateRectRgn(SpanLeft, y, SpanRight + 1, y + 1);
|
||||||
|
CombineRgn(YRgn, YRgn, SpanRgn, RGN_OR);
|
||||||
|
DeleteObject(SpanRgn);
|
||||||
|
}
|
||||||
|
SpanLeft = SpanRight + 1;
|
||||||
|
} while ( SpanRight < (ImageMap->Width-1));
|
||||||
|
CombineRgn(WindowRgn, WindowRgn, YRgn, RGN_OR);
|
||||||
|
DeleteObject(YRgn);
|
||||||
|
}
|
||||||
|
SetWindowRgn(Handle,WindowRgn,true);
|
||||||
|
DeleteObject(WindowRgn);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TSplash::FormPaint(TObject *Sender)
|
||||||
|
{
|
||||||
|
Canvas->Draw(0, 0, ImageMap);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TSplash::Image1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if (pressKeyToClose) Close();
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/tsplash.ddp
Normal file
BIN
src/tsplash.ddp
Normal file
Binary file not shown.
1505
src/tsplash.dfm
Normal file
1505
src/tsplash.dfm
Normal file
File diff suppressed because it is too large
Load Diff
33
src/tsplash.h
Normal file
33
src/tsplash.h
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef tsplashH
|
||||||
|
#define tsplashH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <jpeg.hpp>
|
||||||
|
#include <Graphics.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TSplash : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TImage *Image1;
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall FormPaint(TObject *Sender);
|
||||||
|
void __fastcall Image1Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
HRGN WindowRgn;
|
||||||
|
Graphics::TBitmap *ImageMap;
|
||||||
|
void __fastcall TSplash::GetNextSpan(PByteArray row, int SpanLeft, int *SpanRight, TColor *SpanColor,int y);
|
||||||
|
TColor __fastcall TSplash::MaskColor(int x,int y);
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TSplash(TComponent* Owner);
|
||||||
|
bool pressKeyToClose;
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TSplash *Splash;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
88
src/tsplash.~cpp
Normal file
88
src/tsplash.~cpp
Normal file
@ -0,0 +1,88 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <windows.h>
|
||||||
|
#define min(a, b) (((a) < (b)) ? (a) : (b))
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "tsplash.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TSplash *Splash;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TSplash::TSplash(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
pressKeyToClose = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSplash::GetNextSpan(PByteArray row, int SpanLeft, int *SpanRight, TColor *SpanColor, int y)
|
||||||
|
{
|
||||||
|
int column;
|
||||||
|
TColor TempColor;
|
||||||
|
|
||||||
|
column = SpanLeft;
|
||||||
|
TempColor = MaskColor(SpanLeft,y);
|
||||||
|
while ( column <= ImageMap->Width && TempColor == MaskColor(column,y) ) column = column + 1;;
|
||||||
|
|
||||||
|
*SpanRight = column - 1;
|
||||||
|
*SpanColor = TempColor;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
TColor __fastcall TSplash::MaskColor(int x,int y)
|
||||||
|
{
|
||||||
|
if ( ImageMap->Canvas->Pixels[x][y] == 0x00FF00FF ) return clFuchsia; else return clBlack;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSplash::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
int y;
|
||||||
|
PByteArray row;
|
||||||
|
HRGN YRgn;
|
||||||
|
HRGN SpanRgn;
|
||||||
|
int SpanLeft;
|
||||||
|
int SpanRight;
|
||||||
|
TColor SpanColor;
|
||||||
|
|
||||||
|
Canvas->Brush->Style = bsClear;
|
||||||
|
ImageMap = Image1->Picture->Bitmap;
|
||||||
|
WindowRgn = CreateRectRgn(0, 0, 0, 0);
|
||||||
|
for (y=0;y<ImageMap->Height;y++) {
|
||||||
|
YRgn = CreateRectRgn(0, y, 0, y);
|
||||||
|
// row = (PByteArray)ImageMap->ScanLine[y];
|
||||||
|
|
||||||
|
SpanLeft = 0;
|
||||||
|
SpanRight = 0;
|
||||||
|
do {
|
||||||
|
GetNextSpan(row, SpanLeft, &SpanRight, &SpanColor,y);
|
||||||
|
if ( SpanColor != clFuchsia ) {
|
||||||
|
SpanRgn = CreateRectRgn(SpanLeft, y, SpanRight + 1, y + 1);
|
||||||
|
CombineRgn(YRgn, YRgn, SpanRgn, RGN_OR);
|
||||||
|
DeleteObject(SpanRgn);
|
||||||
|
}
|
||||||
|
SpanLeft = SpanRight + 1;
|
||||||
|
} while ( SpanRight < (ImageMap->Width-1));
|
||||||
|
CombineRgn(WindowRgn, WindowRgn, YRgn, RGN_OR);
|
||||||
|
DeleteObject(YRgn);
|
||||||
|
}
|
||||||
|
SetWindowRgn(Handle,WindowRgn,true);
|
||||||
|
DeleteObject(WindowRgn);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TSplash::FormPaint(TObject *Sender)
|
||||||
|
{
|
||||||
|
Canvas->Draw(0, 0, ImageMap);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TSplash::Image1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
if (pressKeyToClose) Close();
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
src/tsplash.~ddp
Normal file
BIN
src/tsplash.~ddp
Normal file
Binary file not shown.
1555
src/tsplash.~dfm
Normal file
1555
src/tsplash.~dfm
Normal file
File diff suppressed because it is too large
Load Diff
38
src/tsplash.~h
Normal file
38
src/tsplash.~h
Normal file
@ -0,0 +1,38 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef tsplashH
|
||||||
|
#define tsplashH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <jpeg.hpp>
|
||||||
|
#include <Graphics.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TSplash : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TImage *Image1;
|
||||||
|
TLabel *Label1;
|
||||||
|
TEdit *Edit1;
|
||||||
|
TEdit *Edit2;
|
||||||
|
TLabel *Label2;
|
||||||
|
TButton *Button1;
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall FormPaint(TObject *Sender);
|
||||||
|
void __fastcall Image1Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
HRGN WindowRgn;
|
||||||
|
Graphics::TBitmap *ImageMap;
|
||||||
|
void __fastcall TSplash::GetNextSpan(PByteArray row, int SpanLeft, int *SpanRight, TColor *SpanColor,int y);
|
||||||
|
TColor __fastcall TSplash::MaskColor(int x,int y);
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TSplash(TComponent* Owner);
|
||||||
|
bool pressKeyToClose;
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TSplash *Splash;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
11
tipoServicios.csv
Normal file
11
tipoServicios.csv
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
id,nombre,
|
||||||
|
1,Hogar,
|
||||||
|
2,Acc.Individual,
|
||||||
|
3,Vida Riesgo,
|
||||||
|
4,Comercio,
|
||||||
|
5,Decesos,
|
||||||
|
6,Ret.Carnet,
|
||||||
|
7,Pyme,
|
||||||
|
8,Autos,
|
||||||
|
9,Jubilaci<EFBFBD>n,
|
||||||
|
10,Salud,
|
||||||
|
Reference in New Issue
Block a user