Version 4.1.6:

Ultima parte de informes estadisticos de albaranes de cliente
    * Errores #530: Hacer referencia en informes de albarán más ancho para que no coja 2 renglones
    * Errores #531: Que en albaranes no salga ni forma de pago ni nombre de banco
    * Errores #536: Arreglar filtro para que cuando un elemento de la lista cambie de situación no pete
    * Errores #568: El informe de factura de cliente de keibler cuando tiene muchos pagos queda mal (repasarlo)



git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@128 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Database/scripts/factuges.sql

@@ -4210,6 +4210,41 @@ from FACTURAS_CLIENTE
 group by 1,2
 ;
 
+CREATE VIEW V_INF_ALB_CLI_IMPORTE_TOTAL_ANO(
+    ID_EMPRESA,
+    ANO,
+    IMPORTE_TOTAL)
+AS
+select ID_EMPRESA, EXTRACT(YEAR FROM FECHA_ALBARAN) as ANO, SUM(IMPORTE_TOTAL) as IMPORTE_TOTAL
+from ALBARANES_CLIENTE
+where tipo = 'A'
+group by 1,2
+;
+
+CREATE VIEW V_INF_ALB_CLI_INCIDEN_TOTAL_ANO(
+    ID_EMPRESA,
+    ANO,
+    INCIDENCIAS_TOTALES)
+AS
+select ID_EMPRESA, EXTRACT(YEAR FROM FECHA_ALBARAN) as ANO, COUNT(ID) as INCIDENCIAS_TOTALES
+from ALBARANES_CLIENTE
+where tipo = 'A'
+and ALBARANES_CLIENTE.INCIDENCIAS <> ''
+group by 1,2
+;
+
+CREATE VIEW V_INF_ALB_CLI_ORDDEV_TOTAL_ANO(
+    ID_EMPRESA,
+    ANO,
+    ORDENES_DEV_TOTALES)
+AS
+select ID_EMPRESA, EXTRACT(YEAR FROM FECHA_ALBARAN) as ANO, COUNT(ID) as ORDENES_DEV_TOTALES
+from ALBARANES_CLIENTE
+where tipo = 'D'
+
+group by 1,2
+;
+
 CREATE VIEW V_INF_FAC_PROVEEDOR_TOTAL_ANO(
     ID_EMPRESA,
     ANO,
@@ -4357,6 +4392,88 @@ left join clientes_datos cd on (cd.ID_CLIENTE = F.ID_CLIENTE)
 inner join V_INF_FAC_CLIENTE_TOTAL_ANO v on ((v.id_empresa = f.id_empresa) and (v.Ano = EXTRACT(YEAR FROM f.FECHA_FACTURA)))
 where (FD.TIPO_DETALLE = 'Concepto')
 ;
+
+
+
+CREATE VIEW V_INF_ALB_CLIENTE_AUX(
+    ID_ALBARAN,
+    SERVIDOS,
+    PENDIENTES,
+    ENVIADOS,
+    INCIDENCIAS,
+    PASADOS_FECHA_PREVISTA,
+    ORDENES_DEV)
+AS
+select ID, SUM(SERVIDOS), SUM(PENDIENTES), SUM(ENVIADOS), SUM(INCIDENCIAS), SUM(PASADOS_FECHA_PREVISTA), SUM(ORDENES_DEV)
+FROM(
+select ID, 1 as SERVIDOS, 0 as PENDIENTES, 0 as ENVIADOS, 0 as INCIDENCIAS, 0 as PASADOS_FECHA_PREVISTA, 0 as ORDENES_DEV
+from V_ALB_CLI_SITUACION
+where TRIM(V_ALB_CLI_SITUACION.situacion) = 'SERVIDO'
+
+union
+
+select ID, 0 as SERVIDOS, 1 as PENDIENTES, 0 as ENVIADOS, 0 as INCIDENCIAS, 0 as PASADOS_FECHA_PREVISTA, 0 as ORDENES_DEV
+from V_ALB_CLI_SITUACION
+where TRIM(V_ALB_CLI_SITUACION.situacion) = 'PENDIENTE'
+
+union
+
+select ID, 0 as SERVIDOS, 0 as PENDIENTES, 1 as ENVIADOS, 0 as INCIDENCIAS, 0 as PASADOS_FECHA_PREVISTA, 0 as ORDENES_DEV
+from V_ALB_CLI_SITUACION
+where TRIM(V_ALB_CLI_SITUACION.situacion) = 'ENVIADO'
+
+union
+
+select ID, 0 as SERVIDOS, 0 as PENDIENTES, 0 as ENVIADOS, 1 as INCIDENCIAS, 0 as PASADOS_FECHA_PREVISTA, 0 as ORDENES_DEV
+from ALBARANES_CLIENTE
+where ALBARANES_CLIENTE.INCIDENCIAS <> ''
+
+union
+
+select ID, 0 as SERVIDOS, 0 as PENDIENTES, 0 as ENVIADOS, 0 as INCIDENCIAS, 1 as PASADOS_FECHA_PREVISTA, 0 as ORDENES_DEV
+from ALBARANES_CLIENTE
+where ALBARANES_CLIENTE.fecha_prevista_envio > ALBARANES_CLIENTE.fecha_envio
+
+union
+
+select ID, 0 as SERVIDOS, 0 as PENDIENTES, 0 as ENVIADOS, 0 as INCIDENCIAS, 0 as PASADOS_FECHA_PREVISTA, 1 as ORDENES_DEV
+from ALBARANES_CLIENTE
+where ALBARANES_CLIENTE.TIPO = 'D'
+)
+group by 1
+;
+
+CREATE VIEW V_INF_ALB_CLIENTE(
+    ID_EMPRESA,
+    ANO,
+    SEMESTRE,
+    TRIMESTRE,
+    MES,
+    FECHA_ALBARAN,
+    ID_CLIENTE,
+    SERVIDOS,
+    PENDIENTES,
+    ENVIADOS,
+    INCIDENCIAS,
+    PASADOS_FECHA_PREVISTA,
+    ORDENES_DEV,
+    IMPORTE_TOTAL)
+AS
+select A.ID_EMPRESA,
+EXTRACT(YEAR FROM A.FECHA_ALBARAN) as ANO,
+CAST((DIV(EXTRACT(MONTH FROM A.FECHA_ALBARAN),7)+1) AS SMALLINT) as SEMESTRE,
+CAST((DIV(EXTRACT(MONTH FROM A.FECHA_ALBARAN)+2,3)) AS SMALLINT) as TRIMESTRE,
+EXTRACT(MONTH FROM A.FECHA_ALBARAN) as MES,
+A.FECHA_ALBARAN, A.ID_CLIENTE,
+cast(V.SERVIDOS as float), cast(V.PENDIENTES as float), cast(V.ENVIADOS as float),
+cast(V.INCIDENCIAS as float), cast(V.PASADOS_FECHA_PREVISTA as float), cast(V.ORDENES_DEV as float),
+A.IMPORTE_TOTAL
+
+from V_INF_ALB_CLIENTE_AUX V
+left join ALBARANES_CLIENTE A on (V.ID_ALBARAN = A.ID)
+;
+
+
 /******************************************************************************/
 /****                             Primary Keys                             ****/
 /******************************************************************************/

Source/Base/Base.dproj

@@ -47,6 +47,10 @@
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -60,63 +64,63 @@
       <Form>DataModuleImpresiones</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\designide.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Informe ventas por articulo\xmlrtl.dcp" />
     <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
       <Form>DataModuleRegistroCorreos</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Informes/2/InfPedidoProveedor.fr3

@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40409,7188189931" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     lImporteUnidad.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     lImporteUnidad.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width + 10;&#13;&#10;     Concepto.Width := Concepto.Width + ImporteTotal.Width + ImporteUnidad.Width;         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F776C6F676F7469706F220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40644,6926088889" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     lImporteUnidad.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     lImporteUnidad.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width + 10;&#13;&#10;     Concepto.Width := Concepto.Width + ImporteTotal.Width + ImporteUnidad.Width;         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F776C6F676F7469706F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="308" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
-      <TfrxRichView Name="Concepto" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="362,5436" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
+      <TfrxRichView Name="Concepto" ShiftMode="smWhenOverlapped" Left="181,5" Top="1,5" Width="318,5436" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
-      <TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="MemoCampo2" Left="121" Top="1,5" Width="56,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
+      <TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="117" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
       <TfrxMemoView Name="ImporteUnidad" Left="504" Top="2" Width="96,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="ImporteTotal" Left="606" Top="2" Width="109,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
@@ -13,9 +13,9 @@
       <TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" ShowHint="False" Frame.Typ="4"/>
     </TfrxPageFooter>
     <TfrxPageHeader Name="PageHeader1" Height="232,44096685" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
-      <TfrxMemoView Name="eConcepto" Left="134,72047" Top="206,94094" Width="367,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
+      <TfrxMemoView Name="eConcepto" Align="baLeft" Left="179,25726667" Top="206,94094" Width="322,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
-      <TfrxMemoView Name="Memo8" Left="76" Top="206,94094" Width="59,25726667" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
+      <TfrxMemoView Name="Memo8" Align="baLeft" Left="120" Top="206,94094" Width="59,25726667" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
-      <TfrxMemoView Name="Memo13" Left="0" Top="206,94094" Width="76,2" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
+      <TfrxMemoView Name="Memo13" Left="0" Top="206,94094" Width="120" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
       <TfrxShapeView Name="Shape2" Left="357,60637" Top="72,22047" Width="360,69295" Height="122,95671" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
       <TfrxMemoView Name="NombreEmpresa" Left="0" Top="4,22047" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
       <TfrxMemoView Name="Memo7" Left="362,61441" Top="79,81107" Width="68,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
@@ -30,8 +30,8 @@
       <TfrxMemoView Name="DireccionEnvio" Left="4" Top="100,22047" Width="347,46475" Height="87,40483" OnBeforePrint="DireccionEnvioOnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
       <TfrxLineView Name="Line1" Left="718,5" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
       <TfrxLineView Name="Line2" Left="0" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
-      <TfrxLineView Name="Line3" Left="76,2" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
+      <TfrxLineView Name="Line3" Align="baLeft" Left="120" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
-      <TfrxLineView Name="Line5" Left="135,5" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
+      <TfrxLineView Name="Line5" Align="baLeft" Left="179,25726667" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
       <TfrxMemoView Name="Memo2" Left="365,92115" Top="18,89765" Width="347,93723" Height="38,89765" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO A PROVEEDOR"/>
       <TfrxMemoView Name="Memo1" Left="521,57514" Top="102,04731" Width="46,01577" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fecha:"/>
       <TfrxMemoView Name="Memo6" Left="570,70903" Top="102,04731" Width="143,05504" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PEDIDO&#34;]"/>

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -60,6 +60,20 @@ type
     tbl_Detalles: TDAMemDataTable;
     frxPDFExport1: TfrxPDFExport;
     DABin2DataStreamer1: TDABin2DataStreamer;
+    frxDBInformeListadoAlbaranesGrafComp: TfrxDBDataset;
+    DASInformeListadoAlbaranesGrafComp: TDADataSource;
+    tbl_InformeListadoAlbaranesGrafCompMensual: TDAMemDataTable;
+    tbl_InformeListadoAlbaranesGrafCompTrimestral: TDAMemDataTable;
+    tbl_InformeListadoAlbaranesGrafCompSemestral: TDAMemDataTable;
+    frxDBInformeListadoClientesMayorAlbaranadoResumen: TfrxDBDataset;
+    DADSInformeListadoClientesMayorAlbaranadoResumen: TDADataSource;
+    tbl_InformeListadoClientesMayorAlbaranadoResumen: TDAMemDataTable;
+    frxDBInformeListadoClientesMayorIncidenciasResumen: TfrxDBDataset;
+    DADSInformeListadoClientesMayorIncidenciasResumen: TDADataSource;
+    tbl_InformeListadoClientesMayorIncidenciasResumen: TDAMemDataTable;
+    frxDBInformeListadoClientesMayorOrdenesDevResumen: TfrxDBDataset;
+    DADSInformeListadoClientesMayorOrdenesDevResumen: TDADataSource;
+    tbl_InformeListadoClientesMayorOrdenesDevResumen: TDAMemDataTable;
     schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -72,16 +86,27 @@ type
     FVerRefProveedor : Boolean;
     FVerObservaciones : Boolean;
     FVerIncidencias : Boolean;
+    FIdEmpresa: Integer;
+    FAno1: Variant;
+    FAno2: Variant;
+    FIntervalo: Variant;
+    FListaIDClientes: TIntegerArray;
+    FTopN: Integer;
 
     //Genera cada uno de los albaranes a imprimir
     procedure _GenerarAlbaran(const AID: Integer);
 
+    procedure PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
+    procedure PrepararTablaResumenInformeGrafComp(ATabla: IDADataset);
+
   public
     function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
     function GenerarAlbaran(const AListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
                                  const VerIncidencias: Boolean): Binary;
     function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
                                  const VerIncidencias: Boolean): Binary;
