Version 4.2.8

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@179 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
2013-02-13 11:18:17 +00:00 · 2013-02-13 11:18:17 +00:00 · abbf8134ac
commit abbf8134ac
parent 4b730a9966
66 changed files with 1535 additions and 514 deletions
--- a/Build/Build.fbl6
+++ b/Build/Build.fbl6
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@ -395,7 +395,13 @@ CREATE TABLE ALBARANES_PROVEEDOR (
    REFERENCIA_PROVEEDOR  VARCHAR(255),
    REF_FACTURA_PROV      VARCHAR(255),
    ID_ALBARAN					  TIPO_ID,
-    ID_ALBARAN_DEV        TIPO_ID    
+    ID_ALBARAN_DEV        TIPO_ID,
    ID_CLIENTE_FINAL       TIPO_ID,
    ID_TIPO_IVA            TIPO_ID,
    RECARGO_EQUIVALENCIA   TIPO_BOOLEANO,
    RE                     TIPO_PORCENTAJE,
    IMPORTE_RE             TIPO_IMPORTE,
    FECHA_SERVICIO         DATE        
 );
 CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
@ -1528,6 +1534,7 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
    REFERENCIA,
    REFERENCIA_PROVEEDOR,
    TIPO,
    SITUACION,
    ID_ALBARAN_DEV,
    REFERENCIA_ALB_DEV,
    ID_FAC_ALB_DEV,
@ -1562,7 +1569,12 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
    USUARIO,
    ID_FORMA_PAGO,
    NUM_COPIAS,
-    NUM_CORREOS)
+    NUM_CORREOS,
    ID_TIPO_IVA,
    RECARGO_EQUIVALENCIA,
    RE,
    IMPORTE_RE,
    FECHA_SERVICIO)
 AS
 SELECT
  ALBARANES_PROVEEDOR.ID,
@ -1577,6 +1589,9 @@ SELECT
  ALBARANES_PROVEEDOR.REFERENCIA,
  ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
  ALBARANES_PROVEEDOR.TIPO,
  case when (ALBARANES_PROVEEDOR.FECHA_SERVICIO is null) then 'PENDIENTE'
       else 'REALIZADO'
  end as SITUACION,
  ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
  ALB_DEV.REFERENCIA,
  ALB_DEV.ID_FACTURA,
@ -1611,7 +1626,13 @@ SELECT
  ALBARANES_PROVEEDOR.USUARIO,
  ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
  IMPRESIONES.NUM_COPIAS,
-  REGISTRO_CORREOS.NUM_CORREOS
+  REGISTRO_CORREOS.NUM_CORREOS,
  ALBARANES_PROVEEDOR.ID_TIPO_IVA,
  ALBARANES_PROVEEDOR.RECARGO_EQUIVALENCIA,
  ALBARANES_PROVEEDOR.RE,
  ALBARANES_PROVEEDOR.IMPORTE_RE,
  ALBARANES_PROVEEDOR.FECHA_SERVICIO
 FROM
  ALBARANES_PROVEEDOR
  INNER JOIN CONTACTOS PROVEEDORES ON (PROVEEDORES.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
@ -1630,7 +1651,6 @@ FROM
 /* View: V_ALMACENES */
 CREATE VIEW V_ALMACENES(
    ID,
--- a/Resources/Keiblair-Logo.png
+++ b/Resources/Keiblair-Logo.png
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@ -45,6 +45,10 @@
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
    </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -54,58 +58,6 @@
    <DelphiCompile Include="Base.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
    <DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dxCoreD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
    <DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
    <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
      <Form>DataModuleImpresiones</Form>
      <DesignClass>TDataModule</DesignClass>
@ -115,6 +67,58 @@
      <DesignClass>TDataModule</DesignClass>
    </DCCReference>
    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
    <DCCReference Include="..\Servidor\adortl.dcp" />
    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
    <DCCReference Include="..\Servidor\cxExportD11.dcp" />
    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
    <DCCReference Include="..\Servidor\cxIntl6D11.dcp" />
    <DCCReference Include="..\Servidor\cxIntlPrintSys3D11.dcp" />
    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
    <DCCReference Include="..\Servidor\dbrtl.dcp" />
    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
    <DCCReference Include="..\Servidor\designide.dcp" />
    <DCCReference Include="..\Servidor\dsnap.dcp" />
    <DCCReference Include="..\Servidor\dxCoreD11.dcp" />
    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
    <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
    <DCCReference Include="..\Servidor\IndyCore.dcp" />
    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
    <DCCReference Include="..\Servidor\IndySystem.dcp" />
    <DCCReference Include="..\Servidor\Jcl.dcp" />
    <DCCReference Include="..\Servidor\JclVcl.dcp" />
    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
    <DCCReference Include="..\Servidor\pckMD5.dcp" />
    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
    <DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
    <DCCReference Include="..\Servidor\rtl.dcp" />
    <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
    <DCCReference Include="..\Servidor\vcl.dcp" />
    <DCCReference Include="..\Servidor\vclactnband.dcp" />
    <DCCReference Include="..\Servidor\vcldb.dcp" />
    <DCCReference Include="..\Servidor\vcljpg.dcp" />
    <DCCReference Include="..\Servidor\VclSmp.dcp" />
    <DCCReference Include="..\Servidor\vclx.dcp" />
    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
    <DCCReference Include="Conexion\uConfigurarConexion.pas">
      <Form>fConfigurarConexion</Form>
      <DesignClass>TForm</DesignClass>
--- a/Source/Cliente/FactuGES.dproj
+++ b/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">2</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.2.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.2.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>
+<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">2</VersionInfo><VersionInfo Name="Release">8</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.2.8.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.2.8.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>
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 4,2,6,0
+FILEVERSION 4,2,8,0
-PRODUCTVERSION 4,2,6,0
+PRODUCTVERSION 4,2,8,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
         BLOCK "0C0A04E4"
         BEGIN
              VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "4.2.6.0\0"
+              VALUE "FileVersion", "4.2.8.0\0"
              VALUE "InternalName", "FactuGES\0"
              VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "4.2.6.0\0"
+              VALUE "ProductVersion", "4.2.8.0\0"
         END
    END
    BLOCK "VarFileInfo"
--- a/Source/Cliente/FactuGES.res
+++ b/Source/Cliente/FactuGES.res
--- a/Source/Informes/1/InfFacturaProveedor.fr3
+++ b/Source/Informes/1/InfFacturaProveedor.fr3
--- a/Source/Informes/2/InfFacturaProveedor.fr3
+++ b/Source/Informes/2/InfFacturaProveedor.fr3
--- a/Source/Informes/4/InfAlbaranProveedor.fr3
+++ b/Source/Informes/4/InfAlbaranProveedor.fr3
--- a/Source/Informes/5/InfFacturaProveedor.fr3
+++ b/Source/Informes/5/InfFacturaProveedor.fr3
--- a/cliente/Views/uViewAlbaranesCliente.dfm
+++ b/cliente/Views/uViewAlbaranesCliente.dfm
@ -258,8 +258,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitLeft = 638
          ExplicitWidth = 215
          Width = 215
        end
      end
      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
--- a/cliente/Views/uViewAlbaranesCliente.pas
+++ b/cliente/Views/uViewAlbaranesCliente.pas
@ -356,11 +356,6 @@ begin
         AStyle := cxStyleBLOQUEADOS;
    end;
  end;
 end;
 function TfrViewAlbaranesCliente.GetAlbaranes: IBizAlbaranCliente;
--- a/proveedor/AlbaranesProveedor_Group.groupproj
+++ b/proveedor/AlbaranesProveedor_Group.groupproj
@ -12,11 +12,9 @@
    <Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
    <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
    <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
    <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
    <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
    <Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
    <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
    <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
    <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
    <Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
@ -193,32 +191,14 @@
  <Target Name="AlbaranesCliente_view:Make">
    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
  </Target>
  <Target Name="PedidosProveedor_view">
    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
  </Target>
  <Target Name="PedidosProveedor_view:Clean">
    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
  </Target>
  <Target Name="PedidosProveedor_view:Make">
    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
  </Target>
  <Target Name="Contactos_controller">
    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
  </Target>
  <Target Name="Contactos_controller:Clean">
    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
  </Target>
  <Target Name="Contactos_controller:Make">
    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
  </Target>
  <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;PedidosProveedor_view;Contactos_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" />
  </Target>
  <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;PedidosProveedor_view:Clean;Contactos_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" />
  </Target>
  <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;PedidosProveedor_view:Make;Contactos_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" />
  </Target>
  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
--- a/proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@ -101,6 +101,11 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'AlbaranesProveedor_TIPO'
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 9
      end
      item
        Name = 'ID_ALBARAN_DEV'
        DataType = datInteger
@ -317,6 +322,26 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
      item
        Name = 'NUM_CORREOS'
        DataType = datSmallInt
      end
      item
        Name = 'ID_TIPO_IVA'
        DataType = datInteger
      end
      item
        Name = 'RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
      end
      item
        Name = 'RE'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
      end
      item
        Name = 'FECHA_SERVICIO'
        DataType = datDateTime
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
--- a/proveedor/Model/AlbaranesProveedor_model.dpk
+++ b/proveedor/Model/AlbaranesProveedor_model.dpk
@ -27,7 +27,9 @@ package AlbaranesProveedor_model;
 requires
  Base,
  Contactos_model,
-  Inventario_model;
+  Inventario_model,
  TiposIVA_model,
  TiposIVA_controller;
 contains
  uIDataModuleAlbaranesProveedor in 'Data\uIDataModuleAlbaranesProveedor.pas',
--- a/proveedor/Model/AlbaranesProveedor_model.dproj
+++ b/proveedor/Model/AlbaranesProveedor_model.dproj
@ -42,6 +42,10 @@
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
      <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
    </Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -51,11 +55,13 @@
    <DelphiCompile Include="AlbaranesProveedor_model.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
    <DCCReference Include="..\..\Lib\Inventario_model.dcp" />
    <DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" />
    <DCCReference Include="..\..\Lib\TiposIVA_model.dcp" />
    <DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
    <DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
    <DCCReference Include="Inventario_model.dcp" />
    <DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
    <DCCReference Include="schAlbaranesProveedorServer_Intf.pas" />
    <DCCReference Include="uBizAlbaranesProveedor.pas" />
--- a/proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@ -9,9 +9,9 @@ const
  { Data table rules ids
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
-  RID_ListaAnosAlbaranes = '{D863F588-DD74-4F1F-A7D4-15C0B8B3AFF5}';
+  RID_ListaAnosAlbaranes = '{0731CDB8-D257-49EC-8641-448F5CF9355E}';
-  RID_AlbaranesProveedor = '{A1E3DCE2-4616-4F91-A1CB-9283EB49201B}';
+  RID_AlbaranesProveedor = '{007A6FC1-1B9F-4E7D-8487-943F764C8CE9}';
-  RID_AlbaranesProveedor_Detalles = '{67E55271-D427-4912-A94C-02C2784E4346}';
+  RID_AlbaranesProveedor_Detalles = '{E75768B6-402F-4AFF-AF29-8D5EE4F7FC53}';
  { Data table names }
  nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -37,6 +37,7 @@ const
  fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
  fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
  fld_AlbaranesProveedorTIPO = 'TIPO';
  fld_AlbaranesProveedorSITUACION = 'SITUACION';
  fld_AlbaranesProveedorID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
  fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
  fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
@ -72,6 +73,11 @@ const
  fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
  fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
  fld_AlbaranesProveedorNUM_CORREOS = 'NUM_CORREOS';
  fld_AlbaranesProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
  fld_AlbaranesProveedorRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
  fld_AlbaranesProveedorRE = 'RE';
  fld_AlbaranesProveedorIMPORTE_RE = 'IMPORTE_RE';
  fld_AlbaranesProveedorFECHA_SERVICIO = 'FECHA_SERVICIO';
  { AlbaranesProveedor field indexes }
  idx_AlbaranesProveedorID = 0;
@ -86,41 +92,47 @@ const
  idx_AlbaranesProveedorREFERENCIA = 9;
  idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 10;
  idx_AlbaranesProveedorTIPO = 11;
-  idx_AlbaranesProveedorID_ALBARAN_DEV = 12;
+  idx_AlbaranesProveedorSITUACION = 12;
-  idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 13;
+  idx_AlbaranesProveedorID_ALBARAN_DEV = 13;
-  idx_AlbaranesProveedorID_FAC_ALB_DEV = 14;
+  idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 14;
-  idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 15;
+  idx_AlbaranesProveedorID_FAC_ALB_DEV = 15;
-  idx_AlbaranesProveedorID_ALMACEN = 16;
+  idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 16;
-  idx_AlbaranesProveedorTIPO_ALMACEN = 17;
+  idx_AlbaranesProveedorID_ALMACEN = 17;
-  idx_AlbaranesProveedorNOMBRE_ALMACEN = 18;
+  idx_AlbaranesProveedorTIPO_ALMACEN = 18;
-  idx_AlbaranesProveedorID_PEDIDO = 19;
+  idx_AlbaranesProveedorNOMBRE_ALMACEN = 19;
-  idx_AlbaranesProveedorREF_PED_PROVEEDOR = 20;
+  idx_AlbaranesProveedorID_PEDIDO = 20;
-  idx_AlbaranesProveedorID_FACTURA = 21;
+  idx_AlbaranesProveedorREF_PED_PROVEEDOR = 21;
-  idx_AlbaranesProveedorREF_FACTURA = 22;
+  idx_AlbaranesProveedorID_FACTURA = 22;
-  idx_AlbaranesProveedorREF_FACTURA_PROV = 23;
+  idx_AlbaranesProveedorREF_FACTURA = 23;
-  idx_AlbaranesProveedorCALLE = 24;
+  idx_AlbaranesProveedorREF_FACTURA_PROV = 24;
-  idx_AlbaranesProveedorCODIGO_POSTAL = 25;
+  idx_AlbaranesProveedorCALLE = 25;
-  idx_AlbaranesProveedorPOBLACION = 26;
+  idx_AlbaranesProveedorCODIGO_POSTAL = 26;
-  idx_AlbaranesProveedorPROVINCIA = 27;
+  idx_AlbaranesProveedorPOBLACION = 27;
-  idx_AlbaranesProveedorPERSONA_CONTACTO = 28;
+  idx_AlbaranesProveedorPROVINCIA = 28;
-  idx_AlbaranesProveedorTELEFONO = 29;
+  idx_AlbaranesProveedorPERSONA_CONTACTO = 29;
-  idx_AlbaranesProveedorIMPORTE_NETO = 30;
+  idx_AlbaranesProveedorTELEFONO = 30;
-  idx_AlbaranesProveedorIMPORTE_PORTE = 31;
+  idx_AlbaranesProveedorIMPORTE_NETO = 31;
-  idx_AlbaranesProveedorDESCUENTO = 32;
+  idx_AlbaranesProveedorIMPORTE_PORTE = 32;
-  idx_AlbaranesProveedorIMPORTE_DESCUENTO = 33;
+  idx_AlbaranesProveedorDESCUENTO = 33;
-  idx_AlbaranesProveedorBASE_IMPONIBLE = 34;
+  idx_AlbaranesProveedorIMPORTE_DESCUENTO = 34;
-  idx_AlbaranesProveedorIVA = 35;
+  idx_AlbaranesProveedorBASE_IMPONIBLE = 35;
-  idx_AlbaranesProveedorIMPORTE_IVA = 36;
+  idx_AlbaranesProveedorIVA = 36;
-  idx_AlbaranesProveedorIMPORTE_TOTAL = 37;
+  idx_AlbaranesProveedorIMPORTE_IVA = 37;
-  idx_AlbaranesProveedorOBSERVACIONES = 38;
+  idx_AlbaranesProveedorIMPORTE_TOTAL = 38;
-  idx_AlbaranesProveedorINCIDENCIAS = 39;
+  idx_AlbaranesProveedorOBSERVACIONES = 39;
-  idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 40;
+  idx_AlbaranesProveedorINCIDENCIAS = 40;
-  idx_AlbaranesProveedorFECHA_ALTA = 41;
+  idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 41;
-  idx_AlbaranesProveedorFECHA_MODIFICACION = 42;
+  idx_AlbaranesProveedorFECHA_ALTA = 42;
-  idx_AlbaranesProveedorUSUARIO = 43;
+  idx_AlbaranesProveedorFECHA_MODIFICACION = 43;
-  idx_AlbaranesProveedorID_FORMA_PAGO = 44;
+  idx_AlbaranesProveedorUSUARIO = 44;
-  idx_AlbaranesProveedorNUM_COPIAS = 45;
+  idx_AlbaranesProveedorID_FORMA_PAGO = 45;
-  idx_AlbaranesProveedorNUM_CORREOS = 46;
+  idx_AlbaranesProveedorNUM_COPIAS = 46;
  idx_AlbaranesProveedorNUM_CORREOS = 47;
  idx_AlbaranesProveedorID_TIPO_IVA = 48;
  idx_AlbaranesProveedorRECARGO_EQUIVALENCIA = 49;
  idx_AlbaranesProveedorRE = 50;
  idx_AlbaranesProveedorIMPORTE_RE = 51;
  idx_AlbaranesProveedorFECHA_SERVICIO = 52;
  { AlbaranesProveedor_Detalles fields }
  fld_AlbaranesProveedor_DetallesID = 'ID';
@ -163,7 +175,7 @@ const
 type
  { IListaAnosAlbaranes }
  IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
-  ['{129709FB-F54C-4830-9C08-F0B64D4A73F5}']
+  ['{F236E74E-9262-4FC7-96A7-0DB66A683FAD}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);
@ -198,7 +210,7 @@ type
  { IAlbaranesProveedor }
  IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
-  ['{F6DA3DCB-4265-4AC4-9F2E-82E54071EE76}']
+  ['{E16D24AC-E518-40AC-8273-E80D27C2D69F}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
@ -248,6 +260,10 @@ type
    procedure SetTIPOValue(const aValue: String);
    function GetTIPOIsNull: Boolean;
    procedure SetTIPOIsNull(const aValue: Boolean);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetSITUACIONIsNull: Boolean;
    procedure SetSITUACIONIsNull(const aValue: Boolean);
    function GetID_ALBARAN_DEVValue: Integer;
    procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
    function GetID_ALBARAN_DEVIsNull: Boolean;
@ -386,6 +402,26 @@ type
    procedure SetNUM_CORREOSValue(const aValue: SmallInt);
    function GetNUM_CORREOSIsNull: Boolean;
    procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
    function GetID_TIPO_IVAValue: Integer;
    procedure SetID_TIPO_IVAValue(const aValue: Integer);
    function GetID_TIPO_IVAIsNull: Boolean;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
    function GetRECARGO_EQUIVALENCIAValue: SmallInt;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
    function GetREValue: Float;
    procedure SetREValue(const aValue: Float);
    function GetREIsNull: Boolean;
    procedure SetREIsNull(const aValue: Boolean);
    function GetIMPORTE_REValue: Currency;
    procedure SetIMPORTE_REValue(const aValue: Currency);
    function GetIMPORTE_REIsNull: Boolean;
    procedure SetIMPORTE_REIsNull(const aValue: Boolean);
    function GetFECHA_SERVICIOValue: DateTime;
    procedure SetFECHA_SERVICIOValue(const aValue: DateTime);
    function GetFECHA_SERVICIOIsNull: Boolean;
    procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean);
    { Properties }
@ -413,6 +449,8 @@ type
    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
    property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
    property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
    property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
@ -483,6 +521,16 @@ type
    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property RE: Float read GetREValue write SetREValue;
    property REIsNull: Boolean read GetREIsNull write SetREIsNull;
    property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
    property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
    property FECHA_SERVICIO: DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
    property FECHA_SERVICIOIsNull: Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
  end;
  { TAlbaranesProveedorDataTableRules }
@ -542,6 +590,10 @@ type
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetTIPOIsNull: Boolean; virtual;
    procedure SetTIPOIsNull(const aValue: Boolean); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetSITUACIONIsNull: Boolean; virtual;
    procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
    function GetID_ALBARAN_DEVValue: Integer; virtual;
    procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
    function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
@ -680,6 +732,26 @@ type
    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
    function GetNUM_CORREOSIsNull: Boolean; virtual;
    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    function GetID_TIPO_IVAIsNull: Boolean; virtual;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
    function GetREValue: Float; virtual;
    procedure SetREValue(const aValue: Float); virtual;
    function GetREIsNull: Boolean; virtual;
    procedure SetREIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_REValue: Currency; virtual;
    procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
    function GetIMPORTE_REIsNull: Boolean; virtual;
    procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
    function GetFECHA_SERVICIOValue: DateTime; virtual;
    procedure SetFECHA_SERVICIOValue(const aValue: DateTime); virtual;
    function GetFECHA_SERVICIOIsNull: Boolean; virtual;
    procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean); virtual;
    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
@ -706,6 +778,8 @@ type
    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
    property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
    property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
    property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
@ -776,6 +850,16 @@ type
    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property RE: Float read GetREValue write SetREValue;
    property REIsNull: Boolean read GetREIsNull write SetREIsNull;
    property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
    property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
    property FECHA_SERVICIO: DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
    property FECHA_SERVICIOIsNull: Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
  public
    constructor Create(aDataTable: TDADataTable); override;
@ -785,7 +869,7 @@ type
  { IAlbaranesProveedor_Detalles }
  IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{CD0E6D3A-FD12-485E-957A-AEEE0582BB42}']
+  ['{F2C6131E-209B-434E-A618-40A17944A743}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
@ -1330,6 +1414,27 @@ begin
    DataTable.Fields[idx_AlbaranesProveedorTIPO].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetSITUACIONValue: String;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsString;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetSITUACIONValue(const aValue: String);
 begin
  DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsString := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetSITUACIONIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorSITUACION].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVValue: Integer;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger;
@ -2057,6 +2162,111 @@ begin
    DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetID_TIPO_IVAValue: Integer;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsInteger;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
 begin
  DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsInteger := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetID_TIPO_IVAIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsSmallInt;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
 begin
  DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetREValue: Float;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorRE].AsFloat;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetREValue(const aValue: Float);
 begin
  DataTable.Fields[idx_AlbaranesProveedorRE].AsFloat := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetREIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorRE].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetREIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorRE].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetIMPORTE_REValue: Currency;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsCurrency;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
 begin
  DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsCurrency := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetIMPORTE_REIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsVariant := Null;
 end;
 function TAlbaranesProveedorDataTableRules.GetFECHA_SERVICIOValue: DateTime;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsDateTime;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetFECHA_SERVICIOValue(const aValue: DateTime);
 begin
  DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsDateTime := aValue;
 end;
 function TAlbaranesProveedorDataTableRules.GetFECHA_SERVICIOIsNull: boolean;
 begin
  result := DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].IsNull;
 end;
 procedure TAlbaranesProveedorDataTableRules.SetFECHA_SERVICIOIsNull(const aValue: Boolean);
 begin
  if aValue then
    DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsVariant := Null;
 end;
 { TAlbaranesProveedor_DetallesDataTableRules }
 constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
