Version 5.0.0 Informe listado compras activo

Output/Debug/Servidor/Informes/1/firma.bat

@@ -0,0 +1,48 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\1\log.txt
+
+set ARCHIVO=%1
+set city=FUENLABRADA
+set province=MADRID
+set postalcode=28946
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\1\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true"
+
+
+REM echo %CONFIG% > %LOGFILE%
+REM echo %ARCHIVO% > %LOGFILE%
+echo %TEMP% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\abeto.pfx" -password %PASSABETO% -filter subject.contains:850331 -config %CONFIG%
+

Output/Debug/Servidor/Informes/10/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/15/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/2/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/20/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/3/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/30/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Output/Debug/Servidor/Informes/6/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Source/Base/Base.dproj

@@ -44,6 +44,13 @@
     <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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,55 +65,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dclIndyCore.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\IndyCore.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\IndyProtocols.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\IndySystem.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvCmpD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvDlgsD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvNetD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\pckMD5.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\pckUCDataConnector.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\pckUserControl_RT.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\PluginSDK_D11R.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\TB2k_D10.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\VclSmp.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
-    <DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servidor\adortl.dcp" />
+    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
+    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
+    <DCCReference Include="..\Servidor\designide.dcp" />
+    <DCCReference Include="..\Servidor\dsnap.dcp" />
+    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Servidor\IndyCore.dcp" />
+    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
+    <DCCReference Include="..\Servidor\IndySystem.dcp" />
+    <DCCReference Include="..\Servidor\Jcl.dcp" />
+    <DCCReference Include="..\Servidor\JclVcl.dcp" />
+    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
+    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Servidor\pckMD5.dcp" />
+    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
+    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
+    <DCCReference Include="..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\Servidor\vcldb.dcp" />
+    <DCCReference Include="..\Servidor\vcljpg.dcp" />
+    <DCCReference Include="..\Servidor\VclSmp.dcp" />
+    <DCCReference Include="..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dproj

@@ -52,7 +52,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">8</VersionInfo><VersionInfo Name="Release">9</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.8.9.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.8.9.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">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.0.0.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">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Informes/10/firma.bat

@@ -0,0 +1,45 @@
+@ECHO off
+title firmadocumento
+cls
+
+set LOGFILE=D:\RODAX\FACTUGES\Servidor\Informes\2\log.txt
+
+set ARCHIVO=%1
+set city=MADRID
+set province=MADRID
+set postalcode=28002
+set PositionOnPageLowerLeftX=420
+set PositionOnPageLowerLeftY=140
+set PositionOnPageUpperRightX=570
+set PositionOnPageUpperRigthY=210
+set signaturePage=-1
+set signatureRubricImage="D:\RODAX\FACTUGES\Servidor\Informes\2\sello.jpg"
+set layer2text="Firmado digitalmente por $$ORGANIZATION$$   Fecha: $$SIGNDATE=dd/MM/yyyy$$"
+SET l2FontColor=black
+SET l2FontSize=7
+SET l2FontFamily=1
+SET l2FontStyle=0
+
+REM Asegura que autofirma no muestra ninguna GUI
+set headless=true
+
+REM incluir únicamente el certificado del firmante
+set "includeOnlySignningCertificate=true"
+
+REM Siempre creará una revisión al firmar. Requiere que el documento cumpla PDF 1.7 (ISO 32000-1:2008)
+REM "alwaysCreateRevision=true"
+
+REM set "CONFIG=signatureProductionCity=MADRID\nsignatureProductionProvince=MADRID\nsignatureProductionPostalCode=28053\nsignatureProductionCountry=ESPAÑA\nsignaturePage3=%signaturePage3%\nPositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nPositionPageLowerLeftY=%PositionPageLowerLeftY%\nPositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nPositionOnPageUpperRigthY=%PositionOnPageUpperRigthY%\nsignatureRubricImage=%signatureRubricImage%\nlayer2text=%layer2text=%"
+REM \nsignaturePage=%signaturePage%
+
+
+set "CONFIG=headless=%headless%\nlayer2Text=%layer2text%\nsignatureProductionCity=%city%\nsignatureProductionProvince=%province%\nsignatureProductionPostalCode=%postalcode%\nsignatureProductionCountry=ESPAÑA\nsignaturePositionOnPageLowerLeftX=%PositionOnPageLowerLeftX%\nsignaturePositionOnPageLowerLeftY=%PositionOnPageLowerLeftY%\nsignaturePositionOnPageUpperRightX=%PositionOnPageUpperRightX%\nsignaturePositionOnPageUpperRightY=%PositionOnPageUpperRigthY%\nsignaturePage=-1\nsignatureRubricImage=%signatureRubricImage%\nincludeOnlySignningCertificate=true\nownerPassword=uecko24"
+
+REM echo %CONFIG% > %LOGFILE%
+
+call :FIRMA >> %LOGFILE%
+exit /b
+
+:FIRMA
+"C:\Program Files (x86)\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %ARCHIVO% -o %ARCHIVO% -store pkcs12:"D:\DATOS2\FINANZAS\CERTIFICADOS\graden.pfx" -password %PASSGRADEN% -filter subject.contains:806465 -config %CONFIG%
+

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm

@@ -66,13 +66,13 @@ object RptContratosCliente: TRptContratosCliente
               ') ARTICULO,'#10'avg(coalesce(FCD.importe_unidad,0)) importe_medio_un' +
               'idad, sum(coalesce(FCD.cantidad,0)) CANTIDAD, avg(coalesce(FCD.i' +
               'mporte_unidad,0))*sum(coalesce(FCD.cantidad,0)) importe_medio_to' +
-              'tal,'#10'sum(coalesce(FCD.importe_unidad,0)) importe_real_total'#10'from' +
+              'tal,'#10'sum(coalesce(FCD.importe_total,0)) importe_real_total'#10'from ' +
-              ' contratos_cliente_detalles FCD'#10'inner join contratos_cliente FC ' +
+              'contratos_cliente_detalles FCD'#10'inner join contratos_cliente FC o' +
-              'on (FC.ID = FCD.ID_CONTRATO)'#10'left join contactos AGENTES on (AGE' +
+              'n (FC.ID = FCD.ID_CONTRATO)'#10'left join contactos AGENTES on (AGEN' +
-              'NTES.ID = FC.ID_AGENTE)'#10'inner join articulos A on (A.ID = FCD.ID' +
+              'TES.ID = FC.ID_AGENTE)'#10'inner join articulos A on (A.ID = FCD.ID_' +
-              '_ARTICULO)'#10'where {where}'#10'and FC.ID_EMPRESA = :ID_EMPRESA'#10'and FC.' +
+              'ARTICULO)'#10'where {where}'#10'and FC.ID_EMPRESA = :ID_EMPRESA'#10'and FC.F' +
-              'FECHA_CONTRATO between :FECHAINI and :FECHAFIN'#10'and FCD.id_articu' +
+              'ECHA_CONTRATO between :FECHAINI and :FECHAFIN'#10'and FCD.id_articul' +
-              'lo > 1'#10'and A.COMISIONABLE = 1'#10#10'GROUP BY 1,2,3,4'#10'order by 6 DESC'#10
+              'o > 1'#10'and A.COMISIONABLE = 1'#10#10'GROUP BY 1,2,3,4'#10'order by 6 DESC'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1574,7 +1574,7 @@ object RptContratosCliente: TRptContratosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37800.807714351900000000
-    ReportOptions.LastChange = 45831.740295370370000000
+    ReportOptions.LastChange = 45876.725298599540000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas

@@ -451,7 +451,7 @@ begin
            Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
         end;
     end;
-  end;
+  end; 
 end;
 
 procedure TRptContratosCliente.PrepararTablaResumenInforme(ATabla: IDADataset);

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm

@@ -2,7 +2,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
   OldCreateOrder = True
   OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Height = 405
+  Height = 669
   Width = 837
   object frxRichObject1: TfrxRichObject
     Left = 48
@@ -239,6 +239,113 @@ object RptFacturasProveedor: TRptFacturasProveedor
             DataType = datCurrency
           end>
       end