+
+    function GenerarInformeAlbaranesGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
   end;
 
 implementation
@@ -89,11 +114,12 @@ implementation
 {$R *.dfm}
 
 uses
-  uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf;
+  uSistemaFunc, uDataModuleServer, schAlbaranesClienteClient_Intf, srvGestorInformes_Impl;
 
 const
   rptInforme = 'InfAlbaranCliente.fr3';
   rptInfEtiquetas = 'InfEtiquetasAlbaranCliente.fr3';
+  rptInformeListadoAlbaranesClienteGrafComp = 'InformeListadoAlbaranesClienteGrafComp.fr3';
 
   { Dataset names for schReport }
   ds_InformeCabecera = 'Informe_Cabecera';
@@ -243,4 +269,86 @@ begin
   end;
 end;
 
+function TRptAlbaranesCliente.GenerarInformeAlbaranesGrafComp(
+  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
+  const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
+var
+  AStream: TMemoryStream;
+  AInforme: Variant;
+
+begin
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+
+  AStream := TMemoryStream.Create;
+  try
+    //Inicializamos parametros
+    FIdEmpresa := IdEmpresa;
+    FAno1 := Ano1;
+    FAno2 := Ano2;
+    FIntervalo := Intervalo;
+    FTopN := TopN;
+
+    if Assigned(FListaIDClientes) then
+       FListaIDClientes.Free;
+    FListaIDClientes := ListaIDClientes;
+
+    //Preparamos la tabla correspondiente y la abrimos para el informe
+    if (FIntervalo = CTE_MENSUAL) then
+       PrepararTablaInformeGrafComp(tbl_InformeListadoAlbaranesGrafCompMensual)
+    else if (FIntervalo = CTE_TRIMESTRAL) then
+       PrepararTablaInformeGrafComp(tbl_InformeListadoAlbaranesGrafCompTrimestral)
+    else
+       PrepararTablaInformeGrafComp(tbl_InformeListadoAlbaranesGrafCompSemestral);
+
+    //Se preparan las tablas del listado resumen del informe
+    PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorAlbaranadoResumen);
+    PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorIncidenciasResumen);
+    PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorOrdenesDevResumen);
+
+    Result := Binary.Create;
+
+    AInforme := DarRutaFichero(DarRutaInformes, rptInformeListadoAlbaranesClienteGrafComp, IntTostr(FIdEmpresa));
+    if VarIsNull(AInforme) then
+       raise Exception.Create (('Error Servidor: GenerarInformeAlbaranesGrafComp, no encuentra informe ' + rptInformeListadoAlbaranesClienteGrafComp));
+
+    frxReport.LoadFromFile(AInforme, True);
+//    IniciarParametrosInforme;
+
+    frxReport.Variables.Variables['Ano1']:= Ano1;
+    frxReport.Variables.Variables['Ano2']:= Ano2;
+    frxReport.Variables.Variables['Serie']:= Serie;
+    frxReport.PrepareReport(False);
+    frxReport.PreviewPages.SaveToStream(Result);
+
+  finally
+    AStream.Free;
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  end;
+end;
+
+procedure TRptAlbaranesCliente.PrepararTablaInformeGrafComp(
+  ATabla: TDAMemDataTable);
+begin
+  if ATabla.Active then
+     ATabla.Active := False;
+
+  DASInformeListadoAlbaranesGrafComp.DataTable := ATabla;
+  ATabla.ParamByName('ID_EMPRESA1').AsInteger := FIdEmpresa;
+  ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
+  ATabla.ParamByName('ANO1').AsVariant := FAno1;
+  ATabla.ParamByName('ANO2').AsVariant := FAno2;
+  ATabla.Active := True;
+end;
+
+procedure TRptAlbaranesCliente.PrepararTablaResumenInformeGrafComp(ATabla: IDADataset);
+begin
+  if ATabla.Active then
+     ATabla.Active := False;
+
+  ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
+  ATabla.ParamByName('ANO').AsVariant := FAno1;
+  ATabla.ParamByName('NTOP').AsInteger := FTopN;
+  ATabla.Active := True;
+end;
+
 end.

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -39,6 +39,9 @@ type
     function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
                                  const VerIncidencias: Boolean): Binary;
 
