Se adapatan los informes de listado de facturas para que el listado de IVA y de facturas sea agrupado por fecha de factura y luego el informe de listado de facturas pendiententes agrupado por fecha de vencimiento
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@842 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
3db055a57f
commit
43a1e52664
@ -54,58 +54,58 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<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\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_D11.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">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -54,11 +54,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<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">1</VersionInfo><VersionInfo Name="MinorVer">6</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">1.6.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">1.6.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<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">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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">1.6.3.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">1.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,6,2,0
|
FILEVERSION 1,6,3,0
|
||||||
PRODUCTVERSION 1,6,2,0
|
PRODUCTVERSION 1,6,3,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,10 +13,10 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.6.2.0\0"
|
VALUE "FileVersion", "1.6.3.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "1.6.2.0\0"
|
VALUE "ProductVersion", "1.6.3.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -491,32 +491,30 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||||
SQL =
|
SQL =
|
||||||
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
|
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
|
||||||
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
|
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
|
||||||
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
|
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
|
||||||
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
|
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
|
||||||
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
|
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
|
||||||
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
|
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
|
||||||
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
|
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
|
||||||
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
|
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
|
||||||
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
|
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
|
||||||
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
|
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
|
||||||
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
|
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
|
||||||
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
|
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
|
||||||
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
|
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
|
||||||
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
|
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
|
||||||
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
|
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
|
||||||
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
|
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
|
||||||
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
|
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
|
||||||
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
|
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
|
||||||
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
|
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
|
||||||
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
|
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
|
||||||
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
|
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
|
||||||
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
|
'UACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONIBL' +
|
||||||
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_F' +
|
'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' +
|
||||||
'ACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_' +
|
'ere}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
|
||||||
'TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, ' +
|
|
||||||
'NOMBRE'#10#10
|
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -642,6 +640,165 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Name = 'IMPORTE_TOTAL'
|
Name = 'IMPORTE_TOTAL'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
end>
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||||
|
SQL =
|
||||||
|
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
|
||||||
|
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
|
||||||
|
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
|
||||||
|
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
|
||||||
|
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
|
||||||
|
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
|
||||||
|
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
|
||||||
|
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
|
||||||
|
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
|
||||||
|
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
|
||||||
|
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
|
||||||
|
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
|
||||||
|
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
|
||||||
|
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
|
||||||
|
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
|
||||||
|
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
|
||||||
|
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
|
||||||
|
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
|
||||||
|
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
|
||||||
|
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
|
||||||
|
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
|
||||||
|
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
|
||||||
|
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, fecha_f' +
|
||||||
|
'actura, fecha_vencimiento, BASE_IMPONIBLE, IMPORTE_IVA, IMPORTE_' +
|
||||||
|
'TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, ' +
|
||||||
|
'fecha_vencimiento, NOMBRE'#10#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ANO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'ANO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'MES'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'MES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'TITULO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'TITULO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = 'NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NIF_CIF'
|
||||||
|
TableField = 'NIF_CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_FACTURA'
|
||||||
|
TableField = 'FECHA_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_VENCIMIENTO'
|
||||||
|
TableField = 'FECHA_VENCIMIENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'BASE_IMPONIBLE'
|
||||||
|
TableField = 'BASE_IMPONIBLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_IVA'
|
||||||
|
TableField = 'IMPORTE_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'InformeListadoFacturasPendientes'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ANO'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'MES'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TITULO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'BASE_IMPONIBLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_IVA'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
@ -1441,67 +1598,17 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
PreviewOptions.Zoom = 1.000000000000000000
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
ReportOptions.CreateDate = 37800.807714351900000000
|
||||||
ReportOptions.LastChange = 39828.562168217590000000
|
ReportOptions.LastChange = 39829.645200729170000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
ScriptText.Strings = (
|
||||||
''
|
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
||||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'var'
|
|
||||||
' Cadena: String;'
|
|
||||||
'begin'
|
'begin'
|
||||||
'{ DatosEmpresa.Lines.Clear;'
|
' Set('#39'Pagina'#39', 0);'
|
||||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
' Set('#39'TotalPaginas'#39', 0); '
|
||||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
|
||||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
|
||||||
|
|
||||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
|
||||||
'">;'
|
|
||||||
' DatosEmpresa.Lines.Add(Cadena);'
|
|
||||||
'}'
|
|
||||||
'end;'
|
'end;'
|
||||||
''
|
''
|
||||||
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
'procedure Band1OnBeforePrint(Sender: TfrxComponent);'
|
||||||
'begin'
|
|
||||||
'{ NombreEmpresa.Lines.Clear;'
|
|
||||||
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
|
||||||
'}'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'var'
|
|
||||||
' ACadena : String;'
|
|
||||||
'begin'
|
|
||||||
'{ ACadena := '#39#39';'
|
|
||||||
' DireccionEnvio.Lines.Clear;'
|
|
||||||
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
|
||||||
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
|
||||||
|
|
||||||
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
|
||||||
'O">;'
|
|
||||||
''
|
|
||||||
' DireccionEnvio.Lines.Add(ACadena);'
|
|
||||||
' ACadena := '#39#39';'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
|
||||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
|
||||||
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
|
||||||
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
|
||||||
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
|
||||||
''
|
|
||||||
' if (ACadena <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(ACadena);'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
|
||||||
''
|
|
||||||
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
|
||||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
|
||||||
'}'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
'begin'
|
||||||
' if not Engine.FinalPass then'
|
' if not Engine.FinalPass then'
|
||||||
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
||||||
@ -1510,64 +1617,26 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
|
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
|
||||||
'end;'
|
'end;'
|
||||||
''
|
''
|
||||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
||||||
'begin'
|
'begin'
|
||||||
' Set('#39'Pagina'#39', 0);'
|
' if Engine.FinalPass then'
|
||||||
' Set('#39'TotalPaginas'#39', 0);'
|
' begin'
|
||||||
' Set('#39'Capitulo'#39', 0);'
|
|
||||||
' Set('#39'NumCapitulos'#39', 0); '
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
|
|
||||||
' Memo4.Visible := False; '
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
|
|
||||||
' begin '
|
|
||||||
' Memo22.Text := '#39'Base imponible:'#39';'
|
|
||||||
''
|
|
||||||
' Memo10.Text := '#39'Importe total:'#39';'
|
|
||||||
' Memo10.Font.Style := fsBold; '
|
|
||||||
''
|
|
||||||
|
|
||||||
' Memo9.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCabecera."IMP' +
|
' //A la vez que salta este salta la asignacion de pagina por ' +
|
||||||
'ORTE_TOTAL">);'
|
'lo que no coincide nunca si no suponemos +1 ' +
|
||||||
' Memo9.Font.Style := fsBold; '
|
' ' +
|
||||||
' '
|
' ' +
|
||||||
' Memo23.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
|
' ' +
|
||||||
' Memo25.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
|
' '
|
||||||
' Memo12.Visible := False;'
|
' if ((<Pagina> + 1) = <TotalPaginas>) then'
|
||||||
' Memo14.Visible := False;'
|
' begin '
|
||||||
' Memo16.Visible := False; '
|
' mContinua.Visible := True;'
|
||||||
''
|
' end '
|
||||||
' Memo13.Visible := False;'
|
' else'
|
||||||
' Memo15.Visible := False;'
|
' begin '
|
||||||
' Memo17.Visible := False;'
|
' mContinua.Visible := False;'
|
||||||
' Memo11.Color := $00CCFFCC;'
|
' end '
|
||||||
' end; '
|
' end; '
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' Memo39.Clear; '
|
|
||||||
' if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
|
|
||||||
|
|
||||||
' Memo39.Text := '#39'FACTURA'#39' ' +
|
|
||||||
' '
|
|
||||||
' else'
|
|
||||||
' Memo39.Text := '#39'ABONO'#39'; '
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' if (<VerSello> = 1) then'
|
|
||||||
' Picture4.Visible := True'
|
|
||||||
' else'
|
|
||||||
' Picture4.Visible := False; '
|
|
||||||
'end;'
|
'end;'
|
||||||
''
|
''
|
||||||
'begin'
|
'begin'
|
||||||
@ -1763,4 +1832,94 @@ object RptFacturasCliente: TRptFacturasCliente
|
|||||||
Left = 576
|
Left = 576
|
||||||
Top = 16
|
Top = 16
|
||||||
end
|
end
|
||||||
|
object frxDBInformeListadoFacturasPendientes: TfrxDBDataset
|
||||||
|
UserName = 'frxDBInformeListadoFacturasPendientes'
|
||||||
|
CloseDataSource = True
|
||||||
|
DataSource = DADSInformeListadoFacturasPendientes
|
||||||
|
Left = 792
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object DADSInformeListadoFacturasPendientes: TDADataSource
|
||||||
|
DataSet = tbl_InformeListadoFacturasPendientes.Dataset
|
||||||
|
DataTable = tbl_InformeListadoFacturasPendientes
|
||||||
|
Left = 792
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object tbl_InformeListadoFacturasPendientes: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ANO'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'MES'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TITULO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'BASE_IMPONIBLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_IVA'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
LogChanges = False
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteFetchEnabled = False
|
||||||
|
LocalSchema = schReport
|
||||||
|
LocalDataStreamer = DABINAdapter
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'InformeListadoFacturasPendientes'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 792
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -83,13 +83,16 @@ type
|
|||||||
tbl_InformeListadoFacturas: TDAMemDataTable;
|
tbl_InformeListadoFacturas: TDAMemDataTable;
|
||||||
DADSInformeListadoFacturas: TDADataSource;
|
DADSInformeListadoFacturas: TDADataSource;
|
||||||
frxDBInformeListadoFacturas: TfrxDBDataset;
|
frxDBInformeListadoFacturas: TfrxDBDataset;
|
||||||
|
frxDBInformeListadoFacturasPendientes: TfrxDBDataset;
|
||||||
|
DADSInformeListadoFacturasPendientes: TDADataSource;
|
||||||
|
tbl_InformeListadoFacturasPendientes: TDAMemDataTable;
|
||||||
schReport: TDASchema;
|
schReport: TDASchema;
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
private
|
private
|
||||||
FConnection: IDAConnection;
|
FConnection: IDAConnection;
|
||||||
//Genera cada una de las facturas a imprimir
|
//Genera cada una de las facturas a imprimir
|
||||||
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
|
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
|
||||||
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
function _GenerarInforme(ATabla: TDAMemDataTable; const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
public
|
public
|
||||||
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
|
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
|
||||||
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
|
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
|
||||||
@ -176,7 +179,7 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeIVA;
|
ATipoInforme := rptInformeIVA;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDClientes, ImporteMinimo);
|
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, Null, Null, ListaIDClientes, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
function TRptFacturasCliente.GenerarInformeListadoFacturas(const IdEmpresa: Integer;
|
||||||
@ -193,7 +196,7 @@ begin
|
|||||||
else
|
else
|
||||||
ATipoInforme := rptInformeListadoFacturasCliente;
|
ATipoInforme := rptInformeListadoFacturasCliente;
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
Result := _GenerarInforme(tbl_InformeListadoFacturas, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
function TRptFacturasCliente.GenerarInformeListadoFacturasPendientes(
|
||||||
@ -206,11 +209,11 @@ var
|
|||||||
ATipoInforme: String;
|
ATipoInforme: String;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if tbl_InformeListadoFacturas.Active then
|
if tbl_InformeListadoFacturasPendientes.Active then
|
||||||
tbl_InformeListadoFacturas.Active := False;
|
tbl_InformeListadoFacturasPendientes.Active := False;
|
||||||
|
|
||||||
// Filtrar el informe por situacion
|
// Filtrar el informe por situacion
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with tbl_InformeListadoFacturasPendientes.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (ID_EMPRESA >= ID)
|
// (ID_EMPRESA >= ID)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
|
||||||
@ -228,7 +231,7 @@ begin
|
|||||||
ATipoInforme := rptInformeListadoFactuasClientePendiente;
|
ATipoInforme := rptInformeListadoFactuasClientePendiente;
|
||||||
|
|
||||||
|
|
||||||
Result := _GenerarInforme(ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
Result := _GenerarInforme(tbl_InformeListadoFacturasPendientes, ATipoInforme, IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, ImporteMinimo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
|
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const VerSello: Boolean = True);
|
||||||
@ -265,7 +268,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TRptFacturasCliente._GenerarInforme(const TipoInforme: String;
|
function TRptFacturasCliente._GenerarInforme(ATabla: TDAMemDataTable; const TipoInforme: String;
|
||||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||||
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
const FechaVenInicio: Variant; const FechaVenFin: Variant;
|
||||||
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
|
||||||
@ -280,11 +283,11 @@ begin
|
|||||||
|
|
||||||
try
|
try
|
||||||
|
|
||||||
if tbl_InformeListadoFacturas.Active then
|
if ATabla.Active then
|
||||||
tbl_InformeListadoFacturas.Active := False;
|
ATabla.Active := False;
|
||||||
|
|
||||||
// Filtrar el informe por empresa
|
// Filtrar el informe por empresa
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (ID_EMPRESA >= ID)
|
// (ID_EMPRESA >= ID)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(IdEmpresa, datInteger), dboEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(IdEmpresa, datInteger), dboEqual);
|
||||||
@ -298,7 +301,7 @@ begin
|
|||||||
if not VarIsNull(FechaInicio)
|
if not VarIsNull(FechaInicio)
|
||||||
and not VarIsNull(FechaFin) then
|
and not VarIsNull(FechaFin) then
|
||||||
begin
|
begin
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (FECHA_INICIO between FECHA_FIN)
|
// (FECHA_INICIO between FECHA_FIN)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
|
||||||
@ -314,7 +317,7 @@ begin
|
|||||||
if not VarIsNull(FechaVenInicio)
|
if not VarIsNull(FechaVenInicio)
|
||||||
and not VarIsNull(FechaVenFin) then
|
and not VarIsNull(FechaVenFin) then
|
||||||
begin
|
begin
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
// (FECHA_VENCIMIENTO_INICIO between FECHA_VENCIMIENTO_FIN)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_VENCIMIENTO), NewConstant(FechaVenInicio, datDateTime), dboGreaterOrEqual);
|
||||||
@ -329,7 +332,7 @@ begin
|
|||||||
// Filtrar el informe por cliente
|
// Filtrar el informe por cliente
|
||||||
if Assigned(ListaIDClientes) then
|
if Assigned(ListaIDClientes) then
|
||||||
begin
|
begin
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
for i := 0 to ListaIDClientes.Count - 1 do
|
for i := 0 to ListaIDClientes.Count - 1 do
|
||||||
begin
|
begin
|
||||||
@ -347,7 +350,7 @@ begin
|
|||||||
// Filtrar el informe por importe minimo
|
// Filtrar el informe por importe minimo
|
||||||
if (ImporteMinimo > 0) then
|
if (ImporteMinimo > 0) then
|
||||||
begin
|
begin
|
||||||
with tbl_InformeListadoFacturas.DynamicWhere do
|
with ATabla.DynamicWhere do
|
||||||
begin
|
begin
|
||||||
// (IMPORTE_TOTAL > ImporteMinimo)
|
// (IMPORTE_TOTAL > ImporteMinimo)
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteIMPORTE_TOTAL), NewConstant(ImporteMinimo, datCurrency), dboGreaterOrEqual);
|
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteIMPORTE_TOTAL), NewConstant(ImporteMinimo, datCurrency), dboGreaterOrEqual);
|
||||||
@ -359,7 +362,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
tbl_InformeListadoFacturas.Active := True;
|
ATabla.Active := True;
|
||||||
|
showmessage(inttostr(ATabla.RecordCount));
|
||||||
|
|
||||||
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa));
|
AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa));
|
||||||
if VarIsNull(AInforme) then
|
if VarIsNull(AInforme) then
|
||||||
|
|||||||
Binary file not shown.
@ -35,7 +35,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType />
|
<Borland.ProjectType />
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.2.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.6.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 09 de enero de 2009 18:39</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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.6.3.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.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 15 de enero de 2009 14:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,6,2,0
|
FILEVERSION 1,6,3,0
|
||||||
PRODUCTVERSION 1,6,2,0
|
PRODUCTVERSION 1,6,3,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -12,9 +12,9 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.6.2.0\0"
|
VALUE "FileVersion", "1.6.3.0\0"
|
||||||
VALUE "ProductVersion", "1.6.2.0\0"
|
VALUE "ProductVersion", "1.6.3.0\0"
|
||||||
VALUE "CompileDate", "jueves, 15 de enero de 2009 14:12\0"
|
VALUE "CompileDate", "viernes, 16 de enero de 2009 15:08\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user