+      item
+        Params = <
+          item
+            Name = 'ID_EMPRESA'
+            Value = ''
+          end
+          item
+            Name = 'FECHAINI'
+            Value = ''
+          end
+          item
+            Name = 'FECHAFIN'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            Name = 'IBX'
+            SQL = 
+              'select FCD.ID_ARTICULO, A.REFERENCIA, FCD.CONCEPTO,'#10'COALESCE(A.F' +
+              'AMILIA,'#39#39') || '#39' '#39' || COALESCE(A.referencia_prov,'#39#39') || '#39' '#39' || CO' +
+              'ALESCE(A.DESCRIPCION,'#39#39') ARTICULO,'#10'avg(coalesce(FCD.importe_unid' +
+              'ad,0)) importe_medio_unidad, sum(coalesce(FCD.cantidad,0)) CANTI' +
+              'DAD, avg(coalesce(FCD.importe_unidad,0))*sum(coalesce(FCD.cantid' +
+              'ad,0)) importe_medio_total,'#10'sum(coalesce(FCD.importe_total,0)) i' +
+              'mporte_real_total'#10'from facturas_proveedor_detalles FCD'#10'inner joi' +
+              'n facturas_proveedor FP on (FP.ID = FCD.ID_FACTURA)'#10'inner join a' +
+              'rticulos A on (A.ID = FCD.ID_ARTICULO)'#10'where {where}'#10'and FP.ID_E' +
+              'MPRESA = :ID_EMPRESA'#10'and FP.FECHA_FACTURA between :FECHAINI and ' +
+              ':FECHAFIN'#10'and FCD.id_articulo > 1'#10#10'GROUP BY 1,2,3,4'#10'order by 6 D' +
+              'ESC'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID_ARTICULO'
+                TableField = 'ID_ARTICULO'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'CONCEPTO'
+                TableField = 'CONCEPTO'
+              end
+              item
+                DatasetField = 'ARTICULO'
+                TableField = 'ARTICULO'
+              end
+              item
+                DatasetField = 'IMPORTE_MEDIO_UNIDAD'
+                TableField = 'IMPORTE_MEDIO_UNIDAD'
+              end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
+              item
+                DatasetField = 'IMPORTE_MEDIO_TOTAL'
+                TableField = 'IMPORTE_MEDIO_TOTAL'
+              end
+              item
+                DatasetField = 'IMPORTE_REAL_TOTAL'
+                TableField = 'IMPORTE_REAL_TOTAL'
+              end>
+          end>
+        Name = 'InfomeComprasArticulos'
+        Fields = <
+          item
+            Name = 'ID_ARTICULO'
+            DataType = datInteger
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CONCEPTO'
+            DataType = datString
+            Size = 2000
+          end
+          item
+            Name = 'ARTICULO'
+            DataType = datString
+            Size = 767
+          end
+          item
+            Name = 'IMPORTE_MEDIO_UNIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'CANTIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_MEDIO_TOTAL'
+            DataType = datDecimal
+            DecimalPrecision = 18
+            DecimalScale = 6
+          end
+          item
+            Name = 'IMPORTE_REAL_TOTAL'
+            DataType = datCurrency
+          end>
+      end
       item
         Params = <>
         Statements = <
@@ -519,6 +626,217 @@ object RptFacturasProveedor: TRptFacturasProveedor
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
           end>
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_EMPRESA'
+            Value = ''
+          end
+          item
+            Name = 'FECHAINI'
+            Value = ''
+          end
+          item
+            Name = 'FECHAFIN'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 
+              'select FP.ID_EMPRESA, FP.ID_PROVEEDOR, FP.NOMBRE,'#10'avg(coalesce(F' +
+              'CD.importe_unidad,0)) importe_medio_unidad, sum(coalesce(FCD.can' +
+              'tidad,0)) CANTIDAD, avg(coalesce(FCD.importe_unidad,0))*sum(coal' +
+              'esce(FCD.cantidad,0)) importe_medio_total,'#10'sum(coalesce(FCD.impo' +
+              'rte_unidad,0)) importe_real_total'#10'from facturas_proveedor_detall' +
+              'es FCD'#10'inner join facturas_proveedor FP on (FP.ID = FCD.ID_FACTU' +
+              'RA)'#10'where {where}'#10'and FP.ID_EMPRESA = :ID_EMPRESA'#10'and FP.FECHA_F' +
+              'ACTURA between :FECHAINI and :FECHAFIN'#10'and FCD.id_articulo > 1'#10#10 +
+              'GROUP BY 1,2,3'#10'order by 7 DESC'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'IMPORTE_MEDIO_UNIDAD'
+                TableField = 'IMPORTE_MEDIO_UNIDAD'
+              end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
+              item
+                DatasetField = 'IMPORTE_MEDIO_TOTAL'
+                TableField = 'IMPORTE_MEDIO_TOTAL'
+              end
+              item
+                DatasetField = 'IMPORTE_REAL_TOTAL'
+                TableField = 'IMPORTE_REAL_TOTAL'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end>
+          end>
+        Name = 'InfomeComprasArticulosResumen'
+        Fields = <
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_MEDIO_UNIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'CANTIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_MEDIO_TOTAL'
+            DataType = datDecimal
+            DecimalPrecision = 18
+            DecimalScale = 6
+          end
+          item
+            Name = 'IMPORTE_REAL_TOTAL'
+            DataType = datCurrency
+          end>
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_EMPRESA'
+            Value = ''
+          end
+          item
+            Name = 'FECHAINI'
+            Value = ''
+          end
+          item
+            Name = 'FECHAFIN'
+            Value = ''
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 
+              'select FP.ID_PROVEEDOR, FCD.ID_ARTICULO, A.REFERENCIA, FCD.CONCE' +
+              'PTO,'#10'COALESCE(A.FAMILIA,'#39#39') || '#39' '#39' || COALESCE(A.referencia_prov' +
+              ','#39#39') || '#39' '#39' || COALESCE(A.DESCRIPCION,'#39#39') ARTICULO,'#10'avg(coalesce' +
+              '(FCD.importe_unidad,0)) importe_medio_unidad, sum(coalesce(FCD.c' +
+              'antidad,0)) CANTIDAD, avg(coalesce(FCD.importe_unidad,0))*sum(co' +
+              'alesce(FCD.cantidad,0)) importe_medio_total,'#10'sum(coalesce(FCD.im' +
+              'porte_total,0)) importe_real_total'#10'from facturas_proveedor_detal' +
+              'les FCD'#10'inner join facturas_proveedor FP on (FP.ID = FCD.ID_FACT' +
+              'URA)'#10'inner join articulos A on (A.ID = FCD.ID_ARTICULO)'#10'where {w' +
+              'here}'#10'and FP.ID_EMPRESA = :ID_EMPRESA'#10'and FP.FECHA_FACTURA betwe' +
+              'en :FECHAINI and :FECHAFIN'#10'and FP.ID_PROVEEDOR = :ID_PROVEEDOR'#10'a' +
+              'nd FCD.id_articulo > 1'#10#10'GROUP BY 1,2,3,4,5'#10'order by 7 DESC'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID_ARTICULO'
+                TableField = 'ID_ARTICULO'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'CONCEPTO'
+                TableField = 'CONCEPTO'
+              end
+              item
+                DatasetField = 'ARTICULO'
+                TableField = 'ARTICULO'
+              end
+              item
+                DatasetField = 'IMPORTE_MEDIO_UNIDAD'
+                TableField = 'IMPORTE_MEDIO_UNIDAD'
+              end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
+              item
+                DatasetField = 'IMPORTE_MEDIO_TOTAL'
+                TableField = 'IMPORTE_MEDIO_TOTAL'
+              end
+              item
+                DatasetField = 'IMPORTE_REAL_TOTAL'
+                TableField = 'IMPORTE_REAL_TOTAL'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
+              end>
+          end>
+        Name = 'InfomeComprasArticulosProveedor'
+        Fields = <
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_ARTICULO'
+            DataType = datInteger
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CONCEPTO'
+            DataType = datString
+            Size = 2000
+          end
+          item
+            Name = 'ARTICULO'
+            DataType = datString
+            Size = 767
+          end
+          item
+            Name = 'IMPORTE_MEDIO_UNIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'CANTIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_MEDIO_TOTAL'
+            DataType = datDecimal
+            DecimalPrecision = 18
+            DecimalScale = 6
+          end
+          item
+            Name = 'IMPORTE_REAL_TOTAL'
+            DataType = datCurrency
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -733,7 +1051,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37800.807714351900000000
-    ReportOptions.LastChange = 43661.771358321760000000
+    ReportOptions.LastChange = 45881.547278703710000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False
@@ -985,4 +1303,194 @@ object RptFacturasProveedor: TRptFacturasProveedor
     Left = 280
     Top = 24
   end