+  public
+    function DarListaAnos: StringArray;
+
   end;
 
 implementation
@@ -75,6 +78,24 @@ begin
   bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
 end;
 
+function TsrvAlbaranesCliente.DarListaAnos: StringArray;
+var
+  dsAnos : IDADataset;
+begin
+  Result := StringArray.Create();
+  try
+    dsAnos := schAlbaranesCliente.NewDataset(Connection, 'ListaAnosAlbaranes', '', True);
+    while not dsAnos.EOF do
+    begin
+      Result.Add(dsAnos.Fields[0].AsString);
+      dsAnos.Next;
+    end;
+  finally
+    dsAnos.Close;
+    dsAnos := NIL;
+  end;
+end;
+
 procedure TsrvAlbaranesCliente.DataAbstractServiceBeforeAcquireConnection(
   aSender: TObject; var aConnectionName: string);
 begin

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm

@@ -78,7 +78,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     end
     inherited TBXTMain2: TTBXToolbar
       Left = 427
-      Visible = True
       ExplicitLeft = 427
       ExplicitWidth = 66
       object TBXItem41: TTBXItem

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm

@@ -78,7 +78,6 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
     end
     inherited TBXTMain2: TTBXToolbar
       Left = 427
-      Visible = True
       ExplicitLeft = 427
       object TBXItem41: TTBXItem
         Action = actDomiciliacion

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

@@ -46,6 +46,7 @@ contains
   uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas',
   uIEditorInformeFacturasProveedorReportGrafComp in 'View\uIEditorInformeFacturasProveedorReportGrafComp.pas',
   uIEditorInformeFacturasClienteReportGrafComp in 'View\uIEditorInformeFacturasClienteReportGrafComp.pas',
-  uIEditorInformeBeneficiosReportGrafComp in 'View\uIEditorInformeBeneficiosReportGrafComp.pas';
+  uIEditorInformeBeneficiosReportGrafComp in 'View\uIEditorInformeBeneficiosReportGrafComp.pas',
+  uIEditorInformeAlbaranesClienteReportGrafComp in 'View\uIEditorInformeAlbaranesClienteReportGrafComp.pas';
 
 end.

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

@@ -42,6 +42,7 @@
     <DCCReference Include="View\ApplicationBase.dcp" />
     <DCCReference Include="View\Base.dcp" />
     <DCCReference Include="View\GestorInformes_data.dcp" />
+    <DCCReference Include="View\uIEditorInformeAlbaranesClienteReportGrafComp.pas" />
     <DCCReference Include="View\uIEditorInformeBase.pas" />
     <DCCReference Include="View\uIEditorInformeBeneficiosReportGrafComp.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />

Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeAlbaranesClienteReportGrafComp.pas

@@ -0,0 +1,32 @@
+unit uIEditorInformeAlbaranesClienteReportGrafComp;
+
+interface
+
+uses
+  FactuGES_Intf, uIEditorInformeBase;
+
+type
+  IEditorInformeAlbaranesClienteReportGrafComp = interface(IEditorInformeBase)
+  ['{6311102A-E2D1-4BAD-B9BC-DC5351991569}']
+
+    function GetIntervalo: Variant;
+    function GetAno1: Variant;
+    function GetAno2: Variant;
+    function GetNTop: Variant;
+    function GetSerie: Variant;
+
+    function GetListaIDClientes: TIntegerArray;
+
+    property Intervalo: Variant read GetIntervalo;
+    property Ano1: Variant read GetAno1;
+    property Ano2: Variant read GetAno2;
+    property NTop: Variant read GetNTop;
+
+    property ListaIDClientes: TIntegerArray read GetListaIDClientes;
+    property Serie: Variant read GetSerie;    
+  end;
+
+
+implementation
+
+end.

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

@@ -19,6 +19,10 @@ type
     //MODULO PRESUPUESTOS DE CLIENTE
     procedure VerInformeListadoPresupuestos;
 
+    //MODULO ALBARANES DE CLIENTE
+    function DarListaAnosAlbaranesCli: TStringList;    
+    procedure VerInformeAlbaranesCliGrafComp;
+
     //MODULO FACTURAS DE CLIENTE
     procedure VerInformeIVAClientes;
     procedure VerInformeListadoFacturasCli;
@@ -75,6 +79,10 @@ type
     //MODULO PRESUPUESTOS DE CLIENTE
     procedure VerInformeListadoPresupuestos;
 
