Se sube de versión se añade los informes estadísticos de facturas de cliente y proveedor
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@112 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
676c200588
commit
20952bff3c
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -13,6 +13,12 @@ DEFAULT CHARACTER SET ISO8859_1;
|
||||
/**** User Defined Functions ****/
|
||||
/******************************************************************************/
|
||||
|
||||
DECLARE EXTERNAL FUNCTION DIV
|
||||
INTEGER,
|
||||
INTEGER
|
||||
RETURNS DOUBLE PRECISION BY VALUE
|
||||
ENTRY_POINT 'IB_UDF_div' MODULE_NAME 'ib_udf';
|
||||
|
||||
DECLARE EXTERNAL FUNCTION F_RTFTOTEXT
|
||||
CString(32767)
|
||||
RETURNS CString(32767)
|
||||
@ -257,6 +263,13 @@ SET GENERATOR GEN_USUARIOS_ID TO 1;
|
||||
/**** Tables ****/
|
||||
/******************************************************************************/
|
||||
|
||||
CREATE TABLE PERIODOS_AUX (
|
||||
ID INTEGER,
|
||||
PERIODO VARCHAR(20) COLLATE ES_ES,
|
||||
VALOR SMALLINT,
|
||||
DESCRIPCION VARCHAR(20) COLLATE ES_ES
|
||||
);
|
||||
|
||||
CREATE TABLE IMPRESIONES (
|
||||
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
|
||||
ID_TABLA TIPO_ID /* TIPO_ID = INTEGER */,
|
||||
@ -4125,6 +4138,72 @@ AND (ARTICULOS.ID is not null)
|
||||
AND (ARTICULOS.COMISIONABLE = 1)
|
||||
;
|
||||
|
||||
CREATE VIEW V_INF_FAC_CLIENTE_TOTAL_ANO(
|
||||
ID_EMPRESA,
|
||||
ANO,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
select ID_EMPRESA, EXTRACT(YEAR FROM FECHA_FACTURA) as ANO, SUM(IMPORTE_TOTAL) as IMPORTE_TOTAL
|
||||
from FACTURAS_CLIENTE
|
||||
group by 1,2
|
||||
;
|
||||
|
||||
CREATE VIEW V_INF_FAC_PROVEEDOR_TOTAL_ANO(
|
||||
ID_EMPRESA,
|
||||
ANO,
|
||||
IMPORTE_TOTAL)
|
||||
AS
|
||||
select ID_EMPRESA, EXTRACT(YEAR FROM FECHA_FACTURA) as ANO, SUM(IMPORTE_TOTAL) as IMPORTE_TOTAL
|
||||
from FACTURAS_PROVEEDOR
|
||||
group by 1,2
|
||||
;
|
||||
|
||||
CREATE VIEW V_INF_FAC_CLIENTE(
|
||||
ID_EMPRESA,
|
||||
ANO,
|
||||
SEMESTRE,
|
||||
TRIMESTRE,
|
||||
MES,
|
||||
FECHA_FACTURA,
|
||||
ID_CLIENTE,
|
||||
NOMBRE,
|
||||
IMPORTE_DESCUENTO,
|
||||
IMPORTE_TOTAL,
|
||||
IMPORTE_TOTAL_ANO)
|
||||
AS
|
||||
select f.ID_EMPRESA, EXTRACT(YEAR FROM f.FECHA_FACTURA) as ANO,
|
||||
CAST((DIV(EXTRACT(MONTH FROM f.FECHA_FACTURA),8)+1) AS SMALLINT) as SEMESTRE,
|
||||
CAST((DIV(EXTRACT(MONTH FROM f.FECHA_FACTURA),4)+1) AS SMALLINT) as TRIMESTRE,
|
||||
EXTRACT(MONTH FROM f.FECHA_FACTURA) as MES,
|
||||
f.FECHA_FACTURA, f.ID_CLIENTE, f.NOMBRE, f.IMPORTE_DESCUENTO, f.IMPORTE_TOTAL, v.importe_total as IMPORTE_TOTAL_ANO
|
||||
from FACTURAS_CLIENTE f
|
||||
inner join V_INF_FAC_CLIENTE_TOTAL_ANO v on ((v.id_empresa = f.id_empresa) and (v.Ano = EXTRACT(YEAR FROM f.FECHA_FACTURA)))
|
||||
order by 1,2,3,4,5 asc
|
||||
;
|
||||
|
||||
CREATE VIEW V_INF_FAC_PROVEEDOR(
|
||||
ID_EMPRESA,
|
||||
ANO,
|
||||
SEMESTRE,
|
||||
TRIMESTRE,
|
||||
MES,
|
||||
FECHA_FACTURA,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE,
|
||||
IMPORTE_DESCUENTO,
|
||||
IMPORTE_TOTAL,
|
||||
IMPORTE_TOTAL_ANO)
|
||||
AS
|
||||
select f.ID_EMPRESA, EXTRACT(YEAR FROM f.FECHA_FACTURA) as ANO,
|
||||
CAST((DIV(EXTRACT(MONTH FROM f.FECHA_FACTURA),8)+1) AS SMALLINT) as SEMESTRE,
|
||||
CAST((DIV(EXTRACT(MONTH FROM f.FECHA_FACTURA),4)+1) AS SMALLINT) as TRIMESTRE,
|
||||
EXTRACT(MONTH FROM f.FECHA_FACTURA) as MES,
|
||||
f.FECHA_FACTURA, f.ID_PROVEEDOR, f.NOMBRE, f.IMPORTE_DESCUENTO, f.IMPORTE_TOTAL, v.importe_total as IMPORTE_TOTAL_ANO
|
||||
from FACTURAS_PROVEEDOR f
|
||||
inner join V_INF_FAC_PROVEEDOR_TOTAL_ANO v on ((v.id_empresa = f.id_empresa) and (v.Ano = EXTRACT(YEAR FROM f.FECHA_FACTURA)))
|
||||
order by 1,2,3,4,5 asc
|
||||
;
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Primary Keys ****/
|
||||
/******************************************************************************/
|
||||
|
||||
@ -2,6 +2,26 @@ SET SQL DIALECT 3;
|
||||
|
||||
SET NAMES UTF8;
|
||||
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (1, 'MENSUAL', 1, 'Ene');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (2, 'MENSUAL', 2, 'Feb');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (3, 'MENSUAL', 3, 'Mar');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (4, 'MENSUAL', 4, 'Abr');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (5, 'MENSUAL', 5, 'May');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (6, 'MENSUAL', 6, 'Jun');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (7, 'MENSUAL', 7, 'Jul');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (8, 'MENSUAL', 8, 'Ago');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (9, 'MENSUAL', 9, 'Sep');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (10, 'MENSUAL', 10, 'Oct');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (11, 'MENSUAL', 11, 'Nov');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (12, 'MENSUAL', 12, 'Dic');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (13, 'SEMESTRAL', 1, 'Primer semestre');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (14, 'SEMESTRAL', 2, 'Segundo semestre');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (15, 'TRIMESTRAL', 1, 'Primer trimestre');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (16, 'TRIMESTRAL', 2, 'Segundo trimestre');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (17, 'TRIMESTRAL', 3, 'Tercer trimestre');
|
||||
INSERT INTO PERIODOS_AUX (ID, PERIODO, VALOR, DESCRIPCION) VALUES (18, 'TRIMESTRAL', 4, 'Cuarto trimestre');
|
||||
COMMIT WORK;
|
||||
|
||||
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');
|
||||
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR');
|
||||
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'AGENTE');
|
||||
|
||||
@ -45,6 +45,8 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -58,63 +60,63 @@
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Informe ventas por articulo\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
|
||||
<Form>DataModuleRegistroCorreos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,1,0,0
|
||||
PRODUCTVERSION 4,1,0,0
|
||||
FILEVERSION 4,1,2,0
|
||||
PRODUCTVERSION 4,1,2,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "4.1.0.0\0"
|
||||
VALUE "FileVersion", "4.1.2.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "4.1.0.0\0"
|
||||
VALUE "ProductVersion", "4.1.2.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -52,7 +52,7 @@ begin
|
||||
LoadModule('Inventario_plugin.bpl');
|
||||
LoadModule('HistoricoMovimientos_plugin.bpl');
|
||||
|
||||
// LoadModule('GestorInformes_plugin.bpl');
|
||||
LoadModule('GestorInformes_plugin.bpl');
|
||||
LoadModule('Comisiones_plugin.bpl');
|
||||
LoadModule('BancaElectronica_plugin.bpl');
|
||||
LoadModule('TiendaWeb_plugin.bpl');
|
||||
|
||||
@ -171,7 +171,7 @@ type
|
||||
function GetTitle: string;
|
||||
procedure PonerTitulos(const ATitulo: String = ''); override;
|
||||
function GetController : IControllerBase;
|
||||
procedure SetController (const Value : IControllerBase);
|
||||
procedure SetController (const Value : IControllerBase); virtual;
|
||||
procedure SetListaID (const Value : TIntegerList);
|
||||
function GetListaID : TIntegerList;
|
||||
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
67
Source/Informes/1/InformeListadoFacturasClienteGrafComp.fr3
Normal file
67
Source/Informes/1/InformeListadoFacturasClienteGrafComp.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
68
Source/Informes/2/InformeListadoFacturasClienteGrafComp.fr3
Normal file
68
Source/Informes/2/InformeListadoFacturasClienteGrafComp.fr3
Normal file
@ -0,0 +1,68 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5016549421" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then TLineSeries(Chart1.Series[0]).Title := 'Total Facturado ' + IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO1">); if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then TLineSeries(Chart1.Series[1]).Title := 'Total Facturado ' + IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO2">) else Chart1.Series[1].Active := False; end; procedure Memo16OnBeforePrint(Sender: TfrxComponent); var Valor:Double; begin Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">) * 100; if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">) = 0) then Valor := 100 - Valor else Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)); memo16.lines.add(FormatFloat('#,##0.00 %',Valor)); end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3F00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724465736375656E746F526573756D656E2200010C4100000020446174615365744E616D653D226672784442496E666F726D654C69737461646F436C69656E7465734D61796F724661637475726163696F6E526573756D656E2200010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D70220000095661726961626C65730100055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="15" Left="0" Top="294" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
|
||||
<TfrxMemoView Name="Memo17" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="2" Top="0" Width="93,55" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."DESCRIPCION"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."DIFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo4" Left="605" Top="0" Width="111,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."PORCENTAJE"] %"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxMasterData Name="MasterData2" Height="301" Left="0" Top="364" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
|
||||
<TfrxChartView Name="Chart1" Left="4" Top="7" Width="709" Height="293" OnBeforePrint="Chart1OnBeforePrint" ShowHint="False" PropData="0543686172740A7E0200005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C6508104C6567656E642E416C69676E6D656E7407086C61426F74746F6D114C6567656E642E426576656C5769647468020A0D4672616D652E56697369626C6508165669657733444F7074696F6E732E526F746174696F6E02000A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C5768697465000A544261725365726965730753657269657331194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F310F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E6500000A544261725365726965730753657269657332194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F320F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E650000000E4368617274456C65766174696F6E0359010A5365726965734461746101010CB30100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B2220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B222058536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B2200010C2D0100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B220000"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageHeader Name="Band1" Height="158,10235" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band1OnBeforePrint">
|
||||
<TfrxShapeView Name="Shape5" Left="320,90569" Top="2,10235" Width="397" Height="134" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="330,98423" Top="8,10235" Width="379,01577" Height="22" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO ESTADÍSTICO DE FACTURAS DE CLIENTE"/>
|
||||
<TfrxMemoView Name="Memo7" Left="331" Top="33,10235" Width="378" Height="97" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>] - Página [Page#] de [TotalPages#]"/>
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxPictureView Name="Picture1" Left="3" Top="43" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
|
||||
<TfrxMemoView Name="Memo39" Left="4" Top="81" Width="160" Height="42" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaBottom" Text="KEIBLER"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxHeader Name="Header1" Height="40" Left="0" Top="234" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo5" Left="2" Top="25" Width="93,55115913" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Intervalo"/>
|
||||
<TfrxMemoView Name="Memo30" Left="113,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación"/>
|
||||
<TfrxMemoView Name="Memo9" Left="113" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Valores del año [<frxDBInformeListadoFacturasGrafComp."ANO1">]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="264,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación"/>
|
||||
<TfrxMemoView Name="Memo11" Left="264" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Valores del año [<frxDBInformeListadoFacturasGrafComp."ANO2">]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="420" Top="4" Width="297,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Comparativa del año [<frxDBInformeListadoFacturasGrafComp."ANO1">] respecto al año [<frxDBInformeListadoFacturasGrafComp."ANO2">]"/>
|
||||
<TfrxMemoView Name="Memo13" Left="452" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Diferencia"/>
|
||||
<TfrxMemoView Name="Memo14" Left="605" Top="25" Width="111,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Porcentaje"/>
|
||||
</TfrxHeader>
|
||||
<TfrxFooter Name="Footer1" Height="15" Left="0" Top="329" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo6" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)]"/>
|
||||
<TfrxMemoView Name="Memo8" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">) - SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">)]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="605" Top="0" Width="111,66" Height="15" OnBeforePrint="Memo16OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData3" Height="15" Left="0" Top="750" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoClientesMayorFacturacionResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo23" Left="2" Top="0" Width="378" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo24" Align="baLeft" Left="380" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen."NUMFAC"] "/>
|
||||
<TfrxMemoView Name="Memo25" Align="baLeft" Left="470" Top="0" Width="150" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo26" Align="baLeft" Left="620" Top="0" Width="98" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorFacturacionResumen."PORCENTAJE"] % "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxMasterData Name="MasterData4" Height="15" Left="0" Top="850" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoClientesMayorDescuentoResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo34" Left="2" Top="0" Width="378" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo35" Align="baLeft" Left="380" Top="0" Width="88" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen."IMPORTE_DESCUENTO"] "/>
|
||||
<TfrxMemoView Name="Memo36" Align="baLeft" Left="468" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo37" Align="baLeft" Left="558" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen."IMPORTE_COBRADO"]"/>
|
||||
<TfrxMemoView Name="Memo38" Align="baLeft" Left="648" Top="0" Width="70" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoClientesMayorDescuentoResumen."PORCENTAJE"] % "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxHeader Name="Header2" Height="45" Left="0" Top="685" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo18" Left="2" Top="30" Width="378" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
|
||||
<TfrxMemoView Name="Memo19" Align="baLeft" Left="380" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Nº facturas"/>
|
||||
<TfrxMemoView Name="Memo20" Left="3" Top="9" Width="259,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Clientes con mayor capital facturado"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="470" Top="30" Width="150" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo22" Align="baLeft" Left="620" Top="30" Width="98" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Porcentaje (%)"/>
|
||||
</TfrxHeader>
|
||||
<TfrxHeader Name="Header3" Height="45" Left="0" Top="785" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo27" Left="2" Top="30" Width="378" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="380" Top="30" Width="88" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe Dto."/>
|
||||
<TfrxMemoView Name="Memo29" Left="3" Top="9" Width="285,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Clientes con mayor descuento aplicado"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="468" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo32" Align="baLeft" Left="648" Top="30" Width="70" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Medio (%)"/>
|
||||
<TfrxMemoView Name="Memo33" Align="baLeft" Left="558" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe cobrado"/>
|
||||
</TfrxHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -0,0 +1,68 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40585,5022938079" ScriptLanguage="PascalScript" ScriptText.Text="procedure Chart1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then TLineSeries(Chart1.Series[0]).Title := 'Total Facturado ' + IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO1">); if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then TLineSeries(Chart1.Series[1]).Title := 'Total Facturado ' + IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO2">) else Chart1.Series[1].Active := False; end; procedure Memo16OnBeforePrint(Sender: TfrxComponent); var Valor:Double; begin Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">) * 100; if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">) = 0) then Valor := 100 - Valor else Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)); memo16.lines.add(FormatFloat('#,##0.00 %',Valor)); end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6000000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702200010C8000000020446174615365743D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724465736375656E746F526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724465736375656E746F526573756D656E2200010C8400000020446174615365743D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724661637475726163696F6E526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F50726F766565646F7265734D61796F724661637475726163696F6E526573756D656E220000095661726961626C65730100055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="15" Left="0" Top="294" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
|
||||
<TfrxMemoView Name="Memo17" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="2" Top="0" Width="93,55" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."DESCRIPCION"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."DIFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo4" Left="605" Top="0" Width="111,66" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeListadoFacturasGrafComp."PORCENTAJE"] %"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxMasterData Name="MasterData2" Height="301" Left="0" Top="364" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasGrafComp" DataSetName="frxDBInformeListadoFacturasGrafComp" RowCount="0">
|
||||
<TfrxChartView Name="Chart1" Left="4" Top="7" Width="709" Height="293" OnBeforePrint="Chart1OnBeforePrint" ShowHint="False" PropData="0543686172740A7E0200005450463006544368617274054368617274044C656674020003546F7002000557696474680390010648656967687403FA00144261636B57616C6C2E50656E2E56697369626C6508104C6567656E642E416C69676E6D656E7407086C61426F74746F6D114C6567656E642E426576656C5769647468020A0D4672616D652E56697369626C6508165669657733444F7074696F6E732E526F746174696F6E02000A426576656C4F75746572070662764E6F6E6505436F6C6F720707636C5768697465000A544261725365726965730753657269657331194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F310F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E6500000A544261725365726965730753657269657332194D61726B732E43616C6C6F75742E42727573682E436F6C6F720707636C426C61636B0D4D61726B732E56697369626C6508055469746C65060A546F74616C20416E6F320F426172576964746850657263656E74023C124772616469656E742E446972656374696F6E070B6764546F70426F74746F6D0C5856616C7565732E4E616D650601580D5856616C7565732E4F72646572070B6C6F417363656E64696E670C5956616C7565732E4E616D6506034261720D5956616C7565732E4F7264657207066C6F4E6F6E650000000E4368617274456C65766174696F6E0359010A5365726965734461746101010CB30100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365313D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B2220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B222058536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B4445534352495043494F4E262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C262333343B2200010C2D0100002044617461547970653D2264744442446174612220446174615365743D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702220536F72744F726465723D22736F4E6F6E652220546F704E3D2230222058547970653D227874546578742220536F75726365323D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B222059536F757263653D226672784442496E666F726D654C69737461646F466163747572617347726166436F6D702E262333343B496D706F7274655F746F74616C31262333343B220000"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageHeader Name="Band1" Height="158,10235" Left="0" Top="16" Width="718,101251175" OnBeforePrint="Band1OnBeforePrint">
|
||||
<TfrxShapeView Name="Shape5" Left="320,90569" Top="2,10235" Width="397" Height="134" ShowHint="False" Color="13095676" Shape="skRoundRectangle"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="330,98423" Top="8,10235" Width="379,01577" Height="22" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO ESTADÍSTICO DE FACTURAS DE PROVEEDOR"/>
|
||||
<TfrxMemoView Name="Memo7" Left="331" Top="33,10235" Width="378" Height="97" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>] - Página [Page#] de [TotalPages#]"/>
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="5470709" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxPictureView Name="Picture1" Left="3" Top="43" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
|
||||
<TfrxMemoView Name="Memo39" Left="2" Top="78" Width="161" Height="46" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Arial" Font.Style="1" ParentFont="False" VAlign="vaBottom" Text="KEIBLER"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxHeader Name="Header1" Height="40" Left="0" Top="234" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo5" Left="2" Top="25" Width="93,55115913" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Intervalo"/>
|
||||
<TfrxMemoView Name="Memo30" Left="113,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación"/>
|
||||
<TfrxMemoView Name="Memo9" Left="113" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Valores del año [<frxDBInformeListadoFacturasGrafComp."ANO1">]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="264,92919" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Facturación"/>
|
||||
<TfrxMemoView Name="Memo11" Left="264" Top="4" Width="131,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Valores del año [<frxDBInformeListadoFacturasGrafComp."ANO2">]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="420" Top="4" Width="297,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" HideZeros="True" ParentFont="False" Text="Comparativa del año [<frxDBInformeListadoFacturasGrafComp."ANO1">] respecto al año [<frxDBInformeListadoFacturasGrafComp."ANO2">]"/>
|
||||
<TfrxMemoView Name="Memo13" Left="452" Top="25" Width="131,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Diferencia"/>
|
||||
<TfrxMemoView Name="Memo14" Left="605" Top="25" Width="111,66138559" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haCenter" ParentFont="False" Text="Porcentaje"/>
|
||||
</TfrxHeader>
|
||||
<TfrxFooter Name="Footer1" Height="15" Left="0" Top="329" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo6" Left="113,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)]"/>
|
||||
<TfrxMemoView Name="Memo8" Left="264,93" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="452" Top="0" Width="131,66" Height="15" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">) - SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL1">)]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="605" Top="0" Width="111,66" Height="15" OnBeforePrint="Memo16OnBeforePrint" ShowHint="False" Color="13095676" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=""/>
|
||||
</TfrxFooter>
|
||||
<TfrxMasterData Name="MasterData3" Height="15" Left="0" Top="750" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoProveedoresMayorFacturacionResumen" DataSetName="frxDBInformeListadoProveedoresMayorFacturacionResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo23" Left="2" Top="0" Width="378" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo24" Align="baLeft" Left="380" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen."NUMFAC"] "/>
|
||||
<TfrxMemoView Name="Memo25" Align="baLeft" Left="470" Top="0" Width="150" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo26" Align="baLeft" Left="620" Top="0" Width="98" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorFacturacionResumen."PORCENTAJE"] % "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxMasterData Name="MasterData4" Height="15" Left="0" Top="850" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoProveedoresMayorDescuentoResumen" DataSetName="frxDBInformeListadoProveedoresMayorDescuentoResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo34" Left="2" Top="0" Width="378" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo35" Align="baLeft" Left="380" Top="0" Width="88" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen."IMPORTE_DESCUENTO"] "/>
|
||||
<TfrxMemoView Name="Memo36" Align="baLeft" Left="468" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen."IMPORTE_TOTAL"] "/>
|
||||
<TfrxMemoView Name="Memo37" Align="baLeft" Left="558" Top="0" Width="90" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen."IMPORTE_COBRADO"]"/>
|
||||
<TfrxMemoView Name="Memo38" Align="baLeft" Left="648" Top="0" Width="70" Height="15" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text=" [frxDBInformeListadoProveedoresMayorDescuentoResumen."PORCENTAJE"] % "/>
|
||||
</TfrxMasterData>
|
||||
<TfrxHeader Name="Header2" Height="45" Left="0" Top="685" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo18" Left="2" Top="30" Width="378" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
|
||||
<TfrxMemoView Name="Memo19" Align="baLeft" Left="380" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Nº facturas"/>
|
||||
<TfrxMemoView Name="Memo20" Left="3" Top="9" Width="259,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Proveedores con mayor capital facturado"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="470" Top="30" Width="150" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo22" Align="baLeft" Left="620" Top="30" Width="98" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Porcentaje (%)"/>
|
||||
</TfrxHeader>
|
||||
<TfrxHeader Name="Header3" Height="45" Left="0" Top="785" Width="718,101251175">
|
||||
<TfrxMemoView Name="Memo27" Left="2" Top="30" Width="378" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" ParentFont="False" Text="Nombre"/>
|
||||
<TfrxMemoView Name="Memo28" Align="baLeft" Left="380" Top="30" Width="88" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe Dto."/>
|
||||
<TfrxMemoView Name="Memo29" Left="3" Top="9" Width="285,03927" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="Proveedores con mayor descuento aplicado"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="468" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo32" Align="baLeft" Left="648" Top="30" Width="70" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Medio (%)"/>
|
||||
<TfrxMemoView Name="Memo33" Align="baLeft" Left="558" Top="30" Width="90" Height="15" ShowHint="False" Color="13095676" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="Importe cobrado"/>
|
||||
</TfrxHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -1,45 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39329,8475497222" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := 'FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="884,41002" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="4" Width="720" Height="0" Frame.Color="8421504" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="806,61414638" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||
<TfrxMemoView Name="Memo24" Left="3,77953" Top="555,59091" Width="708,34694" Height="47,84261" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."FORMACION_RECIBIDA"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="3,77953" Top="476,22078" Width="708,34694" Height="40,28355" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."EXPERIENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="392,37786" Top="3,33859" Width="317,70099" Height="38,89765" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FICHA DE EMPLEADO"/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="139,84261" Top="3,77953" Width="240,22047" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo12" Left="417,32313" Top="52,91342" Width="291,90569" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Página nº: [<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="139,84261" Top="35,77953" Width="240,22047" Height="53,35436" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo5" Left="245,44898" Top="147,40167" Width="34,23624" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="DNI:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="3,55906" Top="111,55906" Width="114,04731" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nombre y apellidos:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="121,3859" Top="111,55906" Width="585,26005" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="283,46475" Top="147,40167" Width="93,92115" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NIF_CIF"]"/>
|
||||
<TfrxLineView Name="Line1" Left="718,5" Top="103,93696638" Width="0" Height="876,53556" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo1" Left="3,77953" Top="180,9765" Width="61,13389" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Dirección:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="71,81107" Top="180,9765" Width="634,39394" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."CALLE"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="3,77953" Top="268,34663" Width="64,91342" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha alta:"/>
|
||||
<TfrxMemoView Name="Memo15" Left="72,47248" Top="268,34663" Width="211,08658" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera."FECHA_ALTA_EMPRESA"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="3,77953" Top="147,40167" Width="114,04731" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha nacimiento:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="121,60637" Top="147,40167" Width="109,03927" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera."FECHA_NACIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="3,77953" Top="328,81911" Width="708,34694" Height="30,23616677" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."FORMACION_BASE"]"/>
|
||||
<TfrxMemoView Name="Memo14" Left="3,77953" Top="207,87415" Width="61,13389" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Población:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="71,81107" Top="207,87415" Width="316,91342" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."POBLACION"]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="393,07112" Top="207,87415" Width="68,69295" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Cód. postal:"/>
|
||||
<TfrxMemoView Name="Memo27" Left="464,88219" Top="207,87415" Width="241,32282" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."CODIGO_POSTAL"]"/>
|
||||
<TfrxMemoView Name="Memo28" Left="3,77953" Top="234,33086" Width="61,13389" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Provincia:"/>
|
||||
<TfrxMemoView Name="Memo29" Left="71,81107" Top="234,33086" Width="634,39394" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."PROVINCIA"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="393,07112" Top="147,40167" Width="61,13389" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Categoría:"/>
|
||||
<TfrxMemoView Name="Memo31" Left="464,88219" Top="147,40167" Width="241,32282" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."CATEGORIA"]"/>
|
||||
<TfrxPictureView Name="Picture1" Left="3,77953" Top="0" Width="132,28355" Height="86,92919" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
|
||||
<TfrxMemoView Name="Memo21" Left="3,77953" Top="396,85065" Width="708,34694" Height="40,28355" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."FORMACION_COMPLE"]"/>
|
||||
<TfrxLineView Name="Line3" Left="0" Top="136,06308" Width="718,1107" Height="0" Frame.Typ="4"/>
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="297,07086126" Width="717,5436" Height="26,45906" Color="-16777194" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" FORMACIÓN BÁSICA"/>
|
||||
<TfrxMemoView Name="Memo10" Left="0" Top="365,85820669" Width="717,5436" Height="26,45906" Color="-16777194" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" FORMACIÓN COMPLEMENTARIA"/>
|
||||
<TfrxLineView Name="Line2" Left="0" Top="102,04731" Width="0" Height="876,53556" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="0" Top="102,04731" Width="718,1107" Height="0" Frame.Typ="4"/>
|
||||
<TfrxMemoView Name="Memo8" Left="0" Top="442,20501" Width="717,5436" Height="26,45906" Color="-16777194" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" EXPERIENCIA"/>
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="521,57514" Width="717,5436" Height="26,45906" Color="-16777194" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" FORMACIÓN RECIBIDA"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 3.0 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 7.7 KiB |
@ -2,11 +2,536 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DataModuleCreate
|
||||
OnDestroy = DataModuleDestroy
|
||||
Height = 513
|
||||
Width = 933
|
||||
Height = 678
|
||||
Width = 977
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
Datasets = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select P.ANO, C.REFERENCIA, COALESCE(C.NOMBRE, P.NOMBRE) as NOMB' +
|
||||
'RE,'#10'SUM(P.IMPORTE_DESCUENTO) as IMPORTE_DESCUENTO, SUM(P.IMPORTE' +
|
||||
'_TOTAL) as IMPORTE_TOTAL,'#10'(SUM(P.IMPORTE_TOTAL) - SUM(P.IMPORTE_' +
|
||||
'DESCUENTO)) as IMPORTE_COBRADO,'#10'case when SUM(P.IMPORTE_TOTAL) =' +
|
||||
' 0 then 0'#10'else ((SUM(P.IMPORTE_DESCUENTO) * 100) / SUM(P.IMPORTE' +
|
||||
'_TOTAL)) end as PORCENTAJE'#10#10'from V_INF_FAC_CLIENTE P'#10'left join C' +
|
||||
'ONTACTOS C on P.ID_CLIENTE = C.ID'#10#10'where p.ID_EMPRESA = :ID_EMPR' +
|
||||
'ESA'#10'and P.ANO = :ANO'#10'group by 1,2,3'#10'order by 1,5 desc'#10'rows 1 to ' +
|
||||
':NTOP'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_COBRADO'
|
||||
TableField = 'IMPORTE_COBRADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoClientesMayorDescuentoResumen'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COBRADO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, SEMESTRE as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10 +
|
||||
'from V_INF_FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'and' +
|
||||
' (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1 on' +
|
||||
' (VALOR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA, c' +
|
||||
'omp2.ANO, SEMESTRE as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPORTE' +
|
||||
'_TOTAL'#10'from V_INF_FAC_CLIENTE comp2'#10'where ID_EMPRESA = :ID_EMPRE' +
|
||||
'SA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) peri' +
|
||||
'odo2 on (VALOR = periodo2.NFILA)'#10#10'where periodo= '#39'SEMESTRAL'#39#10'ord' +
|
||||
'er by valor asc'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompSemestral'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, MES as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from ' +
|
||||
'V_INF_FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'and (ANO' +
|
||||
' = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1 on (VAL' +
|
||||
'OR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA, comp2.' +
|
||||
'ANO, MES as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'fro' +
|
||||
'm V_INF_FAC_CLIENTE comp2'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'and (A' +
|
||||
'NO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo2 on (V' +
|
||||
'ALOR = periodo2.NFILA)'#10#10'where periodo= '#39'MENSUAL'#39#10'order by valor ' +
|
||||
'asc'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompMensual'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select P.ANO, C.REFERENCIA, COALESCE(C.NOMBRE, P.NOMBRE) as NOMB' +
|
||||
'RE, p.Importe_TOTAL_ANO,'#10'COUNT(P.FECHA_FACTURA) as NUMFAC, SUM(P' +
|
||||
'.IMPORTE_TOTAL) as IMPORTE_TOTAL,'#10'((SUM(P.IMPORTE_TOTAL)*100)/p.' +
|
||||
'Importe_TOTAL_ANO) as PORCENTAJE'#10#10'from V_INF_FAC_CLIENTE P'#10'left ' +
|
||||
'join CONTACTOS C on P.ID_CLIENTE = C.ID'#10#10'where p.ID_EMPRESA = :I' +
|
||||
'D_EMPRESA'#10'and P.ANO = :ANO'#10'group by 1,2,3,4'#10'order by 1,6 desc'#10'ro' +
|
||||
'ws 1 to :NTOP'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL_ANO'
|
||||
TableField = 'IMPORTE_TOTAL_ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NUMFAC'
|
||||
TableField = 'NUMFAC'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoClientesMayorFacturacionResumen'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL_ANO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUMFAC'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, TRIMESTRE as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL' +
|
||||
#10'from V_INF_FAC_CLIENTE comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'an' +
|
||||
'd (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1 o' +
|
||||
'n (VALOR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA, ' +
|
||||
'comp2.ANO, TRIMESTRE as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPOR' +
|
||||
'TE_TOTAL'#10'from V_INF_FAC_CLIENTE comp2'#10'where ID_EMPRESA = :ID_EMP' +
|
||||
'RESA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) pe' +
|
||||
'riodo2 on (VALOR = periodo2.NFILA)'#10#10'where periodo= '#39'TRIMESTRAL'#39#10 +
|
||||
'order by valor asc'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompTrimestral'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
@ -2344,4 +2869,347 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
object frxDBInformeListadoFacturasGrafComp: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturasGrafComp'
|
||||
CloseDataSource = False
|
||||
DataSource = DASInformeListadoFacturasGrafComp
|
||||
BCDToCurrency = False
|
||||
Left = 824
|
||||
Top = 224
|
||||
end
|
||||
object DASInformeListadoFacturasGrafComp: TDADataSource
|
||||
Left = 824
|
||||
Top = 272
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompMensual: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompMensual'
|
||||
IndexDefs = <>
|
||||
Left = 824
|
||||
Top = 328
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompTrimestral: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompTrimestral'
|
||||
IndexDefs = <>
|
||||
Left = 824
|
||||
Top = 384
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompSemestral: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompSemestral'
|
||||
IndexDefs = <>
|
||||
Left = 824
|
||||
Top = 440
|
||||
end
|
||||
object frxDBInformeListadoClientesMayorFacturacionResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoClientesMayorFacturacionResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSInformeListadoClientesMayorFacturacionResumen
|
||||
BCDToCurrency = False
|
||||
Left = 320
|
||||
Top = 488
|
||||
end
|
||||
object DADSInformeListadoClientesMayorFacturacionResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoClientesMayorFacturacionResumen.Dataset
|
||||
DataTable = tbl_InformeListadoClientesMayorFacturacionResumen
|
||||
Left = 320
|
||||
Top = 544
|
||||
end
|
||||
object tbl_InformeListadoClientesMayorFacturacionResumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL_ANO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUMFAC'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoClientesMayorFacturacionResumen'
|
||||
IndexDefs = <>
|
||||
Left = 320
|
||||
Top = 600
|
||||
end
|
||||
object frxDBInformeListadoClientesMayorDescuentoResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoClientesMayorDescuentoResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSInformeListadoClientesMayorDescuentoResumen
|
||||
BCDToCurrency = False
|
||||
Left = 624
|
||||
Top = 488
|
||||
end
|
||||
object DADSInformeListadoClientesMayorDescuentoResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoClientesMayorDescuentoResumen.Dataset
|
||||
DataTable = tbl_InformeListadoClientesMayorDescuentoResumen
|
||||
Left = 624
|
||||
Top = 544
|
||||
end
|
||||
object tbl_InformeListadoClientesMayorDescuentoResumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COBRADO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoClientesMayorDescuentoResumen'
|
||||
IndexDefs = <>
|
||||
Left = 624
|
||||
Top = 600
|
||||
end
|
||||
end
|
||||
|
||||
@ -90,6 +90,17 @@ type
|
||||
tbl_InformeListadoFacturasResumen: TDAMemDataTable;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
frxDBInformeListadoFacturasGrafComp: TfrxDBDataset;
|
||||
DASInformeListadoFacturasGrafComp: TDADataSource;
|
||||
tbl_InformeListadoFacturasGrafCompMensual: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompTrimestral: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompSemestral: TDAMemDataTable;
|
||||
frxDBInformeListadoClientesMayorFacturacionResumen: TfrxDBDataset;
|
||||
DADSInformeListadoClientesMayorFacturacionResumen: TDADataSource;
|
||||
tbl_InformeListadoClientesMayorFacturacionResumen: TDAMemDataTable;
|
||||
frxDBInformeListadoClientesMayorDescuentoResumen: TfrxDBDataset;
|
||||
DADSInformeListadoClientesMayorDescuentoResumen: TDADataSource;
|
||||
tbl_InformeListadoClientesMayorDescuentoResumen: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
procedure frxReportGetValue(const VarName: string; var Value: Variant);
|
||||
@ -100,17 +111,23 @@ type
|
||||
FFechaFin: Variant;
|
||||
FFechaVenInicio: Variant;
|
||||
FFechaVenFin: Variant;
|
||||
FAno1: Variant;
|
||||
FAno2: Variant;
|
||||
FIntervalo: Variant;
|
||||
FListaIDClientes: TIntegerArray;
|
||||
FListaNombresClientes : TStringList;
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
FShowLogotipo: Boolean;
|
||||
FTopN: Integer;
|
||||
|
||||
//Genera cada una de las facturas a imprimir
|
||||
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
|
||||
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
procedure PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
function _GenerarInforme(const TipoInforme: String): Binary;
|
||||
procedure IniciarParametrosInforme;
|
||||
procedure RecuperarNombresClientes;
|
||||
@ -120,6 +137,7 @@ type
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -128,7 +146,7 @@ implementation
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uDataModuleServer, schFacturasClienteClient_Intf,
|
||||
uROServer, DataAbstract4_Intf;
|
||||
uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
|
||||
|
||||
const
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
@ -138,6 +156,7 @@ const
|
||||
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
|
||||
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
|
||||
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
|
||||
rptInformeListadoFacturasClienteGrafComp = 'InformeListadoFacturasClienteGrafComp.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen';
|
||||
@ -215,6 +234,59 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeFacturasGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
AStream := TMemoryStream.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
FIdEmpresa := IdEmpresa;
|
||||
FAno1 := Ano1;
|
||||
FAno2 := Ano2;
|
||||
FIntervalo := Intervalo;
|
||||
FTopN := TopN;
|
||||
|
||||
if Assigned(FListaIDClientes) then
|
||||
FListaIDClientes.Free;
|
||||
FListaIDClientes := ListaIDClientes;
|
||||
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
|
||||
|
||||
//Se preparan las tablas del listado resumen del informe
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorFacturacionResumen);
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorDescuentoResumen);
|
||||
|
||||
Result := Binary.Create;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInformeListadoFacturasClienteGrafComp, IntTostr(FIdEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: GenerarInformeFacturasGrafComp, no encuentra informe ' + rptInformeListadoFacturasClienteGrafComp));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
// IniciarParametrosInforme;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasCliente.GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
ATipoInforme: String;
|
||||
@ -525,6 +597,20 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.PrepararTablaInformeGrafComp(
|
||||
ATabla: TDAMemDataTable);
|
||||
begin
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable := ATabla;
|
||||
ATabla.ParamByName('ID_EMPRESA1').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO1').AsVariant := FAno1;
|
||||
ATabla.ParamByName('ANO2').AsVariant := FAno2;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
var
|
||||
i: Integer;
|
||||
@ -574,6 +660,18 @@ begin
|
||||
ATabla.Where.AddText(AWhereStr);
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.PrepararTablaResumenInformeGrafComp(
|
||||
ATabla: TDAMemDataTable);
|
||||
begin
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO').AsVariant := FAno1;
|
||||
ATabla.ParamByName('NTOP').AsInteger := FTopN;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasCliente.RecuperarNombresClientes;
|
||||
var
|
||||
AContactosService : IsrvContactos;
|
||||
|
||||
@ -31,12 +31,16 @@ type
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||
private
|
||||
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Boolean = True; const VerCopia: Boolean = True): Binary;
|
||||
function GenerarInformeEnWord(const ID: Integer; const VerSello: Boolean = True): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Boolean = True): Binary;
|
||||
|
||||
public
|
||||
function DarListaAnos: StringArray;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -77,6 +81,24 @@ begin
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.DarListaAnos: StringArray;
|
||||
var
|
||||
dsAnos : IDADataset;
|
||||
begin
|
||||
Result := StringArray.Create();
|
||||
try
|
||||
dsAnos := schFacturasCliente.NewDataset(Connection, 'ListaAnosFacturas', '', True);
|
||||
while not dsAnos.EOF do
|
||||
begin
|
||||
Result.Add(dsAnos.Fields[0].AsString);
|
||||
dsAnos.Next;
|
||||
end;
|
||||
finally
|
||||
dsAnos.Close;
|
||||
dsAnos := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasCliente.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
|
||||
@ -2,7 +2,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
OldCreateOrder = True
|
||||
OnCreate = DataModuleCreate
|
||||
OnDestroy = DataModuleDestroy
|
||||
Height = 513
|
||||
Height = 684
|
||||
Width = 933
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
@ -46,6 +46,531 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select P.ANO, C.REFERENCIA, COALESCE(C.NOMBRE, P.NOMBRE) as NOMB' +
|
||||
'RE, p.Importe_TOTAL_ANO,'#10'COUNT(P.FECHA_FACTURA) as NUMFAC, SUM(P' +
|
||||
'.IMPORTE_TOTAL) as IMPORTE_TOTAL,'#10'((SUM(P.IMPORTE_TOTAL)*100)/p.' +
|
||||
'Importe_TOTAL_ANO) as PORCENTAJE'#10#10'from V_INF_FAC_PROVEEDOR P'#10'lef' +
|
||||
't join CONTACTOS C on P.ID_PROVEEDOR = C.ID'#10#10'where p.ID_EMPRESA ' +
|
||||
'= :ID_EMPRESA'#10'and P.ANO = :ANO'#10'group by 1,2,3,4'#10'order by 1,6 des' +
|
||||
'c'#10'rows 1 to :NTOP'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL_ANO'
|
||||
TableField = 'IMPORTE_TOTAL_ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NUMFAC'
|
||||
TableField = 'NUMFAC'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoProveedoresMayorFacturacionResumen'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL_ANO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUMFAC'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select P.ANO, C.REFERENCIA, COALESCE(C.NOMBRE, P.NOMBRE) as NOMB' +
|
||||
'RE,'#10'SUM(P.IMPORTE_DESCUENTO) as IMPORTE_DESCUENTO, SUM(P.IMPORTE' +
|
||||
'_TOTAL) as IMPORTE_TOTAL,'#10'(SUM(P.IMPORTE_TOTAL) - SUM(P.IMPORTE_' +
|
||||
'DESCUENTO)) as IMPORTE_COBRADO,'#10'case when SUM(P.IMPORTE_TOTAL) =' +
|
||||
' 0 then 0'#10'else ((SUM(P.IMPORTE_DESCUENTO) * 100) / SUM(P.IMPORTE' +
|
||||
'_TOTAL)) end as PORCENTAJE'#10#10'from V_INF_FAC_PROVEEDOR P'#10'left join' +
|
||||
' CONTACTOS C on P.ID_PROVEEDOR = C.ID'#10#10'where p.ID_EMPRESA = :ID_' +
|
||||
'EMPRESA'#10'and P.ANO = :ANO'#10'group by 1,2,3'#10'order by 1,5 desc'#10'rows 1' +
|
||||
' to :NTOP'#10#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_COBRADO'
|
||||
TableField = 'IMPORTE_COBRADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoProveedoresMayorDescuentoResumen'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COBRADO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, TRIMESTRE as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL' +
|
||||
#10'from V_INF_FAC_PROVEEDOR comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10 +
|
||||
'and (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1' +
|
||||
' on (VALOR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA' +
|
||||
', comp2.ANO, TRIMESTRE as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMP' +
|
||||
'ORTE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID_EMPRESA = :ID' +
|
||||
'_EMPRESA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc' +
|
||||
') periodo2 on (VALOR = periodo2.NFILA)'#10#10'where periodo= '#39'TRIMESTR' +
|
||||
'AL'#39#10'order by valor asc'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompTrimestral'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, SEMESTRE as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10 +
|
||||
'from V_INF_FAC_PROVEEDOR comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'a' +
|
||||
'nd (ANO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1 ' +
|
||||
'on (VALOR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA,' +
|
||||
' comp2.ANO, SEMESTRE as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPOR' +
|
||||
'TE_TOTAL'#10'from V_INF_FAC_PROVEEDOR comp2'#10'where ID_EMPRESA = :ID_E' +
|
||||
'MPRESA2'#10'and (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) ' +
|
||||
'periodo2 on (VALOR = periodo2.NFILA)'#10#10'where periodo= '#39'SEMESTRAL'#39 +
|
||||
#10'order by valor asc'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompSemestral'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'select VALOR, DESCRIPCION, periodo1.ANO as Ano1, periodo1.IMPORT' +
|
||||
'E_TOTAL, periodo2.ANO as Ano2, periodo2.IMPORTE_TOTAL,'#10#10'(periodo' +
|
||||
'1.IMPORTE_TOTAL - periodo2.IMPORTE_TOTAL) as Diferencia,'#10'/*SOLO ' +
|
||||
'COMPARAREMOS CUANDO EL SEGUNDO A'#209'O SEA DIFERENTE DE 0, comparati' +
|
||||
'va de A'#241'o1 respecto A'#241'o2*/'#10'case'#10'when (periodo1.IMPORTE_TOTAL = 0' +
|
||||
') then (100 - (periodo2.IMPORTE_TOTAL*100))'#10'else (100 - ((period' +
|
||||
'o2.IMPORTE_TOTAL*100)/periodo1.IMPORTE_TOTAL))'#10'end as Porcentaje' +
|
||||
#10#10'FROM'#10'periodos_aux'#10'left join'#10'(select comp1.ID_EMPRESA, comp1.AN' +
|
||||
'O, MES as NFILA, SUM(comp1.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'from ' +
|
||||
'V_INF_FAC_PROVEEDOR comp1'#10'where ID_EMPRESA = :ID_EMPRESA1'#10'and (A' +
|
||||
'NO = :ANO1)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo1 on (V' +
|
||||
'ALOR = periodo1.NFILA)'#10#10'left join'#10'(select comp2.ID_EMPRESA, comp' +
|
||||
'2.ANO, MES as NFILA, SUM(comp2.IMPORTE_TOTAL) as IMPORTE_TOTAL'#10'f' +
|
||||
'rom V_INF_FAC_PROVEEDOR comp2'#10'where ID_EMPRESA = :ID_EMPRESA2'#10'an' +
|
||||
'd (ANO = :ANO2)'#10'group by 1,2,3'#10'order by 1 desc,2 asc) periodo2 o' +
|
||||
'n (VALOR = periodo2.NFILA)'#10#10'where periodo= '#39'MENSUAL'#39#10'order by va' +
|
||||
'lor asc'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO1'
|
||||
TableField = 'ANO1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ANO2'
|
||||
TableField = 'ANO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL1'
|
||||
TableField = 'IMPORTE_TOTAL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DIFERENCIA'
|
||||
TableField = 'DIFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PORCENTAJE'
|
||||
TableField = 'PORCENTAJE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoFacturasGrafCompMensual'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
@ -1226,32 +1751,32 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Top = 142
|
||||
end
|
||||
object frxCheckBoxObject1: TfrxCheckBoxObject
|
||||
Left = 296
|
||||
Top = 288
|
||||
Left = 240
|
||||
Top = 208
|
||||
end
|
||||
object frxChartObject1: TfrxChartObject
|
||||
Left = 296
|
||||
Top = 336
|
||||
Left = 240
|
||||
Top = 256
|
||||
end
|
||||
object frxGradientObject1: TfrxGradientObject
|
||||
Left = 360
|
||||
Top = 288
|
||||
Left = 304
|
||||
Top = 208
|
||||
end
|
||||
object frxCrossObject1: TfrxCrossObject
|
||||
Left = 360
|
||||
Top = 440
|
||||
Left = 304
|
||||
Top = 360
|
||||
end
|
||||
object frxOLEObject1: TfrxOLEObject
|
||||
Left = 296
|
||||
Top = 440
|
||||
Left = 240
|
||||
Top = 360
|
||||
end
|
||||
object frxBarCodeObject1: TfrxBarCodeObject
|
||||
Left = 360
|
||||
Top = 392
|
||||
Left = 304
|
||||
Top = 312
|
||||
end
|
||||
object frxRichObject1: TfrxRichObject
|
||||
Left = 296
|
||||
Top = 392
|
||||
Left = 240
|
||||
Top = 312
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.7.71'
|
||||
@ -1345,8 +1870,8 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
FitWindow = False
|
||||
CenterWindow = False
|
||||
PrintScaling = False
|
||||
Left = 424
|
||||
Top = 288
|
||||
Left = 368
|
||||
Top = 208
|
||||
end
|
||||
object tbl_InformeListadoFacturas: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
@ -1924,4 +2449,347 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Left = 424
|
||||
Top = 128
|
||||
end
|
||||
object frxDBInformeListadoFacturasGrafComp: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoFacturasGrafComp'
|
||||
CloseDataSource = False
|
||||
DataSource = DASInformeListadoFacturasGrafComp
|
||||
BCDToCurrency = False
|
||||
Left = 96
|
||||
Top = 376
|
||||
end
|
||||
object DASInformeListadoFacturasGrafComp: TDADataSource
|
||||
Left = 96
|
||||
Top = 424
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompMensual: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompMensual'
|
||||
IndexDefs = <>
|
||||
Left = 96
|
||||
Top = 480
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompTrimestral: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompTrimestral'
|
||||
IndexDefs = <>
|
||||
Left = 96
|
||||
Top = 536
|
||||
end
|
||||
object tbl_InformeListadoFacturasGrafCompSemestral: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL1'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DIFERENCIA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO1'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA2'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO2'
|
||||
Value = ''
|
||||
end>
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoFacturasGrafCompSemestral'
|
||||
IndexDefs = <>
|
||||
Left = 96
|
||||
Top = 592
|
||||
end
|
||||
object frxDBInformeListadoProveedoresMayorFacturacionResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoProveedoresMayorFacturacionResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSInformeListadoProveedoresMayorFacturacionResumen
|
||||
BCDToCurrency = False
|
||||
Left = 304
|
||||
Top = 504
|
||||
end
|
||||
object DADSInformeListadoProveedoresMayorFacturacionResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoProveedoresMayorFacturacionResumen.Dataset
|
||||
DataTable = tbl_InformeListadoProveedoresMayorFacturacionResumen
|
||||
Left = 304
|
||||
Top = 560
|
||||
end
|
||||
object tbl_InformeListadoProveedoresMayorFacturacionResumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL_ANO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUMFAC'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoProveedoresMayorFacturacionResumen'
|
||||
IndexDefs = <>
|
||||
Left = 304
|
||||
Top = 616
|
||||
end
|
||||
object frxDBInformeListadoProveedoresMayorDescuentoResumen: TfrxDBDataset
|
||||
UserName = 'frxDBInformeListadoProveedoresMayorDescuentoResumen'
|
||||
CloseDataSource = False
|
||||
DataSource = DADSInformeListadoProveedoresMayorDescuentoResumen
|
||||
BCDToCurrency = False
|
||||
Left = 608
|
||||
Top = 504
|
||||
end
|
||||
object DADSInformeListadoProveedoresMayorDescuentoResumen: TDADataSource
|
||||
DataSet = tbl_InformeListadoProveedoresMayorDescuentoResumen.Dataset
|
||||
DataTable = tbl_InformeListadoProveedoresMayorDescuentoResumen
|
||||
Left = 608
|
||||
Top = 560
|
||||
end
|
||||
object tbl_InformeListadoProveedoresMayorDescuentoResumen: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COBRADO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PORCENTAJE'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NTOP'
|
||||
Value = ''
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeListadoProveedoresMayorDescuentoResumen'
|
||||
IndexDefs = <>
|
||||
Left = 608
|
||||
Top = 616
|
||||
end
|
||||
end
|
||||
|
||||
@ -43,10 +43,21 @@ type
|
||||
DADSCabecera: TDADataSource;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
schReport: TDASchema;
|
||||
frxDBVencimientos: TfrxDBDataset;
|
||||
DADSVencimientos: TDADataSource;
|
||||
tbl_Vencimientos: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
frxDBInformeListadoFacturasGrafComp: TfrxDBDataset;
|
||||
DASInformeListadoFacturasGrafComp: TDADataSource;
|
||||
tbl_InformeListadoFacturasGrafCompMensual: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompTrimestral: TDAMemDataTable;
|
||||
tbl_InformeListadoFacturasGrafCompSemestral: TDAMemDataTable;
|
||||
frxDBInformeListadoProveedoresMayorFacturacionResumen: TfrxDBDataset;
|
||||
DADSInformeListadoProveedoresMayorFacturacionResumen: TDADataSource;
|
||||
tbl_InformeListadoProveedoresMayorFacturacionResumen: TDAMemDataTable;
|
||||
frxDBInformeListadoProveedoresMayorDescuentoResumen: TfrxDBDataset;
|
||||
DADSInformeListadoProveedoresMayorDescuentoResumen: TDADataSource;
|
||||
tbl_InformeListadoProveedoresMayorDescuentoResumen: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
@ -56,10 +67,14 @@ type
|
||||
FFechaFin: Variant;
|
||||
FFechaVenInicio: Variant;
|
||||
FFechaVenFin: Variant;
|
||||
FAno1: Variant;
|
||||
FAno2: Variant;
|
||||
FIntervalo: Variant;
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
FListaNombresProveedores: TStringList;
|
||||
FImporteMinimo: Currency;
|
||||
FDesglosado : Boolean;
|
||||
FTopN: Integer;
|
||||
|
||||
//Genera cada una de las facturas a imprimir
|
||||
procedure _GenerarFactura(const ID: Integer);
|
||||
@ -67,6 +82,8 @@ type
|
||||
procedure RecuperarNombresProveedores;
|
||||
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
procedure PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
procedure PrepararTablaResumenInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
procedure IniciarParametrosInforme;
|
||||
function _GenerarInforme(const TipoInforme: String): Binary;
|
||||
public
|
||||
@ -75,6 +92,7 @@ type
|
||||
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -83,7 +101,7 @@ implementation
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uDataModuleServer, schFacturasProveedorClient_Intf,
|
||||
uROServer, DataAbstract4_Intf;
|
||||
uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
|
||||
|
||||
const
|
||||
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
|
||||
@ -94,6 +112,7 @@ const
|
||||
rptInformeListadoFacturasProveedorDesglosado = 'InformeListadoFacturasProveedorDesglosado.fr3';
|
||||
rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3';
|
||||
rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3';
|
||||
rptInformeListadoFacturasProveedorGrafComp = 'InformeListadoFacturasProveedorGrafComp.fr3';
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen';
|
||||
@ -147,6 +166,59 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeFacturasGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
AStream := TMemoryStream.Create;
|
||||
try
|
||||
//Inicializamos parametros
|
||||
FIdEmpresa := IdEmpresa;
|
||||
FAno1 := Ano1;
|
||||
FAno2 := Ano2;
|
||||
FIntervalo := Intervalo;
|
||||
FTopN := TopN;
|
||||
|
||||
if Assigned(FListaIDProveedores) then
|
||||
FListaIDProveedores.Free;
|
||||
FListaIDProveedores := ListaIDProveedores;
|
||||
|
||||
//Preparamos la tabla correspondiente y la abrimos para el informe
|
||||
if (FIntervalo = CTE_MENSUAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
|
||||
else if (FIntervalo = CTE_TRIMESTRAL) then
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
|
||||
else
|
||||
PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
|
||||
|
||||
//Se preparan las tablas del listado resumen del informe
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumen);
|
||||
PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumen);
|
||||
|
||||
Result := Binary.Create;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInformeListadoFacturasProveedorGrafComp, IntTostr(FIdEmpresa));
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: GenerarInformeFacturasGrafComp, no encuentra informe ' + rptInformeListadoFacturasProveedorGrafComp));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
// IniciarParametrosInforme;
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
|
||||
finally
|
||||
AStream.Free;
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
|
||||
const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
|
||||
@ -493,6 +565,19 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
begin
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
DASInformeListadoFacturasGrafComp.DataTable := ATabla;
|
||||
ATabla.ParamByName('ID_EMPRESA1').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO1').AsVariant := FAno1;
|
||||
ATabla.ParamByName('ANO2').AsVariant := FAno2;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.PrepararTablaResumenInforme(ATabla: IDADataset);
|
||||
var
|
||||
i: Integer;
|
||||
@ -542,6 +627,17 @@ begin
|
||||
ATabla.Where.AddText(AWhereStr);
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.PrepararTablaResumenInformeGrafComp(ATabla: TDAMemDataTable);
|
||||
begin
|
||||
if ATabla.Active then
|
||||
ATabla.Active := False;
|
||||
|
||||
ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
|
||||
ATabla.ParamByName('ANO').AsVariant := FAno1;
|
||||
ATabla.ParamByName('NTOP').AsInteger := FTopN;
|
||||
ATabla.Active := True;
|
||||
end;
|
||||
|
||||
procedure TRptFacturasProveedor.RecuperarNombresProveedores;
|
||||
var
|
||||
AContactosService : IsrvContactos;
|
||||
|
||||
@ -38,6 +38,9 @@ type
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
|
||||
public
|
||||
function DarListaAnos: StringArray;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -76,6 +79,24 @@ begin
|
||||
bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR;
|
||||
end;
|
||||
|
||||
function TsrvFacturasProveedor.DarListaAnos: StringArray;
|
||||
var
|
||||
dsAnos : IDADataset;
|
||||
begin
|
||||
Result := StringArray.Create();
|
||||
try
|
||||
dsAnos := schFacturasProveedor.NewDataset(Connection, 'ListaAnosFacturas', '', True);
|
||||
while not dsAnos.EOF do
|
||||
begin
|
||||
Result.Add(dsAnos.Fields[0].AsString);
|
||||
dsAnos.Next;
|
||||
end;
|
||||
finally
|
||||
dsAnos.Close;
|
||||
dsAnos := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasProveedor.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
|
||||
@ -43,6 +43,8 @@ contains
|
||||
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
|
||||
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas',
|
||||
uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas',
|
||||
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas';
|
||||
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas',
|
||||
uIEditorInformeFacturasProveedorReportGrafComp in 'View\uIEditorInformeFacturasProveedorReportGrafComp.pas',
|
||||
uIEditorInformeFacturasClienteReportGrafComp in 'View\uIEditorInformeFacturasClienteReportGrafComp.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -45,8 +45,10 @@
|
||||
<DCCReference Include="View\uIEditorInformeBase.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClienteReportGrafComp.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorReportGrafComp.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformePedidosReport.pas" />
|
||||
|
||||
@ -0,0 +1,30 @@
|
||||
unit uIEditorInformeFacturasClienteReportGrafComp;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasClienteReportGrafComp = interface(IEditorInformeBase)
|
||||
['{12EA329F-37E3-4583-A54E-BE146C8E9D8A}']
|
||||
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetNTop: Variant;
|
||||
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
property Ano2: Variant read GetAno2;
|
||||
property NTop: Variant read GetNTop;
|
||||
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,30 @@
|
||||
unit uIEditorInformeFacturasProveedorReportGrafComp;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uIEditorInformeBase;
|
||||
|
||||
type
|
||||
IEditorInformeFacturasProveedorReportGrafComp = interface(IEditorInformeBase)
|
||||
['{1F80F45F-AAD6-460D-9E68-AD4492009926}']
|
||||
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetNTop: Variant;
|
||||
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
property Ano2: Variant read GetAno2;
|
||||
property NTop: Variant read GetNTop;
|
||||
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -14,6 +14,7 @@ type
|
||||
property DataModule: IDataModuleGestorInformes read GetDataModule;
|
||||
// procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
// procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
|
||||
function DarListaIntervalos: TStringList;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
procedure VerInformeListadoPresupuestos;
|
||||
@ -22,6 +23,8 @@ type
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
procedure VerInformeFacturasCliGrafComp;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
@ -34,6 +37,8 @@ type
|
||||
procedure VerInformeIVAProveedores;
|
||||
procedure VerInformeListadoFacturasProv;
|
||||
procedure VerInformeListadoFacturasProvPendientes;
|
||||
procedure VerInformeFacturasProvGrafComp;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE PROVEEDOR
|
||||
procedure VerInformeListadoRecibosProvPendientes;
|
||||
@ -64,6 +69,8 @@ type
|
||||
}
|
||||
property DataModule: IDataModuleGestorInformes read GetDataModule;
|
||||
|
||||
function DarListaIntervalos: TStringList;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
procedure VerInformeListadoPresupuestos;
|
||||
|
||||
@ -71,6 +78,8 @@ type
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
procedure VerInformeFacturasCliGrafComp;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
@ -83,6 +92,8 @@ type
|
||||
procedure VerInformeIVAProveedores;
|
||||
procedure VerInformeListadoFacturasProv;
|
||||
procedure VerInformeListadoFacturasProvPendientes;
|
||||
procedure VerInformeFacturasProvGrafComp;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE PROVEEDOR
|
||||
procedure VerInformeListadoRecibosProvPendientes;
|
||||
@ -104,7 +115,8 @@ uses
|
||||
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
|
||||
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
|
||||
uIEditorInformeRecibosProvPendientesReport,
|
||||
uIEditorInformePedidosReport;
|
||||
uIEditorInformePedidosReport, uIEditorInformeFacturasClienteReportGrafComp,
|
||||
uIEditorInformeFacturasProveedorReportGrafComp;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
@ -264,6 +276,21 @@ begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TGestorInformesController.DarListaAnosFacturasCli: TStringList;
|
||||
begin
|
||||
Result := FDataModule.DarListaAnosFacturasCli;
|
||||
end;
|
||||
|
||||
function TGestorInformesController.DarListaAnosFacturasProv: TStringList;
|
||||
begin
|
||||
Result := FDataModule.DarListaAnosFacturasProv;
|
||||
end;
|
||||
|
||||
function TGestorInformesController.DarListaIntervalos: TStringList;
|
||||
begin
|
||||
Result := FDataModule.DarListaIntervalos;
|
||||
end;
|
||||
|
||||
destructor TGestorInformesController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
@ -275,6 +302,54 @@ begin
|
||||
Result := FDataModule;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeFacturasCliGrafComp;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasClienteReportGrafComp;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeFacturasClienteReportGrafComp', IEditorInformeFacturasClienteReportGrafComp, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Informe comparativo de facturación de clientes';
|
||||
|
||||
AStream := FDataModule.GenerarInformeFacturasCliGrafComp(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDClientes, AEditor.NTop);
|
||||
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeFacturasProvGrafComp;
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorInformeFacturasProveedorReportGrafComp;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
CreateEditor('EditorInformeFacturasProveedorReportGrafComp', IEditorInformeFacturasProveedorReportGrafComp, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Title := 'Informe comparativo de facturación de proveedores';
|
||||
|
||||
AStream := FDataModule.GenerarInformeFacturasProvGrafComp(AppFactuGES.EmpresaActiva.ID,
|
||||
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDProveedores, AEditor.NTop);
|
||||
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
FreeAndNil(AStream);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TGestorInformesController.VerInformeIVAClientes;
|
||||
var
|
||||
AStream: Binary;
|
||||
|
||||
@ -10,12 +10,12 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
||||
Top = 16
|
||||
end
|
||||
object rda_GestorInformes: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 135
|
||||
end
|
||||
@ -47,8 +47,6 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
||||
end>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_GestorInformes
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DirectoryData'
|
||||
IndexDefs = <>
|
||||
Left = 184
|
||||
|
||||
@ -21,6 +21,7 @@ type
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
public
|
||||
// function GetItems : IBizFacturaCliente;
|
||||
function DarListaIntervalos: TStringList;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -29,6 +30,8 @@ type
|
||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -41,6 +44,8 @@ type
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -55,7 +60,7 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
Dialogs;
|
||||
Dialogs, DataAbstract4_Intf;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
|
||||
@ -65,6 +70,74 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.DarListaAnosFacturasCli: TStringList;
|
||||
var
|
||||
i: Integer;
|
||||
AResultado : StringArray;
|
||||
begin
|
||||
Result := Nil;
|
||||
try
|
||||
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasCli;
|
||||
Result := TStringList.Create;
|
||||
for i:= 0 to AResultado.Count - 1 do
|
||||
Result.Add(AResultado.Items[i]);
|
||||
finally
|
||||
FreeANDNIL(AResultado)
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.DarListaAnosFacturasProv: TStringList;
|
||||
var
|
||||
i: Integer;
|
||||
AResultado : StringArray;
|
||||
begin
|
||||
Result := Nil;
|
||||
try
|
||||
AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosFacturasProv;
|
||||
Result := TStringList.Create;
|
||||
for i:= 0 to AResultado.Count - 1 do
|
||||
Result.Add(AResultado.Items[i]);
|
||||
finally
|
||||
FreeANDNIL(AResultado)
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.DarListaIntervalos: TStringList;
|
||||
var
|
||||
i: Integer;
|
||||
AResultado : StringArray;
|
||||
begin
|
||||
Result := Nil;
|
||||
try
|
||||
AResultado := (RORemoteService as IsrvGestorInformes).DarListaIntervalos;
|
||||
Result := TStringList.Create;
|
||||
for i:= 0 to AResultado.Count - 1 do
|
||||
Result.Add(AResultado.Items[i]);
|
||||
finally
|
||||
FreeANDNIL(AResultado)
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeFacturasCliGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const NTop: Variant): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasCliGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdClientes, NTop);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeFacturasProvGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const NTop: Variant): Binary;
|
||||
begin
|
||||
try
|
||||
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasProvGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdProveedores, NTop);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
begin
|
||||
try
|
||||
|
||||
@ -3,12 +3,13 @@ unit uIDataModuleGestorInformes;
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes, FactuGES_Intf;
|
||||
uROTypes, Classes, FactuGES_Intf;
|
||||
|
||||
type
|
||||
IDataModuleGestorInformes = interface
|
||||
['{65FB8E9E-5218-43DC-80AD-BDB4383B7064}']
|
||||
// function GetItems: IBizFacturaCliente;
|
||||
function DarListaIntervalos: TStringList;
|
||||
procedure getInforme;
|
||||
|
||||
//MODULO PRESUPUESTOS DE CLIENTE
|
||||
@ -18,6 +19,8 @@ type
|
||||
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasCli: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -30,6 +33,8 @@ type
|
||||
function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
|
||||
function DarListaAnosFacturasProv: TStringList;
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
@ -46,63 +46,95 @@ object PluginGestorInformes: TPluginGestorInformes
|
||||
object actInformeFacturasCliente: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de facturas de cliente'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasClienteExecute
|
||||
end
|
||||
object actInformeFacturasClientePendientes: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de facturas de cliente pendientes'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasClientePendientesExecute
|
||||
end
|
||||
object actInformeFacturasClienteIVA: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Listado de IVA de facturas de cliente'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasClienteIVAExecute
|
||||
end
|
||||
object actInformeRecibosCliente: TAction
|
||||
Category = 'Recibos de cliente'
|
||||
Caption = 'Listado de recibos de cliente'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeRecibosClienteExecute
|
||||
end
|
||||
object actInformeRecibosCliPendientes: TAction
|
||||
Category = 'Recibos de cliente'
|
||||
Caption = 'Listado de recibos de cliente pendientes'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeRecibosCliPendientesExecute
|
||||
end
|
||||
object actInformeFacturasProveedor: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de facturas de proveedor'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasProveedorExecute
|
||||
end
|
||||
object actInformeFacturasProveedorPendientes: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de facturas de proveedor pendientes'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasProveedorPendientesExecute
|
||||
end
|
||||
object actInformeFacturasProveedorIVA: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Listado de IVA de facturas de proveedor'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeFacturasProveedorIVAExecute
|
||||
end
|
||||
object actInformeRecibosProveedor: TAction
|
||||
Category = 'Recibos de proveedor'
|
||||
Caption = 'Listado de recibos de proveedor'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeRecibosProveedorExecute
|
||||
end
|
||||
object actInformeRecibosProvPendientes: TAction
|
||||
Category = 'Recibos de proveedor'
|
||||
Caption = 'Listado de recibos de proveedor pendientes'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actInformeRecibosProvPendientesExecute
|
||||
end
|
||||
object actInformeFacturasClienteGrafComp: TAction
|
||||
Category = 'Facturas de cliente'
|
||||
Caption = 'Informe comparativo de facturaci'#243'n de clientes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasClienteGrafCompExecute
|
||||
end
|
||||
object actInformeFacturasProveedorGrafComp: TAction
|
||||
Category = 'Facturas de proveedor'
|
||||
Caption = 'Informe comparativo de facturaci'#243'n de proveedores'
|
||||
ImageIndex = 0
|
||||
OnExecute = actInformeFacturasProveedorGrafCompExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
@ -162,6 +194,16 @@ object PluginGestorInformes: TPluginGestorInformes
|
||||
Tag = 130
|
||||
Action = actInformeRecibosProvPendientes
|
||||
end
|
||||
object N5: TMenuItem
|
||||
Tag = 140
|
||||
Caption = '-'
|
||||
end
|
||||
object Informecomparativodefacturacindeclientes1: TMenuItem
|
||||
Action = actInformeFacturasClienteGrafComp
|
||||
end
|
||||
object Informecomparativodefacturacindeproveedores1: TMenuItem
|
||||
Action = actInformeFacturasProveedorGrafComp
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
|
||||
@ -41,6 +41,11 @@ type
|
||||
N4: TMenuItem;
|
||||
Listadoderecibosdeproveedor1: TMenuItem;
|
||||
Listadoderecibosdeproveedorpendientes1: TMenuItem;
|
||||
actInformeFacturasClienteGrafComp: TAction;
|
||||
actInformeFacturasProveedorGrafComp: TAction;
|
||||
N5: TMenuItem;
|
||||
Informecomparativodefacturacindeclientes1: TMenuItem;
|
||||
Informecomparativodefacturacindeproveedores1: TMenuItem;
|
||||
procedure actInformeFacturasClienteExecute(Sender: TObject);
|
||||
procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
|
||||
procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
|
||||
@ -51,6 +56,8 @@ type
|
||||
procedure actInformeFacturasProveedorIVAExecute(Sender: TObject);
|
||||
procedure actInformeRecibosProveedorExecute(Sender: TObject);
|
||||
procedure actInformeRecibosProvPendientesExecute(Sender: TObject);
|
||||
procedure actInformeFacturasClienteGrafCompExecute(Sender: TObject);
|
||||
procedure actInformeFacturasProveedorGrafCompExecute(Sender: TObject);
|
||||
private
|
||||
FController : IGestorInformesController;
|
||||
public
|
||||
@ -80,6 +87,12 @@ begin
|
||||
FController.VerInformeListadoFacturasCli;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasClienteGrafCompExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeFacturasCliGrafComp;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasClienteIVAExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
@ -98,6 +111,12 @@ begin
|
||||
FController.VerInformeListadoFacturasProv;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasProveedorGrafCompExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
FController.VerInformeFacturasProvGrafComp;
|
||||
end;
|
||||
|
||||
procedure TPluginGestorInformes.actInformeFacturasProveedorIVAExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
|
||||
@ -25,12 +25,19 @@ const
|
||||
ds_Customers = 'Customers';
|
||||
ds_Regions = 'Regions';
|
||||
|
||||
CTE_MENSUAL = 'Mensual';
|
||||
CTE_TRIMESTRAL = 'Trimestral';
|
||||
CTE_SEMESTRAL = 'Semestral';
|
||||
|
||||
type
|
||||
{ TGestorInformes }
|
||||
TsrvGestorInformes = class(TDataAbstractService, IsrvGestorInformes)
|
||||
Schema: TDASchema;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
public
|
||||
//MODULO DE INFORMES
|
||||
function DarListaIntervalos: StringArray;
|
||||
|
||||
//MODULO PRESUPUESTOS CLIENTE
|
||||
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
@ -39,6 +46,9 @@ type
|
||||
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
function DarListaAnosFacturasCli: StringArray;
|
||||
|
||||
//MODULO RECIBOS CLIENTE
|
||||
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -51,6 +61,9 @@ type
|
||||
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
|
||||
function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
function DarListaAnosFacturasProv: StringArray;
|
||||
|
||||
//MODULO RECIBOS PROVEEDOR
|
||||
function GenerarInformeListadoRecibosProveedor(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
function GenerarInformeListadoRecibosProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
@ -62,13 +75,76 @@ implementation
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs,
|
||||
uRptPresupuestosCliente_Server, uRptFacturasCliente_Server, uRptRecibosCliente_Server,
|
||||
uRptPedidosProveedor_Server, uRptFacturasProveedor_Server, uRptRecibosProveedor_Server;
|
||||
uRptPedidosProveedor_Server, uRptFacturasProveedor_Server, uRptRecibosProveedor_Server,
|
||||
srvFacturasProveedor_Impl, srvFacturasCliente_Impl;
|
||||
|
||||
procedure Create_srvGestorInformes(out anInstance: IUnknown);
|
||||
begin
|
||||
anInstance := TsrvGestorInformes.Create(nil);
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.DarListaAnosFacturasCli: StringArray;
|
||||
var
|
||||
AServer : TsrvFacturasCliente;
|
||||
begin
|
||||
Result := Nil;
|
||||
AServer := TsrvFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AServer.DarListaAnos;
|
||||
finally
|
||||
FreeAndNIL(AServer);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.DarListaAnosFacturasProv: StringArray;
|
||||
var
|
||||
AServer : TsrvFacturasProveedor;
|
||||
begin
|
||||
Result := Nil;
|
||||
AServer := TsrvFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AServer.DarListaAnos;
|
||||
finally
|
||||
FreeAndNIL(AServer);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.DarListaIntervalos: StringArray;
|
||||
begin
|
||||
Result := StringArray.Create();
|
||||
Result.Add(CTE_MENSUAL);
|
||||
Result.Add(CTE_TRIMESTRAL);
|
||||
Result.Add(CTE_SEMESTRAL);
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeFacturasCliGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDClientes, TopN);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeFacturasProvGrafComp(
|
||||
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
|
||||
const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDProveedores, TopN);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvGestorInformes.GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
|
||||
@ -64,7 +64,10 @@ requires
|
||||
dxLayoutControlD11,
|
||||
dxComnD11,
|
||||
cxEditorsD11,
|
||||
cxDataD11;
|
||||
cxDataD11,
|
||||
fqb110,
|
||||
bdertl,
|
||||
dxCoreD11;
|
||||
|
||||
contains
|
||||
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
||||
@ -85,6 +88,9 @@ contains
|
||||
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
|
||||
uEditorInformePedidosReport in 'uEditorInformePedidosReport.pas' {fEditorInformePedidosReport: TForm},
|
||||
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
|
||||
uEditorInformePresupuestosReport in 'uEditorInformePresupuestosReport.pas' {fEditorInformePresupuestosReport: TForm};
|
||||
uEditorInformePresupuestosReport in 'uEditorInformePresupuestosReport.pas' {fEditorInformePresupuestosReport: TForm},
|
||||
uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {frViewIntervaloComparativo: TFrame},
|
||||
uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm},
|
||||
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm};
|
||||
|
||||
end.
|
||||
|
||||
@ -40,6 +40,7 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
@ -51,9 +52,11 @@
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="fqb110.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
@ -84,6 +87,10 @@
|
||||
<Form>fEditorInformeFacturasClienteReport</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasClienteReportGrafComp.pas">
|
||||
<Form>fEditorInformeFacturasClienteReportGrafComp</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasProveedorPendientesReport.pas">
|
||||
<Form>fEditorInformeFacturasProveedorPendientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -92,6 +99,10 @@
|
||||
<Form>fEditorInformeFacturasProveedorReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasProveedorReportGrafComp.pas">
|
||||
<Form>fEditorInformeFacturasProveedorReportGrafComp</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
|
||||
<Form>fEditorInformeIVAClientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -105,7 +116,7 @@
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformePresupuestosReport.pas">
|
||||
<Form>fEditorInformePresupuestoReport</Form>
|
||||
<Form>fEditorInformePresupuestosReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeRecibosClienteReport.pas">
|
||||
@ -137,6 +148,10 @@
|
||||
<Form>frViewFiltroProveedores</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewIntervaloComparativo.pas">
|
||||
<Form>frViewIntervaloComparativo</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewParametrosInforme.pas">
|
||||
<Form>frViewParametrosInforme</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -0,0 +1,175 @@
|
||||
inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasClienteReportGrafComp
|
||||
Caption = 'fEditorInformeFacturasClienteReportGrafComp'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 182
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 188
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 106
|
||||
end
|
||||
inherited cbIntervalo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited lis: TLabel
|
||||
Width = 19
|
||||
end
|
||||
inherited cbAno1: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label1: TLabel
|
||||
Width = 88
|
||||
end
|
||||
inherited cbAno2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroClientes1: TfrViewFiltroClientes
|
||||
Left = 0
|
||||
Top = 182
|
||||
Width = 188
|
||||
Height = 195
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitTop = 182
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirCliente: TBitBtn
|
||||
Width = 119
|
||||
ExplicitWidth = 119
|
||||
end
|
||||
inherited edtCliente: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 152
|
||||
Width = 152
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,178 @@
|
||||
unit uEditorInformeFacturasClienteReportGrafComp;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uControllerBase,
|
||||
dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReportGrafComp,
|
||||
uViewIntervaloComparativo, uViewFiltroClientes;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasClienteReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasClienteReportGrafComp)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
|
||||
frViewFiltroClientes1: TfrViewFiltroClientes;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
FListaIDClientes: TIntegerArray;
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetListaIDClientes: TIntegerArray;
|
||||
function GetNTop: Variant;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
protected
|
||||
procedure SetController (const Value : IControllerBase); override;
|
||||
|
||||
public
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
property Ano2: Variant read GetAno2;
|
||||
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
|
||||
property NTop: Variant read GetNTop;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReportGrafComp.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasClienteReportGrafComp.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDClientes := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasClienteReportGrafComp.Destroy;
|
||||
begin
|
||||
FListaIDClientes.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReportGrafComp.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actTodaPagina.Execute;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReportGrafComp.GetIntervalo: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReportGrafComp.GetAno1: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbAno1.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReportGrafComp.GetAno2: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbAno2.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReportGrafComp.GetListaIDClientes: TIntegerArray;
|
||||
begin
|
||||
FListaIDClientes.Clear;
|
||||
if Assigned(frViewFiltroClientes1.Cliente) then
|
||||
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
|
||||
|
||||
Result := FListaIDClientes;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasClienteReportGrafComp.GetNTop: Variant;
|
||||
begin
|
||||
Result := 5;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReportGrafComp.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeFacturasCliGrafComp(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
Intervalo,
|
||||
Ano1,
|
||||
Ano2,
|
||||
ListaIDClientes,
|
||||
NTop);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasClienteReportGrafComp.SetController(
|
||||
const Value: IControllerBase);
|
||||
var
|
||||
AListaAnos: TStringList;
|
||||
AListaIntervalos: TStringList;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos;
|
||||
AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasCli;
|
||||
|
||||
if Assigned(AListaIntervalos) then
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
|
||||
for i := 0 to AListaIntervalos.Count - 1 do
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
if Assigned(AListaAnos) then
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
|
||||
for i := 0 to AListaAnos.Count - 1 do
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
|
||||
end;
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
|
||||
frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,176 @@
|
||||
inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturasProveedorReportGrafComp
|
||||
Caption = 'fEditorInformeFacturasProveedorReportGrafComp'
|
||||
ClientHeight = 655
|
||||
ClientWidth = 895
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 689
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited Image1: TImage
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 895
|
||||
ExplicitWidth = 895
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 591
|
||||
object TBXItem58: TTBXItem [0]
|
||||
Action = actRefrescar
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 636
|
||||
Width = 895
|
||||
ExplicitTop = 636
|
||||
ExplicitWidth = 895
|
||||
end
|
||||
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||
Height = 534
|
||||
ExplicitHeight = 534
|
||||
end
|
||||
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||
Left = 703
|
||||
Width = 192
|
||||
Height = 534
|
||||
ExplicitLeft = 703
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 534
|
||||
inherited pnlParametros: TTBXDockablePanel
|
||||
DockedWidth = 188
|
||||
ExplicitWidth = 192
|
||||
ExplicitHeight = 518
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
Top = 368
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 188
|
||||
inherited TBXButton1: TTBXButton
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 182
|
||||
Height = 37
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 182
|
||||
ExplicitHeight = 37
|
||||
end
|
||||
end
|
||||
inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 188
|
||||
Height = 182
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 195
|
||||
ExplicitWidth = 188
|
||||
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label3: TLabel
|
||||
Width = 106
|
||||
end
|
||||
inherited cbIntervalo: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited lis: TLabel
|
||||
Width = 19
|
||||
end
|
||||
inherited cbAno1: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 182
|
||||
ExplicitWidth = 182
|
||||
inherited Label1: TLabel
|
||||
Width = 88
|
||||
end
|
||||
inherited cbAno2: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||
Left = 0
|
||||
Top = 182
|
||||
Width = 188
|
||||
Height = 195
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitTop = 182
|
||||
ExplicitWidth = 188
|
||||
inherited TBXLabel2: TTBXLabel
|
||||
Width = 188
|
||||
ExplicitWidth = 188
|
||||
end
|
||||
inherited bElegirProveedor: TBitBtn
|
||||
Width = 119
|
||||
ExplicitWidth = 119
|
||||
end
|
||||
inherited edtProveedor: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 152
|
||||
Width = 152
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,179 @@
|
||||
unit uEditorInformeFacturasProveedorReportGrafComp;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||
JvExControls, JvNavigationPane, uCustomView,
|
||||
uViewBase, uViewPeriodoFechas, uControllerBase,
|
||||
dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReportGrafComp,
|
||||
uViewIntervaloComparativo, uViewFiltroProveedores;
|
||||
|
||||
type
|
||||
TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp)
|
||||
TBXItem58: TTBXItem;
|
||||
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
|
||||
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
FListaIDProveedores: TIntegerArray;
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
function GetListaIDProveedores: TIntegerArray;
|
||||
function GetNTop: Variant;
|
||||
|
||||
procedure RefrescarInforme;
|
||||
|
||||
protected
|
||||
procedure SetController (const Value : IControllerBase); override;
|
||||
|
||||
public
|
||||
property Intervalo: Variant read GetIntervalo;
|
||||
property Ano1: Variant read GetAno1;
|
||||
property Ano2: Variant read GetAno2;
|
||||
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||
property NTop: Variant read GetNTop;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
|
||||
|
||||
{ TfEditorGestorInformesReport }
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReportGrafComp.actRefrescarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarInforme;
|
||||
end;
|
||||
|
||||
constructor TfEditorInformeFacturasProveedorReportGrafComp.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FListaIDProveedores := TIntegerArray.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorInformeFacturasProveedorReportGrafComp.Destroy;
|
||||
begin
|
||||
FListaIDProveedores.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReportGrafComp.FormShow(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actTodaPagina.Execute;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetIntervalo: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno1: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbAno1.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno2: Variant;
|
||||
begin
|
||||
Result := frViewIntervaloComparativo1.cbAno2.EditValue;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDProveedores: TIntegerArray;
|
||||
begin
|
||||
FListaIDProveedores.Clear;
|
||||
if Assigned(frViewFiltroProveedores1.Proveedor) then
|
||||
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
|
||||
|
||||
Result := FListaIDProveedores;
|
||||
end;
|
||||
|
||||
function TfEditorInformeFacturasProveedorReportGrafComp.GetNTop: Variant;
|
||||
begin
|
||||
Result := 5;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReportGrafComp.RefrescarInforme;
|
||||
var
|
||||
AStream: Binary;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
|
||||
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeFacturasProvGrafComp(
|
||||
AppFactuGES.EmpresaActiva.ID,
|
||||
Intervalo,
|
||||
Ano1,
|
||||
Ano2,
|
||||
ListaIDProveedores,
|
||||
NTop);
|
||||
|
||||
LoadFromStream(AStream);
|
||||
Report.ShowPreparedReport;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorInformeFacturasProveedorReportGrafComp.SetController(
|
||||
const Value: IControllerBase);
|
||||
var
|
||||
AListaAnos: TStringList;
|
||||
AListaIntervalos: TStringList;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos;
|
||||
AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasProv;
|
||||
|
||||
if Assigned(AListaIntervalos) then
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
|
||||
for i := 0 to AListaIntervalos.Count - 1 do
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
|
||||
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
if Assigned(AListaAnos) then
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
|
||||
for i := 0 to AListaAnos.Count - 1 do
|
||||
begin
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
|
||||
end;
|
||||
frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
|
||||
frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
|
||||
frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -14,7 +14,9 @@ uses
|
||||
uEditorInformePresupuestosReport, uEditorInformePedidosReport,
|
||||
|
||||
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
|
||||
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport;
|
||||
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport,
|
||||
|
||||
uEditorInformeFacturasProveedorReportGrafComp, uEditorInformeFacturasClienteReportGrafComp;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
@ -31,6 +33,9 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosProveedorReport, 'EditorInformeRecibosProveedorReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosProvPendientesReport, 'EditorInformeRecibosProvPendientesReport');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReportGrafComp, 'EditorInformeFacturasProveedorReportGrafComp');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReportGrafComp, 'EditorInformeFacturasClienteReportGrafComp');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
@ -48,6 +53,9 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosProveedorReport);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeRecibosProvPendientesReport);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReportGrafComp);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReportGrafComp);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,178 @@
|
||||
inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
|
||||
Width = 451
|
||||
Height = 182
|
||||
Align = alTop
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 182
|
||||
object TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 32
|
||||
Width = 445
|
||||
Height = 42
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
445
|
||||
42)
|
||||
object Label3: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 435
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Caption = 'Intervalo comparativo'
|
||||
Transparent = True
|
||||
ExplicitWidth = 106
|
||||
end
|
||||
object cbIntervalo: TcxComboBox
|
||||
Left = 3
|
||||
Top = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 429
|
||||
end
|
||||
end
|
||||
object TBXLabel2: TTBXLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 29
|
||||
Margins.Top = 5
|
||||
Margins.Bottom = 10
|
||||
Align = alTop
|
||||
Caption = 'Periodo'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = True
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
end
|
||||
object TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 80
|
||||
Width = 445
|
||||
Height = 42
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 2
|
||||
DesignSize = (
|
||||
445
|
||||
42)
|
||||
object lis: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 435
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Caption = 'A'#241'o'
|
||||
Transparent = True
|
||||
ExplicitWidth = 19
|
||||
end
|
||||
object cbAno1: TcxComboBox
|
||||
Left = 3
|
||||
Top = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 429
|
||||
end
|
||||
end
|
||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 128
|
||||
Width = 445
|
||||
Height = 42
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 3
|
||||
DesignSize = (
|
||||
445
|
||||
42)
|
||||
object Label1: TLabel
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 435
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Caption = 'Comparar con a'#241'o'
|
||||
Transparent = True
|
||||
ExplicitWidth = 88
|
||||
end
|
||||
object cbAno2: TcxComboBox
|
||||
Left = 3
|
||||
Top = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 429
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,92 @@
|
||||
unit uViewIntervaloComparativo;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls,
|
||||
cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels,
|
||||
cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase,
|
||||
Mask, JvExMask, JvToolEdit, TB2Dock, uViewParametrosInforme;
|
||||
|
||||
type
|
||||
IViewPeriodoFechas = interface(IViewParametrosInforme)
|
||||
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
|
||||
end;
|
||||
|
||||
TfrViewIntervaloComparativo = class(TfrViewParametrosInforme, IViewPeriodoFechas)
|
||||
TBXLabel2: TTBXLabel;
|
||||
TBXAlignmentPanel2: TTBXAlignmentPanel;
|
||||
Label3: TLabel;
|
||||
TBXAlignmentPanel3: TTBXAlignmentPanel;
|
||||
lis: TLabel;
|
||||
cbIntervalo: TcxComboBox;
|
||||
cbAno1: TcxComboBox;
|
||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
||||
Label1: TLabel;
|
||||
cbAno2: TcxComboBox;
|
||||
|
||||
private
|
||||
function GetIntervalo: Variant;
|
||||
function GetAno1: Variant;
|
||||
function GetAno2: Variant;
|
||||
procedure SetIntervalo(const Value: Variant);
|
||||
procedure SetAno1(const Value: Variant);
|
||||
procedure SetAno2(const Value: Variant);
|
||||
|
||||
public
|
||||
property Intevalo : Variant read GetIntervalo write SetIntervalo;
|
||||
property Ano1 : Variant read GetAno1 write SetAno1;
|
||||
property Ano2 : Variant read GetAno2 write SetAno2;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses DateUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
|
||||
function TfrViewIntervaloComparativo.GetIntervalo: Variant;
|
||||
begin
|
||||
Result := cbIntervalo.EditValue;
|
||||
end;
|
||||
|
||||
function TfrViewIntervaloComparativo.GetAno1: Variant;
|
||||
begin
|
||||
Result := cbAno1.EditValue;
|
||||
end;
|
||||
|
||||
function TfrViewIntervaloComparativo.GetAno2: Variant;
|
||||
begin
|
||||
Result := cbAno2.EditValue;
|
||||
end;
|
||||
|
||||
procedure TfrViewIntervaloComparativo.SetIntervalo(const Value: Variant);
|
||||
begin
|
||||
cbIntervalo.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant);
|
||||
begin
|
||||
cbAno1.EditValue := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewIntervaloComparativo.SetAno2(const Value: Variant);
|
||||
begin
|
||||
cbAno2.EditValue := Value;
|
||||
end;
|
||||
|
||||
constructor TfrViewIntervaloComparativo.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
// cbPeriodo.ItemIndex := 0;
|
||||
// cbPeriodo2.ItemIndex := 0;
|
||||
// EsteMes(TFecha);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
@ -3,10 +3,10 @@ unit uIEditorInfMargenArticulo;
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorInformeBase, uBizInfMargenArticulo, uInfMargenArticuloController;
|
||||
uEditorInformeBaseInforme, uBizInfMargenArticulo, uInfMargenArticuloController;
|
||||
|
||||
type
|
||||
IEditorInfMargenArticulo = interface(IEditorInformeBase)
|
||||
IEditorInfMargenArticulo = interface(IEditorInformeBaseInforme)
|
||||
['{3DB261D6-07D9-4835-B7E1-592DA827AFDE}']
|
||||
function GetController : IInfMargenArticuloController;
|
||||
procedure SetController (const Value : IInfMargenArticuloController);
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
|
||||
/* c:\temp\dtf186.tmp */
|
||||
/* c:\temp\dtf300.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
|
||||
/* c:\temp\dtf184.tmp */
|
||||
/* c:\temp\dtf2FE.tmp */
|
||||
|
||||
@ -16,4 +16,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
|
||||
/* c:\temp\dtf18A.tmp */
|
||||
/* c:\temp\dtf304.tmp */
|
||||
|
||||
@ -281,7 +281,7 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
|
||||
Width = 659
|
||||
ExplicitWidth = 659
|
||||
end
|
||||
inherited frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||
inherited frViewPeriodoFechasInforme1: TfrViewPeriodoFechasInforme
|
||||
Width = 659
|
||||
ExplicitWidth = 659
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorInformeBase, DB, uDADataTable, JvAppStorage,
|
||||
Dialogs, uEditorInformeBaseInforme, DB, uDADataTable, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uBizInformes,
|
||||
@ -16,7 +16,7 @@ uses
|
||||
|
||||
|
||||
type
|
||||
TfEditorInfMargenArticulo = class(TfEditorInformeBase, IEditorInfMargenArticulo)
|
||||
TfEditorInfMargenArticulo = class(TfEditorInformeBaseInforme, IEditorInfMargenArticulo)
|
||||
TBXSeparatorItem16: TTBXSeparatorItem;
|
||||
tbxiExpandir: TTBXItem;
|
||||
tbxiContraer: TTBXItem;
|
||||
@ -303,8 +303,8 @@ begin
|
||||
LeftTitle.Add(FInforme.DESCRIPCION);
|
||||
|
||||
RightTitle.Clear;
|
||||
// RightTitle.Add(DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechas1.edtFechaIni.Date) +
|
||||
// ' - ' + DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechas1.edtFechaFin.Date));
|
||||
// RightTitle.Add(DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechasInforme1.edtFechaIni.Date) +
|
||||
// ' - ' + DateToStr(frViewInfMargenArticulo1.frViewPeriodoFechasInforme1.edtFechaFin.Date));
|
||||
// RightTitle.Add(frViewInfMargenArticulo1.frViewInfMargenArticuloGrid1.FocusedView.DataController.Filter.FilterText);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -97,7 +97,7 @@ inherited frViewInfMargenArticulo: TfrViewInfMargenArticulo
|
||||
ExplicitTop = 71
|
||||
ExplicitWidth = 780
|
||||
end
|
||||
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||
inline frViewPeriodoFechasInforme1: TfrViewPeriodoFechasInforme
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 780
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||
cxTextEdit, uViewFiltros, uBizInfMargenArticulo,
|
||||
uViewPeriodoFechas, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase,
|
||||
uViewPeriodoFechasInforme, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase,
|
||||
uDADataTable, uInfMargenArticuloController, uDAInterfaces, uIDataModuleInfMargenArticulo;
|
||||
|
||||
type
|
||||
@ -30,7 +30,7 @@ type
|
||||
TfrViewInfMargenArticulo = class(TfrViewInformeBase, IViewInfMargenArticulo)
|
||||
actPeriodoFechas: TAction;
|
||||
frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid;
|
||||
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||
frViewPeriodoFechasInforme1: TfrViewPeriodoFechasInforme;
|
||||
dsVentasTerminadas: TDADataSource;
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure actPeriodoFechasExecute(Sender: TObject);
|
||||
@ -190,7 +190,7 @@ begin
|
||||
ShowHourglassCursor;
|
||||
actRefrescar.Enabled := False;
|
||||
|
||||
AWhere := '''' + ReplaceStr(DateToStr(frViewPeriodoFechas1.FechaInicial),'/','.') + ''' and ''' + ReplaceStr(DateToStr(frViewPeriodoFechas1.FechaFinal),'/','.') + '''';
|
||||
AWhere := '''' + ReplaceStr(DateToStr(frViewPeriodoFechasInforme1.FechaInicial),'/','.') + ''' and ''' + ReplaceStr(DateToStr(frViewPeriodoFechasInforme1.FechaFinal),'/','.') + '''';
|
||||
// FiltrarEmpresa(Result);
|
||||
|
||||
frViewInfMargenArticuloGrid1.OnViewChanged := nil;
|
||||
@ -223,11 +223,11 @@ begin
|
||||
{
|
||||
LoadSchema;
|
||||
|
||||
ParamByName('FECHAINI').AsDateTime := frViewPeriodoFechas1.FechaInicial;
|
||||
ParamByName('FECHAFIN').AsDateTime := frViewPeriodoFechas1.FechaFinal;
|
||||
ParamByName('FECHAINI').AsDateTime := frViewPeriodoFechasInforme1.FechaInicial;
|
||||
ParamByName('FECHAFIN').AsDateTime := frViewPeriodoFechasInforme1.FechaFinal;
|
||||
|
||||
// ParamByName('FECHAINI2').AsDateTime := frViewPeriodoFechas1.FechaInicial; //'12.12.2000';
|
||||
// ParamByName('FECHAFIN2').AsDateTime := frViewPeriodoFechas1.FechaFinal;
|
||||
// ParamByName('FECHAINI2').AsDateTime := frViewPeriodoFechasInforme1.FechaInicial; //'12.12.2000';
|
||||
// ParamByName('FECHAFIN2').AsDateTime := frViewPeriodoFechasInforme1.FechaFinal;
|
||||
}
|
||||
Active := True;
|
||||
|
||||
|
||||
@ -3,10 +3,10 @@ unit uIEditorInfVentasArticulo;
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorInformeBase, uBizInfVentasArticulo, uInfVentasArticuloController;
|
||||
uEditorInformeBaseInforme, uBizInfVentasArticulo, uInfVentasArticuloController;
|
||||
|
||||
type
|
||||
IEditorInfVentasArticulo = interface(IEditorInformeBase)
|
||||
IEditorInfVentasArticulo = interface(IEditorInformeBaseInforme)
|
||||
['{707DEF28-4ADB-444B-A03D-C20E12A8F5E0}']
|
||||
function GetController : IInfVentasArticuloController;
|
||||
procedure SetController (const Value : IInfVentasArticuloController);
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
|
||||
/* c:\temp\dtf17C.tmp */
|
||||
/* c:\temp\dtf2F6.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
|
||||
/* c:\temp\dtf17A.tmp */
|
||||
/* c:\temp\dtf2F4.tmp */
|
||||
|
||||
@ -16,4 +16,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
|
||||
/* c:\temp\dtf180.tmp */
|
||||
/* c:\temp\dtf2FA.tmp */
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user