+  object frxDBInformeComprasArticulos: TfrxDBDataset
+    UserName = 'frxDBInformeComprasArticulos'
+    CloseDataSource = True
+    DataSource = DADSInformeComprasArticulos
+    BCDToCurrency = False
+    Left = 472
+    Top = 376
+  end
+  object DADSInformeComprasArticulos: TDADataSource
+    DataSet = tbl_informeComprasArticulos.Dataset
+    DataTable = tbl_informeComprasArticulos
+    Left = 472
+    Top = 432
+  end
+  object tbl_informeComprasArticulos: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID_ARTICULO'
+        DataType = datInteger
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CONCEPTO'
+        DataType = datString
+        Size = 2000
+      end
+      item
+        Name = 'ARTICULO'
+        DataType = datString
+        Size = 767
+      end
+      item
+        Name = 'IMPORTE_MEDIO_UNIDAD'
+        DataType = datCurrency
+      end
+      item
+        Name = 'CANTIDAD'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_MEDIO_TOTAL'
+        DataType = datDecimal
+        DecimalPrecision = 18
+        DecimalScale = 6
+      end
+      item
+        Name = 'IMPORTE_REAL_TOTAL'
+        DataType = datCurrency
+      end>
+    Params = <
+      item
+        Name = 'ID_EMPRESA'
+        Value = ''
+      end
+      item
+        Name = 'FECHAINI'
+        Value = ''
+      end
+      item
+        Name = 'FECHAFIN'
+        Value = ''
+      end>
+    MasterMappingMode = mmDataRequest
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = Bin2DataStreamer
+    LogicalName = 'InfomeComprasArticulos'
+    IndexDefs = <>
+    Left = 472
+    Top = 488
+  end
+  object frxDBInformeComprasArticulosResumen: TfrxDBDataset
+    UserName = 'frxDBInformeComprasArticulosResumen'
+    CloseDataSource = True
+    DataSource = DADSInformeComprasArticulosResumen
+    BCDToCurrency = False
+    Left = 656
+    Top = 376
+  end
+  object DADSInformeComprasArticulosResumen: TDADataSource
+    DataSet = tbl_InformeComprasArticulosResumen.Dataset
+    DataTable = tbl_InformeComprasArticulosResumen
+    Left = 656
+    Top = 432
+  end
+  object tbl_InformeComprasArticulosResumen: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    IndexDefs = <>
+    Left = 656
+    Top = 488
+  end
+  object frxDBInformeComprasArticulosProveedor: TfrxDBDataset
+    UserName = 'frxDBInformeComprasArticulosProveedor'
+    CloseDataSource = True
+    DataSource = DADSInformeComprasArticulosProveedor
+    BCDToCurrency = False
+    Left = 272
+    Top = 416
+  end
+  object DADSInformeComprasArticulosProveedor: TDADataSource
+    DataSet = tbl_informeComprasArticulosProveedor.Dataset
+    DataTable = tbl_informeComprasArticulosProveedor
+    Left = 272
+    Top = 472
+  end
+  object tbl_informeComprasArticulosProveedor: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID_PROVEEDOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_ARTICULO'
+        DataType = datInteger
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CONCEPTO'
+        DataType = datString
+        Size = 2000
+      end
+      item
+        Name = 'ARTICULO'
+        DataType = datString
+        Size = 767
+      end
+      item
+        Name = 'IMPORTE_MEDIO_UNIDAD'
+        DataType = datCurrency
+      end
+      item
+        Name = 'CANTIDAD'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_MEDIO_TOTAL'
+        DataType = datDecimal
+        DecimalPrecision = 18
+        DecimalScale = 6
+      end
+      item
+        Name = 'IMPORTE_REAL_TOTAL'
+        DataType = datCurrency
+      end>
+    Params = <
+      item
+        Name = 'ID_EMPRESA'
+        Value = ''
+      end
+      item
+        Name = 'FECHAINI'
+        Value = ''
+      end
+      item
+        Name = 'FECHAFIN'
+        Value = ''
+      end
+      item
+        Name = 'ID_PROVEEDOR'
+        Value = ''
+      end>
+    MasterMappingMode = mmDataRequest
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = Bin2DataStreamer
+    LogicalName = 'InfomeComprasArticulosProveedor'
+    IndexDefs = <>
+    Left = 272
+    Top = 528
+  end
 end

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas

@@ -33,6 +33,15 @@ type
     tbl_InformeListadoRecibos: TDAMemDataTable;
     DADSInformeListadoRecibos: TDADataSource;
     frxDBInformeListadoRecibos: TfrxDBDataset;
+    frxDBInformeComprasArticulos: TfrxDBDataset;
+    DADSInformeComprasArticulos: TDADataSource;
+    tbl_informeComprasArticulos: TDAMemDataTable;
+    frxDBInformeComprasArticulosResumen: TfrxDBDataset;
+    DADSInformeComprasArticulosResumen: TDADataSource;
+    tbl_InformeComprasArticulosResumen: TDAMemDataTable;
+    frxDBInformeComprasArticulosProveedor: TfrxDBDataset;
+    DADSInformeComprasArticulosProveedor: TDADataSource;
+    tbl_informeComprasArticulosProveedor: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DataModuleCreate(Sender: TObject);
@@ -47,20 +56,26 @@ type
     FFechaVenFin: Variant;
     FListaIDProveedores: TIntegerArray;
     FListaNombresProveedores: TStringList;
+    FListaIDArticulos: TIntegerArray;
+    FListaNombresArticulos: TStringList;
     FImporteMinimo: Currency;
     FDesglosado : Boolean;
 
     procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
     procedure PrepararTablaResumenInforme(ATabla: IDADataset);
+    procedure PrepararTablaInformeComprasArticulo(ATabla: TDAMemDataTable);
+    procedure PrepararTablaResumenComprasArticulos(ATabla: IDADataset);
     function _GenerarInforme(const TipoInforme: String): Binary;
     procedure IniciarParametrosInforme;
     procedure RecuperarNombresProveedores;
+    procedure RecuperarNombresArticulos;
 
   public
     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 GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
   end;
 
 implementation
@@ -83,7 +98,8 @@ const
   ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen';
   rptInformeListadoFacturasRecibosProveedor = 'InformeListadoFacturasRecibosProveedor.fr3';
   rptInformeListadoFacturasRecibosProveedorDesglosado = 'InformeListadoFacturasRecibosProveedorDesglosado.fr3';
-
+  rptInformeComprasArticulos = 'InformeComprasArticulos.fr3';
+  rptInformeComprasArticulosProveedor = 'InformeComprasArticulosProveedor.fr3';
 
 
 { TRptFacturasProveedor }
@@ -95,11 +111,66 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
   
   FListaNombresProveedores := TStringList.Create;
+  FListaNombresArticulos := TStringList.Create;
 end;
 
 procedure TRptFacturasProveedor.DataModuleDestroy(Sender: TObject);
 begin
   FreeANDNIL(FListaNombresProveedores);
+  FreeANDNIL(FListaNombresArticulos);  
+end;
+
+function TRptFacturasProveedor.GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
+var
+  ATipoInforme: String;
+  AStream: TMemoryStream;
+  dsMaster: IDADataset;
+
+begin
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+
+  AStream := TMemoryStream.Create;
+  try
+    //Inicializamos parametros
+    FIdEmpresa := IdEmpresa;
+    FFechaInicio := FechaInicio;
+    FFechaFin := FechaFin;
+
+    if Assigned(FListaIDArticulos) then
+       FListaIDArticulos.Free;
+    FListaIDArticulos := ListaIDArticulos;
+
+    if Assigned(FListaIDProveedores) then
+       FListaIDProveedores.Free;
+    FListaIDProveedores := ListaIDProveedores;
+
+
+    if Assigned(FListaIDProveedores) and (FListaIDProveedores.Count > 0) then
+    begin
+      if tbl_InformeComprasArticulosProveedor.Active then
+         tbl_InformeComprasArticulosProveedor.Active := False;
+      PrepararTablaInformeComprasArticulo(tbl_InformeComprasArticulosProveedor);
+      ATipoInforme := rptInformeComprasArticulosProveedor;
+      tbl_InformeComprasArticulosProveedor.Active := True;
+    end
+    else
+    begin
+      if tbl_InformeComprasArticulos.Active then
+         tbl_InformeComprasArticulos.Active := False;
+      PrepararTablaInformeComprasArticulo(tbl_InformeComprasArticulos);
+      ATipoInforme := rptInformeComprasArticulos;
+      tbl_InformeComprasArticulos.Active := True;
+    end;
+
+
+
+    Result := _GenerarInforme(ATipoInforme);
+
+  finally
+    AStream.Free;
+    dsMaster := Nil;
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  end;
 end;
 
 function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
@@ -452,6 +523,17 @@ begin
         ACadena := ACadena + ' (desglosados)'
     end;
 