+    //MODULO ALBARANES DE CLIENTE
+    function DarListaAnosAlbaranesCli: TStringList;
+    procedure VerInformeAlbaranesCliGrafComp;
+
     //MODULO FACTURAS DE CLIENTE
     procedure VerInformeIVAClientes;
     procedure VerInformeListadoFacturasCli;
@@ -119,7 +127,7 @@ uses
   uIEditorInformeRecibosProvPendientesReport,
   uIEditorInformePedidosReport, uIEditorInformeFacturasClienteReportGrafComp,
   uIEditorInformeFacturasProveedorReportGrafComp,
-  uIEditorInformeBeneficiosReportGrafComp;
+  uIEditorInformeBeneficiosReportGrafComp, uIEditorInformeAlbaranesClienteReportGrafComp;
 
 
 {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@@ -279,6 +287,11 @@ begin
   Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
 end;
 
+function TGestorInformesController.DarListaAnosAlbaranesCli: TStringList;
+begin
+  Result := FDataModule.DarListaAnosAlbaranesCli;
+end;
+
 function TGestorInformesController.DarListaAnosFacturasCli: TStringList;
 begin
   Result := FDataModule.DarListaAnosFacturasCli;
@@ -305,6 +318,30 @@ begin
   Result := FDataModule;
 end;
 
+procedure TGestorInformesController.VerInformeAlbaranesCliGrafComp;
+var
+  AStream: Binary;
+  AEditor : IEditorInformeAlbaranesClienteReportGrafComp;
+begin
+  AEditor := NIL;
+  CreateEditor('EditorInformeAlbaranesClienteReportGrafComp', IEditorInformeAlbaranesClienteReportGrafComp, AEditor);
+  if Assigned(AEditor) then
+    try
+      AEditor.Controller := Self;
+      AEditor.Title := 'Informe comparativo de albaranes de clientes';
+
+      AStream := FDataModule.GenerarInformeAlbaranesCliGrafComp(AppFactuGES.EmpresaActiva.ID,
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDClientes, AEditor.NTop, AEditor.Serie);
+
+      AEditor.LoadFromStream(AStream);
+      AEditor.Preview;
+    finally
+      AEditor.Release;
+      AEditor := Nil;
+      FreeAndNil(AStream);
+    end;
+end;
+
 procedure TGestorInformesController.VerInformeBeneficiosCliGrafComp;
 var
   AStream: Binary;

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

@@ -26,6 +26,10 @@ type
     //MODULO PRESUPUESTOS DE CLIENTE
     function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
+    //MODULO ALBARANES DE CLIENTE
+    function DarListaAnosAlbaranesCli: TStringList;
+    function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary;
+
     //MODULO FACTURAS DE CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -71,6 +75,22 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
+function TDataModuleGestorInformes.DarListaAnosAlbaranesCli: TStringList;
+var
+  i: Integer;
+  AResultado : StringArray;
+begin
+  Result := Nil;
+  try
+    AResultado := (RORemoteService as IsrvGestorInformes).DarListaAnosAlbaranesCli;
+    Result := TStringList.Create;
+    for i:= 0 to AResultado.Count - 1 do
+        Result.Add(AResultado.Items[i]);
+  finally
+    FreeANDNIL(AResultado)
+  end;
+end;
+
 function TDataModuleGestorInformes.DarListaAnosFacturasCli: TStringList;
 var
   i: Integer;
@@ -119,6 +139,16 @@ begin
   end;
 end;
 
+function TDataModuleGestorInformes.GenerarInformeAlbaranesCliGrafComp(
+  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
+  const ListaIDClientes: TIntegerArray; const NTop: Variant; const Serie: Variant): Binary;
+begin
+  try
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeAlbaranesCliGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdClientes, NTop, Serie);
+  finally
+  end;
+end;
+
 function TDataModuleGestorInformes.GenerarInformeBeneficiosGrafComp(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2,
   Serie: Variant): Binary;

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

@@ -15,6 +15,10 @@ type
     //MODULO PRESUPUESTOS DE CLIENTE
     function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
+    //MODULO ALBARANES DE CLIENTE
+    function DarListaAnosAlbaranesCli: TStringList;    
+    function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant; const Serie: Variant): Binary;
+
     //MODULO FACTURAS DE CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

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

@@ -125,7 +125,7 @@ object PluginGestorInformes: TPluginGestorInformes
     end
     object actInformeFacturasClienteGrafComp: TAction
       Category = 'Facturas de cliente'
-      Caption = 'Informe comparativo de facturaci'#243'n de clientes'
+      Caption = 'Informe comparativo de facturas de clientes'
       ImageIndex = 0
       OnExecute = actInformeFacturasClienteGrafCompExecute
     end
@@ -141,6 +141,12 @@ object PluginGestorInformes: TPluginGestorInformes
       ImageIndex = 0
       OnExecute = actInformeBeneficiosGrafCompExecute
     end
+    object actInformeAlbaranesClienteGrafComp: TAction
+      Category = 'Albaranes de cliente'
+      Caption = 'Informe comparativo de albaranes de clientes'
+      ImageIndex = 0
+      OnExecute = actInformeAlbaranesClienteGrafCompExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = LargeImages
@@ -204,6 +210,10 @@ object PluginGestorInformes: TPluginGestorInformes
         Tag = 140
         Caption = '-'
       end
+      object actInformeAlbaranesClienteGrafComp1: TMenuItem
+        Tag = 150
+        Action = actInformeAlbaranesClienteGrafComp
+      end
       object Informecomparativodefacturacindeclientes1: TMenuItem
         Tag = 160
         Action = actInformeFacturasClienteGrafComp

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

@@ -48,6 +48,8 @@ type
     Informecomparativodefacturacindeproveedores1: TMenuItem;
     actInformeBeneficiosGrafComp: TAction;
     Informecomparativodebeneficios1: TMenuItem;
+    actInformeAlbaranesClienteGrafComp: TAction;
+    actInformeAlbaranesClienteGrafComp1: TMenuItem;
     procedure actInformeFacturasClienteExecute(Sender: TObject);
     procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
     procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
@@ -61,6 +63,7 @@ type
     procedure actInformeFacturasClienteGrafCompExecute(Sender: TObject);
     procedure actInformeFacturasProveedorGrafCompExecute(Sender: TObject);
     procedure actInformeBeneficiosGrafCompExecute(Sender: TObject);
+    procedure actInformeAlbaranesClienteGrafCompExecute(Sender: TObject);
   private
     FController : IGestorInformesController;
   public
@@ -84,6 +87,12 @@ end;
 exports
   GetModule name GET_MODULE_FUNC;
 
+procedure TPluginGestorInformes.actInformeAlbaranesClienteGrafCompExecute(
+  Sender: TObject);
+begin
+  FController.VerInformeAlbaranesCliGrafComp;
+end;
+
 procedure TPluginGestorInformes.actInformeBeneficiosGrafCompExecute(
   Sender: TObject);
 begin

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

@@ -41,6 +41,10 @@ type
     //MODULO PRESUPUESTOS CLIENTE
     function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