--- a/proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@ -9,14 +9,14 @@ const
  { Delta rules ids 
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
-  RID_ListaAnosAlbaranesDelta = '{14C5B976-CA00-4615-9651-B414EDAC591D}';
+  RID_ListaAnosAlbaranesDelta = '{7568B208-4166-4A6A-B34F-926ADF9C84C2}';
-  RID_AlbaranesProveedorDelta = '{C37BDD8D-FAD2-4F99-8CEB-EE981496C9F2}';
+  RID_AlbaranesProveedorDelta = '{0F22046B-B839-44C8-A332-92A541C3CFE0}';
-  RID_AlbaranesProveedor_DetallesDelta = '{C77BA736-E7BC-409E-A5CB-DE950F03BBA6}';
+  RID_AlbaranesProveedor_DetallesDelta = '{A633179D-5A35-41CC-8385-5AFAF96E59B6}';
 type
  { IListaAnosAlbaranesDelta }
  IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
-  ['{14C5B976-CA00-4615-9651-B414EDAC591D}']
+  ['{7568B208-4166-4A6A-B34F-926ADF9C84C2}']
    { Property getters and setters }
    function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
  { IAlbaranesProveedorDelta }
  IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
-  ['{C37BDD8D-FAD2-4F99-8CEB-EE981496C9F2}']
+  ['{0F22046B-B839-44C8-A332-92A541C3CFE0}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_EMPRESAValue : Integer;
@ -64,6 +64,7 @@ type
    function GetOldREFERENCIAValue : String;
    function GetOldREFERENCIA_PROVEEDORValue : String;
    function GetOldTIPOValue : String;
    function GetOldSITUACIONValue : String;
    function GetOldID_ALBARAN_DEVValue : Integer;
    function GetOldREFERENCIA_ALB_DEVValue : String;
    function GetOldID_FAC_ALB_DEVValue : Integer;
@ -99,6 +100,11 @@ type
    function GetOldID_FORMA_PAGOValue : Integer;
    function GetOldNUM_COPIASValue : SmallInt;
    function GetOldNUM_CORREOSValue : SmallInt;
    function GetOldID_TIPO_IVAValue : Integer;
    function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
    function GetOldREValue : Float;
    function GetOldIMPORTE_REValue : Currency;
    function GetOldFECHA_SERVICIOValue : DateTime;
    { Properties }
    property OldID : Integer read GetOldIDValue;
@ -113,6 +119,7 @@ type
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
    property OldTIPO : String read GetOldTIPOValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
    property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
    property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
@ -148,6 +155,11 @@ type
    property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
    property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
    property OldRE : Float read GetOldREValue;
    property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
    property OldFECHA_SERVICIO : DateTime read GetOldFECHA_SERVICIOValue;
  end;
  { TAlbaranesProveedorBusinessProcessorRules }
@ -231,6 +243,12 @@ type
    function GetOldTIPOIsNull: Boolean; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    procedure SetTIPOIsNull(const aValue: Boolean); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetSITUACIONIsNull: Boolean; virtual;
    function GetOldSITUACIONValue: String; virtual;
    function GetOldSITUACIONIsNull: Boolean; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
    function GetID_ALBARAN_DEVValue: Integer; virtual;
    function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
    function GetOldID_ALBARAN_DEVValue: Integer; virtual;
@ -439,6 +457,36 @@ type
    function GetOldNUM_CORREOSIsNull: Boolean; virtual;
    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    function GetID_TIPO_IVAIsNull: Boolean; virtual;
    function GetOldID_TIPO_IVAValue: Integer; virtual;
    function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
    function GetREValue: Float; virtual;
    function GetREIsNull: Boolean; virtual;
    function GetOldREValue: Float; virtual;
    function GetOldREIsNull: Boolean; virtual;
    procedure SetREValue(const aValue: Float); virtual;
    procedure SetREIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_REValue: Currency; virtual;
    function GetIMPORTE_REIsNull: Boolean; virtual;
    function GetOldIMPORTE_REValue: Currency; virtual;
    function GetOldIMPORTE_REIsNull: Boolean; virtual;
    procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
    procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
    function GetFECHA_SERVICIOValue: DateTime; virtual;
    function GetFECHA_SERVICIOIsNull: Boolean; virtual;
    function GetOldFECHA_SERVICIOValue: DateTime; virtual;
    function GetOldFECHA_SERVICIOIsNull: Boolean; virtual;
    procedure SetFECHA_SERVICIOValue(const aValue: DateTime); virtual;
    procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean); virtual;
    { Properties }
    property ID : Integer read GetIDValue write SetIDValue;
@ -489,6 +537,10 @@ type
    property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
    property OldTIPO : String read GetOldTIPOValue;
    property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
    property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
    property ID_ALBARAN_DEVIsNull : Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
    property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
@ -629,6 +681,26 @@ type
    property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
    property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
    property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
    property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
    property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
    property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
    property RE : Float read GetREValue write SetREValue;
    property REIsNull : Boolean read GetREIsNull write SetREIsNull;
    property OldRE : Float read GetOldREValue;
    property OldREIsNull : Boolean read GetOldREIsNull;
    property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
    property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
    property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
    property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull;
    property FECHA_SERVICIO : DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
    property FECHA_SERVICIOIsNull : Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
    property OldFECHA_SERVICIO : DateTime read GetOldFECHA_SERVICIOValue;
    property OldFECHA_SERVICIOIsNull : Boolean read GetOldFECHA_SERVICIOIsNull;
  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -638,7 +710,7 @@ type
  { IAlbaranesProveedor_DetallesDelta }
  IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
-  ['{C77BA736-E7BC-409E-A5CB-DE950F03BBA6}']
+  ['{A633179D-5A35-41CC-8385-5AFAF96E59B6}']
    { Property getters and setters }
    function GetOldIDValue : Integer;
    function GetOldID_ALBARANValue : Integer;
@ -1313,6 +1385,37 @@ begin
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetSITUACIONValue: String;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorSITUACION];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorSITUACION]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
@ -2392,6 +2495,161 @@ begin
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_TIPO_IVA];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_TIPO_IVA]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetREValue: Float;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetREIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldREValue: Float;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRE];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldREIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRE]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetREValue(const aValue: Float);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetREIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetIMPORTE_REValue: Currency;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldIMPORTE_REValue: Currency;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorIMPORTE_RE];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorIMPORTE_RE]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE] := Null;
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_SERVICIOValue: DateTime;
 begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_SERVICIOIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO]);
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldFECHA_SERVICIOValue: DateTime;
 begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorFECHA_SERVICIO];
 end;
 function TAlbaranesProveedorBusinessProcessorRules.GetOldFECHA_SERVICIOIsNull: Boolean;
 begin
  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorFECHA_SERVICIO]);
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetFECHA_SERVICIOValue(const aValue: DateTime);
 begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO] := aValue;
 end;
 procedure TAlbaranesProveedorBusinessProcessorRules.SetFECHA_SERVICIOIsNull(const aValue: Boolean);
 begin
  if aValue then
    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO] := Null;
 end;
 { TAlbaranesProveedor_DetallesBusinessProcessorRules }
 constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