+    if Assigned(FListaIDArticulos) and (FListaIDArticulos.Count > 0) then
+    begin
+      RecuperarNombresArticulos;
+      ACadena := FListaNombresArticulos.Text;
+    end
+    else begin
+      ACadena := 'Todos los articulos';
+      if FDesglosado then
+        ACadena := ACadena + ' (desglosados)'
+    end;
+   
     ATextos.Add(ACadena);
     ACadena := '';
 
@@ -544,6 +626,121 @@ begin
   end;
 end;
 
+procedure TRptFacturasProveedor.PrepararTablaInformeComprasArticulo(ATabla: TDAMemDataTable);
+var
+  Condicion: TDAWhereExpression;
+  i: Integer;
+
+begin
+  // Filtrar el informe por empresa
+  if  not VarIsNull(FIdEmpresa) then
+  begin
+    ATabla.ParamByName('ID_EMPRESA').AsVariant := FIdEmpresa;
+  end;
+
+  // Filtrar el informe por fechas
+  if  not VarIsNull(FFechaInicio)
+  and not VarIsNull(FFechaFin) then
+  begin
+    ATabla.ParamByName('FECHAINI').AsVariant := FFechaInicio;
+    ATabla.ParamByName('FECHAFIN').AsVariant := FFechaFin;
+  end;
+
+  // Filtrar el informe por articulo
+  if  Assigned(FListaIDArticulos) then
+  begin
+    with ATabla.DynamicWhere do
+    begin
+      for i := 0 to FListaIDArticulos.Count - 1 do
+      begin
+
+        // (ID_ARTICULO = ID)
+        Condicion := NewBinaryExpression(NewField('', fld_facturasProveedor_DetallesID_ARTICULO), NewConstant(FListaIDArticulos.Items[i], datInteger), dboEqual);
+        if IsEmpty then
+           Expression := Condicion
+        else
+           Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+        end;
+    end;
+  end;
+
+  // Filtrar el informe por Proveedores
+  if  Assigned(FListaIDProveedores) then
+  begin
+     if FListaIDProveedores.Count > 0 then
+        ATabla.ParamByName('ID_PROVEEDOR').AsVariant := FListaIDProveedores.Items[i];
+
+{    with ATabla.DynamicWhere do
+    begin
+      for i := 0 to FListaIDProveedores.Count - 1 do
+      begin
+
+        // (ID_PROVEEDOR = ID)
+        Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PROVEEDOR), NewConstant(FListaIDProveedores.Items[i], datInteger), dboEqual);
+        if IsEmpty then
+           Expression := Condicion
+        else
+           Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+        end;
+    end;
+}
+  end;
+
+end;
+
+procedure TRptFacturasProveedor.PrepararTablaResumenComprasArticulos(ATabla: IDADataset);
+var
+  i: Integer;
+  AWhereStr : String;
+  Condicion: TDAWhereExpression;
+
+begin
+  // Filtrar el informe por empresa
+  with ATabla.DynamicWhere do
+  begin
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', ('FC.'+ fld_FacturasProveedorID_EMPRESA)), NewConstant(FIdEmpresa, datInteger), dboEqual);
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+  end;
+
+  // Filtrar el informe por fechas
+  if  not VarIsNull(FFechaInicio)
+  and not VarIsNull(FFechaFin) then
+  begin
+    with ATabla.DynamicWhere do
+    begin
+      // (FECHA_INICIO between FECHA_FIN)
+      Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
+      Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  end;
+
+  // Filtrar el informe por articulo
+  if  Assigned(FListaIDArticulos) then
+  begin
+    with ATabla.DynamicWhere do
+    begin
+      for i := 0 to FListaIDArticulos.Count - 1 do
+      begin
+
+        // (ID_ARTICULO = ID)
+        Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedor_DetallesID_ARTICULO), NewConstant(FListaIDArticulos.Items[i], datInteger), dboEqual);
+        if IsEmpty then
+           Expression := Condicion
+        else
+           Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+        end;
+    end;
+  end;
+end;
+
 procedure TRptFacturasProveedor.PrepararTablaResumenInforme(ATabla: IDADataset);
 var
   i: Integer;
@@ -593,6 +790,98 @@ begin
   ATabla.Where.AddText(AWhereStr);
 end;
 
+procedure TRptFacturasProveedor.RecuperarNombresArticulos;
+var
+  AArticulosService : IsrvArticulos;
+  Intf : IInterface;
+  AClientID : TGUID;
+
+  ATableNameArray: StringArray;
+  ATableRequestInfoArray: TableRequestInfoArray;
+  ATableRequestInfo: TableRequestInfoV5;
+  AStream: TMemoryStream;
+  ADataTable: TDAMemDataTable;
+  i: Integer;
+  AWhereBuilder : TDAWhereBuilder;
+  ACondicion : TDAWhereExpression;
+  ACadena: String;
+begin
+  CreateGUID(AClientID);
+
+  GetClassFactory('srvArticulos').CreateInstance(AClientID, Intf);
+
+  if Assigned(Intf) then
+  begin
+    AArticulosService := Intf as IsrvArticulos;
+
+    ATableNameArray := StringArray.Create;
+    ATableRequestInfoArray := TableRequestInfoArray.Create;
+    AWhereBuilder := TDAWhereBuilder.Create;
+    try
+      ATableNameArray.Add('Articulos');
+      ATableRequestInfo := TableRequestInfoV5.Create;
+
+      with ATableRequestInfo do
+      begin
+        IncludeSchema := True;
+        MaxRecords := -1;
+        UserFilter := '';
+
+        AWhereBuilder.Clear;
+        with AWhereBuilder do
+          for i := 0 to FListaIDArticulos.Count - 1 do
+          begin
+            ACondicion := NewBinaryExpression(
+                NewBinaryExpression(NewField('', 'ID'), NewConstant(FListaIDArticulos[i], datInteger), dboEqual),
+                NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(FIdEmpresa, datInteger), dboEqual),
+                dboAnd);
+
+            if not AWhereBuilder.IsEmpty then
+              Expression := NewBinaryExpression(Expression, ACondicion, dboOr)
+            else
+              Expression := ACondicion;
+          end;
+
+        WhereClause := AWhereBuilder.ExpressionToXmlNode(AWhereBuilder.Expression);
+      end;
+
+      try
+        ATableRequestInfoArray.Add(ATableRequestInfo);
+        AStream := AArticulosService.GetData(ATableNameArray, ATableRequestInfoArray);
+        if Assigned(AStream) then
+        begin
+          ADataTable := TDAMemDataTable.Create(nil);
+          try
+            ADataTable.Name := 'Articulos';
+            ADataTable.LocalDataStreamer := Bin2DataStreamer;
+            ADataTable.RemoteFetchEnabled := False;
+            Bin2DataStreamer.ReadDataset(AStream, ADataTable, True);
+
+            ADataTable.Open;
+            FListaNombresArticulos.Clear;
+            for i := 0 to ADataTable.RecordCount - 1 do
+            begin
+              ACadena := ADataTable.FieldByName('FAMILIA').AsString + ADataTable.FieldByName('REFERENCIA_PROV').AsString + ADataTable.FieldByName('DESCRIPCION').AsString;
+              FListaNombresArticulos.Add(ACadena);
+              ADataTable.Next;
+            end;
+
+          finally
+            FreeANDNil(ADataTable);
+          end;
+        end;
+      except
+        on e: Exception do
+          dmServer.EscribirLog(e.Message);
+      end;
+    finally
+      FreeANDNIL(ATableRequestInfoArray);
+      FreeANDNIL(ATableNameArray);
+      FreeANDNIL(AWhereBuilder);
+    end;
+  end;
+end;
+
 procedure TRptFacturasProveedor.RecuperarNombresProveedores;
 var
   AContactosService : IsrvContactos;

Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk

@@ -54,6 +54,7 @@ contains
   uIViewFiltroAno in 'View\uIViewFiltroAno.pas',
   uIEditorInformeVentasArticulosReport in 'View\uIEditorInformeVentasArticulosReport.pas',
   uIViewFiltroArticulos in 'View\uIViewFiltroArticulos.pas',
-  uIViewFiltroComerciales in 'View\uIViewFiltroComerciales.pas';
+  uIViewFiltroComerciales in 'View\uIViewFiltroComerciales.pas',
+  uIEditorInformeComprasArticulosReport in 'View\uIEditorInformeComprasArticulosReport.pas';
 
 end.

Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj

@@ -38,11 +38,12 @@
     <DelphiCompile Include="GestorInformes_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