+    //MODULO ALBARANES CLIENTE
+    function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
+    function DarListaAnosAlbaranesCli: StringArray;
+
     //MODULO FACTURAS CLIENTE
     function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -48,7 +52,7 @@ type
 
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
     function DarListaAnosFacturasCli: StringArray;
-    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;    
+    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
 
     //MODULO RECIBOS CLIENTE
     function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -77,13 +81,26 @@ uses
   {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, Dialogs,
   uRptPresupuestosCliente_Server, uRptFacturasCliente_Server, uRptRecibosCliente_Server,
   uRptPedidosProveedor_Server, uRptFacturasProveedor_Server, uRptRecibosProveedor_Server,
-  srvFacturasProveedor_Impl, srvFacturasCliente_Impl;
+  srvFacturasProveedor_Impl, srvFacturasCliente_Impl, srvAlbaranesCliente_Impl, uRptAlbaranesCliente_Server;
 
 procedure Create_srvGestorInformes(out anInstance: IUnknown);
 begin
   anInstance := TsrvGestorInformes.Create(nil);
 end;
 
+function TsrvGestorInformes.DarListaAnosAlbaranesCli: StringArray;
+var
+  AServer : TsrvAlbaranesCliente;
+begin
+  Result := Nil;
+  AServer := TsrvAlbaranesCliente.Create(nil);
+  try
+    Result := AServer.DarListaAnos;
+  finally
+    FreeAndNIL(AServer);
+  end;
+end;
+
 function TsrvGestorInformes.DarListaAnosFacturasCli: StringArray;
 var
   AServer : TsrvFacturasCliente;
@@ -118,6 +135,20 @@ begin
   Result.Add(CTE_SEMESTRAL);
 end;
 
+function TsrvGestorInformes.GenerarInformeAlbaranesCliGrafComp(
+  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
+  const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
+var
+  AReportGenerator : TRptAlbaranesCliente;
+begin
+  AReportGenerator := TRptAlbaranesCliente.Create(nil);
+  try
+    Result := AReportGenerator.GenerarInformeAlbaranesGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDClientes, TopN, Serie);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 function TsrvGestorInformes.GenerarInformeBeneficiosGrafComp(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2,
   Serie: Variant): Binary;

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

@@ -92,6 +92,7 @@ contains
   uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {frViewIntervaloComparativo: TFrame},
   uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm},
   uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm},
-  uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm};
+  uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm},
+  uEditorInformeAlbaranesClienteReportGrafComp in 'uEditorInformeAlbaranesClienteReportGrafComp.pas' {fEditorInformeAlbaranesClienteReportGrafComp: TForm};
 
 end.

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

@@ -75,12 +75,16 @@
     <DCCReference Include="rtl.dcp" />
     <DCCReference Include="tb2k_d10.dcp" />
     <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="uEditorInformeAlbaranesClienteReportGrafComp.pas">
+      <Form>fEditorInformeBeneficiosReportGrafComp</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorInformeBeneficiosReportGrafComp.pas">
-      <Form>fEditorInformeFacturasProveedorReportGrafComp</Form>
+      <Form>fEditorInformeBeneficiosReportGrafComp</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">

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