--- a/proveedor/Model/uBizAlbaranesProveedor.pas
+++ b/proveedor/Model/uBizAlbaranesProveedor.pas
@ -13,6 +13,9 @@ const
  CTE_TIPO_ALBARAN = 'A';
  CTE_TIPO_ALBARAN_DEV = 'D';
  SITUACION_ALBARAN_PENDIENTE = 'PENDIENTE';
  SITUACION_ALBARAN_REALIZADO = 'REALIZADO';    
 type
  IBizAlbaranProveedor = interface(IAlbaranesProveedor)
  ['{8042AD9C-08B1-4236-B0EA-F11C4942DFE4}']
@ -48,6 +51,9 @@ type
  private
    procedure CalcularBaseImponible;
    procedure CalcularIVA;
    procedure CalcularRE;
    procedure AsignarTipoIVA (IDTipoIVA : Integer);    
  protected
    FSeleccionableInterface : ISeleccionable;
    FProveedor : IBizProveedor;
@ -81,6 +87,9 @@ type
    procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
    procedure DESCUENTOOnChange(Sender: TDACustomField);
    procedure IVAOnChange(Sender: TDACustomField);
    procedure REOnChange(Sender: TDACustomField);    
    procedure RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
    procedure ID_TIPO_IVAOnChange(Sender: TDACustomField);
    procedure OnNewRecord(Sender: TDADataTable); override;
    procedure IniciarValoresAlbaranNuevo;
@ -107,10 +116,36 @@ implementation
 uses
  SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
-  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizInventario;
+  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizInventario,
  uTiposIVAController, uBizTiposIVA;
 { TBizAlbaranProveedor }
 procedure TBizAlbaranProveedor.AsignarTipoIVA(IDTipoIVA: Integer);
 var
  ATiposIVAController : ITiposIVAController;
  ATipoIVA : IBizTipoIVA;
 begin
  inherited;
  ATiposIVAController := TTiposIVAController.Create;
  try
    ATipoIVA := ATiposIVAController.Buscar(IDTipoIVA);
    ATipoIVA.DataTable.Active := True;
    if Assigned(ATipoIVA) then
    begin
      Edit;
      IVA := ATipoIVA.IVA;
      if (RECARGO_EQUIVALENCIA = 1) then
        RE := ATipoIVA.RE
      else
        RE := 0;
    end;
  finally
    ATiposIVAController := NIL;
  end;
 end;
 procedure TBizAlbaranProveedor.CalcularBaseImponible;
 begin
  if not Self.DataTable.Editing then
@ -126,10 +161,11 @@ begin
  try
    CalcularBaseImponible;
    CalcularIVA;
    CalcularRE;
    if not Self.DataTable.Editing then
      Edit;
-    IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA;
+    IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
  finally
    DataTable.Fields.FieldEventsDisabled := False;
    DataTable.EnableControls;
@ -143,6 +179,13 @@ begin
  IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
 end;
 procedure TBizAlbaranProveedor.CalcularRE;
 begin
  if not Self.DataTable.Editing then
    Edit;
  IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE);
 end;
 constructor TBizAlbaranProveedor.Create(aDataTable: TDADataTable);
 begin
  inherited;