+    <DCCReference Include="..\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
+    <DCCReference Include="..\Views\Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GestorInformes_data.dcp" />
+    <DCCReference Include="..\Views\GestorInformes_data.dcp" />
     <DCCReference Include="uGestorInformesController.pas" />
     <DCCReference Include="View\uIEditorInformeBase.pas" />
+    <DCCReference Include="View\uIEditorInformeComprasArticulosReport.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />

Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas

@@ -38,6 +38,7 @@ type
     procedure VerInformeIVAProveedores;
     procedure VerInformeListadoFacturasProv;
     procedure VerInformeListadoFacturasProvPendientes;
+    procedure VerInformeComprasArticulo;
 
     //MODULO RECIBOS DE PROVEEDOR
     procedure VerInformeListadoRecibosProvPendientes;
@@ -91,11 +92,12 @@ type
     procedure VerInformeListadoRecibosCliente;
 
     //MODULO FACTURAS DE PROVEEDOR
-    function DarListaAnosFacturasProv: TStringList;    
+    function DarListaAnosFacturasProv: TStringList;
     procedure VerInformeIVAProveedores;
     procedure VerInformeListadoFacturasProv;
     procedure VerInformeListadoFacturasProvPendientes;
     procedure VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
+    procedure VerInformeComprasArticulo;
 
     //MODULO RECIBOS DE PROVEEDOR
     procedure VerInformeListadoRecibosProvPendientes;
@@ -122,7 +124,7 @@ uses
   uIEditorInformeRecibosProvPendientesReport,
   uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport,
   uIEditorInformeFacturasRecibosProveedorReport, uIEditorInformeVentasArticulosReport,
-  uIEditorInformeInventarioValoradoCompras2AnosReport,
+  uIEditorInformeComprasArticulosReport, uIEditorInformeInventarioValoradoCompras2AnosReport,
   uIEditorInformeModelo347Report;
 
 
@@ -304,6 +306,28 @@ begin
   Result := FDataModule;
 end;
 
+procedure TGestorInformesController.VerInformeComprasArticulo;
+var
+  AStream: Binary;
+  AEditor : IEditorInformeComprasArticulosReport;
+begin
+  AEditor := NIL;
+
+  CreateEditor('EditorInformeComprasArticulosReport', IEditorInformeComprasArticulosReport, AEditor);
+  if Assigned(AEditor) then
+    try
+      AEditor.Controller := Self;
+      AEditor.Title := 'Listado de compras de articulos';
+      AStream := FDataModule.GenerarInformeComprasArticulos(AppFactuGES.EmpresaActiva.ID, AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDArticulos, AEditor.ListaIDProveedores);
+      AEditor.LoadFromStream(AStream);
+      AEditor.Preview;
+    finally
+      AEditor.Release;
+      AEditor := Nil;
+      FreeAndNil(AStream);
+    end;
+end;
+
 procedure TGestorInformesController.VerInformeInventarioValoradoCompras2Anos;
 var
   AStream: Binary;

Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas

@@ -41,11 +41,12 @@ type
     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;
 
     //MODULO FACTURAS DE PROVEEDOR
-    function DarListaAnosFacturasProv: TStringList;    
+    function DarListaAnosFacturasProv: TStringList;
     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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
 
     //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;
@@ -105,6 +106,14 @@ begin
   end;
 end;
 
+function TDataModuleGestorInformes.GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
+begin
+  try
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeComprasArticulos(IdEmpresa, FechaInicio, FechaFin, ListaIdArticulos, ListaIdProveedores);
+  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
@@ -146,10 +155,8 @@ begin
   end;
 end;
 
-function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
+function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
-  const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
+  const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const FechaVenInicio: Variant; const FechaVenFin: Variant;
-  const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
   const ImporteMinimo: Currency): Binary;
 begin
   try

Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas

@@ -35,6 +35,7 @@ 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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;    
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
 
     //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;

Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm

@@ -121,6 +121,10 @@ object PluginGestorInformes: TPluginGestorInformes
       Caption = 'Informe de ventas de articulo'
       OnExecute = actInformeVentasArticuloExecute
     end
+    object actInformeComprasArticulo: TAction
+      Caption = 'Informe de compras de articulo'
+      OnExecute = actInformeComprasArticuloExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = LargeImages
@@ -203,6 +207,10 @@ object PluginGestorInformes: TPluginGestorInformes
         Tag = 170
         Action = actInformeVentasArticulo
       end
+      object Informedecomprasdearticulo1: TMenuItem
+        Tag = 180
+        Action = actInformeComprasArticulo
+      end
     end
   end
   object SmallImages: TPngImageList

Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas

@@ -51,6 +51,8 @@ type
     InformeModelo3472: TMenuItem;
     actInformeVentasArticulo: TAction;
     InformedeVentasdearticulo1: TMenuItem;
+    actInformeComprasArticulo: TAction;
+    Informedecomprasdearticulo1: TMenuItem;
     procedure actInformeFacturasClienteExecute(Sender: TObject);
     procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
     procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
@@ -65,6 +67,7 @@ type
     procedure actInformeListadoFacturasRecibosCliExecute(Sender: TObject);
     procedure actInformeModelo347Execute(Sender: TObject);
     procedure actInformeVentasArticuloExecute(Sender: TObject);
+    procedure actInformeComprasArticuloExecute(Sender: TObject);
   private
     FController : IGestorInformesController;
   public
@@ -88,6 +91,11 @@ end;
 exports
   GetModule name GET_MODULE_FUNC;
 
+procedure TPluginGestorInformes.actInformeComprasArticuloExecute(Sender: TObject);
+begin
+  FController.VerInformeComprasArticulo;
+end;
+
 procedure TPluginGestorInformes.actInformeFacturasClienteExecute(
   Sender: TObject);
 begin

Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas

@@ -71,6 +71,7 @@ type
     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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
                                                      const FechaFin: Variant): Binary;
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
 
     //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;
@@ -175,6 +176,18 @@ begin
 }    
 end;
 
+function TsrvGestorInformes.GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const ListaIDArticulos: TIntegerArray; const ListaIDProveedores: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptFacturasProveedor;
+begin
+  AReportGenerator := TRptFacturasProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarInformeComprasArticulos(IdEmpresa, FechaInicio, FechaFin, ListaIDArticulos, ListaIDProveedores);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 function TsrvGestorInformes.GenerarInformeInventarioValoradoCompras2Anos: Binary;
 var
   AReportGenerator : TRptInventario;

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk

@@ -94,6 +94,7 @@ contains
   uViewFiltroAno in 'uViewFiltroAno.pas' {frViewFiltroAno: TFrame},
   uViewFiltroArticulos in 'uViewFiltroArticulos.pas' {frViewFiltroArticulos: TFrame},
   uEditorInformeVentasArticulosReport in 'uEditorInformeVentasArticulosReport.pas' {fEditorInformeVentasArticulosReport: TForm},
-  uViewFiltroComerciales in 'uViewFiltroComerciales.pas' {frViewFiltroComerciales: TFrame};
+  uViewFiltroComerciales in 'uViewFiltroComerciales.pas' {frViewFiltroComerciales: TFrame},
+  uEditorInformeComprasArticulosReport in 'uEditorInformeComprasArticulosReport.pas' {fEditorInformeComprasArticulosReport: TForm};
 
 end.

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj

@@ -38,53 +38,51 @@
     <DelphiCompile Include="GestorInformes_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
+    <DCCReference Include="Articulos_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Articulos_model.dcp" />
+    <DCCReference Include="Articulos_model.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\bdertl.dcp" />
+    <DCCReference Include="bdertl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" />
+    <DCCReference Include="Contactos_view.dcp" />
-    <DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\designide.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxComnD11.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\fqb110.dcp" />
+    <DCCReference Include="fqb110.dcp" />
-    <DCCReference Include="..\..\..\Servidor\frx11.dcp" />
+    <DCCReference Include="frx11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\frxe11.dcp" />
+    <DCCReference Include="frxe11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\fs11.dcp" />
+    <DCCReference Include="fs11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Jcl.dcp" />
+    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\JclVcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\tb2k_d10.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="..\..\..\Servidor\tbx_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vclx.dcp" />
-    <DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorInformeComprasArticulosReport.pas">
+      <Form>fEditorInformeComprasArticulosReport</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">
       <Form>fEditorInformeFacturasClientePendientesReport</Form>
       <DesignClass>t</DesignClass>
@@ -159,7 +157,7 @@
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFiltroComerciales.pas">
-      <Form>frViewFiltroArticulos</Form>
+      <Form>frViewFiltroComerciales</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFiltroImportes.pas">
@@ -178,6 +176,12 @@
       <Form>frViewPeriodoFechas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm

@@ -67,6 +67,7 @@ inherited fEditorInformeBase: TfEditorInformeBase
         FloatingHeight = 128
         SupportedDocks = [dkStandardDock, dkMultiDock]
         TabOrder = 0
+        ExplicitWidth = 128
         object TBXButton1: TTBXButton
           Left = 16
           Top = 12

Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas

@@ -12,7 +12,7 @@ uses
   uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasRecibosClienteReport,
   uEditorInformeFacturasClientePendientesReport,
   uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
-  uEditorInformePresupuestosReport, uEditorInformeVentasArticulosReport,
+  uEditorInformePresupuestosReport, uEditorInformeVentasArticulosReport, uEditorInformeComprasArticulosReport,
 
   uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
   uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformeFacturasRecibosProveedorReport,
@@ -22,6 +22,7 @@ procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport');
   EditorRegistry.RegisterClass(TfEditorInformeVentasArticulosReport, 'EditorInformeVentasArticulosReport');
+  EditorRegistry.RegisterClass(TfEditorInformeComprasArticulosReport, 'EditorInformeComprasArticulosReport');
   EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
   EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
   EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosClienteReport, 'EditorInformeFacturasRecibosClienteReport');
@@ -42,7 +43,8 @@ end;
 procedure UnregisterViews;
 begin
   EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosReport);
-  EditorRegistry.UnRegisterClass(TfEditorInformeVentasArticulosReport);  
+  EditorRegistry.UnRegisterClass(TfEditorInformeVentasArticulosReport);
+  EditorRegistry.UnRegisterClass(TfEditorInformeComprasArticulosReport); 
   EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasRecibosClienteReport);  

Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/PedCli_PedProv_relation.dpk

@@ -1,41 +0,0 @@
-package PedCli_PedProv_relation;
-
-{$R *.res}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
-
-requires
-  rtl,
-  Base,
-  ControllerBase,
-  Contactos_model,
-  Contactos_controller,
-  PedidosCliente_model,
-  PedidosCliente_controller,
-  PedidosProveedor_model,
-  PedidosProveedor_controller;
-
-contains
-  uGenerarPedidosProvUtils in 'uGenerarPedidosProvUtils.pas';
-
-end.

Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm

@@ -1,305 +0,0 @@
-object dmGenerarPedidosProv: TdmGenerarPedidosProv
-  OldCreateOrder = False
-  Height = 176
-  Width = 254
-  object JsListaPedidosGenerados: TJSDialog
-    Glyph.Data = {
-      0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
-      00001C0806000000720DDF940000000970485973000017120000171201679FD2
-      520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
-      5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
-      1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
-      3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
-      B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
-      60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
-      21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
-      A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
-      225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
-      081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
-      A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
-      70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
-      EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
-      286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
-      6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
-      81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
-      CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
-      469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
-      F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
-      86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
-      4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
-      673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
-      ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
-      FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
-      82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
-      1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
-    Instruction.Text = 'Lista de pedidos a proveedor generados'
-    Instruction.Glyph.Data = {
-      0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
-      00001C0806000000720DDF940000000970485973000017120000171201679FD2
-      520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
-      5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
-      1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
-      3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
-      B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
-      60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
-      21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
-      A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
-      225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
-      081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
-      A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
-      70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
-      EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
-      286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
-      6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
-      81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
-      CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
-      469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
-      F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
-      86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
-      4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
-      673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
-      ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
-      FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
-      82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
-      1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
-    Instruction.Icon = tdiCustom
-    ButtonBar.Buttons = [cbOK]
-    ButtonBar.Cancel = cbOK
-    ButtonBar.UseCancel = False
-    MainIcon = tdiCustom
-    Title = 'FactuGES'
-    Position = dpMainFormCenter
-    Icon.Data = {
-      0000010003002020100001000400E8020000360000002020000001000800A808
-      00001E0300002020000001002000A8100000C60B000028000000200000004000
-      0000010004000000000000020000000000000000000000000000000000000000
-      000000008000008000000080800080000000800080008080000080808000C0C0
-      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
-      0000000000000000000000000000000008777777777777777777777700000000
-      0877767777677776777767760000000008F88888888888888888888700000000
-      08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
-      08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
-      08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
-      08F8676767677677677658E50000000008FF8888888887878787888700000000
-      08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
-      08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
-      0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
-      08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
-      8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
-      B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
-      B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
-      B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
-      B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
-      08BB883B78888788787700000000000000B9000000000000000000000000FFFF
-      FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
-      000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
-      000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
-      000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
-      0000200000004000000001000800000000000004000000000000000000000001
-      00000001000000000000694731007C5D49007E604C0081635000826451008567
-      540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
-      61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
-      76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
-      970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
-      E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
-      FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
-      F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
-      C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
-      E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
-      F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
-      F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
-      FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
-      F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
-      F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
-      8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
-      9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
-      9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
-      A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
-      8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
-      AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
-      9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
-      BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
-      B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
-      F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
-      C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
-      C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
-      D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
-      DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
-      FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
-      EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
-      F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
-      0D0D0000000000000000009C9C19191919191919191919191919191919191919
-      1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
-      8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
-      9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
-      9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
-      9007000000000000000000AFF0D5017783838386868686869099909999907BB0
-      9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
-      9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
-      9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
-      9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
-      9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
-      9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
-      9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
-      9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
-      9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
-      9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
-      9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
-      9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
-      9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
-      9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
-      9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
-      9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
-      7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
-      0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
-      A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
-      1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
-      700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
-      000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
-      000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
-      0000000000000000000000003227000000000000000000000000000000000000
-      000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
-      000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
-      000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
-      000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
-      00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000007067
-      5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
-      40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
-      40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
-      A070000000000000000000000000000000000000000000000000000000005E54
-      4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
-      79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
-      79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
-      967F000000000000000000000000000000000000000000000000000000006055
-      4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
-      BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
-      B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006056
-      4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
-      D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
-      C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006155
-      4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
-      DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
-      C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006157
-      4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
-      CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
-      B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006256
-      4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
-      94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
-      9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006256
-      4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
-      CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006256
-      4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
-      C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006257
-      4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
-      4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
-      5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006357
-      507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
-      A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
-      98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006357
-      507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
-      95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
-      DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006458
-      517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
-      7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
-      DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006458
-      517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
-      F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
-      DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006459
-      517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
-      EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
-      D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006559
-      527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
-      8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
-      8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
-      967E000000000000000000000000000000000000000000000000000000006559
-      527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
-      C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
-      F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
-      967E00000000000000000000000000000000000000000000000000000000685A
-      527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
-      C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
-      967E00000000000000000000000000000000007792910072A7A3001E33366957
-      4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
-      A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
-      76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
-      967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
-      A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
-      CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
-      8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
-      967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
-      FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
-      B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
-      F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
-      967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
-      F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
-      63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
-      F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
-      967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
-      FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
-      FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
-      F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
-      967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
-      FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
-      FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
-      F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
-      987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
-      FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
-      F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
-      FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
-      9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
-      FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
-      FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
-      FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
-      831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
-      FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
-      FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
-      000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
-      FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
-      000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
-      BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
-      F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
-      E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
-      0000000000000000000000000000000000000075B7AF0099C7C500323E425442
-      3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
-      A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
-      7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
-      0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
-      0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
-      0007C0000007C000000700000007000000070000000700000007C000000FC000
-      001F8000003F800000FFF8FFFFFF}
-    Width = 450
-    Left = 40
-    Top = 16
-  end
-end

Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas

@@ -1,187 +0,0 @@
-unit uGenerarPedidosProvUtils;
-
-interface
-
-uses
-  SysUtils, Classes, uBizPedidosCliente, pngimage, JSDialog;
-
-type
-  TdmGenerarPedidosProv = class(TDataModule)
-    JsListaPedidosGenerados: TJSDialog;
-  end;
-
-  function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
-  function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
-  function GenerarPedidosProv : Boolean; overload;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  uDialogUtils,
-  uPedidosClienteController, uPedidosProveedorController, uProveedoresController,
-  uDetallesPedidoProveedorController, uControllerDetallesBase,
-  uBizPedidosProveedor, uBizContactos, schPedidosProveedorClient_Intf;
-
-var
-  dmGenerarPedidosProv: TdmGenerarPedidosProv;
-  APedidosClienteController : IPedidosClienteController;
-  APedidosProveedorController : IPedidosProveedorController;
-  ADetallesPedidosProvController : IDetallesPedidoProveedorController;
-  AProveedoresController : IProveedoresController;
-
-
-procedure Inicializar;
-begin
-  dmGenerarPedidosProv := TdmGenerarPedidosProv.Create(nil);
-  APedidosClienteController := TPedidosClienteController.Create;
-  APedidosProveedorController := TPedidosProveedorController.Create;
-  ADetallesPedidosProvController := TDetallesPedidoProveedorController.Create;
-  AProveedoresController := TProveedoresController.Create;
-end;
-
-procedure Finalizar;
-begin
-  FreeAndNIL(dmGenerarPedidosProv);
-  APedidosClienteController := nil;
-  APedidosProveedorController := nil;
-  ADetallesPedidosProvController := nil;
-  AProveedoresController := nil;
-end;
-
-
-function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
-var
-  APedido : IBizPedidoCliente;
-begin
-  Result := False;
-
-  try
-    if not Assigned(APedidosClienteController) then
-       Inicializar;
-
-    APedido := APedidosClienteController.Buscar(IDPedido);
-    if Assigned(APedido) then
-       Result := GenerarPedidosProv(APedido);
-  finally
-    if Assigned(APedidosClienteController) then
-       Finalizar;
-  end;
-end;
-
-function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
-var
-  APedidoProv : IBizPedidoProveedor;
-  AArticulosPend : IBizPedidoClienteArticulosPendientesPedirAProv;
-  ALista : TStringList;
-begin
-  Result := False;
-
-  if not Assigned(APedidoCli) then
-    raise Exception.Create('Pedido de cliente no asignado (GenerarPedidosProv)');
-
-  if not APedidoCli.DataTable.Active then
-    APedidoCli.DataTable.Active := True;
-
-  if not Assigned(APedidosClienteController) then
-     Inicializar;
-
-  AArticulosPend := APedidosClienteController.BuscarPendientesPedir(APedidoCli.ID);
-  if not Assigned(AArticulosPend) then
-    raise Exception.Create('Error al recuperar la lista de artículos pendientes de pedir (GenerarPedidosProv)');
-
-  ALista := TStringList.Create;
-  try
-    if not AArticulosPend.DataTable.Active then
-      AArticulosPend.DataTable.Active := True;
-
-    if AArticulosPend.DataTable.RecordCount = 0 then
-    begin
-      ShowInfoMessage('Este pedido a cliente no tiene artículos pendientes que se tengan que pedir a los proveedores');
-      Exit;
-    end;
-
-    APedidoProv := NIL;
-    AArticulosPend.DataTable.First;
-    while not AArticulosPend.DataTable.EOF do
-    begin
-      if Assigned(APedidoProv) and
-        (AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then
-      begin
-        APedidosProveedorController.Guardar(APedidoProv);
-        ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
-        APedidoProv := NIL;
-      end;
-
-      if not Assigned(APedidoProv) then
-      begin
-        APedidoProv := APedidosProveedorController.Nuevo;
-        APedidoProv.Edit;
-        APedidoProv.Proveedor := (AProveedoresController.Buscar(AArticulosPend.ID_PROVEEDOR) as IBizProveedor);
-        APedidoProv.ID_PEDIDO_CLIENTE := APedidoCli.ID;
-      end;
-
-      //OJO IMPORTANTE
-      //Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
-      //obligarle siempre a recalcular los detalles una sola vez
-      ADetallesController.BeginUpdate(APedidoProv.Detalles);
-
-      ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO);
-      ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO);
-      with APedidoProv.Detalles do
-      begin
-        Edit;
-        CANTIDAD := AArticulosPend.CANT_PENDIENTE_PEDIR;
-        Post;
-      end;
-      ADetallesController.EndUpdate(APedidoProv.Detalles);
-      AArticulosPend.DataTable.Next;
-    end;
-
-    if Assigned(APedidoProv) then
-    begin
-      APedidosProveedorController.Guardar(APedidoProv);
-      ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
-      APedidoProv := NIL;
-    end;
-
-    if ALista.Count > 0 then
-    begin
-      dmGenerarPedidosProv.JsListaPedidosGenerados.Content.Clear;
-      dmGenerarPedidosProv.JsListaPedidosGenerados.Content.AddStrings(ALista);
-      dmGenerarPedidosProv.JsListaPedidosGenerados.Execute;
-    end;
-
-    Result := True;
-  finally
-    FreeAndNIL(ALista);
-    AArticulosPend := NIL;
-
-    if Assigned(APedidosClienteController) then
-       Finalizar;
-  end;
-end;
-
-function GenerarPedidosProv : Boolean; overload;
-var
-  APedidoCli : IBizPedidoCliente;
-begin
-  Result := False;
-  try
-    if not Assigned(APedidosClienteController) then
-       Inicializar;
-
-    APedidoCli := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
-                  'Elija el pedido de cliente que desea utilizar para dar de alta el pedido o pedidos a proveedor.'
-                  , False);
-
-    if Assigned(APedidoCli) then
-       Result := GenerarPedidosProv(APedidoCli);
-  finally
-    if Assigned(APedidosClienteController) then
-       Finalizar;
-  end;
-end;
-
-end.