@@ -0,0 +1,210 @@
+inherited fEditorInformeAlbaranesClienteReportGrafComp: TfEditorInformeAlbaranesClienteReportGrafComp
+  Caption = 'fEditorInformeAlbaranesClienteReportGrafComp'
+  ClientHeight = 655
+  ClientWidth = 895
+  ExplicitWidth = 903
+  ExplicitHeight = 689
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 895
+    ExplicitWidth = 895
+    inherited Image1: TImage
+      Left = 868
+      ExplicitLeft = 868
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Width = 895
+    ExplicitWidth = 895
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 895
+    end
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 591
+      object TBXItem58: TTBXItem [0]
+        Action = actRefrescar
+        DisplayMode = nbdmImageAndText
+        Images = SmallImages
+      end
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Top = 636
+    Width = 895
+    ExplicitTop = 636
+    ExplicitWidth = 895
+  end
+  inherited TBXMultiDockIzquierdo: TTBXMultiDock
+    Height = 534
+    ExplicitHeight = 534
+  end
+  inherited TBXMultiDockDerecho: TTBXMultiDock
+    Left = 703
+    Width = 192
+    Height = 534
+    ExplicitLeft = 703
+    ExplicitWidth = 192
+    ExplicitHeight = 534
+    inherited pnlParametros: TTBXDockablePanel
+      DockedWidth = 188
+      ExplicitWidth = 192
+      ExplicitHeight = 518
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        Top = 368
+        ExplicitTop = 368
+        ExplicitWidth = 188
+        inherited TBXButton1: TTBXButton
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 182
+          Height = 37
+          Margins.Left = 8
+          Margins.Top = 8
+          Margins.Right = 8
+          Margins.Bottom = 8
+          Align = alTop
+          ExplicitLeft = 3
+          ExplicitTop = 3
+          ExplicitWidth = 182
+          ExplicitHeight = 37
+        end
+      end
+      inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
+        Left = 0
+        Top = 0
+        Width = 188
+        Height = 313
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 1
+        ReadOnly = False
+        ExplicitWidth = 188
+        ExplicitHeight = 313
+        inherited TBXAlignmentPanel2: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label3: TLabel
+            Width = 172
+          end
+          inherited cbIntervalo: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited TBXAlignmentPanel3: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited lis: TLabel
+            Width = 172
+          end
+          inherited cbAno1: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label1: TLabel
+            Width = 172
+          end
+          inherited cbAno2: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
+        inherited TBXAlignmentPanel4: TTBXAlignmentPanel
+          Top = 224
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label2: TLabel
+            Width = 172
+          end
+        end
+        inherited TBXAlignmentPanel5: TTBXAlignmentPanel
+          Top = 176
+          Width = 182
+          ExplicitTop = 161
+          ExplicitWidth = 182
+          inherited Label4: TLabel
+            Width = 172
+            ExplicitLeft = -3
+            ExplicitTop = 0
+            ExplicitWidth = 172
+          end
+          inherited cbSerie: TcxComboBox
+            Properties.Items.Strings = (
+              'Todos'
+              'Servidos'
+              'Incidencias'
+              'Fuera de fecha'
+              #211'rdenes dev.')
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
+      end
+      inline frViewFiltroClientes1: TfrViewFiltroClientes
+        Left = 0
+        Top = 313
+        Width = 188
+        Height = 195
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 2
+        Visible = False
+        ReadOnly = False
+        ExplicitTop = 220
+        ExplicitWidth = 188
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited bElegirCliente: TBitBtn
+          Width = 119
+          ExplicitWidth = 119
+        end
+        inherited edtCliente: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 152
+          Width = 152
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,186 @@
+unit uEditorInformeAlbaranesClienteReportGrafComp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+  frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+  frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+  JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+  StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+  TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+  JvExControls, JvNavigationPane, uCustomView,
+  uViewBase, uViewPeriodoFechas, uControllerBase,
+  dxLayoutControl, cxControls, uViewFiltroImportes,
+  FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
+  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeAlbaranesClienteReportGrafComp,
+  uViewIntervaloComparativo, uViewFiltroClientes;
+
+type
+  TfEditorInformeAlbaranesClienteReportGrafComp = class(TfEditorInformeBase, IEditorInformeAlbaranesClienteReportGrafComp)
+    TBXItem58: TTBXItem;
+    frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
+    frViewFiltroClientes1: TfrViewFiltroClientes;
+    procedure actRefrescarExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+
+  private
+    FListaIDClientes: TIntegerArray;
+    function GetIntervalo: Variant;
+    function GetAno1: Variant;
+    function GetAno2: Variant;
+    function GetSerie: variant;
+    function GetListaIDClientes: TIntegerArray;
+    function GetNTop: Variant;
+
+    procedure RefrescarInforme;
+
+  protected
+    procedure SetController (const Value : IControllerBase); override;
+
+  public
+    property Intervalo: Variant read GetIntervalo;
+    property Ano1: Variant read GetAno1;
+    property Ano2: Variant read GetAno2;
+    property ListaIDClientes: TIntegerArray read GetListaIDClientes;
+    property NTop: Variant read GetNTop;
+    property Serie: Variant read GetSerie;    
+
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
+
+{ TfEditorGestorInformesReport }
+
+procedure TfEditorInformeAlbaranesClienteReportGrafComp.actRefrescarExecute(Sender: TObject);
+begin
+  inherited;
+  RefrescarInforme;
+end;
+
+constructor TfEditorInformeAlbaranesClienteReportGrafComp.Create(AOwner: TComponent);
+begin
+  inherited;
+  FListaIDClientes := TIntegerArray.Create;
+end;
+
+destructor TfEditorInformeAlbaranesClienteReportGrafComp.Destroy;
+begin
+  FListaIDClientes.Free;
+  inherited;
+end;
+
+procedure TfEditorInformeAlbaranesClienteReportGrafComp.FormShow(Sender: TObject);
+begin
+  inherited;
+  actTodaPagina.Execute;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetIntervalo: Variant;
+begin
+  Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetAno1: Variant;
+begin
+  Result := frViewIntervaloComparativo1.cbAno1.EditValue;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetAno2: Variant;
+begin
+  Result := frViewIntervaloComparativo1.cbAno2.EditValue;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetListaIDClientes: TIntegerArray;
+begin
+  FListaIDClientes.Clear;
+  if Assigned(frViewFiltroClientes1.Cliente) then
+     FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
+
+  Result := FListaIDClientes;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetNTop: Variant;
+begin
+  Result := frViewIntervaloComparativo1.stopN.Value;
+end;
+
+function TfEditorInformeAlbaranesClienteReportGrafComp.GetSerie: variant;
+begin
+  Result := frViewIntervaloComparativo1.Serie;
+end;
+
+procedure TfEditorInformeAlbaranesClienteReportGrafComp.RefrescarInforme;
+var
+  AStream: Binary;
+begin
+  ShowHourglassCursor;
+  try
+
+    AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeAlbaranesCliGrafComp(
+      AppFactuGES.EmpresaActiva.ID,
+      Intervalo,
+      Ano1,
+      Ano2,
+      ListaIDClientes,
+      NTop,
+      Serie);
+
+    LoadFromStream(AStream);
+    Report.ShowPreparedReport;
+  finally
+    FreeAndNil(AStream);
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TfEditorInformeAlbaranesClienteReportGrafComp.SetController(
+  const Value: IControllerBase);
+var
+  AListaAnos: TStringList;
+  AListaIntervalos: TStringList;
+  i: Integer;
+
+begin
+  inherited;
+
+  AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos;
+  AListaAnos := (Controller as IGestorInformesController).DarListaAnosAlbaranesCli;
+
+  if Assigned(AListaIntervalos) then
+  begin
+    frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
+    frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
+    for i := 0 to AListaIntervalos.Count - 1 do
+        frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
+    frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
+  end;
+
+  if Assigned(AListaAnos) then
+  begin
+    frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
+    frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
+    frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
+    frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
+    for i := 0 to AListaAnos.Count - 2 do
+    begin
+        frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
+        frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
+    end;
+    frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
+    frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
+  end;
+
+  frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
+  frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
+end;
+
+end.

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

@@ -155,7 +155,6 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
         end
         inherited TBXAlignmentPanel5: TTBXAlignmentPanel
           Width = 182
-          ExplicitTop = 225
           ExplicitWidth = 182
           inherited Label4: TLabel
             Width = 172

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

@@ -168,7 +168,7 @@ begin
     frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
     frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
     frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
-    for i := 0 to AListaAnos.Count - 1 do
+    for i := 0 to AListaAnos.Count - 2 do
     begin
         frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
         frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);

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

@@ -143,6 +143,21 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
             Width = 172
           end
         end
+        inherited TBXAlignmentPanel5: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label4: TLabel
+            Width = 172
+          end
+          inherited cbSerie: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
       end
       inline frViewFiltroClientes1: TfrViewFiltroClientes
         Left = 0
@@ -159,7 +174,7 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
         TabOrder = 2
         Visible = False
         ReadOnly = False
-        ExplicitTop = 182
+        ExplicitTop = 220
         ExplicitWidth = 188
         inherited TBXLabel2: TTBXLabel
           Width = 188

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

@@ -162,7 +162,7 @@ begin
     frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
     frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
     frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
-    for i := 0 to AListaAnos.Count - 1 do
+    for i := 0 to AListaAnos.Count - 2 do
     begin
         frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
         frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);

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

@@ -143,6 +143,21 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
             Width = 172
           end
         end
+        inherited TBXAlignmentPanel5: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label4: TLabel
+            Width = 172
+          end
+          inherited cbSerie: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 166
+            Width = 166
+          end
+        end
       end
       inline frViewFiltroProveedores1: TfrViewFiltroProveedores
         Left = 0
@@ -159,7 +174,7 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
         TabOrder = 2
         Visible = False
         ReadOnly = False
-        ExplicitTop = 182
+        ExplicitTop = 220
         ExplicitWidth = 188
         inherited TBXLabel2: TTBXLabel
           Width = 188

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

@@ -163,7 +163,7 @@ begin
     frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
     frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
     frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
-    for i := 0 to AListaAnos.Count - 1 do
+    for i := 0 to AListaAnos.Count - 2 do
     begin
         frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
         frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);

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

@@ -16,7 +16,7 @@ uses
   uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
   uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport,
 
-  uEditorInformeFacturasProveedorReportGrafComp, uEditorInformeFacturasClienteReportGrafComp, uEditorInformeBeneficiosReportGrafComp;
+  uEditorInformeAlbaranesClienteReportGrafComp, uEditorInformeFacturasProveedorReportGrafComp, uEditorInformeFacturasClienteReportGrafComp, uEditorInformeBeneficiosReportGrafComp;
 
 procedure RegisterViews;
 begin
@@ -34,6 +34,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorInformeRecibosProveedorReport, 'EditorInformeRecibosProveedorReport');
   EditorRegistry.RegisterClass(TfEditorInformeRecibosProvPendientesReport, 'EditorInformeRecibosProvPendientesReport');
 