@ -151,10 +194,14 @@ begin
  with DataTable do
  begin
    FieldByName(fld_AlbaranesProveedorID_TIPO_IVA).OnChange := ID_TIPO_IVAOnChange;
    FieldByName(fld_AlbaranesProveedorRECARGO_EQUIVALENCIA).OnChange := RECARGO_EQUIVALENCIAOnChange;
    FieldByName(fld_AlbaranesProveedorIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
    FieldByName(fld_AlbaranesProveedorIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
    FieldByName(fld_AlbaranesProveedorDESCUENTO).OnChange := DESCUENTOOnChange;
    FieldByName(fld_AlbaranesProveedorIVA).OnChange := IVAOnChange;
    FieldByName(fld_AlbaranesProveedorRE).OnChange := REOnChange;
  end;
  FDetallesLink := TDADataSource.Create(NIL);
@ -189,6 +236,11 @@ begin
  Result := FProveedor;
 end;
 procedure TBizAlbaranProveedor.ID_TIPO_IVAOnChange(Sender: TDACustomField);
 begin
  AsignarTipoIVA(ID_TIPO_IVA);
 end;
 procedure TBizAlbaranProveedor.IMPORTE_NETOOnChange(Sender: TDACustomField);
 begin
  CalcularImporteTotal;
@ -208,6 +260,7 @@ begin
  TIPO := CTE_TIPO_ALBARAN;
  TIPO_ALMACEN := CTE_INV_ALMACEN;
  ID_ALMACEN := AppFactuGES.EmpresaActiva.ID_ALMACEN;
  ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
 end;
 procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);
@ -232,6 +285,16 @@ begin
  IniciarValoresAlbaranNuevo;
 end;
 procedure TBizAlbaranProveedor.RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
 begin
  AsignarTipoIVA(ID_TIPO_IVA);
 end;
 procedure TBizAlbaranProveedor.REOnChange(Sender: TDACustomField);
 begin
  CalcularImporteTotal;
 end;
 procedure TBizAlbaranProveedor.SetProveedor(AValue: IBizProveedor);
 var
  bEnEdicion : Boolean;
@ -251,6 +314,9 @@ begin
      ID_PROVEEDOR := FProveedor.ID;
      if FProveedor.ID_TIPO_IVA > 0 then
         ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
      DataTable.Post;  //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
                       //si se quita el id de la cabecera y los detalles se desincroniza
      if bEnEdicion then
--- a/proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
+++ b/proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
@ -213,12 +213,16 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
              #10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 AS MOVIL_1_EM' +
              'PRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMPRESAS.PAGINA_' +
              'WEB AS PAGINA_WEB_EMPRESA,'#10'  V_ALBARANES_PROVEEDOR.OBSERVACIONES' +
-              ','#10'  V_ALBARANES_PROVEEDOR.INCIDENCIAS'#10'FROM'#10'    V_ALBARANES_PROVE' +
+              ','#10'  V_ALBARANES_PROVEEDOR.INCIDENCIAS,'#10'  V_ALBARANES_PROVEEDOR.F' +
-              'EDOR'#10'  LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_AL' +
+              'ECHA_SERVICIO,'#10'  V_ALBARANES_PROVEEDOR.IVA,'#10'  V_ALBARANES_PROVEE' +
-              'BARANES_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN ALMACENES ON (' +
+              'DOR.IMPORTE_IVA,'#10'  V_ALBARANES_PROVEEDOR.RE,'#10'  V_ALBARANES_PROVE' +
-              'ALMACENES.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10'  LEFT OUTER JO' +
+              'EDOR.IMPORTE_RE,'#10'  V_ALBARANES_PROVEEDOR.BASE_IMPONIBLE,'#10'  V_ALB' +
-              'IN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10 +
+              'ARANES_PROVEEDOR.NOMBRE_CLIENTE_FINAL'#10#10#10'FROM'#10'    V_ALBARANES_PRO' +
-              'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'#10#10
+              'VEEDOR'#10'  LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_' +
              'ALBARANES_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN ALMACENES ON' +
              ' (ALMACENES.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10'  LEFT OUTER ' +
              'JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA' +
              ')'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
@ -328,6 +332,34 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
              item
                DatasetField = 'INCIDENCIAS'
                TableField = 'INCIDENCIAS'
              end
              item
                DatasetField = 'FECHA_SERVICIO'
                TableField = 'FECHA_SERVICIO'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTE_IVA'
                TableField = 'IMPORTE_IVA'
              end
              item
                DatasetField = 'RE'
                TableField = 'RE'
              end
              item
                DatasetField = 'IMPORTE_RE'
                TableField = 'IMPORTE_RE'
              end
              item
                DatasetField = 'BASE_IMPONIBLE'
                TableField = 'BASE_IMPONIBLE'
              end
              item
                DatasetField = 'NOMBRE_CLIENTE_FINAL'
                TableField = 'NOMBRE_CLIENTE_FINAL'
              end>
          end>
        Name = 'Informe_Cabecera'
@ -458,6 +490,35 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
          end
          item
            Name = 'FECHA_SERVICIO'
            DataType = datDateTime
          end
          item
            Name = 'IVA'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_IVA'
            DataType = datCurrency
          end
          item
            Name = 'RE'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
          end
          item
            Name = 'NOMBRE_CLIENTE_FINAL'
            DataType = datString
            Size = 255
          end>
      end
      item
@ -606,7 +667,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
    PrintOptions.Printer = 'Por defecto'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 41283.504346134260000000
+    ReportOptions.LastChange = 41316.777390671300000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
@ -614,6 +675,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
      'var'
      '  Cadena: String;'
      'begin'
      '{    '
      '  DatosEmpresa.Lines.Clear;'
      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
@ -623,17 +685,18 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
        '">;'
      '  DatosEmpresa.Lines.Add(Cadena);'
      '  Memo19.Lines.Clear;'
-      
+      '  Memo19.Lines.Add(Cadena);'
-        '  Memo19.Lines.Add(Cadena);                                     ' +
+      '}      '
        '     '
      'end;'
      ''
      'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '{  '
      '  NombreEmpresa.Lines.Clear;'
      '  NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
      '  Memo15.Lines.Clear;'
      '  Memo15.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
      '}      '
      'end;'
      ''
      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
@ -675,6 +738,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
      ''
      'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '{    '
      '  Memo2.Lines.Clear;'
      '  Memo9.Lines.Clear;      '
      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
@ -686,7 +750,8 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
      '  begin              '
      '     Memo2.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39');  '
      '     Memo9.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39');  '
-      '  end                 '
+      '  end'
      '  }      '
      'end;'
      ''
      'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
@ -700,11 +765,13 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
      ''
      'procedure Memo1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '{  '
      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
      '  begin'
      '     Memo1.Lines.Clear;'
      '     Memo1.Lines.Add('#39'Fecha orden:'#39');'
      '  end;'
      '}      '
      'end;'
      ''
      'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
@ -1058,6 +1125,35 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
      item
        Name = 'INCIDENCIAS'
        DataType = datMemo
      end
      item
        Name = 'FECHA_SERVICIO'
        DataType = datDateTime
      end
      item
        Name = 'IVA'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
      end
      item
        Name = 'RE'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
      end
      item
        Name = 'NOMBRE_CLIENTE_FINAL'
        DataType = datString
        Size = 255
      end>
    Params = <
      item
--- a/proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@ -234,6 +234,30 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
              item
                DatasetField = 'NOMBRE_CLIENTE_FINAL'
                TableField = 'NOMBRE_CLIENTE_FINAL'
              end
              item
                DatasetField = 'ID_TIPO_IVA'
                TableField = 'ID_TIPO_IVA'
              end
              item
                DatasetField = 'RECARGO_EQUIVALENCIA'
                TableField = 'RECARGO_EQUIVALENCIA'
              end
              item
                DatasetField = 'RE'
                TableField = 'RE'
              end
              item
                DatasetField = 'IMPORTE_RE'
                TableField = 'IMPORTE_RE'
              end
              item
                DatasetField = 'FECHA_SERVICIO'
                TableField = 'FECHA_SERVICIO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end>
          end>
        Name = 'AlbaranesProveedor'
@ -306,6 +330,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
            Size = 1
            DictionaryEntry = 'AlbaranesProveedor_TIPO'
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 9
          end
          item
            Name = 'ID_ALBARAN_DEV'
            DataType = datInteger
@ -493,6 +522,26 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
          item
            Name = 'NUM_CORREOS'
            DataType = datSmallInt
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
          end
          item
            Name = 'RE'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
          end
          item
            Name = 'FECHA_SERVICIO'
            DataType = datDateTime
          end>
      end
      item
@ -875,6 +924,31 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
            Name = 'ID_ALBARAN_DEV'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'RE'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'FECHA_SERVICIO'
            DataType = datDateTime
            Value = ''
          end>
        Statements = <
          item
@ -891,18 +965,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
              '   IMPORTE_TOTAL,'#10'    OBSERVACIONES,'#10'    INCIDENCIAS,'#10'    INCIDE' +
              'NCIAS_ACTIVAS,'#10'    FECHA_ALTA,'#10'    FECHA_MODIFICACION,'#10'    USUAR' +
              'IO,'#10'    ID_ALMACEN,'#10'    ID_FORMA_PAGO,'#10'    IMPORTE_NETO,'#10'    IMP' +
-              'ORTE_PORTE,'#10'    ID_ALBARAN_DEV)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPR' +
+              'ORTE_PORTE,'#10'    ID_ALBARAN_DEV,'#10'    ID_TIPO_IVA,'#10'    RECARGO_EQU' +
-              'ESA,'#10'    :ID_PROVEEDOR,'#10'    :ID_CLIENTE_FINAL,'#10'    :ID_DIRECCION' +
+              'IVALENCIA,'#10'    RE,'#10'    IMPORTE_RE,'#10'    FECHA_SERVICIO)'#10'  VALUES ' +
-              ','#10'    :PERSONA_CONTACTO_PROV,'#10'    :FECHA_ALBARAN,'#10'    :ID_PEDIDO' +
+              '('#10'    :ID,'#10'    :ID_EMPRESA,'#10'    :ID_PROVEEDOR,'#10'    :ID_CLIENTE_F' +
-              ','#10'    :ID_FACTURA,'#10'    :TIPO,'#10'    :REFERENCIA,'#10'    :REFERENCIA_P' +
+              'INAL,'#10'    :ID_DIRECCION,'#10'    :PERSONA_CONTACTO_PROV,'#10'    :FECHA_' +
-              'ROVEEDOR,'#10'    :REF_FACTURA_PROV,'#10'    :CALLE,'#10'    :CODIGO_POSTAL,' +
+              'ALBARAN,'#10'    :ID_PEDIDO,'#10'    :ID_FACTURA,'#10'    :TIPO,'#10'    :REFERE' +
-              #10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :PERSONA_CONTACTO,'#10'    :TEL' +
+              'NCIA,'#10'    :REFERENCIA_PROVEEDOR,'#10'    :REF_FACTURA_PROV,'#10'    :CAL' +
-              'EFONO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUEN' +
+              'LE,'#10'    :CODIGO_POSTAL,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :PER' +
-              'TO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVA' +
+              'SONA_CONTACTO,'#10'    :TELEFONO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUENT' +
-              'CIONES,'#10'    :INCIDENCIAS,'#10'    :INCIDENCIAS_ACTIVAS,'#10'    CURRENT_' +
+              'O,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :IMPO' +
-              'TIMESTAMP,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_ALMACEN,' +
+              'RTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :INCIDENCIAS,'#10'    :INCIDENCIA' +
-              #10'    :ID_FORMA_PAGO,'#10'    :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    ' +
+              'S_ACTIVAS,'#10'    CURRENT_TIMESTAMP,'#10'    CURRENT_TIMESTAMP,'#10'    :US' +
-              ':ID_ALBARAN_DEV);'#10
+              'UARIO,'#10'    :ID_ALMACEN,'#10'    :ID_FORMA_PAGO,'#10'    :IMPORTE_NETO,'#10' ' +
              '   :IMPORTE_PORTE,'#10'    :ID_ALBARAN_DEV,'#10'    :ID_TIPO_IVA,'#10'    :R' +
              'ECARGO_EQUIVALENCIA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :FECHA_SERVIC' +
              'IO);'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
@ -1110,6 +1187,31 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'RE'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'FECHA_SERVICIO'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
@ -1137,8 +1239,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
              'S,'#10'    FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10'    USUARIO = :US' +
              'UARIO,'#10'    ID_ALMACEN = :ID_ALMACEN,'#10'    ID_FORMA_PAGO = :ID_FOR' +
              'MA_PAGO,'#10'    IMPORTE_NETO = :IMPORTE_NETO,'#10'    IMPORTE_PORTE = :' +
-              'IMPORTE_PORTE,'#10'    ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10'  WHERE'#10'  (I' +
+              'IMPORTE_PORTE,'#10'    ID_ALBARAN_DEV = :ID_ALBARAN_DEV,'#10'    ID_TIPO' +
-              'D = :OLD_ID);'#10
+              '_IVA = :ID_TIPO_IVA,'#10'    RECARGO_EQUIVALENCIA = :RECARGO_EQUIVAL' +
              'ENCIA,'#10'    RE = :RE,'#10'    IMPORTE_RE = :IMPORTE_RE,'#10'    FECHA_SER' +
              'VICIO = :FECHA_SERVICIO'#10'  WHERE'#10'  (ID = :OLD_ID);'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
--- a/proveedor/Views/uEditorAlbaranProveedor.dfm
+++ b/proveedor/Views/uEditorAlbaranProveedor.dfm
@ -152,16 +152,16 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
  end
  inherited pgPaginas: TPageControl
    Width = 759
-    Height = 472
+    Height = 382
    TabOrder = 1
    OnChanging = pgPaginasChanging
    ExplicitWidth = 759
-    ExplicitHeight = 472
+    ExplicitHeight = 382
    inherited pagGeneral: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 24
      ExplicitWidth = 751
-      ExplicitHeight = 444
+      ExplicitHeight = 354
    end
    object pagContenido: TTabSheet
      Caption = 'Contenido'
@ -170,7 +170,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
        Left = 0
        Top = 0
        Width = 751
-        Height = 444
+        Height = 354
        Align = alClient
        BiDiMode = bdLeftToRight
        Font.Charset = DEFAULT_CHARSET
@ -183,7 +183,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
        TabOrder = 0
        ReadOnly = False
        ExplicitWidth = 751
-        ExplicitHeight = 444
+        ExplicitHeight = 354
        inherited ToolBar1: TToolBar
          Width = 751
          Height = 51
@ -198,33 +198,27 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
            ExplicitLeft = 278
            ExplicitTop = 0
          end
-          inherited ToolButton14: TToolButton [4]
+          inherited FontName: TJvFontComboBox
            Left = 334
            Top = 0
            ExplicitLeft = 334
            ExplicitTop = 0
          end
-          inherited FontName: TJvFontComboBox [5]
+          inherited ToolButton14: TToolButton
-            Left = 399
+            Left = 479
            Top = 0
-            ExplicitLeft = 399
+            ExplicitLeft = 479
            ExplicitTop = 0
          end
          inherited FontSize: TEdit
            Left = 544
            Top = 0
-            Width = 122
+            Width = 154
            ExplicitLeft = 544
            ExplicitTop = 0
-            ExplicitWidth = 122
+            ExplicitWidth = 154
          end
-          inherited UpDown1: TUpDown
+          inherited ToolButton13: TToolButton [7]
            Left = 666
            Top = 0
            ExplicitLeft = 666
            ExplicitTop = 0
          end
          inherited ToolButton13: TToolButton
            Left = 0
            Top = 0
            Wrap = True
@ -232,60 +226,70 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
            ExplicitTop = 0
            ExplicitHeight = 27
          end
-          inherited ToolButton6: TToolButton [9]
+          inherited UpDown1: TUpDown [8]
            Left = 0
            Top = 27
            ExplicitLeft = 0
            ExplicitTop = 27
          end
-          inherited ToolButton7: TToolButton [10]
+          inherited ToolButton11: TToolButton
-            Left = 66
+            Left = 17
            Top = 27
-            ExplicitLeft = 66
+            ExplicitLeft = 17
            ExplicitTop = 27
          end
-          inherited ToolButton8: TToolButton [11]
+          inherited ToolButton12: TToolButton
-            Left = 133
+            Left = 158
            Top = 27
-            ExplicitLeft = 133
+            Wrap = False
-            ExplicitTop = 27
+            ExplicitLeft = 158
          end
          inherited ToolButton12: TToolButton [12]
            Left = 216
            Top = 27
            ExplicitLeft = 216
            ExplicitTop = 27
            ExplicitHeight = 22
          end
-          inherited ToolButton9: TToolButton [13]
+          inherited ToolButton9: TToolButton
-            Left = 224
+            Left = 166
            Top = 27
-            ExplicitLeft = 224
+            ExplicitLeft = 166
            ExplicitTop = 27
          end
-          inherited ToolButton10: TToolButton [14]
+          inherited ToolButton10: TToolButton
-            Left = 369
+            Left = 311
            Top = 27
-            ExplicitLeft = 369
+            ExplicitLeft = 311
            ExplicitTop = 27
          end
-          inherited ToolButton11: TToolButton [15]
+          inherited ToolButton6: TToolButton
-            Left = 494
+            Left = 436
            Top = 27
-            ExplicitLeft = 494
+            ExplicitLeft = 436
            ExplicitTop = 27
          end
          inherited ToolButton7: TToolButton
            Left = 502
            Top = 27
            Wrap = False
            ExplicitLeft = 502
            ExplicitTop = 27
          end
          inherited ToolButton8: TToolButton
            Left = 569
            Top = 27
            ExplicitLeft = 569
            ExplicitTop = 27
          end
        end
        inherited cxGrid: TcxGrid
          Top = 77
          Width = 751
-          Height = 367
+          Height = 277
          ExplicitTop = 77
          ExplicitWidth = 751
-          ExplicitHeight = 345
+          ExplicitHeight = 277
        end
        inherited TBXDock1: TTBXDock
          Top = 51
          Width = 751
          ExplicitTop = 51
          ExplicitWidth = 751
          inherited TBXToolbar1: TTBXToolbar
            ExplicitWidth = 566
@ -309,7 +313,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
        Left = 0
        Top = 0
        Width = 751
-        Height = 444
+        Height = 354
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
@ -320,7 +324,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
        TabOrder = 0
        ReadOnly = False
        ExplicitWidth = 751
-        ExplicitHeight = 444
+        ExplicitHeight = 354
        inherited pnlSup: TPanel
          Width = 751
          ExplicitWidth = 751
@ -330,13 +334,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
        end
        inherited GroupBox1: TGroupBox
          Width = 751
-          Height = 416
+          Height = 326
          ExplicitWidth = 751
-          ExplicitHeight = 416
+          ExplicitHeight = 326
          inherited eIncidencias: TcxDBMemo
            ExplicitWidth = 734
-            ExplicitHeight = 389
+            ExplicitHeight = 299
-            Height = 389
+            Height = 299
            Width = 734
          end
        end
@ -355,9 +359,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
  end
  inline frViewTotales1: TfrViewTotales [4]
    Left = 0
-    Top = 554
+    Top = 464
    Width = 765
-    Height = 46
+    Height = 136
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
@ -367,15 +371,15 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
    ParentFont = False
    TabOrder = 4
    ReadOnly = False
-    ExplicitTop = 554
+    ExplicitTop = 464
    ExplicitWidth = 765
-    ExplicitHeight = 46
+    ExplicitHeight = 136
    inherited dxLayoutControl1: TdxLayoutControl
      Width = 765
-      Height = 46
+      Height = 136
      LookAndFeel = dxLayoutOfficeLookAndFeel1
      ExplicitWidth = 765
-      ExplicitHeight = 46
+      ExplicitHeight = 136
      inherited Bevel3: TBevel
        Left = 425
        Top = 11
@ -487,8 +491,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
      inherited edtRE: TcxDBSpinEdit
        Left = 537
        Top = 115
        DataBinding.DataField = ''
        DataBinding.DataSource = nil
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
@ -500,8 +502,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
      inherited ImporteRE: TcxDBCurrencyEdit
        Left = 608
        Top = 115
        DataBinding.DataField = ''
        DataBinding.DataSource = nil
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
@ -542,8 +542,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
      inherited eIVA: TcxDBLookupComboBox
        Left = 120
        Top = 92
        DataBinding.DataField = ''
        DataBinding.DataSource = nil
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
@ -556,13 +554,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
      inherited bTiposIVA: TButton
        Left = 277
        Top = 92
        OnClick = frViewTotales1bTiposIVAClick
        ExplicitLeft = 277
        ExplicitTop = 92
      end
      inherited cbRecargoEquivalencia: TcxDBCheckBox
        Left = 120
        Top = 119
        DataBinding.DataField = ''
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
@ -619,12 +617,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
            inherited dxLayoutControl1Group7: TdxLayoutGroup
              Visible = False
            end
            inherited dxLayoutControl1Group6: TdxLayoutGroup
              Visible = False
            end
            inherited dxLayoutControl1Item16: TdxLayoutItem
              Visible = False
            end
            inherited dxLayoutControl1Item19: TdxLayoutItem
              Visible = False
            end
@ -634,17 +626,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
              Visible = False
            end
            inherited dxLayoutControl1Group3: TdxLayoutGroup
              inherited dxLayoutControl1Item12: TdxLayoutItem
                Visible = False
              end
              inherited dxLayoutControl1Item14: TdxLayoutItem
                Visible = False
              end
              inherited dxLayoutControl1Group9: TdxLayoutGroup
                Visible = False
              end
              inherited dxLayoutControl1Group8: TdxLayoutGroup
-                Visible = False
+                inherited dxLayoutControl1Item7: TdxLayoutItem
                  Visible = True
                end
              end
              inherited dxLayoutControl1Item10: TdxLayoutItem
                Visible = False
--- a/proveedor/Views/uEditorAlbaranProveedor.pas
+++ b/proveedor/Views/uEditorAlbaranProveedor.pas
@ -12,7 +12,7 @@ uses
  StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
  uViewIncidencias,
  uAlbaranesProveedorController,
-  uViewDetallesBase, uViewDetallesAlbaranProveedor,
+  uViewDetallesBase, uViewDetallesAlbaranProveedor, uBizTiposIVA, uTiposIVAController,
  dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
  uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor,
  uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
@ -36,6 +36,7 @@ type
      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure frViewTotales1bTiposIVAClick(Sender: TObject);
 //    procedure frViewDatosYSeleccionContactoedtlNombrePropertiesChange(Sender: TObject);
  private
@ -45,6 +46,8 @@ type
    FAlbaran: IBizAlbaranProveedor;
    FViewAlbaran: IViewAlbaranProveedor;
    FController : IAlbaranesProveedorController;
    FTiposIVAController : ITiposIVAController;
    FTiposIVA: IBizTipoIVA;
    function GetController : IAlbaranesProveedorController;
    procedure SetController (const Value : IAlbaranesProveedorController); virtual;
@ -113,12 +116,15 @@ begin
  inherited;
  AsignarVista;
  pgPaginas.ActivePageIndex := 0;
  FTiposIVAController := TTiposIVAController.Create;
 end;
 procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject;
  var Action: TCloseAction);
 begin
  inherited;
  FTiposIVA := NIL;
  FTiposIVAController := Nil;
  FViewAlbaran := NIL;
  FAlbaran := NIL;
 end;
@ -152,6 +158,13 @@ begin
  pgPaginas.ActivePage := pagGeneral;
 end;
 procedure TfEditorAlbaranProveedor.frViewTotales1bTiposIVAClick(
  Sender: TObject);
 begin
  inherited;
  FTiposIVAController.VerTodos(FTiposIVA);
 end;
 procedure TfEditorAlbaranProveedor.frViewTotales1edtDescuentoPropertiesValidate(
  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
  var Error: Boolean);
@ -165,7 +178,8 @@ procedure TfEditorAlbaranProveedor.frViewTotales1edtIVAPropertiesValidate(
  var Error: Boolean);
 begin
  inherited;
-  FAlbaran.IVA := DisplayValue;
+  Albaran.Edit;
  Albaran.ID_TIPO_IVA := FTiposIVA.ID;
 end;
 procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate(
@ -256,6 +270,12 @@ begin
  begin
    FAlbaran.Proveedor := ViewAlbaran.ViewProveedorAlbaran.Proveedor;
    if not (FAlbaran.DataTable.State in dsEditModes) then
       FAlbaran.DataTable.Edit;
    // Actualizar IVA y RE a partir del tipo de IVA del proveedor.
    Albaran.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
    // Si el pedido tiene detalles hay que mirar si los descuentos
    // para los artículos hay que cambiarlos.
    if (FAlbaran.Detalles.RecordCount > 0) then
@ -338,6 +358,10 @@ begin
    frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
    frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
    FTiposIVA := FTiposIVAController.BuscarTodos;
    frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
    FTiposIVA.DataTable.Active := True;
    if Assigned(FViewAlbaran) then
    begin
      ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
@ -350,6 +374,13 @@ begin
        ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
        ViewAlbaran.ViewClienteFinalAlbaran.OnClienteChanged := OnClienteFinalChanged;        
      end;
    end
    else begin
      ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
      ViewAlbaran.ViewProveedorAlbaran.Proveedor := NIL;
      dsDataTable.DataTable := NIL;
      frViewTotales1.DADataSource.DataTable := NIL;
      frViewTotales1.dsTiposIVA.DataTable := NIL;
    end;
  end;
 end;
--- a/proveedor/Views/uEditorAlbaranesProveedor.pas
+++ b/proveedor/Views/uEditorAlbaranesProveedor.pas
@ -280,7 +280,7 @@ var
 begin
  AAlbaranes := Nil;
  AllItems := False;
-  FImprimirPrecios := False;
+  FImprimirPrecios := True;
  FImprimirRefProveedor := True;
  if MultiSelect and Assigned(ViewGrid) then
@ -380,7 +380,7 @@ var
 begin
  AAlbaranes := Nil;
  AllItems := False;
-  FImprimirPrecios := False;
+  FImprimirPrecios := True;
  FImprimirRefProveedor := True;
--- a/proveedor/Views/uViewAlbaranProveedor.dfm
+++ b/proveedor/Views/uViewAlbaranProveedor.dfm
@ -15,13 +15,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
    TabOrder = 0
    TabStop = False
    AutoContentSizes = [acsWidth, acsHeight]
    ExplicitWidth = 827
    ExplicitHeight = 585
    DesignSize = (
      940
      693)
    object edtFechaAlbaran: TcxDBDateEdit
-      Left = 119
+      Left = 145
      Top = 82
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_ALBARAN'
@ -64,12 +62,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 12
+      TabOrder = 13
      Height = 287
      Width = 331
    end
    object eReferencia: TcxDBTextEdit
-      Left = 119
+      Left = 145
      Top = 28
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA'
@ -105,7 +103,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
-      TabOrder = 11
+      TabOrder = 12
      ReadOnly = False
      ExplicitLeft = 530
      ExplicitTop = 235
@ -114,8 +112,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      inherited dxLayoutControl1: TdxLayoutControl
        Width = 388
        Height = 249
-        ExplicitWidth = 422
+        ExplicitWidth = 388
-        ExplicitHeight = 314
+        ExplicitHeight = 249
        inherited rdxDestino1: TRadioButton
          Width = 402
          ExplicitWidth = 402
@ -163,8 +161,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      end
    end
    object cbFormaPago: TcxDBLookupComboBox
-      Left = 119
+      Left = 145
-      Top = 192
+      Top = 219
      DataBinding.DataField = 'ID_FORMA_PAGO'
      DataBinding.DataSource = DADataSource
      Properties.KeyFieldNames = 'ID'
@ -193,21 +191,21 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
      Width = 187
    end
    object bFormasPago: TButton
      Left = 368
-      Top = 192
+      Top = 219
      Width = 132
      Height = 21
      Caption = 'Ver las formas de pago...'
-      TabOrder = 8
+      TabOrder = 9
      OnClick = bFormasPagoClick
    end
    object eReferenciaPedidoCli: TcxTextEdit
-      Left = 119
+      Left = 145
-      Top = 109
+      Top = 136
      Anchors = [akLeft, akTop, akRight]
      Enabled = False
      Properties.ReadOnly = False
@ -229,20 +227,20 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 3
+      TabOrder = 4
      Width = 187
    end
    object Button1: TButton
      Left = 368
-      Top = 109
+      Top = 136
      Width = 132
      Height = 23
      Action = actVerPedido
-      TabOrder = 4
+      TabOrder = 5
    end
    object eRefFactura: TcxDBTextEdit
-      Left = 119
+      Left = 145
-      Top = 138
+      Top = 165
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REF_FACTURA'
      DataBinding.DataSource = DADataSource
@ -267,11 +265,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
      Width = 325
    end
    object eReferenciaProveedor: TcxDBTextEdit
-      Left = 119
+      Left = 145
      Top = 55
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
@ -296,8 +294,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      Width = 325
    end
    object eReferenciaFacturaProveedor: TcxDBTextEdit
-      Left = 119
+      Left = 145
-      Top = 165
+      Top = 192
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'REF_FACTURA_PROV'
      DataBinding.DataSource = DADataSource
@ -321,7 +319,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      StyleHot.LookAndFeel.Kind = lfStandard
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
      Width = 325
    end
    inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran
@ -335,7 +333,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
-      TabOrder = 10
+      TabOrder = 11
      ReadOnly = False
      ExplicitLeft = 530
      ExplicitTop = 28
@ -351,6 +349,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
          StyleDisabled.LookAndFeel.SkinName = ''
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 224
          Width = 224
        end
        inherited edtNIFCIF: TcxDBTextEdit
          Left = 275
@ -367,6 +367,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitTop = 107
          ExplicitWidth = 283
          Width = 283
        end
        inherited edtDireccion: TcxTextEdit
          Style.LookAndFeel.SkinName = ''
@ -374,6 +376,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
          StyleFocused.LookAndFeel.SkinName = ''
          StyleHot.LookAndFeel.SkinName = ''
          ExplicitWidth = 121
          ExplicitHeight = 50
          Height = 50
          Width = 121
        end
        inherited Button4: TButton
@ -408,7 +412,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
    end
    inline frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran
      Left = 22
-      Top = 249
+      Top = 276
      Width = 505
      Height = 196
      Font.Charset = DEFAULT_CHARSET
@ -417,10 +421,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
-      TabOrder = 9
+      TabOrder = 10
      ReadOnly = False
      ExplicitLeft = 22
-      ExplicitTop = 249
+      ExplicitTop = 276
      inherited dxLayoutControl1: TdxLayoutControl
        inherited edtlNombre: TcxDBTextEdit
          Style.LookAndFeel.SkinName = ''
@ -466,6 +470,32 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
        end
      end
    end
    object cxDBDateEdit1: TcxDBDateEdit
      Left = 145
      Top = 109
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'FECHA_SERVICIO'
      DataBinding.DataSource = DADataSource
      Properties.ImmediatePost = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebs3D
      Style.Color = clInfoBk
      Style.HotTrack = False
      Style.LookAndFeel.NativeStyle = True
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.ButtonStyle = bts3D
      Style.ButtonTransparency = ebtNone
      Style.PopupBorderStyle = epbsFrame3D
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 3
      Width = 381
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
@ -496,10 +526,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item2: TdxLayoutItem
-              Caption = 'Fecha del albar'#225'n:'
+              Caption = 'Fecha del albar'#225'n/aviso:'
              Control = edtFechaAlbaran
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Item14: TdxLayoutItem
              Caption = 'Fecha servicio:'
              Control = cxDBDateEdit1
              ControlOptions.ShowBorder = False
            end
            object dxLayoutControl1Group5: TdxLayoutGroup
              ShowCaption = False
              Hidden = True
--- a/proveedor/Views/uViewAlbaranProveedor.pas
+++ b/proveedor/Views/uViewAlbaranProveedor.pas
@ -75,6 +75,8 @@ type
    frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran;
    dxLayoutControl1Group9: TdxLayoutGroup;
    dxLayoutControl1Group10: TdxLayoutGroup;
    dxLayoutControl1Item14: TdxLayoutItem;
    cxDBDateEdit1: TcxDBDateEdit;
    procedure CustomViewCreate(Sender: TObject);
    procedure CustomViewDestroy(Sender: TObject);
    procedure frViewProveedorAlbaranButton1Click(Sender: TObject);
--- a/proveedor/Views/uViewAlbaranesProveedor.dfm
+++ b/proveedor/Views/uViewAlbaranesProveedor.dfm
@ -6,6 +6,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
  inherited cxGrid: TcxGrid
    Width = 596
    Height = 351
    RootLevelOptions.DetailTabsPosition = dtpTop
    OnActiveTabChanged = cxGridActiveTabChanged
    ExplicitWidth = 596
    ExplicitHeight = 351
@ -96,6 +97,10 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
        DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
        Width = 51
      end
      object cxGridViewSITUACION: TcxGridDBColumn
        Caption = 'Situaci'#243'n'
        DataBinding.FieldName = 'SITUACION'
      end
      object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
        Caption = 'Fecha'
        DataBinding.FieldName = 'FECHA_ALBARAN'
@ -176,6 +181,12 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
    inherited cxGridLevel: TcxGridLevel
      Caption = 'Todos'
    end
    object cxGridLevelPendientes: TcxGridLevel
      Caption = 'Pendientes'
    end
    object cxGridLevelRealizados: TcxGridLevel
      Caption = 'Realizados'
    end
  end
  inherited frViewFiltroBase1: TfrViewFiltroBase
    Width = 596
@ -279,6 +290,14 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
      OnUpdate = actAlmacenUpdate
    end
  end
  inherited cxStyleRepositoryInforme: TcxStyleRepository
    object cxStylePendiente: TcxStyle
      AssignedValues = [svTextColor]
      TextColor = clRed
    end
    object cxStyleRealizado: TcxStyle
    end
  end
  inherited GridPNGImageList: TPngImageList
    PngImages = <
      item
--- a/proveedor/Views/uViewAlbaranesProveedor.pas
+++ b/proveedor/Views/uViewAlbaranesProveedor.pas
@ -48,6 +48,11 @@ type
    cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
    cxGridViewINCIDENCIAS: TcxGridDBColumn;
    cxGridViewNOMBRE_CLIENTE_FINAL: TcxGridDBColumn;
    cxGridViewSITUACION: TcxGridDBColumn;
    cxGridLevelPendientes: TcxGridLevel;
    cxGridLevelRealizados: TcxGridLevel;
    cxStylePendiente: TcxStyle;
    cxStyleRealizado: TcxStyle;
    procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
            TcxGridLevel);
    procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -74,6 +79,7 @@ type
  private
    //Filtros relativos a la vista
    procedure AnadirFiltroSituaciones;
    procedure AnadirFiltroFechas;
  protected
@ -154,10 +160,23 @@ begin
  end;
 end;
 procedure TfrViewAlbaranesProveedor.AnadirFiltroSituaciones;
 var
  FFiltro : TcxFilterCriteriaItemList;
 begin
  FFiltro := AddFilterGrid(fboAnd);
  case cxGrid.ActiveLevel.Index of
    1   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ALBARAN_PENDIENTE, SITUACION_ALBARAN_PENDIENTE);
    2   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ALBARAN_REALIZADO, SITUACION_ALBARAN_REALIZADO);
  end;
 end;
 procedure TfrViewAlbaranesProveedor.AnadirOtrosFiltros;
 begin
  inherited;
  AnadirFiltroSituaciones;  
  AnadirFiltroFechas;
  //Finalmente activamos el filtro si tenemos algo