Source/Servicios/FactuGES.RODL

@@ -1007,6 +1007,22 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerarInformeComprasArticulos" UID="{1EF8C998-5E4B-47AE-89D7-B5CF39ACE3D8}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="ListaIDArticulos" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+<Parameter Name="ListaIDProveedores" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 <Operation Name="GenerarInformeListadoFacturasRecibosProv" UID="{E0E5FBF2-4A90-4AD9-87A7-CE034FB1A9B6}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">

Source/Servicios/FactuGES_Intf.pas

@@ -851,6 +851,8 @@ type
                                                const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeVentasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
                                            const ListaIDComerciales: TIntegerArray): Binary;
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
+                                            const ListaIDProveedores: TIntegerArray): Binary;
     function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; 
                                                       const FechaFin: Variant): Binary;
     function GenerarInformeModelo347(const IdEmpresa: Integer; const Desglosado: Boolean; const Ano: Variant; const ImporteFiltro: Currency): Binary;
@@ -895,6 +897,8 @@ type
                                                const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeVentasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
                                            const ListaIDComerciales: TIntegerArray): Binary;
+    function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
+                                            const ListaIDProveedores: TIntegerArray): Binary;
     function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; 
                                                       const FechaFin: Variant): Binary;
     function GenerarInformeModelo347(const IdEmpresa: Integer; const Desglosado: Boolean; const Ano: Variant; const ImporteFiltro: Currency): Binary;
@@ -3065,6 +3069,28 @@ begin
   end
 end;
 
+function TsrvGestorInformes_Proxy.GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
+                                                                 const ListaIDProveedores: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeComprasArticulos');
+    __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+    __Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
+    __Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
+    __Message.Write('ListaIDArticulos', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDArticulos, []);
+    __Message.Write('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; 
                                                                            const FechaFin: Variant): Binary;
 begin

Source/Servicios/FactuGES_Invk.pas

@@ -324,6 +324,7 @@ type
     procedure Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeVentasArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeComprasArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeListadoFacturasRecibosProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeModelo347(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaAnosFacturasCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -2572,6 +2573,47 @@ begin
   end;
 end;
 
+procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeComprasArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeComprasArticulos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDArticulos: TIntegerArray; 
+                                            const ListaIDProveedores: TIntegerArray): Binary; }
+var
+  IdEmpresa: Integer;
+  FechaInicio: Variant;
+  FechaFin: Variant;
+  ListaIDArticulos: FactuGES_Intf.TIntegerArray;
+  ListaIDProveedores: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaIDArticulos := nil;
+  ListaIDProveedores := nil;
+  lResult := nil;
+  try
+    __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+    __Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
+    __Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
+    __Message.Read('ListaIDArticulos', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDArticulos, []);
+    __Message.Read('ListaIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDProveedores, []);
+
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeComprasArticulos(IdEmpresa, FechaInicio, FechaFin, ListaIDArticulos, ListaIDProveedores);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeComprasArticulosResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaIDArticulos);
+      __lObjectDisposer.Add(ListaIDProveedores);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; 
                                                       const FechaFin: Variant): Binary; }

Source/Servidor/FactuGES_Server.dproj