+  EditorRegistry.RegisterClass(TfEditorInformeAlbaranesClienteReportGrafComp, 'EditorInformeAlbaranesClienteReportGrafComp');
   EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorReportGrafComp, 'EditorInformeFacturasProveedorReportGrafComp');
   EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReportGrafComp, 'EditorInformeFacturasClienteReportGrafComp');
   EditorRegistry.RegisterClass(TfEditorInformeBeneficiosReportGrafComp, 'EditorInformeBeneficiosReportGrafComp');
@@ -42,7 +43,7 @@ end;
 procedure UnregisterViews;
 begin
   EditorRegistry.UnRegisterClass(TfEditorInformePresupuestosReport);
-  EditorRegistry.UnRegisterClass(TfEditorInformePedidosReport);  
+  EditorRegistry.UnRegisterClass(TfEditorInformePedidosReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClientePendientesReport);
@@ -54,10 +55,11 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorPendientesReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeRecibosProveedorReport);
   EditorRegistry.UnRegisterClass(TfEditorInformeRecibosProvPendientesReport);
-  EditorRegistry.UnRegisterClass(TfEditorInformeBeneficiosReportGrafComp);  
+  EditorRegistry.UnRegisterClass(TfEditorInformeBeneficiosReportGrafComp);
 
   EditorRegistry.UnRegisterClass(TfEditorInformeFacturasProveedorReportGrafComp);
-  EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReportGrafComp);    
+  EditorRegistry.UnRegisterClass(TfEditorInformeFacturasClienteReportGrafComp);
+  EditorRegistry.UnRegisterClass(TfEditorInformeAlbaranesClienteReportGrafComp);  
 end;
 
 end.

Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm

@@ -60,7 +60,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
     end
     inherited TBXTMain2: TTBXToolbar
       Left = 427
-      Visible = True
       ExplicitLeft = 427
       ExplicitWidth = 66
       object TBXItem38: TTBXItem

Source/Servicios/FactuGES.RODL

@@ -480,6 +480,12 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="DarListaAnos" UID="{2402E7D4-36C7-4137-84F8-E25C3AC2808B}">
+<Parameters>
+<Parameter Name="Result" DataType="StringArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -948,6 +954,12 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="DarListaAnosAlbaranesCli" UID="{7256D6EA-D4CF-4548-AE0D-A8ECDBA44EF3}">
+<Parameters>
+<Parameter Name="Result" DataType="StringArray" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
 <Operation Name="DarListaIntervalos" UID="{AB9C51F0-CD95-4A81-A1AE-EAED4FBC6704}">
 <Parameters>
 <Parameter Name="Result" DataType="StringArray" Flag="Result">
@@ -990,6 +1002,26 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerarInformeAlbaranesCliGrafComp" UID="{AE22464B-C914-4833-AEAE-1E588D375173}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="Intervalo" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="Ano1" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="Ano2" DataType="Variant" Flag="In" >
+</Parameter>
+<Parameter Name="ListaIDClientes" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+<Parameter Name="TopN" DataType="Integer" Flag="In" >
+</Parameter>
+<Parameter Name="Serie" DataType="Variant" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 <Operation Name="GenerarInformeBeneficiosGrafComp" UID="{A94F57D9-1252-49A2-8487-467FA346CB9B}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">

Source/Servicios/FactuGES_Intf.pas

@@ -624,6 +624,7 @@ type
     function GenerarInformeEnWord(const ID: Integer): Binary;
     function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
                                  const VerIncidencias: Boolean): Binary;
+    function DarListaAnos: StringArray;
   end;
 
   { CosrvAlbaranesCliente }
@@ -642,6 +643,7 @@ type
     function GenerarInformeEnWord(const ID: Integer): Binary;
     function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
                                  const VerIncidencias: Boolean): Binary;
+    function DarListaAnos: StringArray;
   end;
 
   { IsrvAlbaranesProveedor }
@@ -821,11 +823,14 @@ type
                                           const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function DarListaAnosFacturasProv: StringArray;
     function DarListaAnosFacturasCli: StringArray;
+    function DarListaAnosAlbaranesCli: StringArray;
     function DarListaIntervalos: StringArray;
     function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; 
                                                 const TopN: Integer): Binary;
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
                                                const TopN: Integer): Binary;
+    function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
+                                                const TopN: Integer; const Serie: Variant): Binary;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
   end;
 
@@ -865,11 +870,14 @@ type
                                           const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function DarListaAnosFacturasProv: StringArray;
     function DarListaAnosFacturasCli: StringArray;
+    function DarListaAnosAlbaranesCli: StringArray;
     function DarListaIntervalos: StringArray;
     function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; 
                                                 const TopN: Integer): Binary;
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
                                                const TopN: Integer): Binary;
+    function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
+                                                const TopN: Integer; const Serie: Variant): Binary;
     function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
   end;
 
@@ -2302,6 +2310,22 @@ begin
   end
 end;
 
+function TsrvAlbaranesCliente_Proxy.DarListaAnos: StringArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaAnos');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DataAbstract4_Intf.StringArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvAlbaranesProveedor }
 
 class function CosrvAlbaranesProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesProveedor;
@@ -2967,6 +2991,22 @@ begin
   end
 end;
 
+function TsrvGestorInformes_Proxy.DarListaAnosAlbaranesCli: StringArray;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaAnosAlbaranesCli');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(DataAbstract4_Intf.StringArray), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 function TsrvGestorInformes_Proxy.DarListaIntervalos: StringArray;
 begin
   try
@@ -3029,6 +3069,30 @@ begin
   end
 end;
 
+function TsrvGestorInformes_Proxy.GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
+                                                                     const TopN: Integer; const Serie: Variant): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeAlbaranesCliGrafComp');
+    __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+    __Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []);
+    __Message.Write('Ano1', TypeInfo(Variant), Ano1, []);
+    __Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
+    __Message.Write('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
+    __Message.Write('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Write('Serie', TypeInfo(Variant), Serie, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 function TsrvGestorInformes_Proxy.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
 begin
   try

Source/Servicios/FactuGES_Invk.pas

@@ -220,6 +220,7 @@ type
     procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_DarListaAnos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
@@ -311,9 +312,11 @@ type
     procedure Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaAnosFacturasProv(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);
+    procedure Invoke_DarListaAnosAlbaranesCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaIntervalos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeFacturasProvGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeFacturasCliGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeAlbaranesCliGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeBeneficiosGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
@@ -1531,6 +1534,31 @@ begin
   end;
 end;
 
+procedure TsrvAlbaranesCliente_Invoker.Invoke_DarListaAnos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function DarListaAnos: StringArray; }
+var
+  lResult: DataAbstract4_Intf.StringArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IsrvAlbaranesCliente).DarListaAnos;
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'DarListaAnosResponse');
+    __Message.Write('Result', TypeInfo(DataAbstract4_Intf.StringArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvAlbaranesProveedor_Invoker }
 
 constructor TsrvAlbaranesProveedor_Invoker.Create;
@@ -2538,6 +2566,31 @@ begin
   end;
 end;
 
+procedure TsrvGestorInformes_Invoker.Invoke_DarListaAnosAlbaranesCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function DarListaAnosAlbaranesCli: StringArray; }
+var
+  lResult: DataAbstract4_Intf.StringArray;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    lResult := (__Instance as IsrvGestorInformes).DarListaAnosAlbaranesCli;
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'DarListaAnosAlbaranesCliResponse');
+    __Message.Write('Result', TypeInfo(DataAbstract4_Intf.StringArray), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 procedure TsrvGestorInformes_Invoker.Invoke_DarListaIntervalos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaIntervalos: StringArray; }
 var