@ -248,21 +267,20 @@ end;
 procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
        TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
        TcxCustomGridTableItem; out AStyle: TcxStyle);
-{var
+var
  IndiceCol: Integer;
-  ASituacion: string;}
+  ASituacion: string;
 begin
  inherited;
-{  if Assigned(ARecord) then
+  if Assigned(ARecord) then
  begin
-    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosSITUACION).Index;
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesProveedorSITUACION).Index;
    ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
-    if ASituacion = SITUACION_ACEPTADO then
+    if ASituacion = SITUACION_ALBARAN_PENDIENTE then
-      AStyle := cxStyleAceptado
+      AStyle := cxStylePendiente
-    else if ASituacion = SITUACION_RECHAZADO then
+    else if ASituacion = SITUACION_ALBARAN_REALIZADO then
-        AStyle := cxStyleRechazado;
+        AStyle := cxStyleRealizado;
  end;
 }
 end;
 function TfrViewAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor;
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@ -122,6 +122,7 @@ inherited fEditorCliente: TfEditorCliente
  inherited pgPaginas: TPageControl
    Width = 864
    Height = 614
    ActivePage = pagDescuentos
    ExplicitWidth = 864
    ExplicitHeight = 614
    inherited pagGeneral: TTabSheet
@ -462,8 +463,6 @@ inherited fEditorCliente: TfEditorCliente
      inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
        Width = 856
        Height = 586
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 856
        ExplicitHeight = 586
        inherited dxLayoutControl1: TdxLayoutControl