@@ -1,361 +1,358 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
+	<PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
+		<MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
+		<DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-  </PropertyGroup>
+	</PropertyGroup>
-  <ProjectExtensions>
+	<ProjectExtensions>
-    <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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">9</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.8.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.8.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de julio de 2025 19:28</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 28 de agosto de 2025 16:38</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
+						<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
-      
+						<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-      
+						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
-      <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
+					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+	</ProjectExtensions>
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	<ItemGroup>
-  </ProjectExtensions>
+		<DelphiCompile Include="FactuGES_Server.dpr">
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+			<MainSource>MainSource</MainSource>
-  <ItemGroup>
+		</DelphiCompile>
-    <DelphiCompile Include="FactuGES_Server.dpr">
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-      <MainSource>MainSource</MainSource>
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-    </DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+			<Form>srvEjercicios</Form>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+		</DCCReference>
-      <Form>srvEjercicios</Form>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+			<Form>srvEmpresas</Form>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+		</DCCReference>
-      <Form>srvEmpresas</Form>
+		<DCCReference Include="..\ApplicationBase\Idiomas\Model\schIdiomasClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Idiomas\Model\schIdiomasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Idiomas\Model\uBizIdiomasServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Idiomas\Model\schIdiomasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Idiomas\Servidor\srvIdiomas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Idiomas\Model\schIdiomasServer_Intf.pas" />
+			<Form>srvIdiomas</Form>
-    <DCCReference Include="..\ApplicationBase\Idiomas\Model\uBizIdiomasServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\ApplicationBase\Idiomas\Servidor\srvIdiomas_Impl.pas">
+		</DCCReference>
-      <Form>srvIdiomas</Form>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvProvinciasPoblaciones</Form>
-    </DCCReference>
+			<DesignClass>TRORemoteDataModule</DesignClass>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+		</DCCReference>
-      <Form>srvProvinciasPoblaciones</Form>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-      <DesignClass>TRORemoteDataModule</DesignClass>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+		<DCCReference Include="..\Base\Configuracion\uTypesConstConfiguration.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+		<DCCReference Include="..\Base\Utiles\uNumUtils.pas"/>
-    <DCCReference Include="..\Base\Configuracion\uTypesConstConfiguration.pas" />
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-    <DCCReference Include="..\Base\Utiles\uNumUtils.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+			<Form>srvAlbaranesCliente</Form>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvAlbaranesCliente</Form>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+			<Form>RptAlbaranesProveedor</Form>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptAlbaranesProveedor</Form>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvAlbaranesProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvAlbaranesProveedor</Form>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+			<Form>srvAlmacenes</Form>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+		</DCCReference>
-      <Form>srvAlmacenes</Form>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
+			<Form>RptComisiones</Form>
-    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+		</DCCReference>
-      <Form>RptComisiones</Form>
+		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvComisiones</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+		</DCCReference>
-      <Form>srvComisiones</Form>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+			<Form>srvContabilidad</Form>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+		</DCCReference>
-      <Form>srvContabilidad</Form>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizComercialesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizInstaladoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizComercialesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizInstaladoresServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+			<Form>RptEtiquetasContacto</Form>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+		</DCCReference>
-      <Form>RptEtiquetasContacto</Form>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvContactos</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+		</DCCReference>
-      <Form>srvContactos</Form>
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
+			<Form>RptContratosCliente</Form>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
+		<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
-      <Form>RptContratosCliente</Form>
+			<Form>srvContratosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvContratosCliente</Form>
+		<DCCReference Include="..\Modulos\Delegaciones\Model\schDelegacionesClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Delegaciones\Model\schDelegacionesServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Delegaciones\Servidor\srvDelegaciones_Impl.pas">
-    <DCCReference Include="..\Modulos\Delegaciones\Model\schDelegacionesClient_Intf.pas" />
+			<Form>srvDelegaciones</Form>
-    <DCCReference Include="..\Modulos\Delegaciones\Model\schDelegacionesServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Delegaciones\Servidor\srvDelegaciones_Impl.pas">
+		</DCCReference>
-      <Form>srvDelegaciones</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+			<Form>RptFacturasCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasCliente</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFacturasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasCliente</Form>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+			<Form>RptFacturasProveedor</Form>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFacturasProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+			<Form>srvGestorDocumentos</Form>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+		</DCCReference>
-      <Form>srvGestorDocumentos</Form>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvGestorInformes</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+		</DCCReference>
-      <Form>srvGestorInformes</Form>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+			<Form>srvHistoricoMovimientos</Form>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+		</DCCReference>
-      <Form>srvHistoricoMovimientos</Form>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Reports\uRptInventario_Server.pas">
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+			<Form>RptInventario</Form>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Inventario\Reports\uRptInventario_Server.pas">
+		</DCCReference>
-      <Form>RptInventario</Form>
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvInventario</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+		</DCCReference>
-      <Form>srvInventario</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+			<Form>RptPedidosProveedor</Form>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptPedidosProveedor</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvPedidosProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvPedidosProveedor</Form>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+			<Form>RptPresupuestosCliente</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-      <Form>RptPresupuestosCliente</Form>
+			<Form>srvPresupuestosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvPresupuestosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
+			<Form>RptRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptRecibosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRecibosCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvRecibosCliente</Form>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
+			<Form>RptRecibosProveedor</Form>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptRecibosProveedor</Form>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRecibosProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvRecibosProveedor</Form>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Model\uBizReferenciasServer.pas"/>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+			<Form>srvReferencias</Form>
-    <DCCReference Include="..\Modulos\Referencias\Model\uBizReferenciasServer.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+		</DCCReference>
-      <Form>srvReferencias</Form>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+			<Form>RptRemesasCliente</Form>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
+		</DCCReference>
-      <Form>RptRemesasCliente</Form>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRemesasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+		</DCCReference>
-      <Form>srvRemesasCliente</Form>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+			<Form>RptRemesasProveedor</Form>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptRemesasProveedor</Form>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvRemesasProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvRemesasProveedor</Form>
+		<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
-    <DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas" />
+			<Form>srvSubfamilias</Form>
-    <DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
+		</DCCReference>
-      <Form>srvSubfamilias</Form>
+		<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas">
-    <DCCReference Include="..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas" />
+			<Form>srvTarifas</Form>
-    <DCCReference Include="..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas">
+		</DCCReference>
-      <Form>srvTarifas</Form>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+		<DCCReference Include="..\Modulos\Tipos de operacion compra\Servidor\srvTiposOperacionCompra_Impl.pas">
-    <DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas" />
+			<Form>srvTiposOperacionCompra</Form>
-    <DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tipos de operacion compra\Servidor\srvTiposOperacionCompra_Impl.pas">
+		</DCCReference>
-      <Form>srvTiposOperacionCompra</Form>
+		<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de operacion venta\Servidor\srvTiposOperacionVenta_Impl.pas">
-    <DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaClient_Intf.pas" />
+			<Form>srvTiposOperacionVenta</Form>
-    <DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tipos de operacion venta\Servidor\srvTiposOperacionVenta_Impl.pas">
+		</DCCReference>
-      <Form>srvTiposOperacionVenta</Form>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+			<Form>srvUnidadesMedida</Form>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+		</DCCReference>
-      <Form>srvUnidadesMedida</Form>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    </DCCReference>
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+			<Form>srvConfiguracion</Form>
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+		</DCCReference>
-      <Form>srvConfiguracion</Form>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>frConexionBD</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+		</DCCReference>
-      <Form>frConexionBD</Form>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>frConfGeneral</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+		</DCCReference>
-      <Form>frConfGeneral</Form>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>fConfiguracion</Form>
-    </DCCReference>
+			<DesignClass>TForm</DesignClass>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+		</DCCReference>
-      <Form>fConfiguracion</Form>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-      <DesignClass>TForm</DesignClass>
+			<Form>FrameConfiguracion</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+		</DCCReference>
-      <Form>FrameConfiguracion</Form>
+		<DCCReference Include="srvLogin_Impl.pas">
-      <DesignClass>TFrame</DesignClass>
+			<Form>srvLogin</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="srvLogin_Impl.pas">
+		</DCCReference>
-      <Form>srvLogin</Form>
+		<DCCReference Include="uAcercaDe.pas">
-      <DesignClass>TDARemoteService</DesignClass>
+			<Form>fAcercaDe</Form>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="uAcercaDe.pas">
+		<DCCReference Include="uDataModuleServer.pas">
-      <Form>fAcercaDe</Form>
+			<Form>dmServer</Form>
-    </DCCReference>
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="uDataModuleServer.pas">
+		</DCCReference>
-      <Form>dmServer</Form>
+		<DCCReference Include="uServerMainForm.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>fServerForm</Form>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="uServerMainForm.pas">
+		<DCCReference Include="Utiles\RegExpr.pas"/>
-      <Form>fServerForm</Form>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-    </DCCReference>
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-    <DCCReference Include="Utiles\RegExpr.pas" />
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+	</ItemGroup>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]