@@ -2645,6 +2698,49 @@ begin
   end;
 end;
 
+procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeAlbaranesCliGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeAlbaranesCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; 
+                                                const TopN: Integer; const Serie: Variant): Binary; }
+var
+  IdEmpresa: Integer;
+  Intervalo: Variant;
+  Ano1: Variant;
+  Ano2: Variant;
+  ListaIDClientes: FactuGES_Intf.TIntegerArray;
+  TopN: Integer;
+  Serie: Variant;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaIDClientes := nil;
+  lResult := nil;
+  try
+    __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
+    __Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []);
+    __Message.Read('Ano1', TypeInfo(Variant), Ano1, []);
+    __Message.Read('Ano2', TypeInfo(Variant), Ano2, []);
+    __Message.Read('ListaIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDClientes, []);
+    __Message.Read('TopN', TypeInfo(Integer), TopN, []);
+    __Message.Read('Serie', TypeInfo(Variant), Serie, []);
+
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeAlbaranesCliGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDClientes, TopN, Serie);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeAlbaranesCliGrafCompResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaIDClientes);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeBeneficiosGrafComp(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; }
 var

Source/Servidor/FactuGES_Server.dproj

@@ -1,405 +1,406 @@
-<?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>
-		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-	</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>
-		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-		<DCC_DebugVN>True</DCC_DebugVN>
+    <DCC_DebugVN>True</DCC_DebugVN>
-		<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+    <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-		<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+    <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-		<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+    <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-		<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+    <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-	</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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</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">4.1.5.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">4.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de marzo de 2011 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</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">4.1.6.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">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 31 de marzo de 2011 19:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-	</ProjectExtensions>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  </ProjectExtensions>
-	<ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DelphiCompile Include="FactuGES_Server.dpr">
+  <ItemGroup>
-			<MainSource>MainSource</MainSource>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		</DelphiCompile>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
-			<Form>srvEmpresas</Form>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvEmpresas</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+    </DCCReference>
-			<Form>srvProvinciasPoblaciones_Impl</Form>
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>srvProvinciasPoblaciones_Impl</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-			<Form>srvUsuarios</Form>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvUsuarios</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-			<Form>RptAlbaranesCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+    </DCCReference>
-			<Form>RptWordAlbaranCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordAlbaranCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-			<Form>RptAlbaranesProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptAlbaranesProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
+    </DCCReference>
-			<Form>RptWordAlbaranProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordAlbaranProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvAlbaranesProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvAlbaranesProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-			<Form>srvAlmacenes</Form>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvAlmacenes</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
-			<Form>srvArticulos</Form>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvArticulos</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
-			<Form>RptComisiones</Form>
+    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptComisiones</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+    </DCCReference>
-			<Form>srvComisiones</Form>
+    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvComisiones</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-			<Form>RptEtiquetasContacto</Form>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptEtiquetasContacto</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+    </DCCReference>
-			<Form>RptFichasEmpleado</Form>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptFichasEmpleado</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    </DCCReference>
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvContactos</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
-			<Form>srvFabricantes</Form>
+    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFabricantes</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-			<Form>RptFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptFacturasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+    </DCCReference>
-			<Form>RptWordFacturaCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordFacturaCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFacturasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-			<Form>RptFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptFacturasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFacturasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-			<Form>srvFamilias</Form>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFamilias</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-			<Form>srvFormasPago</Form>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFormasPago</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+    </DCCReference>
-			<Form>srvGestorDocumentos</Form>
+    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvGestorDocumentos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+    </DCCReference>
-			<Form>srvGestorInformes</Form>
+    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvGestorInformes</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-			<Form>srvHistoricoMovimientos</Form>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvHistoricoMovimientos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
-			<Form>srvImpresiones</Form>
+    <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvImpresiones</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
+    </DCCReference>
-			<Form>srvInfMargenArticulo</Form>
+    <DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvInfMargenArticulo</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
+    </DCCReference>
-			<Form>srvInfVentasArticulo</Form>
+    <DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvInfVentasArticulo</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
+    <DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
-			<Form>srvInformes</Form>
+    <DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvInformes</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-			<Form>srvInventario</Form>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvInventario</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
-			<Form>srvObras</Form>
+    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvObras</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-			<Form>RptPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptPedidosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+    </DCCReference>
-			<Form>RptWordPedidoProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordPedidoProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPedidosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
-			<Form>RptPedidosCliente</Form>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptPedidosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvPedidosCliente</Form>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPedidosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-			<Form>RptPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptPresupuestosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+    </DCCReference>
-			<Form>RptWordCertificadoTrabajo</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordCertificadoTrabajo</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+    </DCCReference>
-			<Form>RptWordPresupuestoCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptWordPresupuestoCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPresupuestosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-			<Form>RptRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptRecibosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRecibosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-			<Form>RptRecibosProveedor</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptRecibosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvRecibosProveedor</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRecibosProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.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\Servidor\srvReferencias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvReferencias</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
+    </DCCReference>
-			<Form>srvRegistroCorreos</Form>
+    <DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRegistroCorreos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-			<Form>RptRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptRemesasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<Form>RptRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptRemesasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
-		<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
-			<Form>srvTiendaWeb</Form>
+    <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvTiendaWeb</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-			<Form>srvTiposIVA</Form>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvTiposIVA</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<Form>srvUnidadesMedida</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvUnidadesMedida</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    </DCCReference>
-			<Form>frConexionBD</Form>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>frConexionBD</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Configuracion\uConexionOSC.pas">
+    </DCCReference>
-			<Form>frConexionOSC</Form>
+    <DCCReference Include="Configuracion\uConexionOSC.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>frConexionOSC</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    </DCCReference>
-			<Form>frConfGeneral</Form>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>frConfGeneral</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    </DCCReference>
-			<Form>fConfiguracion</Form>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<DesignClass>TForm</DesignClass>
+      <Form>fConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TForm</DesignClass>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    </DCCReference>
-			<Form>FrameConfiguracion</Form>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>FrameConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="srvLogin_Impl.pas">
+    </DCCReference>
-			<Form>srvLogin</Form>
+    <DCCReference Include="srvLogin_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
+      <Form>srvLogin</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="uAcercaDe.pas">
+    </DCCReference>
-			<Form>fAcercaDe</Form>
+    <DCCReference Include="uAcercaDe.pas">
-		</DCCReference>
+      <Form>fAcercaDe</Form>
-		<DCCReference Include="uDataModuleServer.pas">
+    </DCCReference>
-			<Form>dmServer</Form>
+    <DCCReference Include="uDataModuleServer.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>dmServer</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="uServerMainForm.pas">
+    </DCCReference>
-			<Form>fServerForm</Form>
+    <DCCReference Include="uServerMainForm.pas">
-		</DCCReference>
+      <Form>fServerForm</Form>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+    <DCCReference Include="Utiles\AHWord97.pas" />
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-		<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-	</ItemGroup>
+    <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]