@ -660,18 +659,6 @@ inherited fEditorCliente: TfEditorCliente
        inherited ToolBar1: TToolBar
          Width = 856
          ExplicitWidth = 856
          inherited ToolButton1: TToolButton
            ExplicitWidth = 113
          end
          inherited ToolButton4: TToolButton
            ExplicitWidth = 113
          end
          inherited ToolButton2: TToolButton
            ExplicitWidth = 113
          end
          inherited ToolButton7: TToolButton
            ExplicitWidth = 113
          end
        end
      end
    end
@ -719,7 +706,6 @@ inherited fEditorCliente: TfEditorCliente
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Visible = False
        ReadOnly = False
        ExplicitTop = 150
        ExplicitWidth = 856
@ -754,6 +740,18 @@ inherited fEditorCliente: TfEditorCliente
        inherited ToolBar1: TToolBar
          Width = 856
          ExplicitWidth = 856
          inherited ToolButton1: TToolButton
            ExplicitWidth = 62
          end
          inherited ToolButton4: TToolButton
            ExplicitWidth = 74
          end
          inherited ToolButton2: TToolButton
            ExplicitWidth = 67
          end
          inherited ToolButton7: TToolButton
            ExplicitWidth = 117
          end
        end
      end
    end
--- a/cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/cliente/Reports/uRptFacturasCliente_Server.dfm
@ -1620,15 +1620,18 @@ object RptFacturasCliente: TRptFacturasCliente
              'P.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO1, 0 as IMPORTE_TOTAL_ANO2,' +
              #10' ((SUM(P.IMPORTE_TOTAL)*100)/p.IMPORTE_TOTAL_ANO) as PORCENTAJE' +
              #10#10'from V_INF_FAC_DET_CLIENTE P'#10'left join CONTACTOS C on P.ID_AGE' +
-              'NTE = C.ID'#10'where p.ID_EMPRESA = :ID_EMPRESA'#10'and P.ANO = :ANO'#10'gro' +
+              'NTE = C.ID'#10'left join AGENTES_DATOS AD on P.ID_AGENTE = AD.ID_AGE' +
-              'up by 1,2,3,4,5'#10#10'union'#10#10'select C2.REFERENCIA as REFERENCIA, COAL' +
+              'NTE'#10'where p.ID_EMPRESA = :ID_EMPRESA'#10'and P.ANO = :ANO'#10'and AD.FEC' +
-              'ESCE(C2.NOMBRE, '#39'Agente no asignado'#39') as NOMBRE, 0 as ANO1, P2.A' +
+              'HA_BAJA is null'#10'group by 1,2,3,4,5'#10#10'union'#10#10'select C2.REFERENCIA ' +
-              'NO as ANO2,'#10' 0 as IMPORTE_TOTAL_ANO, 0 as IMPORTE_TOTAL_ANO1, SU' +
+              'as REFERENCIA, COALESCE(C2.NOMBRE, '#39'Agente no asignado'#39') as NOMB' +
-              'M(P2.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO2,'#10' 0 as PORCENTAJE'#10'from' +
+              'RE, 0 as ANO1, P2.ANO as ANO2,'#10' 0 as IMPORTE_TOTAL_ANO, 0 as IMP' +
-              ' V_INF_FAC_DET_CLIENTE P2'#10'left join CONTACTOS C2 on P2.ID_AGENTE' +
+              'ORTE_TOTAL_ANO1, SUM(P2.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO2,'#10' 0' +
-              ' = C2.ID'#10'where p2.ID_EMPRESA = :ID_EMPRESA'#10'and P2.ANO = :ANO2'#10'gr' +
+              ' as PORCENTAJE'#10'from V_INF_FAC_DET_CLIENTE P2'#10'left join CONTACTOS' +
-              'oup by 1,2,3,4,5,6'#10')'#10#10'group by 1,2'#10'having (sum(ANO1) > 0)'#10'order ' +
+              ' C2 on P2.ID_AGENTE = C2.ID'#10'left join AGENTES_DATOS AD2 on P2.ID' +
-              'by 3,6 desc'#10'rows 1 to :NTOP'#10#10
+              '_AGENTE = AD2.ID_AGENTE'#10'where p2.ID_EMPRESA = :ID_EMPRESA'#10'and P2' +
              '.ANO = :ANO2'#10'and AD2.FECHA_BAJA is null'#10'group by 1,2,3,4,5,6'#10')'#10#10 +
              'group by 1,2'#10'having (sum(ANO1) > 0)'#10'order by 3,6 desc'#10'rows 1 to ' +
              ':NTOP'#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
@ -2536,13 +2539,12 @@ object RptFacturasCliente: TRptFacturasCliente
              'ANO = :ANO1) and (v_inf_obj_cli_activos_fac_age.ID_EMPRESA = :ID' +
              '_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'left join periodos_aux P on ((P' +
              '.periodo = '#39'MENSUAL'#39') and (P.valor = MES))'#10'left join contactos C' +
-              ' on (C.ID = SEN.ID_AGENTE)'#10'left join agentes_datos on (agentes_d' +
+              ' on (C.ID = SEN.ID_AGENTE)'#10'left join agentes_datos AD on (AD.id_' +
-              'atos.id_agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_' +
+              'agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE, ' +
-              'AGENTE, -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTA' +
+              '-1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from' +
-              'LES'#10'from clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENT' +
+              ' clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTAL' +
-              'ES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'where agentes_datos.FECHA' +
+              'ES.ID_AGENTE = SEN.id_Agente)'#10#10'where AD.FECHA_BAJA is null'#10'and {' +
-              '_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10 +
+              'where}'#10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
              #10#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
@ -2631,7 +2633,7 @@ object RptFacturasCliente: TRptFacturasCliente
          item
            Name = 'AGENTE'
            DataType = datString
-            Size = 255
+            Size = 269
          end
          item
            Name = 'ANO'
@ -2647,11 +2649,11 @@ object RptFacturasCliente: TRptFacturasCliente
            Size = 20
          end
          item
-            Name = 'CLIENTES_TOTALES'
+            Name = 'ALTAS_CLIENTE'
-            DataType = datInteger
+            DataType = datLargeInt
          end
          item
-            Name = 'ALTAS_CLIENTE'
+            Name = 'CLIENTES_TOTALES'
            DataType = datLargeInt
          end
          item
@ -2771,12 +2773,12 @@ object RptFacturasCliente: TRptFacturasCliente
              '_fac_age.ID_EMPRESA = :ID_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'left j' +
              'oin periodos_aux P on ((P.periodo = '#39'SEMESTRAL'#39') and (P.valor = ' +
              'SEMESTRE))'#10'left join contactos C on (C.ID = SEN.ID_AGENTE)'#10'left ' +
-              'join agentes_datos on (agentes_datos.id_agente = SEN.ID_AGENTE)'#10 +
+              'join agentes_datos AD on (AD.id_agente = SEN.ID_AGENTE)'#10#10'left jo' +
-              #10'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(' +
+              'in'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(ID_CLIEN' +
-              'ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by' +
+              'TE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by 1'#10') CLI' +
-              ' 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Ag' +
+              'ENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'w' +
-              'ente)'#10#10'where agentes_datos.FECHA_BAJA is null'#10'and {where}'#10'group ' +
+              'here AD.FECHA_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'order ' +
-              'by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
+              'by 1,2,3,4,5'#10#10#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
@ -3005,12 +3007,12 @@ object RptFacturasCliente: TRptFacturasCliente
              'tivos_fac_age.ID_EMPRESA = :ID_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'l' +
              'eft join periodos_aux P on ((P.periodo = '#39'TRIMESTRAL'#39') and (P.va' +
              'lor = TRIMESTRE))'#10'left join contactos C on (C.ID = SEN.ID_AGENTE' +
-              ')'#10'left join agentes_datos on (agentes_datos.id_agente = SEN.ID_A' +
+              ')'#10'left join agentes_datos AD on (AD.id_agente = SEN.ID_AGENTE)'#10#10 +
-              'GENTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE,' +
+              'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(I' +
-              ' count(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'g' +
+              'D_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by ' +
-              'roup by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SE' +
+              '1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Age' +
-              'N.id_Agente)'#10#10'where agentes_datos.FECHA_BAJA is null'#10'and {where}' +
+              'nte)'#10#10'where FECHA_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'or' +
-              #10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
+              'der by 1,2,3,4,5'#10#10#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
--- a/cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/cliente/Reports/uRptFacturasCliente_Server.pas
@ -125,6 +125,7 @@ type
    FAno1: Variant;
    FAno2: Variant;
    FIntervalo: Variant;
    FAgentesActivos: Boolean;
    FListaIDClientes: TIntegerArray;
    FListaNombresClientes : TStringList;
    FListaIDAgentes: TIntegerArray;
@ -154,7 +155,7 @@ type
    function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
    function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
  end;
 implementation
@ -538,7 +539,7 @@ end;
 function TRptFacturasCliente.GenerarInformeObjetivosAgentesFacturas(
  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
 var
  AStream: TMemoryStream;
  AInforme: Variant;
@ -552,6 +553,7 @@ begin
    FIdEmpresa := IdEmpresa;
    FAno1 := Ano1;
    FIntervalo := Intervalo;
    FAgentesActivos := AgentesActivos;
    FFechaVenInicio := Null;
    FFechaVenFin := Null;
@ -763,7 +765,21 @@ var
 begin
  if ATabla.Active then
     ATabla.Active := False;
 {
  if (FAgentesActivos) then
  begin
    with ATabla.DynamicWhere do
    begin
    // (SOLO AGENTES ACTIVOS)
      Condicion := NewBinaryExpression(NewField('AD', 'FECHA_BAJA'), NewNull(), dboEqual);
      if IsEmpty then
         Expression := Condicion
      else
         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
    end;
  end;
 }
  // Filtrar el informe por agente
  if  Assigned(FListaIDAgentes) then
  begin
--- a/proveedor/Model/uBizFacturasProveedor.pas
+++ b/proveedor/Model/uBizFacturasProveedor.pas
@ -51,6 +51,7 @@ type
    procedure CalcularRE;
    procedure CalcularBaseImponible;
    procedure AsignarTipoIVA (IDTipoIVA : Integer);
  protected
    FProveedor : IBizProveedor;
    FDetalles : IBizDetallesFacturaProveedor;
--- a/proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/proveedor/Reports/uRptFacturasProveedor_Server.dfm
@ -646,26 +646,27 @@ object RptFacturasProveedor: TRptFacturasProveedor
            Connection = 'IBX'
            SQL = 
              'SELECT'#10'    V_FACTURAS_PROVEEDOR.ID, V_FACTURAS_PROVEEDOR.REFEREN' +
-              'CIA, V_FACTURAS_PROVEEDOR.FECHA_FACTURA,'#10'    V_FACTURAS_PROVEEDO' +
+              'CIA, V_FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,'#10'    V_FACTURAS_P' +
-              'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' +
+              'ROVEEDOR.FECHA_FACTURA,'#10'    V_FACTURAS_PROVEEDOR.BASE_IMPONIBLE,' +
-              'VEEDOR.IMPORTE_DESCUENTO,'#10'    V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' +
+              ' V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PROVEEDOR.IMPORTE_DE' +
-              'AS_PROVEEDOR.IMPORTE_IVA,'#10'    V_FACTURAS_PROVEEDOR.RE, V_FACTURA' +
+              'SCUENTO,'#10'    V_FACTURAS_PROVEEDOR.IVA, V_FACTURAS_PROVEEDOR.IMPO' +
-              'S_PROVEEDOR.IMPORTE_RE,'#10'    V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' +
+              'RTE_IVA,'#10'    V_FACTURAS_PROVEEDOR.RE, V_FACTURAS_PROVEEDOR.IMPOR' +
-              'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10'    V_FACTURAS_PROVEEDOR.OBS' +
+              'TE_RE,'#10'    V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, V_FACTURAS_PROVEE' +
-              'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' +
+              'DOR.IMPORTE_PORTE,'#10'    V_FACTURAS_PROVEEDOR.OBSERVACIONES, FORMA' +
-              'OVEEDOR.ID_PROVEEDOR,'#10'    V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' +
+              'S_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PROVEEDOR.ID_PROVEE' +
-              'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10'    V_FACTURAS_' +
+              'DOR,'#10'    V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTURAS_PROVEEDOR.NOMB' +
-              'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' +
+              'RE, V_FACTURAS_PROVEEDOR.CALLE,'#10'    V_FACTURAS_PROVEEDOR.PROVINC' +
-              'RAS_PROVEEDOR.POBLACION,'#10#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NI' +
+              'IA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTURAS_PROVEEDOR.POB' +
-              'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALL' +
+              'LACION,'#10#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EM' +
-              'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10'    EMPRESAS' +
+              'PRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRES' +
-              '.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' +
+              'AS.POBLACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PRO' +
-              'O_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' +
+              'VINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,' +
-              'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.R' +
+              #10'    EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRES' +
-              'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 +
+              'AS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL' +
-              'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' +
+              ', EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10'LEFT JOIN EMPRESA' +
-              'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' +
+              'S ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_P' +
-              'ERE V_FACTURAS_PROVEEDOR.ID = :ID'#10
+              'AGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WHERE V_FACTURAS_PR' +
              'OVEEDOR.ID = :ID'#10
            StatementType = stSQL
            ColumnMappings = <
              item
@ -807,6 +808,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
              item
                DatasetField = 'LOGOTIPO'
                TableField = 'LOGOTIPO'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              end>
          end>
        Name = 'InformeFacturasProveedor'
@ -823,6 +828,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
            Size = 255
            DictionaryEntry = 'FacturasCliente_REFERENCIA'
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_FACTURA'
            DataType = datDateTime
@ -1846,62 +1856,138 @@ object RptFacturasProveedor: TRptFacturasProveedor
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.OutlineWidth = 180
    PreviewOptions.Zoom = 1.000000000000000000
-    PrintOptions.Printer = 'Por defecto'
+    PrintOptions.Printer = 'Default'
    PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 37800.807714351900000000
+    ReportOptions.CreateDate = 37871.995398692100000000
-    ReportOptions.LastChange = 39836.719287280100000000
+    ReportOptions.LastChange = 41305.486179699070000000
    ReportOptions.VersionBuild = '1'
    ReportOptions.VersionMajor = '12'
    ReportOptions.VersionMinor = '13'
    ReportOptions.VersionRelease = '1'
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
-      'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
+      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
      'begin'
-      ' if Engine.FinalPass then'
+      '  DatosCliente.Lines.Clear;'
-      '  begin'
+      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
-      '    if (<Page#> = <TotalPages#>) then'
+      ''
-      '    begin                      '
+      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
-      '       mContinua.Visible := False;'
+      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
-      '    end                 '
+      
-      '    else'
+        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
-      '    begin                '
+        #39' + <frxDBCabecera."POBLACION">);'
      '       mContinua.Visible := True;'
      '    end               '
      '  end;               '
      'end;'
      ''
-      'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
+      'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
-      'var'
+      'begin'
-      
+      '  BandaDetalles.StartNewPage := False;'
-        '  ACadena : String;                                             ' +
+      '  BandaDetalles.Visible := True;'
-        '    '
+      '  MemPrecio.Style := '#39'Concepto normal'#39';'
      '  MemCantidad.Style := '#39'Concepto normal'#39';'
      '  MemImpTotal.Style := '#39'Concepto normal'#39';'
      '  RichConcepto.Visible := True;'
      ''
      '  case <frxDBDetalles."TIPO_DETALLE"> of'
      '  '#39'Salto'#39': begin'
      '        BandaDetalles.StartNewPage := True;'
      '        RichConcepto.Visible := False;'
      '       end;'
      '  '#39'Titulo'#39': begin'
      '       MemPrecio.Style := '#39'Concepto titulo'#39';'
      '       MemCantidad.Style := '#39'Concepto titulo'#39';'
      '       MemImpTotal.Style := '#39'Concepto titulo'#39';'
      '       end;'
      '  '#39'Concepto'#39': begin'
      '       MemPrecio.Style := '#39'Concepto normal'#39';'
      '       MemCantidad.Style := '#39'Concepto normal'#39';'
      '       MemImpTotal.Style := '#39'Concepto normal'#39';'
      '       end;'
      '  '#39'Subtotal'#39': begin'
      '       MemPrecio.Style := '#39'Concepto subtotal'#39';'
      '       MemCantidad.Style := '#39'Concepto subtotal'#39';'
      '       MemImpTotal.Style := '#39'Concepto subtotal'#39';'
      '       end;'
      '  '#39'Descuento'#39': begin'
      '       BandaDetalles.Visible := False;'
      '       RichConcepto.Color := clNone;'
      '       end;'
      '  end;'
      ''
      '  RichConcepto.Color := MemImpTotal.Color;'
      '  RichConcepto.Frame := MemImpTotal.Frame;'
      'end;'
      ''
      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
-        '  ACadena :=  <frxDBInformeListadoFacturasPendResumen."DATOS_BAN' +
+        '  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
-        'CARIOS">;                                            '
+        '.Height - 1;'
-      '  if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
+      'end;'
-      '  begin'
+      ''
-      '     Delete(ACadena, 1, 14);'
+      'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
      'var'
      '  Cadena: String;'
      'begin'
      '  DatosEmpresa.Lines.Clear;'
      '  DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
      '  DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
      ''
      '  Cadena := '#39#39';'
      '  if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
      '  if (<frxDBCabecera."FAX"> <> '#39#39') then'
      '       Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
      '  DatosEmpresa.Lines.Add(Cadena);'
      ''
      '  Cadena := '#39#39';'
      '  if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
      '       Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
      '  if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
-        '     Memo11.Lines.Text := '#39' '#39' + ACadena;                        ' +
+        '       Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
-        '                                               '
+        'A">;'
      '  if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
        '       Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
        'ESA">;'
      '  DatosEmpresa.Lines.Add(Cadena);'
      'end;'
      ''
      'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  Memo15.Lines.Clear;'
      '  if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
      '       Memo15.Lines.Add('#39'ABONO'#39')'
      '  else'
      '     Memo15.Lines.Add('#39'FACTURA'#39')'
      'end;'
      ''
      'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
      '  begin'
      '       Memo20.Lines.Clear;'
      '       Memo28.Lines.Clear;'
      '       Memo21.Lines.Clear;'
      '       Memo29.Lines.Clear;'
      '  end;'
      'end;'
      ''
-      'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
+      'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
      'var'
        '  ACadena : String;                                             ' +
        '    '
      'begin'
-      
+      '  if not Engine.FinalPass then'
-        '  ACadena :=  <frxDBInformeListadoFacturasPendientes."DATOS_BANC' +
+      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
-        'ARIOS">;                                            '
+      ''
-      '  if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
+      '  if Engine.FinalPass then'
-      '  begin'
+      '     Set('#39'Pagina'#39', (<Pagina> + 1));'
-      '     Delete(ACadena, 1, 14);'
+      'end;'
-      
+      ''
-        '     Memo10.Lines.Text := '#39' '#39' + ACadena;                        ' +
+      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
-        '                                               '
+      'begin'
-      '  end;'
+      '  Set('#39'Pagina'#39', 0);'
      '  Set('#39'TotalPaginas'#39', 0);'
      'end;'
      ''
      'begin'
@ -2193,6 +2279,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
        Size = 255
        DictionaryEntry = 'FacturasCliente_REFERENCIA'
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_FACTURA'
        DataType = datDateTime
--- a/informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
+++ b/informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
@ -14,6 +14,7 @@ type
    function GetAno2: Variant;
    function GetNTop: Variant;
    function GetAgentesActivos: Boolean;
    function GetListaIDAgentes: TIntegerArray;
    property Intervalo: Variant read GetIntervalo;
@ -21,6 +22,7 @@ type
    property Ano2: Variant read GetAno2;
    property NTop: Variant read GetNTop;
    property AgentesActivos: Boolean read GetAgentesActivos;    
    property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
  end;
--- a/informes/Controller/uGestorInformesController.pas
+++ b/informes/Controller/uGestorInformesController.pas
@ -749,7 +749,7 @@ begin
      AEditor.Title := 'Informe comparativo de objetivos de agentes de facturas';
      AStream := FDataModule.GenerarInformeObjetivosAgentesFacturas(AppFactuGES.EmpresaActiva.ID,
-        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop);
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop);
      AEditor.LoadFromStream(AStream);
      AEditor.Preview;
--- a/informes/Data/uDataModuleGestorInformes.pas
+++ b/informes/Data/uDataModuleGestorInformes.pas
@ -38,7 +38,7 @@ type
    function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
    function DarListaAnosFacturasCli: TStringList;
    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
    //MODULO RECIBOS DE CLIENTE
    function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -326,9 +326,9 @@ end;
 function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesFacturas(
  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
 begin
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop);
 end;
 procedure TDataModuleGestorInformes.getInforme;
--- a/informes/Model/Data/uIDataModuleGestorInformes.pas
+++ b/informes/Model/Data/uIDataModuleGestorInformes.pas
@ -27,7 +27,7 @@ type
    function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
    function DarListaAnosFacturasCli: TStringList;
    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;        
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;        
    //MODULO RECIBOS DE CLIENTE
    function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
--- a/informes/Servidor/srvGestorInformes_Impl.pas
+++ b/informes/Servidor/srvGestorInformes_Impl.pas
@ -55,7 +55,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 GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray;
                                             const TopN: Integer): Binary;
    //MODULO RECIBOS CLIENTE
@ -392,13 +392,13 @@ end;
 function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas(
  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
+  const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
 var
  AReportGenerator : TRptFacturasCliente;
 begin
  AReportGenerator := TRptFacturasCliente.Create(nil);
  try
-    Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
+    Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
  finally
    FreeAndNIL(AReportGenerator);
  end;
--- a/informes/Views/uEditorInformeObjetivosFacturasReport.pas
+++ b/informes/Views/uEditorInformeObjetivosFacturasReport.pas
@ -32,6 +32,7 @@ type
    function GetAno2: Variant;
    function GetSerie: variant;
    function GetListaIDAgentes: TIntegerArray;
    function GetAgentesActivos: Boolean;
    function GetNTop: Variant;
    procedure RefrescarInforme;
@ -44,6 +45,7 @@ type
    property Ano1: Variant read GetAno1;
    property Ano2: Variant read GetAno2;
    property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
    property AgentesActivos: Boolean read GetAgentesActivos;
    property NTop: Variant read GetNTop;
    property Serie: Variant read GetSerie;
@ -89,6 +91,11 @@ begin
  Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
 end;
 function TfEditorInformeObjetivosFacturasReport.GetAgentesActivos: Boolean;
 begin
  Result := frViewFiltroAgentes1.rbTodosAgentes.Checked;
 end;
 function TfEditorInformeObjetivosFacturasReport.GetAno1: Variant;
 begin
  Result := frViewIntervaloComparativo1.cbAno1.EditValue;
@ -130,6 +137,7 @@ begin
      Intervalo,
      Ano1,
      Ano2,
      AgentesActivos,
      ListaIDAgentes,
      NTop);
--- a/informes/Views/uViewFiltroAgentes.dfm
+++ b/informes/Views/uViewFiltroAgentes.dfm
@ -28,7 +28,7 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
  object bElegirAgente: TBitBtn
    AlignWithMargins = True
    Left = 61
-    Top = 123
+    Top = 121
    Width = 382
    Height = 23
    Margins.Left = 0
@ -77,8 +77,8 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
      E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
  end
  object cbxDesglosado: TCheckBox
-    Left = 28
+    Left = 124
-    Top = 52
+    Top = 50
    Width = 146
    Height = 17
    Caption = 'Desglosar por agente'
@ -86,7 +86,7 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
  end
  object edtAgente: TcxTextEdit
    Left = 28
-    Top = 99
+    Top = 97
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Enabled = False
@ -110,22 +110,32 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
  end
  object rbTodosAgentes: TRadioButton
    Left = 6
-    Top = 29
+    Top = 50
    Width = 147
    Height = 17
-    Caption = 'Incluir a todos los agentes'
+    Caption = 'Todos los agentes'
    Checked = True
    TabOrder = 4
-    TabStop = True
+    Visible = False
    OnClick = rbTodosAgentesClick
  end
  object rbUnAgente: TRadioButton
    Left = 6
-    Top = 76
+    Top = 74
    Width = 175
    Height = 17
    Caption = 'S'#243'lo listar el agente siguiente:'
    TabOrder = 5
    OnClick = rbUnAgenteClick
  end
  object rbAgentesActivos: TRadioButton
    Left = 6
    Top = 27
    Width = 122
    Height = 17
    Caption = 'Solo agentes activos'
    Checked = True
    TabOrder = 6
    TabStop = True
    OnClick = rbTodosAgentesClick
  end
 end
--- a/informes/Views/uViewFiltroAgentes.pas
+++ b/informes/Views/uViewFiltroAgentes.pas
@ -20,6 +20,7 @@ type
    cbxDesglosado: TCheckBox;
    bElegirAgente: TBitBtn;
    edtAgente: TcxTextEdit;
    rbAgentesActivos: TRadioButton;
    procedure rbTodosAgentesClick(Sender: TObject);
    procedure rbUnAgenteClick(Sender: TObject);
    procedure CustomViewCreate(Sender: TObject);
--- a/articulo/Data/InfMargenArticulo_data.drc
+++ b/articulo/Data/InfMargenArticulo_data.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
-/* c:\temp\dtf265.tmp */
+/* c:\temp\dtf31B.tmp */
--- a/articulo/Model/InfMargenArticulo_model.drc
+++ b/articulo/Model/InfMargenArticulo_model.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
-/* c:\temp\dtf263.tmp */
+/* c:\temp\dtf319.tmp */
--- a/articulo/Views/InfMargenArticulo_view.drc
+++ b/articulo/Views/InfMargenArticulo_view.drc
@ -16,4 +16,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
-/* c:\temp\dtf269.tmp */
+/* c:\temp\dtf31F.tmp */
--- a/articulo/Data/InfVentasArticulo_data.drc
+++ b/articulo/Data/InfVentasArticulo_data.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
-/* c:\temp\dtf25B.tmp */
+/* c:\temp\dtf311.tmp */
--- a/articulo/Model/InfVentasArticulo_model.drc
+++ b/articulo/Model/InfVentasArticulo_model.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
-/* c:\temp\dtf259.tmp */
+/* c:\temp\dtf30F.tmp */
--- a/articulo/Views/InfVentasArticulo_view.drc
+++ b/articulo/Views/InfVentasArticulo_view.drc
@ -19,4 +19,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
-/* c:\temp\dtf25F.tmp */
+/* c:\temp\dtf315.tmp */
--- a/base/Controller/InformesBase_controller.drc
+++ b/base/Controller/InformesBase_controller.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
-/* c:\temp\dtf24F.tmp */
+/* c:\temp\dtf305.tmp */
--- a/base/Data/Informes_data.drc
+++ b/base/Data/Informes_data.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
-/* c:\temp\dtf24B.tmp */
+/* c:\temp\dtf301.tmp */
--- a/base/Model/Informes_model.drc
+++ b/base/Model/Informes_model.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
-/* c:\temp\dtf249.tmp */
+/* c:\temp\dtf2FF.tmp */
--- a/base/Views/Informes_view.drc
+++ b/base/Views/Informes_view.drc
@ -15,4 +15,4 @@ END
 /* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
-/* c:\temp\dtf253.tmp */
+/* c:\temp\dtf309.tmp */
--- a/cliente/Controller/PedidosCliente_controller.drc
+++ b/cliente/Controller/PedidosCliente_controller.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
-/* c:\temp\dtf289.tmp */
+/* c:\temp\dtf33F.tmp */
--- a/cliente/Data/PedidosCliente_data.drc
+++ b/cliente/Data/PedidosCliente_data.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
-/* c:\temp\dtf287.tmp */
+/* c:\temp\dtf33D.tmp */
--- a/cliente/Model/PedidosCliente_model.drc
+++ b/cliente/Model/PedidosCliente_model.drc
@ -13,4 +13,4 @@ BEGIN
 END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
-/* c:\temp\dtf285.tmp */
+/* c:\temp\dtf33B.tmp */
--- a/cliente/Plugin/PedidosCliente_plugin.drc
+++ b/cliente/Plugin/PedidosCliente_plugin.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
-/* c:\temp\dtf2F1.tmp */
+/* c:\temp\dtf3A7.tmp */
--- a/cliente/Views/PedidosCliente_view.drc
+++ b/cliente/Views/PedidosCliente_view.drc
@ -26,4 +26,4 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
-/* c:\temp\dtf2EF.tmp */
+/* c:\temp\dtf3A5.tmp */
--- a/web/Data/TiendaWeb_data.drc
+++ b/web/Data/TiendaWeb_data.drc
@ -14,4 +14,4 @@ END
 /* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
 /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
-/* c:\temp\dtf29F.tmp */
+/* c:\temp\dtf355.tmp */
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@ -1084,6 +1084,8 @@
 </Parameter>
 <Parameter Name="Ano2" DataType="Variant" Flag="In" >
 </Parameter>
 <Parameter Name="AgentesActivos" DataType="Boolean" Flag="In" >
 </Parameter>
 <Parameter Name="ListaIDAgentes" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 <Parameter Name="TopN" DataType="Integer" Flag="In" >
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@ -838,8 +838,8 @@ type
    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
                                                     const TopN: Integer): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const TopN: Integer): Binary;
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
  end;
  { CosrvGestorInformes }
@ -889,8 +889,8 @@ type
    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
    function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
                                                     const TopN: Integer): Binary;
-    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
+    function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const TopN: Integer): Binary;
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
  end;
  { IsrvComisiones }
@ -3183,8 +3183,8 @@ begin
  end
 end;
-function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
+function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                                         const TopN: Integer): Binary;
+                                                                         const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
 begin
  try
    result := nil;
@ -3193,6 +3193,7 @@ begin
    __Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []);
    __Message.Write('Ano1', TypeInfo(Variant), Ano1, []);
    __Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
    __Message.Write('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
    __Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
    __Message.Write('TopN', TypeInfo(Integer), TopN, []);
    __Message.Finalize;
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@ -2879,13 +2879,14 @@ begin
 end;
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; 
+{ function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; 
-                                                    const TopN: Integer): Binary; }
+                                                    const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; }
 var
  IdEmpresa: Integer;
  Intervalo: Variant;
  Ano1: Variant;
  Ano2: Variant;
  AgentesActivos: Boolean;
  ListaIDAgentes: FactuGES_Intf.TIntegerArray;
  TopN: Integer;
  lResult: Binary;
@ -2898,10 +2899,11 @@ begin
    __Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []);
    __Message.Read('Ano1', TypeInfo(Variant), Ano1, []);
    __Message.Read('Ano2', TypeInfo(Variant), Ano2, []);
    __Message.Read('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
    __Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
    __Message.Read('TopN', TypeInfo(Integer), TopN, []);
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesFacturasResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
--- a/Source/Servicios/RODLFile.res
+++ b/Source/Servicios/RODLFile.res
--- a/Source/Servidor/FactuGES_Server.RES
+++ b/Source/Servidor/FactuGES_Server.RES
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@ -164,12 +164,12 @@ uses
  srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
  schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
  schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
  schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
-  schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas';
+  schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
  schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas';
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<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">2</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.2.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.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 15 de octubre de 2012 18:34</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">2</VersionInfo><VersionInfo Name="Release">8</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.2.8.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.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 31 de enero de 2013 18:27</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>
 	</ProjectExtensions>
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 4,2,6,0
+FILEVERSION 4,2,8,0
-PRODUCTVERSION 4,2,6,0
+PRODUCTVERSION 4,2,8,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
    BEGIN
         BLOCK "0C0A04E4"
         BEGIN
-              VALUE "FileVersion", "4.2.6.0\0"
+              VALUE "FileVersion", "4.2.8.0\0"
-              VALUE "ProductVersion", "4.2.6.0\0"
+              VALUE "ProductVersion", "4.2.8.0\0"
-              VALUE "CompileDate", "miércoles, 09 de enero de 2013 13:17\0"
+              VALUE "CompileDate", "miércoles, 13 de febrero de 2013 12:02\0"
         END
    END
    BLOCK "VarFileInfo"