diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index 8dfefaa8..7f917d04 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -147,8 +147,8 @@
 		<VersionInfo>
 			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-			<VersionInfo Name="MajorVer">2</VersionInfo>
-			<VersionInfo Name="MinorVer">9</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
 			<VersionInfo Name="Release">0</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
@@ -162,13 +162,13 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 32630a5f..8efc4156 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,9,0,0
-PRODUCTVERSION 2,9,0,0
+FILEVERSION 3,0,0,0
+PRODUCTVERSION 3,0,0,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,9 +13,9 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.9.0.0\0"
+              VALUE "FileVersion", "3.0.0.0\0"
               VALUE "InternalName", "FactuGES\0"
-              VALUE "ProductVersion", "2.9.0.0\0"
+              VALUE "ProductVersion", "3.0.0.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index d4075236..0614ab82 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj
index 9835e243..c97afaa2 100644
--- a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj	
+++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj	
@@ -170,13 +170,11 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-		</VersionInfoKeys>  
-    
-    <Excluded_Packages>
+		</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>
   </Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm
index 286a9cd7..851ca287 100644
--- a/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm	
+++ b/Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm	
@@ -173,7 +173,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Id empresa'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
         InPrimaryKey = False
@@ -186,7 +185,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Id art'#237'culo'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
         InPrimaryKey = True
@@ -200,7 +198,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Familia'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_FAMILIA'
         InPrimaryKey = False
@@ -214,7 +211,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Referencia'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
         InPrimaryKey = False
@@ -228,7 +224,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Ref. proveedor'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
         InPrimaryKey = False
@@ -236,13 +231,24 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'DESCRIPCION'
         DataType = datString
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Descripci'#243'n'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
         InPrimaryKey = False
@@ -255,7 +261,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Comisionable'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
         InPrimaryKey = False
@@ -268,7 +273,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Inventariable'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
         InPrimaryKey = False
@@ -282,6 +286,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -293,6 +298,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -304,6 +310,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -315,6 +322,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -326,6 +334,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -337,6 +346,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -348,6 +358,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -359,6 +370,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -370,6 +382,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -381,6 +394,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -392,6 +406,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -403,6 +418,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -414,6 +430,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -425,6 +442,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -436,6 +454,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -447,6 +466,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -458,6 +478,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -469,6 +490,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -480,6 +502,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -491,6 +514,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -502,6 +526,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -513,6 +538,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -524,6 +550,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -535,6 +562,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -546,6 +574,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -557,6 +586,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -568,6 +598,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -687,7 +718,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Id empresa'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
         InPrimaryKey = False
@@ -701,7 +731,8 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
-        InPrimaryKey = False
+        DictionaryEntry = 'InfMargenPorCliente_ID_CLIENTE'
+        InPrimaryKey = True
         Calculated = False
         Lookup = False
         LookupCache = False
@@ -711,7 +742,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Id art'#237'culo'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
         InPrimaryKey = True
@@ -725,7 +755,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Familia'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_FAMILIA'
         InPrimaryKey = False
@@ -739,7 +768,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Referencia'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
         InPrimaryKey = False
@@ -753,7 +781,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Ref. proveedor'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
         InPrimaryKey = False
@@ -767,7 +794,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Descripci'#243'n'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
         InPrimaryKey = False
@@ -780,7 +806,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Comisionable'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
         InPrimaryKey = False
@@ -793,7 +818,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         DataType = datInteger
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Inventariable'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
         InPrimaryKey = False
@@ -807,7 +831,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 15
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'NIF/CIF cli.'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_NIF_CIF_CLIENTE'
         InPrimaryKey = False
@@ -821,7 +844,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Cliente'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_NOMBRE_CLIENTE'
         InPrimaryKey = False
@@ -829,13 +851,24 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'NOMBRE_COMERCIAL_CLIENTE'
         DataType = datString
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Nombre comercial'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_NOMBRE_COMERCIAL_CLIENTE'
         InPrimaryKey = False
@@ -849,7 +882,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 15
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'NIF/CIF agente'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_NIF_CIF_AGENTE'
         InPrimaryKey = False
@@ -863,7 +895,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Size = 255
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'Agente'
         Alignment = taLeftJustify
         DictionaryEntry = 'InfVentasArticulo_NOMBRE_AGENTE'
         InPrimaryKey = False
@@ -877,6 +908,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -888,6 +920,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -899,6 +932,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_ULT_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -910,6 +944,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -921,6 +956,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -932,6 +968,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_PRO_VENT'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -943,6 +980,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -954,6 +992,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -965,6 +1004,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -976,6 +1016,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -987,6 +1028,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -998,6 +1040,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1009,6 +1052,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1020,6 +1064,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1031,6 +1076,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1042,6 +1088,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1053,6 +1100,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1064,6 +1112,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1075,6 +1124,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1086,6 +1136,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1097,6 +1148,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1108,6 +1160,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1119,6 +1172,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_COMPRA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1130,6 +1184,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1141,6 +1196,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_ULT_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1152,6 +1208,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1163,6 +1220,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_PRO_COMP'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -1460,6 +1518,18 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'NOMBRE_COMERCIAL_CLIENTE'
         DataType = datString
diff --git a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas
index 53dcb663..944c2fa2 100644
--- a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_Intf.pas	
+++ b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_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_InfMargenPorCliente = '{71F1B324-9D58-4E38-A5C4-2C38BC7E4FD9}';
-  RID_InfMargenPorArticulo = '{D95DC29E-5669-4288-B15E-74000DB84382}';
-  RID_InfMargenPorFactura = '{54A84FBA-D162-432F-BE16-91557F00B416}';
+  RID_InfMargenPorCliente = '{D4BE82F8-A68B-47B9-8BED-199E8ED87582}';
+  RID_InfMargenPorArticulo = '{8786CCDC-5343-46C3-B988-ACC91BDB0BA9}';
+  RID_InfMargenPorFactura = '{78AE1203-BCFA-4659-BED3-83CA81FE3306}';
 
   { Data table names }
   nme_InfMargenPorCliente = 'InfMargenPorCliente';
@@ -30,6 +30,7 @@ const
   fld_InfMargenPorClienteINVENTARIABLE = 'INVENTARIABLE';
   fld_InfMargenPorClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
   fld_InfMargenPorClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+  fld_InfMargenPorClientePROVEEDOR = 'PROVEEDOR';
   fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
   fld_InfMargenPorClienteNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
   fld_InfMargenPorClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
@@ -73,36 +74,37 @@ const
   idx_InfMargenPorClienteINVENTARIABLE = 8;
   idx_InfMargenPorClienteNIF_CIF_CLIENTE = 9;
   idx_InfMargenPorClienteNOMBRE_CLIENTE = 10;
-  idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 11;
-  idx_InfMargenPorClienteNIF_CIF_AGENTE = 12;
-  idx_InfMargenPorClienteNOMBRE_AGENTE = 13;
-  idx_InfMargenPorClienteIMP_UNIDAD_ULT_VENT = 14;
-  idx_InfMargenPorClienteIMP_NETO_ULT_VENT = 15;
-  idx_InfMargenPorClienteIMP_PORTE_ULT_VENT = 16;
-  idx_InfMargenPorClienteIMP_UNIDAD_PRO_VENT = 17;
-  idx_InfMargenPorClienteIMP_NETO_PRO_VENT = 18;
-  idx_InfMargenPorClienteIMP_PORTE_PRO_VENT = 19;
-  idx_InfMargenPorClienteIMP_UNIDAD_COMPRA = 20;
-  idx_InfMargenPorClienteIMP_NETO_COMPRA = 21;
-  idx_InfMargenPorClienteIMP_PORTE_COMPRA = 22;
-  idx_InfMargenPorClienteIMP_UNIDAD_ULT_COMP = 23;
-  idx_InfMargenPorClienteIMP_NETO_ULT_COMP = 24;
-  idx_InfMargenPorClienteIMP_PORTE_ULT_COMP = 25;
-  idx_InfMargenPorClienteIMP_UNIDAD_PRO_COMP = 26;
-  idx_InfMargenPorClienteIMP_NETO_PRO_COMP = 27;
-  idx_InfMargenPorClienteIMP_PORTE_PRO_COMP = 28;
-  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA = 29;
-  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA = 30;
-  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP = 31;
-  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP = 32;
-  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP = 33;
-  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP = 34;
-  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA = 35;
-  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA = 36;
-  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP = 37;
-  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP = 38;
-  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP = 39;
-  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP = 40;
+  idx_InfMargenPorClientePROVEEDOR = 11;
+  idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 12;
+  idx_InfMargenPorClienteNIF_CIF_AGENTE = 13;
+  idx_InfMargenPorClienteNOMBRE_AGENTE = 14;
+  idx_InfMargenPorClienteIMP_UNIDAD_ULT_VENT = 15;
+  idx_InfMargenPorClienteIMP_NETO_ULT_VENT = 16;
+  idx_InfMargenPorClienteIMP_PORTE_ULT_VENT = 17;
+  idx_InfMargenPorClienteIMP_UNIDAD_PRO_VENT = 18;
+  idx_InfMargenPorClienteIMP_NETO_PRO_VENT = 19;
+  idx_InfMargenPorClienteIMP_PORTE_PRO_VENT = 20;
+  idx_InfMargenPorClienteIMP_UNIDAD_COMPRA = 21;
+  idx_InfMargenPorClienteIMP_NETO_COMPRA = 22;
+  idx_InfMargenPorClienteIMP_PORTE_COMPRA = 23;
+  idx_InfMargenPorClienteIMP_UNIDAD_ULT_COMP = 24;
+  idx_InfMargenPorClienteIMP_NETO_ULT_COMP = 25;
+  idx_InfMargenPorClienteIMP_PORTE_ULT_COMP = 26;
+  idx_InfMargenPorClienteIMP_UNIDAD_PRO_COMP = 27;
+  idx_InfMargenPorClienteIMP_NETO_PRO_COMP = 28;
+  idx_InfMargenPorClienteIMP_PORTE_PRO_COMP = 29;
+  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA = 30;
+  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA = 31;
+  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP = 32;
+  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP = 33;
+  idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP = 34;
+  idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP = 35;
+  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA = 36;
+  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA = 37;
+  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP = 38;
+  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP = 39;
+  idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP = 40;
+  idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP = 41;
 
   { InfMargenPorArticulo fields }
   fld_InfMargenPorArticuloID_EMPRESA = 'ID_EMPRESA';
@@ -110,6 +112,7 @@ const
   fld_InfMargenPorArticuloFAMILIA = 'FAMILIA';
   fld_InfMargenPorArticuloREFERENCIA = 'REFERENCIA';
   fld_InfMargenPorArticuloREFERENCIA_PROV = 'REFERENCIA_PROV';
+  fld_InfMargenPorArticuloPROVEEDOR = 'PROVEEDOR';
   fld_InfMargenPorArticuloDESCRIPCION = 'DESCRIPCION';
   fld_InfMargenPorArticuloCOMISIONABLE = 'COMISIONABLE';
   fld_InfMargenPorArticuloINVENTARIABLE = 'INVENTARIABLE';
@@ -147,36 +150,37 @@ const
   idx_InfMargenPorArticuloFAMILIA = 2;
   idx_InfMargenPorArticuloREFERENCIA = 3;
   idx_InfMargenPorArticuloREFERENCIA_PROV = 4;
-  idx_InfMargenPorArticuloDESCRIPCION = 5;
-  idx_InfMargenPorArticuloCOMISIONABLE = 6;
-  idx_InfMargenPorArticuloINVENTARIABLE = 7;
-  idx_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT = 8;
-  idx_InfMargenPorArticuloIMP_NETO_ULT_VENT = 9;
-  idx_InfMargenPorArticuloIMP_PORTE_ULT_VENT = 10;
-  idx_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT = 11;
-  idx_InfMargenPorArticuloIMP_NETO_PRO_VENT = 12;
-  idx_InfMargenPorArticuloIMP_PORTE_PRO_VENT = 13;
-  idx_InfMargenPorArticuloIMP_UNIDAD_COMPRA = 14;
-  idx_InfMargenPorArticuloIMP_NETO_COMPRA = 15;
-  idx_InfMargenPorArticuloIMP_PORTE_COMPRA = 16;
-  idx_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP = 17;
-  idx_InfMargenPorArticuloIMP_NETO_ULT_COMP = 18;
-  idx_InfMargenPorArticuloIMP_PORTE_ULT_COMP = 19;
-  idx_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP = 20;
-  idx_InfMargenPorArticuloIMP_NETO_PRO_COMP = 21;
-  idx_InfMargenPorArticuloIMP_PORTE_PRO_COMP = 22;
-  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA = 23;
-  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA = 24;
-  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 25;
-  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 26;
-  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 27;
-  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 28;
-  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA = 29;
-  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA = 30;
-  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 31;
-  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 32;
-  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 33;
-  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 34;
+  idx_InfMargenPorArticuloPROVEEDOR = 5;
+  idx_InfMargenPorArticuloDESCRIPCION = 6;
+  idx_InfMargenPorArticuloCOMISIONABLE = 7;
+  idx_InfMargenPorArticuloINVENTARIABLE = 8;
+  idx_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT = 9;
+  idx_InfMargenPorArticuloIMP_NETO_ULT_VENT = 10;
+  idx_InfMargenPorArticuloIMP_PORTE_ULT_VENT = 11;
+  idx_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT = 12;
+  idx_InfMargenPorArticuloIMP_NETO_PRO_VENT = 13;
+  idx_InfMargenPorArticuloIMP_PORTE_PRO_VENT = 14;
+  idx_InfMargenPorArticuloIMP_UNIDAD_COMPRA = 15;
+  idx_InfMargenPorArticuloIMP_NETO_COMPRA = 16;
+  idx_InfMargenPorArticuloIMP_PORTE_COMPRA = 17;
+  idx_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP = 18;
+  idx_InfMargenPorArticuloIMP_NETO_ULT_COMP = 19;
+  idx_InfMargenPorArticuloIMP_PORTE_ULT_COMP = 20;
+  idx_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP = 21;
+  idx_InfMargenPorArticuloIMP_NETO_PRO_COMP = 22;
+  idx_InfMargenPorArticuloIMP_PORTE_PRO_COMP = 23;
+  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA = 24;
+  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA = 25;
+  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 26;
+  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 27;
+  idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 28;
+  idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 29;
+  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA = 30;
+  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA = 31;
+  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 32;
+  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 33;
+  idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 34;
+  idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 35;
 
   { InfMargenPorFactura fields }
   fld_InfMargenPorFacturaID_EMPRESA = 'ID_EMPRESA';
@@ -194,6 +198,7 @@ const
   fld_InfMargenPorFacturaINVENTARIABLE = 'INVENTARIABLE';
   fld_InfMargenPorFacturaNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
   fld_InfMargenPorFacturaNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+  fld_InfMargenPorFacturaPROVEEDOR = 'PROVEEDOR';
   fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
   fld_InfMargenPorFacturaNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
   fld_InfMargenPorFacturaNOMBRE_AGENTE = 'NOMBRE_AGENTE';
@@ -233,33 +238,34 @@ const
   idx_InfMargenPorFacturaINVENTARIABLE = 12;
   idx_InfMargenPorFacturaNIF_CIF_CLIENTE = 13;
   idx_InfMargenPorFacturaNOMBRE_CLIENTE = 14;
-  idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 15;
-  idx_InfMargenPorFacturaNIF_CIF_AGENTE = 16;
-  idx_InfMargenPorFacturaNOMBRE_AGENTE = 17;
-  idx_InfMargenPorFacturaCANTIDAD = 18;
-  idx_InfMargenPorFacturaIMP_UNIDAD = 19;
-  idx_InfMargenPorFacturaIMP_NETO = 20;
-  idx_InfMargenPorFacturaIMP_PORTE = 21;
-  idx_InfMargenPorFacturaIMP_TOTAL = 22;
-  idx_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP = 23;
-  idx_InfMargenPorFacturaIMP_NETO_ULT_COMP = 24;
-  idx_InfMargenPorFacturaIMP_PORTE_ULT_COMP = 25;
-  idx_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL = 26;
-  idx_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP = 27;
-  idx_InfMargenPorFacturaIMP_NETO_PRO_COMP = 28;
-  idx_InfMargenPorFacturaIMP_PORTE_PRO_COMP = 29;
-  idx_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL = 30;
-  idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP = 31;
-  idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL = 32;
-  idx_InfMargenPorFacturaPOR_MARGEN_ULT_COMP = 33;
-  idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP = 34;
-  idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL = 35;
-  idx_InfMargenPorFacturaPOR_MARGEN_PRO_COMP = 36;
+  idx_InfMargenPorFacturaPROVEEDOR = 15;
+  idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 16;
+  idx_InfMargenPorFacturaNIF_CIF_AGENTE = 17;
+  idx_InfMargenPorFacturaNOMBRE_AGENTE = 18;
+  idx_InfMargenPorFacturaCANTIDAD = 19;
+  idx_InfMargenPorFacturaIMP_UNIDAD = 20;
+  idx_InfMargenPorFacturaIMP_NETO = 21;
+  idx_InfMargenPorFacturaIMP_PORTE = 22;
+  idx_InfMargenPorFacturaIMP_TOTAL = 23;
+  idx_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP = 24;
+  idx_InfMargenPorFacturaIMP_NETO_ULT_COMP = 25;
+  idx_InfMargenPorFacturaIMP_PORTE_ULT_COMP = 26;
+  idx_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL = 27;
+  idx_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP = 28;
+  idx_InfMargenPorFacturaIMP_NETO_PRO_COMP = 29;
+  idx_InfMargenPorFacturaIMP_PORTE_PRO_COMP = 30;
+  idx_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL = 31;
+  idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP = 32;
+  idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL = 33;
+  idx_InfMargenPorFacturaPOR_MARGEN_ULT_COMP = 34;
+  idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP = 35;
+  idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL = 36;
+  idx_InfMargenPorFacturaPOR_MARGEN_PRO_COMP = 37;
 
 type
   { IInfMargenPorCliente }
   IInfMargenPorCliente = interface(IDAStronglyTypedDataTable)
-  ['{5C8BB6D6-706F-4DC2-97EA-8BA94A055EF5}']
+  ['{EDFD0216-1B3D-4DE4-B9BA-BA3160A2F189}']
     { Property getters and setters }
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
@@ -283,6 +289,8 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
     function GetNOMBRE_CLIENTEValue: String;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+    function GetPROVEEDORValue: String;
+    procedure SetPROVEEDORValue(const aValue: String);
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
     function GetNIF_CIF_AGENTEValue: String;
@@ -357,6 +365,7 @@ type
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
     property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@@ -416,6 +425,8 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
     function GetNIF_CIF_AGENTEValue: String; virtual;
@@ -489,6 +500,7 @@ type
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
     property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@@ -528,7 +540,7 @@ type
 
   { IInfMargenPorArticulo }
   IInfMargenPorArticulo = interface(IDAStronglyTypedDataTable)
-  ['{D395CB2C-9508-48A5-8917-A702DB78620D}']
+  ['{1AC9E5E3-0FDF-4FAF-9DD9-FF619FC0BE5B}']
     { Property getters and setters }
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
@@ -540,6 +552,8 @@ type
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIA_PROVValue: String;
     procedure SetREFERENCIA_PROVValue(const aValue: String);
+    function GetPROVEEDORValue: String;
+    procedure SetPROVEEDORValue(const aValue: String);
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
     function GetCOMISIONABLEValue: Integer;
@@ -608,6 +622,7 @@ type
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
@@ -655,6 +670,8 @@ type
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIA_PROVValue: String; virtual;
     procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     function GetCOMISIONABLEValue: Integer; virtual;
@@ -722,6 +739,7 @@ type
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
@@ -761,7 +779,7 @@ type
 
   { IInfMargenPorFactura }
   IInfMargenPorFactura = interface(IDAStronglyTypedDataTable)
-  ['{EDE9393E-812F-470D-AAF0-FFEA52BD5E02}']
+  ['{B05E8DF3-D584-49C4-BCBC-8E10007DC382}']
     { Property getters and setters }
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
@@ -793,6 +811,8 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
     function GetNOMBRE_CLIENTEValue: String;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+    function GetPROVEEDORValue: String;
+    procedure SetPROVEEDORValue(const aValue: String);
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
     function GetNIF_CIF_AGENTEValue: String;
@@ -855,6 +875,7 @@ type
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
     property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@@ -914,6 +935,8 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
     function GetNIF_CIF_AGENTEValue: String; virtual;
@@ -975,6 +998,7 @@ type
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
     property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@@ -1129,6 +1153,16 @@ begin
   DataTable.Fields[idx_InfMargenPorClienteNOMBRE_CLIENTE].AsString := aValue;
 end;
 
+function TInfMargenPorClienteDataTableRules.GetPROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_InfMargenPorClientePROVEEDOR].AsString;
+end;
+
+procedure TInfMargenPorClienteDataTableRules.SetPROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InfMargenPorClientePROVEEDOR].AsString := aValue;
+end;
+
 function TInfMargenPorClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
@@ -1491,6 +1525,16 @@ begin
   DataTable.Fields[idx_InfMargenPorArticuloREFERENCIA_PROV].AsString := aValue;
 end;
 
+function TInfMargenPorArticuloDataTableRules.GetPROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_InfMargenPorArticuloPROVEEDOR].AsString;
+end;
+
+procedure TInfMargenPorArticuloDataTableRules.SetPROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InfMargenPorArticuloPROVEEDOR].AsString := aValue;
+end;
+
 function TInfMargenPorArticuloDataTableRules.GetDESCRIPCIONValue: String;
 begin
   result := DataTable.Fields[idx_InfMargenPorArticuloDESCRIPCION].AsString;
@@ -1953,6 +1997,16 @@ begin
   DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_CLIENTE].AsString := aValue;
 end;
 
+function TInfMargenPorFacturaDataTableRules.GetPROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_InfMargenPorFacturaPROVEEDOR].AsString;
+end;
+
+procedure TInfMargenPorFacturaDataTableRules.SetPROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InfMargenPorFacturaPROVEEDOR].AsString := aValue;
+end;
+
 function TInfMargenPorFacturaDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE].AsString;
diff --git a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas
index 75d0303c..6344f5e3 100644
--- a/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas	
+++ b/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_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_InfMargenPorClienteDelta = '{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}';
-  RID_InfMargenPorArticuloDelta = '{D6219F0B-3705-4E9F-854A-EE678CDA3354}';
-  RID_InfMargenPorFacturaDelta = '{5C45D321-F740-48B8-BCD7-4B00331BB267}';
+  RID_InfMargenPorClienteDelta = '{60A00CBF-ED18-41E1-975D-BA6353A4801E}';
+  RID_InfMargenPorArticuloDelta = '{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}';
+  RID_InfMargenPorFacturaDelta = '{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}';
 
 type
   { IInfMargenPorClienteDelta }
   IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
-  ['{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}']
+  ['{60A00CBF-ED18-41E1-975D-BA6353A4801E}']
     { Property getters and setters }
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -29,6 +29,7 @@ type
     function GetOldINVENTARIABLEValue : Integer;
     function GetOldNIF_CIF_CLIENTEValue : String;
     function GetOldNOMBRE_CLIENTEValue : String;
+    function GetOldPROVEEDORValue : String;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
     function GetOldNIF_CIF_AGENTEValue : String;
     function GetOldNOMBRE_AGENTEValue : String;
@@ -72,6 +73,7 @@ type
     property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
     property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
     property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@@ -142,6 +144,9 @@ type
     function GetNOMBRE_CLIENTEValue: String; virtual;
     function GetOldNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    function GetOldPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
@@ -256,6 +261,8 @@ type
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+    property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
@@ -325,13 +332,14 @@ type
 
   { IInfMargenPorArticuloDelta }
   IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo)
-  ['{D6219F0B-3705-4E9F-854A-EE678CDA3354}']
+  ['{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}']
     { Property getters and setters }
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_ARTICULOValue : Integer;
     function GetOldFAMILIAValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVValue : String;
+    function GetOldPROVEEDORValue : String;
     function GetOldDESCRIPCIONValue : String;
     function GetOldCOMISIONABLEValue : Integer;
     function GetOldINVENTARIABLEValue : Integer;
@@ -369,6 +377,7 @@ type
     property OldFAMILIA : String read GetOldFAMILIAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
     property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
@@ -421,6 +430,9 @@ type
     function GetREFERENCIA_PROVValue: String; virtual;
     function GetOldREFERENCIA_PROVValue: String; virtual;
     procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    function GetOldPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     function GetOldDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
@@ -523,6 +535,8 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
     property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
@@ -592,7 +606,7 @@ type
 
   { IInfMargenPorFacturaDelta }
   IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura)
-  ['{5C45D321-F740-48B8-BCD7-4B00331BB267}']
+  ['{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}']
     { Property getters and setters }
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -609,6 +623,7 @@ type
     function GetOldINVENTARIABLEValue : Integer;
     function GetOldNIF_CIF_CLIENTEValue : String;
     function GetOldNOMBRE_CLIENTEValue : String;
+    function GetOldPROVEEDORValue : String;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
     function GetOldNIF_CIF_AGENTEValue : String;
     function GetOldNOMBRE_AGENTEValue : String;
@@ -648,6 +663,7 @@ type
     property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
     property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
     property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@@ -722,6 +738,9 @@ type
     function GetNOMBRE_CLIENTEValue: String; virtual;
     function GetOldNOMBRE_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+    function GetPROVEEDORValue: String; virtual;
+    function GetOldPROVEEDORValue: String; virtual;
+    procedure SetPROVEEDORValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
@@ -820,6 +839,8 @@ type
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
     property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+    property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
+    property OldPROVEEDOR : String read GetOldPROVEEDORValue;
     property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
     property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
@@ -1052,6 +1073,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE] := aValue;
 end;
 
+function TInfMargenPorClienteBusinessProcessorRules.GetPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR];
+end;
+
+function TInfMargenPorClienteBusinessProcessorRules.GetOldPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePROVEEDOR];
+end;
+
+procedure TInfMargenPorClienteBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR] := aValue;
+end;
+
 function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
@@ -1589,6 +1625,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue;
 end;
 
+function TInfMargenPorArticuloBusinessProcessorRules.GetPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR];
+end;
+
+function TInfMargenPorArticuloBusinessProcessorRules.GetOldPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPROVEEDOR];
+end;
+
+procedure TInfMargenPorArticuloBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR] := aValue;
+end;
+
 function TInfMargenPorArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION];
@@ -2276,6 +2327,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue;
 end;
 
+function TInfMargenPorFacturaBusinessProcessorRules.GetPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR];
+end;
+
+function TInfMargenPorFacturaBusinessProcessorRules.GetOldPROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPROVEEDOR];
+end;
+
+procedure TInfMargenPorFacturaBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR] := aValue;
+end;
+
 function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];
diff --git a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
index 219c0fc8..a5a468fc 100644
--- a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm	
+++ b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm	
@@ -36,164 +36,174 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
               '  INF_MARGEN_ARTICULOS.NIF_CIF_AGENTE,'#10'    INF_MARGEN_ARTICULOS.' +
               'NOMBRE_AGENTE,'#10'    INF_MARGEN_ARTICULOS.FAMILIA,'#10'    INF_MARGEN_' +
               'ARTICULOS.REFERENCIA,'#10'    INF_MARGEN_ARTICULOS.REFERENCIA_PROV,'#10 +
-              '    INF_MARGEN_ARTICULOS.DESCRIPCION,'#10'    INF_MARGEN_ARTICULOS.C' +
-              'OMISIONABLE,'#10'    INF_MARGEN_ARTICULOS.INVENTARIABLE,'#10'    INF_MAR' +
-              'GEN_ARTICULOS.IMP_UNIDAD_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_' +
-              'NETO_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_VENT,'#10'    ' +
-              'INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_VENT,'#10'    INF_MARGEN_ARTICUL' +
-              'OS.IMP_NETO_PRO_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_PRO_VEN' +
-              'T,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_COMPRA,'#10'    INF_MARGEN_AR' +
-              'TICULOS.IMP_NETO_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_COMP' +
-              'RA,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_COMP,'#10'    INF_MARGEN' +
-              '_ARTICULOS.IMP_NETO_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE' +
-              '_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_COMP,'#10'    INF' +
-              '_MARGEN_ARTICULOS.IMP_NETO_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IM' +
-              'P_PORTE_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_C' +
-              'OMPRA,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_COMPRA,'#10'    ' +
-              'INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'    INF_MARGE' +
-              'N_ARTICULOS.POR_MARGEN_ULT_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICUL' +
-              'OS.IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MA' +
-              'RGEN_ULT_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_' +
-              'VENT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_COMPRA' +
-              ','#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_ULT_COMP,'#10'    INF' +
-              '_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_ULT_COMP,'#10'    INF_MARGEN_A' +
-              'RTICULOS.IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.' +
-              'POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VENTAS.ID_EMP' +
-              'RESA AS ID_EMPRESA,'#10'MARGEN_VENTAS.ID_CLIENTE AS ID_CLIENTE,'#10'MARG' +
-              'EN_VENTAS.ID_ARTICULO AS ID_ARTICULO,'#10#10'CLIENTES.NIF_CIF AS NIF_C' +
-              'IF_CLIENTE,'#10'CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10'CLIENTES_DATOS.NO' +
-              'MBRE_COMERCIAL AS NOMBRE_COMERCIAL_CLIENTE,'#10#10'AGENTES.NIF_CIF AS ' +
-              'NIF_CIF_AGENTE,'#10'AGENTES.NOMBRE AS NOMBRE_AGENTE,'#10#10'ARTICULOS.FAMI' +
-              'LIA AS FAMILIA,'#10'ARTICULOS.REFERENCIA AS REFERENCIA,'#10'ARTICULOS.RE' +
-              'FERENCIA_PROV AS REFERENCIA_PROV,'#10'ARTICULOS.DESCRIPCION AS DESCR' +
-              'IPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONABLE,'#10'ARTICULOS.INVENT' +
-              'ARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_UNIDAD' +
-              '_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALESCE(MARGEN_VENTAS.IMP' +
-              'ORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT,'#10'COALESCE(MARGEN_VEN' +
-              'TAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE_ULT_VENT,'#10#10'COALESCE(' +
-              'MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) AS IMP_UNIDAD_PRO_VENT' +
-              ','#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT, 0) AS IMP_NETO_P' +
-              'RO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_PRO_VENT, 0) AS IM' +
-              'P_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECIO_COSTE, 0) AS IMP_UN' +
-              'IDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO, 0) AS IMP_NETO_COMP' +
-              'RA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS IMP_PORTE_COMPRA,'#10#10'CO' +
-              'ALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COMP, COALESCE(ARTICULO' +
-              'S.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10'COALESCE(MARGEN_COMP' +
-              'RAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0)) A' +
-              'S IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_PORTE_ULT_C' +
-              'OMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP_PORTE_ULT_COMP,' +
-              #10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO_COMP, COALESCE(ARTI' +
-              'CULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_COMP,'#10'COALESCE(MARGEN_' +
-              'COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0' +
-              ')) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_PORTE_P' +
-              'RO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP_PORTE_PRO_C' +
-              'OMP,'#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - ARTICULOS.PRECIO_NE' +
-              'TO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHEN  ARTICULOS.PRECIO_NE' +
-              'TO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - ARTI' +
-              'CULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_UL' +
-              'T_VENT - ARTICULOS.PRECIO_NETO) * 100) / MARGEN_VENTAS.IMPORTE_N' +
-              'ETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_COMPRA,'#10#10'MARGEN_V' +
-              'ENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_CO' +
-              'MP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.IM' +
-              'PORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NET' +
-              'O_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) > 0 THEN'#10'    ' +
-              ' ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_' +
-              'NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE' +
-              ' 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPORTE_N' +
-              'ETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP AS IMP_MARGE' +
-              'N_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO_PRO_' +
-              'COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MA' +
-              'RGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 THEN'#10'     ((MARGEN_VENTA' +
-              'S.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) ' +
-              '* 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_M' +
-              'ARGEN_ULT_VENT_PRO_COMP,'#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT -' +
-              ' ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_VENT_COMPRA,'#10'CASE'#10'WHEN ' +
-              ' ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_' +
-              'NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARGEN_VE' +
-              'NTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) * 100) / MAR' +
-              'GEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VE' +
-              'NT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS' +
-              '.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_VENT_ULT_COMP,'#10'CASE'#10'WHE' +
-              'N  MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MARGE' +
-              'N_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT' +
-              '_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MAR' +
-              'GEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPORT' +
-              'E_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_ULT_COMP,'#10#10'MAR' +
-              'GEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_P' +
-              'RO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPR' +
-              'AS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORT' +
-              'E_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 THEN' +
-              #10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMP' +
-              'ORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT' +
-              #10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10#10'(SELECT ID_E' +
-              'MPRESA, ID_CLIENTE, ID_ARTICULO, COALESCE(SUM(IMPORTE_UNIDAD_ULT' +
-              '_VENT),0) AS IMPORTE_UNIDAD_ULT_VENT,'#10'       COALESCE(SUM(IMPORT' +
-              'E_NETO_ULT_VENT),0) AS IMPORTE_NETO_ULT_VENT, COALESCE(SUM(IMPOR' +
-              'TE_PORTE_ULT_VENT),0) AS IMPORTE_PORTE_ULT_VENT,'#10'       COALESCE' +
-              '(SUM(IMPORTE_UNIDAD_PRO_VENT),0) AS IMPORTE_UNIDAD_PRO_VENT, COA' +
-              'LESCE(SUM(IMPORTE_NETO_PRO_VENT),0) AS IMPORTE_NETO_PRO_VENT,'#10'  ' +
-              '     COALESCE(SUM(IMPORTE_PORTE_PRO_VENT),0) AS IMPORTE_PORTE_PR' +
-              'O_VENT'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_CLIENTE, ID_ARTICU' +
-              'LO,'#10'      IMPORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_VENT, IMPOR' +
-              'TE_NETO_VENTA AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE_VENTA AS I' +
-              'MPORTE_PORTE_ULT_VENT,'#10'      NULL AS IMPORTE_UNIDAD_PRO_VENT, NU' +
-              'LL AS IMPORTE_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PRO_VENT'#10#10'   ' +
-              ' FROM V_INF_ULTVEN_PORCLIENTE'#10#10'    UNION ALL'#10#10'    SELECT'#10'      F' +
-              'ACTURAS_CLIENTE.ID_EMPRESA,'#10'      FACTURAS_CLIENTE.ID_CLIENTE,'#10' ' +
-              '     FACTURAS_CLIENTE_DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NU' +
-              'LL,'#10'      AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD) AS IMPOR' +
-              'TE_UNIDAD_PRO_VENT,'#10'      AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_' +
-              'UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_C' +
-              'LIENTE_DETALLES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_VENT,'#10'   ' +
-              '   AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE' +
-              '_PRO_VENT'#10#10'    FROM FACTURAS_CLIENTE_DETALLES'#10'    LEFT OUTER JOI' +
-              'N FACTURAS_CLIENTE'#10'    ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENT' +
-              'E_DETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_CLIENTE_DETALLES.ID_' +
-              'ARTICULO IS NOT NULL) AND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO' +
-              ' > 0)'#10'      AND (FACTURAS_CLIENTE_DETALLES.CANTIDAD > 0)'#10'      A' +
-              'ND (FACTURAS_CLIENTE.FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAF' +
-              'IN)'#10'    GROUP BY 1, 2, 3)'#10#10' GROUP BY 1, 2, 3'#10' having SUM(IMPORTE' +
-              '_NETO_PRO_VENT) > 0 /*Solo queremos aquellos articulos que se ha' +
-              'yan vendido en ese periodo de fechas*/'#10'  ) MARGEN_VENTAS'#10#10#10'LEFT ' +
-              'JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA, ID_ARTICULO, COALESCE(SUM(IMPORTE' +
-              '_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, COALESCE(SUM(IM' +
-              'PORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,'#10'    COALESCE(S' +
-              'UM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_ULT_COMP, COALESC' +
-              'E(SUM(IMPORTE_UNIDAD_PRO_COMP),SUM(IMPORTE_UNIDAD_ULT_COMP)) AS ' +
-              'IMPORTE_UNIDAD_PRO_COMP,'#10'    COALESCE(SUM(IMPORTE_NETO_PRO_COMP)' +
-              ',SUM(IMPORTE_NETO_ULT_COMP)) AS IMPORTE_NETO_PRO_COMP, COALESCE(' +
-              'SUM(IMPORTE_PORTE_PRO_COMP),SUM(IMPORTE_PORTE_ULT_COMP)) AS IMPO' +
-              'RTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_ARTICU' +
-              'LO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP, IMPO' +
-              'RTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_COMPRA A' +
-              'S IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_UNIDAD_PRO_COMP,' +
-              ' NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_COMP'#10#10 +
-              '    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10#10'    SELECT'#10'   ' +
-              '   FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_PROVEEDOR_DETAL' +
-              'LES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURAS_PROV' +
-              'EEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,'#10'     ' +
-              ' AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURAS_PROV' +
-              'EEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALLES.DES' +
-              'CUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      AVG(FACTURAS_PRO' +
-              'VEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10'    FR' +
-              'OM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOIN FACTURAS_PROV' +
-              'EEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_DETALLE' +
-              'S.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICUL' +
-              'O IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO > 0)' +
-              #10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10'      /*La' +
-              's compras promedio deben de calcularse desde el principio de los' +
-              ' tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEEDOR.FECHA_FACTU' +
-              'RA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GROUP BY 1, 2)'#10#10'  ' +
-              'GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPRESA = ' +
-              'MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO = MARG' +
-              'EN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS.ID = ' +
-              'MARGEN_VENTAS.ID_ARTICULO)'#10'LEFT JOIN CONTACTOS CLIENTES ON (CLIE' +
-              'NTES.ID = MARGEN_VENTAS.ID_CLIENTE)'#10'LEFT JOIN CLIENTES_DATOS ON ' +
-              '(CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)'#10'LEFT JOIN CONTACTOS AG' +
-              'ENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)'#10'WHERE ARTICULOS' +
-              '.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
+              '    INF_MARGEN_ARTICULOS.PROVEEDOR,'#10'    INF_MARGEN_ARTICULOS.DES' +
+              'CRIPCION,'#10'    INF_MARGEN_ARTICULOS.COMISIONABLE,'#10'    INF_MARGEN_' +
+              'ARTICULOS.INVENTARIABLE,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT' +
+              '_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_VENT,'#10'    INF_MARGE' +
+              'N_ARTICULOS.IMP_PORTE_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_UNI' +
+              'DAD_PRO_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_PRO_VENT,'#10'    IN' +
+              'F_MARGEN_ARTICULOS.IMP_PORTE_PRO_VENT,'#10'    INF_MARGEN_ARTICULOS.' +
+              'IMP_UNIDAD_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_COMPRA,'#10'   ' +
+              ' INF_MARGEN_ARTICULOS.IMP_PORTE_COMPRA,'#10'    INF_MARGEN_ARTICULOS' +
+              '.IMP_UNIDAD_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_COMP' +
+              ','#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_COMP,'#10'    INF_MARGEN_AR' +
+              'TICULOS.IMP_UNIDAD_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_P' +
+              'RO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_PRO_COMP,'#10'    INF_MA' +
+              'RGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_COMPRA,'#10'    INF_MARGEN_ARTICU' +
+              'LOS.POR_MARGEN_ULT_VENT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_MAR' +
+              'GEN_ULT_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_V' +
+              'ENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_PRO_C' +
+              'OMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_PRO_COMP,'#10'    ' +
+              'INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_COMPRA,'#10'    INF_MARGEN_' +
+              'ARTICULOS.POR_MARGEN_PRO_VENT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.I' +
+              'MP_MARGEN_PRO_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN' +
+              '_PRO_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT' +
+              '_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_PRO_COMP' +
+              #10#10'FROM'#10#10'(SELECT'#10'MARGEN_VENTAS.ID_EMPRESA AS ID_EMPRESA,'#10'MARGEN_V' +
+              'ENTAS.ID_CLIENTE AS ID_CLIENTE,'#10'MARGEN_VENTAS.ID_ARTICULO AS ID_' +
+              'ARTICULO,'#10#10'CLIENTES.NIF_CIF AS NIF_CIF_CLIENTE,'#10'CLIENTES.NOMBRE ' +
+              'AS NOMBRE_CLIENTE,'#10'CLIENTES_DATOS.NOMBRE_COMERCIAL AS NOMBRE_COM' +
+              'ERCIAL_CLIENTE,'#10#10'AGENTES.NIF_CIF AS NIF_CIF_AGENTE,'#10'AGENTES.NOMB' +
+              'RE AS NOMBRE_AGENTE,'#10#10'ARTICULOS.FAMILIA AS FAMILIA,'#10'ARTICULOS.RE' +
+              'FERENCIA AS REFERENCIA,'#10'ARTICULOS.REFERENCIA_PROV AS REFERENCIA_' +
+              'PROV,'#10'PROVEEDORES.NOMBRE AS PROVEEDOR,'#10'ARTICULOS.DESCRIPCION AS ' +
+              'DESCRIPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONABLE,'#10'ARTICULOS.I' +
+              'NVENTARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_U' +
+              'NIDAD_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALESCE(MARGEN_VENTA' +
+              'S.IMPORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT,'#10'COALESCE(MARGE' +
+              'N_VENTAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE_ULT_VENT,'#10#10'COAL' +
+              'ESCE(MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) AS IMP_UNIDAD_PRO' +
+              '_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT, 0) AS IMP_N' +
+              'ETO_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_PRO_VENT, 0) ' +
+              'AS IMP_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECIO_COSTE, 0) AS I' +
+              'MP_UNIDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO, 0) AS IMP_NETO' +
+              '_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS IMP_PORTE_COMPRA' +
+              ','#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COMP, COALESCE(ART' +
+              'ICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10'COALESCE(MARGEN' +
+              '_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_NETO, ' +
+              '0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_PORTE_' +
+              'ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP_PORTE_ULT_' +
+              'COMP,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO_COMP, COALESCE' +
+              '(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_COMP,'#10'COALESCE(MA' +
+              'RGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NE' +
+              'TO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_PO' +
+              'RTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP_PORTE_' +
+              'PRO_COMP,'#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - ARTICULOS.PREC' +
+              'IO_NETO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHEN  ARTICULOS.PREC' +
+              'IO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT -' +
+              ' ARTICULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NE' +
+              'TO_ULT_VENT - ARTICULOS.PRECIO_NETO) * 100) / MARGEN_VENTAS.IMPO' +
+              'RTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_COMPRA,'#10#10'MAR' +
+              'GEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_U' +
+              'LT_COMP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPR' +
+              'AS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORT' +
+              'E_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) > 0 THEN' +
+              #10'     ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMP' +
+              'ORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT' +
+              #10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPO' +
+              'RTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP AS IMP_' +
+              'MARGEN_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO' +
+              '_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT' +
+              ' - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 THEN'#10'     ((MARGEN_' +
+              'VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_C' +
+              'OMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS ' +
+              'POR_MARGEN_ULT_VENT_PRO_COMP,'#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_V' +
+              'ENT - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_VENT_COMPRA,'#10'CASE'#10 +
+              'WHEN  ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMP' +
+              'ORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARG' +
+              'EN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) * 100) ' +
+              '/ MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_P' +
+              'RO_VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_CO' +
+              'MPRAS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_VENT_ULT_COMP,'#10'CAS' +
+              'E'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (' +
+              'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NET' +
+              'O_ULT_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT ' +
+              '- MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.I' +
+              'MPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_ULT_COMP,' +
+              #10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_N' +
+              'ETO_PRO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_' +
+              'COMPRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.I' +
+              'MPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0' +
+              ' THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRA' +
+              'S.IMPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO' +
+              '_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10#10'(SELECT' +
+              ' ID_EMPRESA, ID_CLIENTE, ID_ARTICULO, COALESCE(SUM(IMPORTE_UNIDA' +
+              'D_ULT_VENT),0) AS IMPORTE_UNIDAD_ULT_VENT,'#10'       COALESCE(SUM(I' +
+              'MPORTE_NETO_ULT_VENT),0) AS IMPORTE_NETO_ULT_VENT, COALESCE(SUM(' +
+              'IMPORTE_PORTE_ULT_VENT),0) AS IMPORTE_PORTE_ULT_VENT,'#10'       COA' +
+              'LESCE(SUM(IMPORTE_UNIDAD_PRO_VENT),0) AS IMPORTE_UNIDAD_PRO_VENT' +
+              ', COALESCE(SUM(IMPORTE_NETO_PRO_VENT),0) AS IMPORTE_NETO_PRO_VEN' +
+              'T,'#10'       COALESCE(SUM(IMPORTE_PORTE_PRO_VENT),0) AS IMPORTE_POR' +
+              'TE_PRO_VENT'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_CLIENTE, ID_A' +
+              'RTICULO,'#10'      IMPORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_VENT, ' +
+              'IMPORTE_NETO_VENTA AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE_VENTA' +
+              ' AS IMPORTE_PORTE_ULT_VENT,'#10'      NULL AS IMPORTE_UNIDAD_PRO_VEN' +
+              'T, NULL AS IMPORTE_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PRO_VENT' +
+              #10#10'    FROM V_INF_ULTVEN_PORCLIENTE'#10#10'    UNION ALL'#10#10'    SELECT'#10'  ' +
+              '    FACTURAS_CLIENTE.ID_EMPRESA,'#10'      FACTURAS_CLIENTE.ID_CLIEN' +
+              'TE,'#10'      FACTURAS_CLIENTE_DETALLES.ID_ARTICULO,'#10'      NULL, NUL' +
+              'L, NULL,'#10'      AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD) AS ' +
+              'IMPORTE_UNIDAD_PRO_VENT,'#10'      AVG(FACTURAS_CLIENTE_DETALLES.IMP' +
+              'ORTE_UNIDAD - (FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTU' +
+              'RAS_CLIENTE_DETALLES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_VENT' +
+              ','#10'      AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_PORTE) AS IMPORTE_' +
+              'PORTE_PRO_VENT'#10#10'    FROM FACTURAS_CLIENTE_DETALLES'#10'    LEFT OUTE' +
+              'R JOIN FACTURAS_CLIENTE'#10'    ON (FACTURAS_CLIENTE.ID = FACTURAS_C' +
+              'LIENTE_DETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_CLIENTE_DETALLE' +
+              'S.ID_ARTICULO IS NOT NULL) AND (FACTURAS_CLIENTE_DETALLES.ID_ART' +
+              'ICULO > 0)'#10'      AND (FACTURAS_CLIENTE_DETALLES.CANTIDAD > 0)'#10'  ' +
+              '    AND (FACTURAS_CLIENTE.FECHA_FACTURA BETWEEN :FECHAINI AND :F' +
+              'ECHAFIN)'#10'    GROUP BY 1, 2, 3)'#10#10' GROUP BY 1, 2, 3'#10' having SUM(IM' +
+              'PORTE_NETO_PRO_VENT) > 0 /*Solo queremos aquellos articulos que ' +
+              'se hayan vendido en ese periodo de fechas*/'#10'  ) MARGEN_VENTAS'#10#10#10 +
+              'LEFT JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA, ID_ARTICULO, COALESCE(SUM(IM' +
+              'PORTE_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, COALESCE(S' +
+              'UM(IMPORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,'#10'    COALE' +
+              'SCE(SUM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_ULT_COMP, CO' +
+              'ALESCE(SUM(IMPORTE_UNIDAD_PRO_COMP),SUM(IMPORTE_UNIDAD_ULT_COMP)' +
+              ') AS IMPORTE_UNIDAD_PRO_COMP,'#10'    COALESCE(SUM(IMPORTE_NETO_PRO_' +
+              'COMP),SUM(IMPORTE_NETO_ULT_COMP)) AS IMPORTE_NETO_PRO_COMP, COAL' +
+              'ESCE(SUM(IMPORTE_PORTE_PRO_COMP),SUM(IMPORTE_PORTE_ULT_COMP)) AS' +
+              ' IMPORTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_A' +
+              'RTICULO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP,' +
+              ' IMPORTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_COM' +
+              'PRA AS IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_UNIDAD_PRO_' +
+              'COMP, NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_C' +
+              'OMP'#10#10'    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10#10'    SELEC' +
+              'T'#10'      FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_PROVEEDOR_' +
+              'DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURAS' +
+              '_PROVEEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,'#10 +
+              '      AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURAS' +
+              '_PROVEEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALLE' +
+              'S.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      AVG(FACTURA' +
+              'S_PROVEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10' ' +
+              '   FROM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOIN FACTURAS' +
+              '_PROVEEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_DE' +
+              'TALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_AR' +
+              'TICULO IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO' +
+              ' > 0)'#10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10'     ' +
+              ' /*Las compras promedio deben de calcularse desde el principio d' +
+              'e los tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEEDOR.FECHA_' +
+              'FACTURA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GROUP BY 1, 2' +
+              ')'#10#10'  GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPRE' +
+              'SA = MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO =' +
+              ' MARGEN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS.' +
+              'ID = MARGEN_VENTAS.ID_ARTICULO)'#10'LEFT JOIN CONTACTOS CLIENTES ON ' +
+              '(CLIENTES.ID = MARGEN_VENTAS.ID_CLIENTE)'#10'LEFT JOIN CLIENTES_DATO' +
+              'S ON (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)'#10'LEFT JOIN CONTACT' +
+              'OS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)'#10'LEFT JOIN ' +
+              'CONTACTOS PROVEEDORES ON (PROVEEDORES.ID = ARTICULOS.ID_PROVEEDO' +
+              'R)'#10'WHERE ARTICULOS.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
             StatementType = stSQL
             ColumnMappings = <
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
               item
                 DatasetField = 'ID_ARTICULO'
                 TableField = 'ID_ARTICULO'
@@ -230,6 +240,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
               end
+              item
+                DatasetField = 'PROVEEDOR'
+                TableField = 'PROVEEDOR'
+              end
               item
                 DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
                 TableField = 'NOMBRE_COMERCIAL_CLIENTE'
@@ -242,14 +256,6 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'NOMBRE_AGENTE'
                 TableField = 'NOMBRE_AGENTE'
               end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
-              item
-                DatasetField = 'ID_CLIENTE'
-                TableField = 'ID_CLIENTE'
-              end
               item
                 DatasetField = 'IMP_UNIDAD_ULT_VENT'
                 TableField = 'IMP_UNIDAD_ULT_VENT'
@@ -477,6 +483,18 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'PROVEEDOR'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'NOMBRE_COMERCIAL_CLIENTE'
             DataType = datString
@@ -805,157 +823,163 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
               'SELECT'#10#10'    INF_MARGEN_ARTICULOS.ID_EMPRESA,'#10'    INF_MARGEN_ARTI' +
               'CULOS.ID_ARTICULO,'#10'    INF_MARGEN_ARTICULOS.FAMILIA,'#10'    INF_MAR' +
               'GEN_ARTICULOS.REFERENCIA,'#10'    INF_MARGEN_ARTICULOS.REFERENCIA_PR' +
-              'OV,'#10'    INF_MARGEN_ARTICULOS.DESCRIPCION,'#10'    INF_MARGEN_ARTICUL' +
-              'OS.COMISIONABLE,'#10'    INF_MARGEN_ARTICULOS.INVENTARIABLE,'#10'    INF' +
-              '_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.' +
-              'IMP_NETO_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_VENT,'#10 +
-              '    INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_VENT,'#10'    INF_MARGEN_ART' +
-              'ICULOS.IMP_NETO_PRO_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_PRO' +
-              '_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_COMPRA,'#10'    INF_MARGE' +
-              'N_ARTICULOS.IMP_NETO_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_' +
-              'COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_COMP,'#10'    INF_MA' +
-              'RGEN_ARTICULOS.IMP_NETO_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_P' +
-              'ORTE_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_COMP,'#10'   ' +
-              ' INF_MARGEN_ARTICULOS.IMP_NETO_PRO_COMP,'#10'    INF_MARGEN_ARTICULO' +
-              'S.IMP_PORTE_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VE' +
-              'NT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_COMPRA,'#10 +
-              '    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'    INF_M' +
-              'ARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_ULT_COMP,'#10'    INF_MARGEN_ART' +
-              'ICULOS.IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.PO' +
-              'R_MARGEN_ULT_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_' +
-              'PRO_VENT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_CO' +
-              'MPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_ULT_COMP,'#10'   ' +
-              ' INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_ULT_COMP,'#10'    INF_MARG' +
-              'EN_ARTICULOS.IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICU' +
-              'LOS.POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VENTAS.ID' +
-              '_EMPRESA AS ID_EMPRESA,'#10'MARGEN_VENTAS.ID_ARTICULO AS ID_ARTICULO' +
-              ','#10'ARTICULOS.FAMILIA AS FAMILIA,'#10'ARTICULOS.REFERENCIA AS REFERENC' +
-              'IA,'#10'ARTICULOS.REFERENCIA_PROV AS REFERENCIA_PROV,'#10'ARTICULOS.DESC' +
-              'RIPCION AS DESCRIPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONABLE,'#10 +
-              'ARTICULOS.INVENTARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_VENTA' +
-              'S.IMPORTE_UNIDAD_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALESCE(M' +
-              'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT,'#10'COA' +
-              'LESCE(MARGEN_VENTAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE_ULT_' +
-              'VENT,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) AS IMP' +
-              '_UNIDAD_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT, ' +
-              '0) AS IMP_NETO_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_PR' +
-              'O_VENT, 0) AS IMP_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECIO_COS' +
-              'TE, 0) AS IMP_UNIDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO, 0) ' +
-              'AS IMP_NETO_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS IMP_P' +
-              'ORTE_COMPRA,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COMP, C' +
-              'OALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10'COAL' +
-              'ESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PR' +
-              'ECIO_NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMP' +
-              'ORTE_PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP' +
-              '_PORTE_ULT_COMP,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO_COM' +
-              'P, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_COMP,'#10 +
-              'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULO' +
-              'S.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COMPRAS' +
-              '.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS' +
-              ' IMP_PORTE_PRO_COMP,'#10#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - AR' +
-              'TICULOS.PRECIO_NETO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHEN  AR' +
-              'TICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NET' +
-              'O_ULT_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARGEN_VENTA' +
-              'S.IMPORTE_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) * 100) / MARGEN' +
-              '_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_' +
-              'COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IM' +
-              'PORTE_NETO_ULT_COMP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'WHEN  ' +
-              'MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MARGEN_V' +
-              'ENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_CO' +
-              'MP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN' +
-              '_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPORTE_N' +
-              'ETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'MARGEN' +
-              '_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_' +
-              'COMP AS IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.' +
-              'IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_N' +
-              'ETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 THEN'#10'  ' +
-              '   ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORT' +
-              'E_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'EL' +
-              'SE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_PRO_COMP,'#10#10#10'MARGEN_VENTAS.IMPORT' +
-              'E_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_VENT_C' +
-              'OMPRA,'#10'CASE'#10'WHEN  ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGE' +
-              'N_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN' +
-              #10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_N' +
-              'ETO) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS ' +
-              'POR_MARGEN_PRO_VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT' +
-              ' - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_VENT_U' +
-              'LT_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THE' +
-              'N 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS' +
-              '.IMPORTE_NETO_ULT_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NE' +
-              'TO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MAR' +
-              'GEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VE' +
-              'NT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPR' +
-              'AS.IMPORTE_NETO_PRO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'CASE'#10'W' +
-              'HEN  MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MAR' +
-              'GEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_P' +
-              'RO_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - M' +
-              'ARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPO' +
-              'RTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FR' +
-              'OM'#10#10#10'(SELECT ID_EMPRESA,'#10'       ID_ARTICULO, COALESCE(SUM(IMPORT' +
-              'E_UNIDAD_ULT_VENT),0) AS IMPORTE_UNIDAD_ULT_VENT,'#10'       COALESC' +
-              'E(SUM(IMPORTE_NETO_ULT_VENT),0) AS IMPORTE_NETO_ULT_VENT, COALES' +
-              'CE(SUM(IMPORTE_PORTE_ULT_VENT),0) AS IMPORTE_PORTE_ULT_VENT,'#10'   ' +
-              '    COALESCE(SUM(IMPORTE_UNIDAD_PRO_VENT),0) AS IMPORTE_UNIDAD_P' +
-              'RO_VENT, COALESCE(SUM(IMPORTE_NETO_PRO_VENT),0) AS IMPORTE_NETO_' +
-              'PRO_VENT,'#10'       COALESCE(SUM(IMPORTE_PORTE_PRO_VENT),0) AS IMPO' +
-              'RTE_PORTE_PRO_VENT'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA,'#10'      ID_' +
-              'ARTICULO,'#10'      IMPORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_VENT,' +
-              ' IMPORTE_NETO_VENTA AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE_VENT' +
-              'A AS IMPORTE_PORTE_ULT_VENT,'#10'      NULL AS IMPORTE_UNIDAD_PRO_VE' +
-              'NT, NULL AS IMPORTE_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PRO_VEN' +
-              'T'#10#10'    FROM V_INF_ULTVEN_PORARTICULO'#10#10'    UNION ALL'#10#10'    SELECT'#10 +
-              '      FACTURAS_CLIENTE.ID_EMPRESA,'#10'      FACTURAS_CLIENTE_DETALL' +
-              'ES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURAS_CLIEN' +
-              'TE_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_VENT,'#10'      AV' +
-              'G(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE_D' +
-              'ETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO / ' +
-              '100))) AS IMPORTE_NETO_PRO_VENT,'#10'      AVG(FACTURAS_CLIENTE_DETA' +
-              'LLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_VENT'#10#10'    FROM FACTURAS' +
-              '_CLIENTE_DETALLES'#10'    LEFT OUTER JOIN FACTURAS_CLIENTE'#10'    ON (F' +
-              'ACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTURA)'#10#10'    ' +
-              'WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS NOT NULL) AND (F' +
-              'ACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10'      AND (FACTURAS_CL' +
-              'IENTE_DETALLES.CANTIDAD > 0)'#10'      AND (FACTURAS_CLIENTE.FECHA_F' +
-              'ACTURA BETWEEN :FECHAINI AND :FECHAFIN)'#10'    GROUP BY 1, 2)'#10#10' GRO' +
-              'UP BY 1, 2'#10' having SUM(IMPORTE_NETO_PRO_VENT) > 0 /*Solo queremo' +
-              's aquellos articulos que se hayan vendido en ese periodo de fech' +
-              'as*/'#10'  ) MARGEN_VENTAS'#10#10#10'LEFT JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA, ID_' +
-              'ARTICULO, COALESCE(SUM(IMPORTE_UNIDAD_ULT_COMP),0) AS IMPORTE_UN' +
-              'IDAD_ULT_COMP, COALESCE(SUM(IMPORTE_NETO_ULT_COMP),0) AS IMPORTE' +
-              '_NETO_ULT_COMP,'#10'    COALESCE(SUM(IMPORTE_PORTE_ULT_COMP),0) AS I' +
-              'MPORTE_PORTE_ULT_COMP, COALESCE(SUM(IMPORTE_UNIDAD_PRO_COMP),COA' +
-              'LESCE(SUM(IMPORTE_UNIDAD_ULT_COMP),0)) AS IMPORTE_UNIDAD_PRO_COM' +
-              'P,'#10'    COALESCE(SUM(IMPORTE_NETO_PRO_COMP),COALESCE(SUM(IMPORTE_' +
-              'NETO_ULT_COMP),0)) AS IMPORTE_NETO_PRO_COMP,'#10'    COALESCE(SUM(IM' +
-              'PORTE_PORTE_PRO_COMP),COALESCE(SUM(IMPORTE_PORTE_ULT_COMP),0)) A' +
-              'S IMPORTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_' +
-              'ARTICULO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP' +
-              ', IMPORTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_CO' +
-              'MPRA AS IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_UNIDAD_PRO' +
-              '_COMP, NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_' +
-              'COMP'#10#10'    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10#10'    SELE' +
-              'CT'#10'      FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_PROVEEDOR' +
-              '_DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURA' +
-              'S_PROVEEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,' +
-              #10'      AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURA' +
-              'S_PROVEEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALL' +
-              'ES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      AVG(FACTUR' +
-              'AS_PROVEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10 +
-              '    FROM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOIN FACTURA' +
-              'S_PROVEEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_D' +
-              'ETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_A' +
-              'RTICULO IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICUL' +
-              'O > 0)'#10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10'    ' +
-              '  /*Las compras promedio deben de calcularse desde el principio ' +
-              'de los tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEEDOR.FECHA' +
-              '_FACTURA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GROUP BY 1, ' +
-              '2)'#10#10'  GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPR' +
-              'ESA = MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO ' +
-              '= MARGEN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS' +
-              '.ID = MARGEN_VENTAS.ID_ARTICULO)'#10'WHERE ARTICULOS.INVENTARIABLE =' +
-              ' 1) INF_MARGEN_ARTICULOS'
+              'OV,'#10'    INF_MARGEN_ARTICULOS.PROVEEDOR,'#10'    INF_MARGEN_ARTICULOS' +
+              '.DESCRIPCION,'#10'    INF_MARGEN_ARTICULOS.COMISIONABLE,'#10'    INF_MAR' +
+              'GEN_ARTICULOS.INVENTARIABLE,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD' +
+              '_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_VENT,'#10'    INF_M' +
+              'ARGEN_ARTICULOS.IMP_PORTE_ULT_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP' +
+              '_UNIDAD_PRO_VENT,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_PRO_VENT,'#10'  ' +
+              '  INF_MARGEN_ARTICULOS.IMP_PORTE_PRO_VENT,'#10'    INF_MARGEN_ARTICU' +
+              'LOS.IMP_UNIDAD_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_COMPRA,' +
+              #10'    INF_MARGEN_ARTICULOS.IMP_PORTE_COMPRA,'#10'    INF_MARGEN_ARTIC' +
+              'ULOS.IMP_UNIDAD_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_' +
+              'COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_COMP,'#10'    INF_MARGE' +
+              'N_ARTICULOS.IMP_UNIDAD_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NE' +
+              'TO_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_PRO_COMP,'#10'    IN' +
+              'F_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_COMPRA,'#10'    INF_MARGEN_AR' +
+              'TICULOS.POR_MARGEN_ULT_VENT_COMPRA,'#10'    INF_MARGEN_ARTICULOS.IMP' +
+              '_MARGEN_ULT_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_U' +
+              'LT_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_P' +
+              'RO_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_PRO_COMP,'#10 +
+              '    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_COMPRA,'#10'    INF_MAR' +
+              'GEN_ARTICULOS.POR_MARGEN_PRO_VENT_COMPRA,'#10'    INF_MARGEN_ARTICUL' +
+              'OS.IMP_MARGEN_PRO_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MA' +
+              'RGEN_PRO_VENT_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_' +
+              'VENT_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_PRO_' +
+              'COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VENTAS.ID_EMPRESA AS ID_EMPRESA,'#10'MARG' +
+              'EN_VENTAS.ID_ARTICULO AS ID_ARTICULO,'#10'ARTICULOS.FAMILIA AS FAMIL' +
+              'IA,'#10'ARTICULOS.REFERENCIA AS REFERENCIA,'#10'ARTICULOS.REFERENCIA_PRO' +
+              'V AS REFERENCIA_PROV,'#10'PROVEEDORES.NOMBRE AS PROVEEDOR,'#10'ARTICULOS' +
+              '.DESCRIPCION AS DESCRIPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONA' +
+              'BLE,'#10'ARTICULOS.INVENTARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_' +
+              'VENTAS.IMPORTE_UNIDAD_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALE' +
+              'SCE(MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT' +
+              ','#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE' +
+              '_ULT_VENT,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) A' +
+              'S IMP_UNIDAD_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_V' +
+              'ENT, 0) AS IMP_NETO_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_POR' +
+              'TE_PRO_VENT, 0) AS IMP_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECI' +
+              'O_COSTE, 0) AS IMP_UNIDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO' +
+              ', 0) AS IMP_NETO_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS ' +
+              'IMP_PORTE_COMPRA,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_CO' +
+              'MP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,' +
+              #10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICUL' +
+              'OS.PRECIO_NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRA' +
+              'S.IMPORTE_PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) A' +
+              'S IMP_PORTE_ULT_COMP,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PR' +
+              'O_COMP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_C' +
+              'OMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ART' +
+              'ICULOS.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_CO' +
+              'MPRAS.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0' +
+              ')) AS IMP_PORTE_PRO_COMP,'#10#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT' +
+              ' - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHE' +
+              'N  ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORT' +
+              'E_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10'     ((MARGEN_' +
+              'VENTAS.IMPORTE_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) * 100) / M' +
+              'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_' +
+              'VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPR' +
+              'AS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'W' +
+              'HEN  MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MAR' +
+              'GEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_U' +
+              'LT_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - M' +
+              'ARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPO' +
+              'RTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'M' +
+              'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO' +
+              '_PRO_COMP AS IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN  MARGEN_COM' +
+              'PRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPO' +
+              'RTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 TH' +
+              'EN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.I' +
+              'MPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VE' +
+              'NT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_PRO_COMP,'#10#10#10'MARGEN_VENTAS.I' +
+              'MPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_V' +
+              'ENT_COMPRA,'#10'CASE'#10'WHEN  ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (' +
+              'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > 0' +
+              ' THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRE' +
+              'CIO_NETO) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'EN' +
+              'D'#10'AS POR_MARGEN_PRO_VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO' +
+              '_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_V' +
+              'ENT_ULT_COMP,'#10'CASE'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = ' +
+              '0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_CO' +
+              'MPRAS.IMPORTE_NETO_ULT_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPOR' +
+              'TE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) ' +
+              '/ MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_P' +
+              'RO_VENT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_' +
+              'COMPRAS.IMPORTE_NETO_PRO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10'C' +
+              'ASE'#10'WHEN  MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN' +
+              ' (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_N' +
+              'ETO_PRO_COMP) > 0 THEN'#10'     ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VEN' +
+              'T - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS' +
+              '.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_COM' +
+              'P'#10#10'FROM'#10#10#10'(SELECT ID_EMPRESA,'#10'       ID_ARTICULO, COALESCE(SUM(I' +
+              'MPORTE_UNIDAD_ULT_VENT),0) AS IMPORTE_UNIDAD_ULT_VENT,'#10'       CO' +
+              'ALESCE(SUM(IMPORTE_NETO_ULT_VENT),0) AS IMPORTE_NETO_ULT_VENT, C' +
+              'OALESCE(SUM(IMPORTE_PORTE_ULT_VENT),0) AS IMPORTE_PORTE_ULT_VENT' +
+              ','#10'       COALESCE(SUM(IMPORTE_UNIDAD_PRO_VENT),0) AS IMPORTE_UNI' +
+              'DAD_PRO_VENT, COALESCE(SUM(IMPORTE_NETO_PRO_VENT),0) AS IMPORTE_' +
+              'NETO_PRO_VENT,'#10'       COALESCE(SUM(IMPORTE_PORTE_PRO_VENT),0) AS' +
+              ' IMPORTE_PORTE_PRO_VENT'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA,'#10'    ' +
+              '  ID_ARTICULO,'#10'      IMPORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_' +
+              'VENT, IMPORTE_NETO_VENTA AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE' +
+              '_VENTA AS IMPORTE_PORTE_ULT_VENT,'#10'      NULL AS IMPORTE_UNIDAD_P' +
+              'RO_VENT, NULL AS IMPORTE_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PR' +
+              'O_VENT'#10#10'    FROM V_INF_ULTVEN_PORARTICULO'#10#10'    UNION ALL'#10#10'    SE' +
+              'LECT'#10'      FACTURAS_CLIENTE.ID_EMPRESA,'#10'      FACTURAS_CLIENTE_D' +
+              'ETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURAS_' +
+              'CLIENTE_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_VENT,'#10'   ' +
+              '   AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIE' +
+              'NTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUEN' +
+              'TO / 100))) AS IMPORTE_NETO_PRO_VENT,'#10'      AVG(FACTURAS_CLIENTE' +
+              '_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_VENT'#10#10'    FROM FAC' +
+              'TURAS_CLIENTE_DETALLES'#10'    LEFT OUTER JOIN FACTURAS_CLIENTE'#10'    ' +
+              'ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTURA)'#10 +
+              #10'    WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS NOT NULL) A' +
+              'ND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10'      AND (FACTUR' +
+              'AS_CLIENTE_DETALLES.CANTIDAD > 0)'#10'      AND (FACTURAS_CLIENTE.FE' +
+              'CHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN)'#10'    GROUP BY 1, 2)'#10 +
+              #10' GROUP BY 1, 2'#10' having SUM(IMPORTE_NETO_PRO_VENT) > 0 /*Solo qu' +
+              'eremos aquellos articulos que se hayan vendido en ese periodo de' +
+              ' fechas*/'#10'  ) MARGEN_VENTAS'#10#10#10'LEFT JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA' +
+              ', ID_ARTICULO, COALESCE(SUM(IMPORTE_UNIDAD_ULT_COMP),0) AS IMPOR' +
+              'TE_UNIDAD_ULT_COMP, COALESCE(SUM(IMPORTE_NETO_ULT_COMP),0) AS IM' +
+              'PORTE_NETO_ULT_COMP,'#10'    COALESCE(SUM(IMPORTE_PORTE_ULT_COMP),0)' +
+              ' AS IMPORTE_PORTE_ULT_COMP, COALESCE(SUM(IMPORTE_UNIDAD_PRO_COMP' +
+              '),COALESCE(SUM(IMPORTE_UNIDAD_ULT_COMP),0)) AS IMPORTE_UNIDAD_PR' +
+              'O_COMP,'#10'    COALESCE(SUM(IMPORTE_NETO_PRO_COMP),COALESCE(SUM(IMP' +
+              'ORTE_NETO_ULT_COMP),0)) AS IMPORTE_NETO_PRO_COMP,'#10'    COALESCE(S' +
+              'UM(IMPORTE_PORTE_PRO_COMP),COALESCE(SUM(IMPORTE_PORTE_ULT_COMP),' +
+              '0)) AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA' +
+              ', ID_ARTICULO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT' +
+              '_COMP, IMPORTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE_POR' +
+              'TE_COMPRA AS IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_UNIDA' +
+              'D_PRO_COMP, NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE' +
+              '_PRO_COMP'#10#10'    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10#10'   ' +
+              ' SELECT'#10'      FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_PROV' +
+              'EEDOR_DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FA' +
+              'CTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_' +
+              'COMP,'#10'      AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (FA' +
+              'CTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEEDOR_D' +
+              'ETALLES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      AVG(F' +
+              'ACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_C' +
+              'OMP'#10#10'    FROM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOIN FA' +
+              'CTURAS_PROVEEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEE' +
+              'DOR_DETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETALLES' +
+              '.ID_ARTICULO IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.ID_AR' +
+              'TICULO > 0)'#10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD > 0)' +
+              #10'      /*Las compras promedio deben de calcularse desde el princ' +
+              'ipio de los tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEEDOR.' +
+              'FECHA_FACTURA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GROUP B' +
+              'Y 1, 2)'#10#10'  GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID' +
+              '_EMPRESA = MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTI' +
+              'CULO = MARGEN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTI' +
+              'CULOS.ID = MARGEN_VENTAS.ID_ARTICULO)'#10'LEFT JOIN CONTACTOS PROVEE' +
+              'DORES ON (PROVEEDORES.ID = ARTICULOS.ID_PROVEEDOR)'#10'WHERE ARTICUL' +
+              'OS.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
             StatementType = stSQL
             ColumnMappings = <
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
               item
                 DatasetField = 'ID_ARTICULO'
                 TableField = 'ID_ARTICULO'
@@ -972,6 +996,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'REFERENCIA_PROV'
                 TableField = 'REFERENCIA_PROV'
               end
+              item
+                DatasetField = 'PROVEEDOR'
+                TableField = 'PROVEEDOR'
+              end
               item
                 DatasetField = 'DESCRIPCION'
                 TableField = 'DESCRIPCION'
@@ -984,10 +1012,6 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'INVENTARIABLE'
                 TableField = 'INVENTARIABLE'
               end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
               item
                 DatasetField = 'IMP_UNIDAD_ULT_VENT'
                 TableField = 'IMP_UNIDAD_ULT_VENT'
@@ -1152,6 +1176,18 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'PROVEEDOR'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'DESCRIPCION'
             DataType = datString
@@ -1485,128 +1521,131 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
               '_MARGEN_ARTICULOS.NIF_CIF_AGENTE,'#10'    INF_MARGEN_ARTICULOS.NOMBR' +
               'E_AGENTE,'#10'    INF_MARGEN_ARTICULOS.FAMILIA,'#10'    INF_MARGEN_ARTIC' +
               'ULOS.REFERENCIA,'#10'    INF_MARGEN_ARTICULOS.REFERENCIA_PROV,'#10'    I' +
-              'NF_MARGEN_ARTICULOS.DESCRIPCION,'#10'    INF_MARGEN_ARTICULOS.COMISI' +
-              'ONABLE,'#10'    INF_MARGEN_ARTICULOS.INVENTARIABLE,'#10'    INF_MARGEN_A' +
-              'RTICULOS.CANTIDAD,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD,'#10'    INF_' +
-              'MARGEN_ARTICULOS.IMP_NETO,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE,'#10' ' +
-              '   INF_MARGEN_ARTICULOS.IMP_TOTAL,'#10'    INF_MARGEN_ARTICULOS.IMP_' +
-              'UNIDAD_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_COMP,'#10'   ' +
-              ' INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_COMP,'#10'    INF_MARGEN_ARTICUL' +
-              'OS.IMP_NETO_ULT_COM_TOTAL,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_P' +
-              'RO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_PRO_COMP,'#10'    INF_MAR' +
-              'GEN_ARTICULOS.IMP_PORTE_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_N' +
-              'ETO_PRO_COM_TOTAL,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_COMP,' +
-              #10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_COMP_TOTAL,'#10'    INF_MAR' +
-              'GEN_ARTICULOS.POR_MARGEN_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_' +
-              'MARGEN_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_COMP_TO' +
-              'TAL,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_COMP'#10#10'FROM'#10#10'(SELECT' +
-              #10'MARGEN_VENTAS.ID_EMPRESA AS ID_EMPRESA,'#10'MARGEN_VENTAS.ID_CLIENT' +
-              'E AS ID_CLIENTE,'#10'MARGEN_VENTAS.ID_FACTURA AS ID_FACTURA,'#10'MARGEN_' +
-              'VENTAS.ID_DETALLE AS ID_DETALLE,'#10'MARGEN_VENTAS.ID_ARTICULO AS ID' +
-              '_ARTICULO,'#10#10'CLIENTES.NIF_CIF AS NIF_CIF_CLIENTE,'#10'CLIENTES.NOMBRE' +
-              ' AS NOMBRE_CLIENTE,'#10'CLIENTES_DATOS.NOMBRE_COMERCIAL AS NOMBRE_CO' +
-              'MERCIAL_CLIENTE,'#10#10'FACTURAS_CLIENTE.REFERENCIA AS REFERENCIA_FACT' +
-              'URA,'#10'FACTURAS_CLIENTE.FECHA_FACTURA,'#10#10'AGENTES.NIF_CIF AS NIF_CIF' +
-              '_AGENTE,'#10'AGENTES.NOMBRE AS NOMBRE_AGENTE,'#10#10'ARTICULOS.FAMILIA AS ' +
-              'FAMILIA,'#10'ARTICULOS.REFERENCIA AS REFERENCIA,'#10'ARTICULOS.REFERENCI' +
-              'A_PROV AS REFERENCIA_PROV,'#10'ARTICULOS.DESCRIPCION AS DESCRIPCION,' +
-              #10'ARTICULOS.COMISIONABLE AS COMISIONABLE,'#10'ARTICULOS.INVENTARIABLE' +
-              ' AS INVENTARIABLE,'#10#10'MARGEN_VENTAS.CANTIDAD,'#10'COALESCE(MARGEN_VENT' +
-              'AS.IMPORTE_UNIDAD, 0) AS IMP_UNIDAD,'#10'COALESCE(MARGEN_VENTAS.IMPO' +
-              'RTE_NETO, 0) AS IMP_NETO,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE, ' +
-              '0) AS IMP_PORTE,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_TOTAL, 0) AS IMP' +
-              '_TOTAL,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COMP, COALES' +
-              'CE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10'COALESCE(' +
-              'MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_' +
-              'NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_' +
-              'PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP_PORT' +
-              'E_ULT_COMP,'#10'(COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COAL' +
-              'ESCE(ARTICULOS.PRECIO_NETO, 0)) * MARGEN_VENTAS.CANTIDAD) AS IMP' +
-              '_NETO_ULT_COM_TOTAL,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO' +
-              '_COMP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_CO' +
-              'MP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTI' +
-              'CULOS.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COM' +
-              'PRAS.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)' +
-              ') AS IMP_PORTE_PRO_COMP,'#10'(COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_P' +
-              'RO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0)) * MARGEN_VENTAS.CAN' +
-              'TIDAD) as IMP_NETO_PRO_COM_TOTAL,'#10#10'COALESCE(MARGEN_VENTAS.IMPORT' +
-              'E_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COAL' +
-              'ESCE(ARTICULOS.PRECIO_NETO, 0)) AS IMP_MARGEN_ULT_COMP,'#10'((COALES' +
+              'NF_MARGEN_ARTICULOS.PROVEEDOR,'#10'    INF_MARGEN_ARTICULOS.DESCRIPC' +
+              'ION,'#10'    INF_MARGEN_ARTICULOS.COMISIONABLE,'#10'    INF_MARGEN_ARTIC' +
+              'ULOS.INVENTARIABLE,'#10'    INF_MARGEN_ARTICULOS.CANTIDAD,'#10'    INF_M' +
+              'ARGEN_ARTICULOS.IMP_UNIDAD,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO,'#10' ' +
+              '   INF_MARGEN_ARTICULOS.IMP_PORTE,'#10'    INF_MARGEN_ARTICULOS.IMP_' +
+              'TOTAL,'#10'    INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_COMP,'#10'    INF_MAR' +
+              'GEN_ARTICULOS.IMP_NETO_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PO' +
+              'RTE_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_ULT_COM_TOTAL,'#10' ' +
+              '   INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_COMP,'#10'    INF_MARGEN_ARTI' +
+              'CULOS.IMP_NETO_PRO_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_PORTE_PRO_' +
+              'COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_NETO_PRO_COM_TOTAL,'#10'    INF_M' +
+              'ARGEN_ARTICULOS.IMP_MARGEN_ULT_COMP,'#10'    INF_MARGEN_ARTICULOS.IM' +
+              'P_MARGEN_ULT_COMP_TOTAL,'#10'    INF_MARGEN_ARTICULOS.POR_MARGEN_ULT' +
+              '_COMP,'#10'    INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_COMP,'#10'    INF_MAR' +
+              'GEN_ARTICULOS.IMP_MARGEN_PRO_COMP_TOTAL,'#10'    INF_MARGEN_ARTICULO' +
+              'S.POR_MARGEN_PRO_COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VENTAS.ID_EMPRESA AS' +
+              ' ID_EMPRESA,'#10'MARGEN_VENTAS.ID_CLIENTE AS ID_CLIENTE,'#10'MARGEN_VENT' +
+              'AS.ID_FACTURA AS ID_FACTURA,'#10'MARGEN_VENTAS.ID_DETALLE AS ID_DETA' +
+              'LLE,'#10'MARGEN_VENTAS.ID_ARTICULO AS ID_ARTICULO,'#10#10'CLIENTES.NIF_CIF' +
+              ' AS NIF_CIF_CLIENTE,'#10'CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10'CLIENTES' +
+              '_DATOS.NOMBRE_COMERCIAL AS NOMBRE_COMERCIAL_CLIENTE,'#10#10'FACTURAS_C' +
+              'LIENTE.REFERENCIA AS REFERENCIA_FACTURA,'#10'FACTURAS_CLIENTE.FECHA_' +
+              'FACTURA,'#10#10'AGENTES.NIF_CIF AS NIF_CIF_AGENTE,'#10'AGENTES.NOMBRE AS N' +
+              'OMBRE_AGENTE,'#10#10'ARTICULOS.FAMILIA AS FAMILIA,'#10'ARTICULOS.REFERENCI' +
+              'A AS REFERENCIA,'#10'ARTICULOS.REFERENCIA_PROV AS REFERENCIA_PROV,'#10'P' +
+              'ROVEEDORES.NOMBRE AS PROVEEDOR,'#10'ARTICULOS.DESCRIPCION AS DESCRIP' +
+              'CION,'#10'ARTICULOS.COMISIONABLE AS COMISIONABLE,'#10'ARTICULOS.INVENTAR' +
+              'IABLE AS INVENTARIABLE,'#10#10'MARGEN_VENTAS.CANTIDAD,'#10'COALESCE(MARGEN' +
+              '_VENTAS.IMPORTE_UNIDAD, 0) AS IMP_UNIDAD,'#10'COALESCE(MARGEN_VENTAS' +
+              '.IMPORTE_NETO, 0) AS IMP_NETO,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PO' +
+              'RTE, 0) AS IMP_PORTE,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_TOTAL, 0) A' +
+              'S IMP_TOTAL,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COMP, C' +
+              'OALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10'COAL' +
+              'ESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PR' +
+              'ECIO_NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMP' +
+              'ORTE_PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS IMP' +
+              '_PORTE_ULT_COMP,'#10'(COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP,' +
+              ' COALESCE(ARTICULOS.PRECIO_NETO, 0)) * MARGEN_VENTAS.CANTIDAD) A' +
+              'S IMP_NETO_ULT_COM_TOTAL,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDA' +
+              'D_PRO_COMP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_P' +
+              'RO_COMP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE' +
+              '(ARTICULOS.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGE' +
+              'N_COMPRAS.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORT' +
+              'E, 0)) AS IMP_PORTE_PRO_COMP,'#10'(COALESCE(MARGEN_COMPRAS.IMPORTE_N' +
+              'ETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0)) * MARGEN_VENTA' +
+              'S.CANTIDAD) as IMP_NETO_PRO_COM_TOTAL,'#10#10'COALESCE(MARGEN_VENTAS.I' +
+              'MPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP,' +
+              ' COALESCE(ARTICULOS.PRECIO_NETO, 0)) AS IMP_MARGEN_ULT_COMP,'#10'((C' +
+              'OALESCE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS' +
+              '.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) * M' +
+              'ARGEN_VENTAS.CANTIDAD) AS IMP_MARGEN_ULT_COMP_TOTAL,'#10'CASE'#10'WHEN  ' +
+              'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULO' +
+              'S.PRECIO_NETO, 0)) = 0 THEN 100'#10'WHEN (COALESCE(MARGEN_VENTAS.IMP' +
+              'ORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, C' +
+              'OALESCE(ARTICULOS.PRECIO_NETO, 0))) > 0 THEN'#10'     ((COALESCE(MAR' +
+              'GEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NE' +
+              'TO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) * 100) / MARGE' +
+              'N_VENTAS.IMPORTE_NETO'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_COMP,'#10#10'COALES' +
               'CE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPO' +
-              'RTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) * MARGEN' +
-              '_VENTAS.CANTIDAD) AS IMP_MARGEN_ULT_COMP_TOTAL,'#10'CASE'#10'WHEN  COALE' +
-              'SCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULOS.PRE' +
-              'CIO_NETO, 0)) = 0 THEN 100'#10'WHEN (COALESCE(MARGEN_VENTAS.IMPORTE_' +
-              'NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALES' +
-              'CE(ARTICULOS.PRECIO_NETO, 0))) > 0 THEN'#10'     ((COALESCE(MARGEN_V' +
-              'ENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_UL' +
-              'T_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) * 100) / MARGEN_VEN' +
-              'TAS.IMPORTE_NETO'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_COMP,'#10#10'COALESCE(MA' +
-              'RGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_N' +
-              'ETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0)) AS IMP_MARGEN_' +
-              'PRO_COMP,'#10'((COALESCE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(M' +
-              'ARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_N' +
-              'ETO, 0))) * MARGEN_VENTAS.CANTIDAD) AS IMP_MARGEN_PRO_COMP_TOTAL' +
-              ','#10'CASE'#10'WHEN  COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COAL' +
-              'ESCE(ARTICULOS.PRECIO_NETO, 0)) = 0 THEN 100'#10'WHEN (COALESCE(MARG' +
-              'EN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORTE_NET' +
-              'O_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) > 0 THEN'#10'     (' +
-              '(COALESCE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPR' +
-              'AS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) *' +
-              ' 100) / MARGEN_VENTAS.IMPORTE_NETO'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_' +
-              'COMP'#10#10#10'FROM'#10#10#10'(SELECT'#10'      FACTURAS_CLIENTE.ID_EMPRESA,'#10'      F' +
-              'ACTURAS_CLIENTE.ID_CLIENTE,'#10'      FACTURAS_CLIENTE.ID as ID_FACT' +
-              'URA,'#10'      FACTURAS_CLIENTE_DETALLES.ID as ID_DETALLE,'#10'      FAC' +
-              'TURAS_CLIENTE_DETALLES.ID_ARTICULO,'#10'      FACTURAS_CLIENTE_DETAL' +
-              'LES.CANTIDAD,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD,'#10'  ' +
-              '    FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CLIENTE' +
-              '_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCUENTO ' +
-              '/ 100)) AS IMPORTE_NETO,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE' +
-              '_PORTE,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL'#10#10'    FROM ' +
-              'FACTURAS_CLIENTE_DETALLES'#10'    LEFT OUTER JOIN FACTURAS_CLIENTE'#10' ' +
-              '   ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_FACTUR' +
-              'A)'#10#10'    WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS NOT NULL' +
-              ') AND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10'      AND (FAC' +
-              'TURAS_CLIENTE_DETALLES.CANTIDAD > 0)'#10'      AND (FACTURAS_CLIENTE' +
-              '.FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN)) MARGEN_VENTAS'#10#10 +
-              #10'LEFT JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA, ID_ARTICULO, COALESCE(SUM(I' +
-              'MPORTE_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, COALESCE(' +
-              'SUM(IMPORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,'#10'    COAL' +
-              'ESCE(SUM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_ULT_COMP, C' +
-              'OALESCE(SUM(IMPORTE_UNIDAD_PRO_COMP),SUM(IMPORTE_UNIDAD_ULT_COMP' +
-              ')) AS IMPORTE_UNIDAD_PRO_COMP,'#10'    COALESCE(SUM(IMPORTE_NETO_PRO' +
-              '_COMP),SUM(IMPORTE_NETO_ULT_COMP)) AS IMPORTE_NETO_PRO_COMP, COA' +
-              'LESCE(SUM(IMPORTE_PORTE_PRO_COMP),SUM(IMPORTE_PORTE_ULT_COMP)) A' +
-              'S IMPORTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMPRESA, ID_' +
-              'ARTICULO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP' +
-              ', IMPORTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_CO' +
-              'MPRA AS IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_UNIDAD_PRO' +
-              '_COMP, NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_' +
-              'COMP'#10#10'    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10#10'    SELE' +
-              'CT'#10'      FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_PROVEEDOR' +
-              '_DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AVG(FACTURA' +
-              'S_PROVEEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,' +
-              #10'      AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURA' +
-              'S_PROVEEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALL' +
-              'ES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      AVG(FACTUR' +
-              'AS_PROVEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10 +
-              '    FROM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOIN FACTURA' +
-              'S_PROVEEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_D' +
-              'ETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_A' +
-              'RTICULO IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICUL' +
-              'O > 0)'#10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10'    ' +
-              '  /*Las compras promedio deben de calcularse desde el principio ' +
-              'de los tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEEDOR.FECHA' +
-              '_FACTURA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GROUP BY 1, ' +
-              '2)'#10#10'  GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPR' +
-              'ESA = MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO ' +
-              '= MARGEN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS' +
-              '.ID = MARGEN_VENTAS.ID_ARTICULO)'#10'LEFT JOIN CONTACTOS CLIENTES ON' +
-              ' (CLIENTES.ID = MARGEN_VENTAS.ID_CLIENTE)'#10'LEFT JOIN CLIENTES_DAT' +
-              'OS ON (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)'#10'LEFT JOIN CONTAC' +
-              'TOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)'#10'LEFT JOIN' +
-              ' FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = MARGEN_VENTAS.ID_FAC' +
-              'TURA)'#10'WHERE ARTICULOS.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
+              'RTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0)) AS IMP_MA' +
+              'RGEN_PRO_COMP,'#10'((COALESCE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALE' +
+              'SCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRE' +
+              'CIO_NETO, 0))) * MARGEN_VENTAS.CANTIDAD) AS IMP_MARGEN_PRO_COMP_' +
+              'TOTAL,'#10'CASE'#10'WHEN  COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP,' +
+              ' COALESCE(ARTICULOS.PRECIO_NETO, 0)) = 0 THEN 100'#10'WHEN (COALESCE' +
+              '(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_COMPRAS.IMPORT' +
+              'E_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0))) > 0 THEN'#10' ' +
+              '    ((COALESCE(MARGEN_VENTAS.IMPORTE_NETO, 0) - COALESCE(MARGEN_' +
+              'COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTICULOS.PRECIO_NETO, 0' +
+              '))) * 100) / MARGEN_VENTAS.IMPORTE_NETO'#10'ELSE 0'#10'END'#10'AS POR_MARGEN' +
+              '_PRO_COMP'#10#10#10'FROM'#10#10#10'(SELECT'#10'      FACTURAS_CLIENTE.ID_EMPRESA,'#10'  ' +
+              '    FACTURAS_CLIENTE.ID_CLIENTE,'#10'      FACTURAS_CLIENTE.ID as ID' +
+              '_FACTURA,'#10'      FACTURAS_CLIENTE_DETALLES.ID as ID_DETALLE,'#10'    ' +
+              '  FACTURAS_CLIENTE_DETALLES.ID_ARTICULO,'#10'      FACTURAS_CLIENTE_' +
+              'DETALLES.CANTIDAD,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDA' +
+              'D,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FACTURAS_CL' +
+              'IENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALLES.DESCU' +
+              'ENTO / 100)) AS IMPORTE_NETO,'#10'      FACTURAS_CLIENTE_DETALLES.IM' +
+              'PORTE_PORTE,'#10'      FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL'#10#10'    ' +
+              'FROM FACTURAS_CLIENTE_DETALLES'#10'    LEFT OUTER JOIN FACTURAS_CLIE' +
+              'NTE'#10'    ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID_F' +
+              'ACTURA)'#10#10'    WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS NOT' +
+              ' NULL) AND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10'/*      A' +
+              'ND (FACTURAS_CLIENTE_DETALLES.CANTIDAD > 0)*/'#10'      AND (FACTURA' +
+              'S_CLIENTE.FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN)) MARGEN' +
+              '_VENTAS'#10#10#10'LEFT JOIN'#10#10#10'(SELECT'#10'    ID_EMPRESA, ID_ARTICULO, COALE' +
+              'SCE(SUM(IMPORTE_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, ' +
+              'COALESCE(SUM(IMPORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,' +
+              #10'    COALESCE(SUM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_UL' +
+              'T_COMP, COALESCE(SUM(IMPORTE_UNIDAD_PRO_COMP),SUM(IMPORTE_UNIDAD' +
+              '_ULT_COMP)) AS IMPORTE_UNIDAD_PRO_COMP,'#10'    COALESCE(SUM(IMPORTE' +
+              '_NETO_PRO_COMP),SUM(IMPORTE_NETO_ULT_COMP)) AS IMPORTE_NETO_PRO_' +
+              'COMP, COALESCE(SUM(IMPORTE_PORTE_PRO_COMP),SUM(IMPORTE_PORTE_ULT' +
+              '_COMP)) AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM'#10'   (SELECT'#10'      ID_EMP' +
+              'RESA, ID_ARTICULO,'#10'      IMPORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD' +
+              '_ULT_COMP, IMPORTE_NETO_COMPRA AS IMPORTE_NETO_ULT_COMP, IMPORTE' +
+              '_PORTE_COMPRA AS IMPORTE_PORTE_ULT_COMP,'#10'      NULL AS IMPORTE_U' +
+              'NIDAD_PRO_COMP, NULL AS IMPORTE_NETO_PRO_COMP, NULL AS IMPORTE_P' +
+              'ORTE_PRO_COMP'#10#10'    FROM V_INF_ULTCOM_PORARTICULO'#10#10'    UNION ALL'#10 +
+              #10'    SELECT'#10'      FACTURAS_PROVEEDOR.ID_EMPRESA,'#10'      FACTURAS_' +
+              'PROVEEDOR_DETALLES.ID_ARTICULO,'#10'      NULL, NULL, NULL,'#10'      AV' +
+              'G(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_' +
+              'PRO_COMP,'#10'      AVG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD -' +
+              ' (FACTURAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD * (FACTURAS_PROVEED' +
+              'OR_DETALLES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_COMP,'#10'      A' +
+              'VG(FACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_P' +
+              'RO_COMP'#10#10'    FROM FACTURAS_PROVEEDOR_DETALLES'#10'    LEFT OUTER JOI' +
+              'N FACTURAS_PROVEEDOR'#10'    ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PR' +
+              'OVEEDOR_DETALLES.ID_FACTURA)'#10#10'    WHERE (FACTURAS_PROVEEDOR_DETA' +
+              'LLES.ID_ARTICULO IS NOT NULL) AND (FACTURAS_PROVEEDOR_DETALLES.I' +
+              'D_ARTICULO > 0)'#10'      AND (FACTURAS_PROVEEDOR_DETALLES.CANTIDAD ' +
+              '> 0)'#10'      /*Las compras promedio deben de calcularse desde el p' +
+              'rincipio de los tiempos hasta ahora*/'#10'      AND (FACTURAS_PROVEE' +
+              'DOR.FECHA_FACTURA BETWEEN '#39'12.12.2000'#39' AND current_date)'#10'    GRO' +
+              'UP BY 1, 2)'#10#10'  GROUP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRA' +
+              'S.ID_EMPRESA = MARGEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_' +
+              'ARTICULO = MARGEN_VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (' +
+              'ARTICULOS.ID = MARGEN_VENTAS.ID_ARTICULO)'#10'LEFT JOIN CONTACTOS CL' +
+              'IENTES ON (CLIENTES.ID = MARGEN_VENTAS.ID_CLIENTE)'#10'LEFT JOIN CLI' +
+              'ENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)'#10'LEFT JO' +
+              'IN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)'#10 +
+              'LEFT JOIN CONTACTOS PROVEEDORES ON (PROVEEDORES.ID = ARTICULOS.I' +
+              'D_PROVEEDOR)'#10'LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID ' +
+              '= MARGEN_VENTAS.ID_FACTURA)'#10'WHERE ARTICULOS.INVENTARIABLE = 1) I' +
+              'NF_MARGEN_ARTICULOS'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1669,6 +1708,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
               end
+              item
+                DatasetField = 'PROVEEDOR'
+                TableField = 'PROVEEDOR'
+              end
               item
                 DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
                 TableField = 'NOMBRE_COMERCIAL_CLIENTE'
@@ -1681,6 +1724,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'NOMBRE_AGENTE'
                 TableField = 'NOMBRE_AGENTE'
               end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
               item
                 DatasetField = 'IMP_UNIDAD'
                 TableField = 'IMP_UNIDAD'
@@ -1693,6 +1740,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'IMP_PORTE'
                 TableField = 'IMP_PORTE'
               end
+              item
+                DatasetField = 'IMP_TOTAL'
+                TableField = 'IMP_TOTAL'
+              end
               item
                 DatasetField = 'IMP_UNIDAD_ULT_COMP'
                 TableField = 'IMP_UNIDAD_ULT_COMP'
@@ -1705,6 +1756,10 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'IMP_PORTE_ULT_COMP'
                 TableField = 'IMP_PORTE_ULT_COMP'
               end
+              item
+                DatasetField = 'IMP_NETO_ULT_COM_TOTAL'
+                TableField = 'IMP_NETO_ULT_COM_TOTAL'
+              end
               item
                 DatasetField = 'IMP_UNIDAD_PRO_COMP'
                 TableField = 'IMP_UNIDAD_PRO_COMP'
@@ -1717,10 +1772,18 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'IMP_PORTE_PRO_COMP'
                 TableField = 'IMP_PORTE_PRO_COMP'
               end
+              item
+                DatasetField = 'IMP_NETO_PRO_COM_TOTAL'
+                TableField = 'IMP_NETO_PRO_COM_TOTAL'
+              end
               item
                 DatasetField = 'IMP_MARGEN_ULT_COMP'
                 TableField = 'IMP_MARGEN_ULT_COMP'
               end
+              item
+                DatasetField = 'IMP_MARGEN_ULT_COMP_TOTAL'
+                TableField = 'IMP_MARGEN_ULT_COMP_TOTAL'
+              end
               item
                 DatasetField = 'POR_MARGEN_ULT_COMP'
                 TableField = 'POR_MARGEN_ULT_COMP'
@@ -1729,33 +1792,13 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
                 DatasetField = 'IMP_MARGEN_PRO_COMP'
                 TableField = 'IMP_MARGEN_PRO_COMP'
               end
-              item
-                DatasetField = 'POR_MARGEN_PRO_COMP'
-                TableField = 'POR_MARGEN_PRO_COMP'
-              end
-              item
-                DatasetField = 'CANTIDAD'
-                TableField = 'CANTIDAD'
-              end
-              item
-                DatasetField = 'IMP_TOTAL'
-                TableField = 'IMP_TOTAL'
-              end
-              item
-                DatasetField = 'IMP_NETO_ULT_COM_TOTAL'
-                TableField = 'IMP_NETO_ULT_COM_TOTAL'
-              end
-              item
-                DatasetField = 'IMP_NETO_PRO_COM_TOTAL'
-                TableField = 'IMP_NETO_PRO_COM_TOTAL'
-              end
-              item
-                DatasetField = 'IMP_MARGEN_ULT_COMP_TOTAL'
-                TableField = 'IMP_MARGEN_ULT_COMP_TOTAL'
-              end
               item
                 DatasetField = 'IMP_MARGEN_PRO_COMP_TOTAL'
                 TableField = 'IMP_MARGEN_PRO_COMP_TOTAL'
+              end
+              item
+                DatasetField = 'POR_MARGEN_PRO_COMP'
+                TableField = 'POR_MARGEN_PRO_COMP'
               end>
           end>
         Name = 'InfMargenPorFactura'
@@ -1921,6 +1964,18 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'PROVEEDOR'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'NOMBRE_COMERCIAL_CLIENTE'
             DataType = datString
diff --git a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas
index 4f26527d..6c72ee54 100644
--- a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas	
+++ b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas	
@@ -44,7 +44,7 @@ const
 
   //SOLO PARA INFORME AGRUPADO POR FACTURA PARA SACAR BENEFICIO REAL
   CTE_DATA_NAME = 'InfMargenPorFactura';
-  CAMPOS_SUMA = 'CANTIDAD#IMP_UNIDAD#IMP_NETO#IMP_PORTE#IMP_TOTAL#IMP_NETO_ULT_COM_TOTAL#IMP_NETO_PRO_COM_TOTAL#IMP_MARGEN_ULT_COMP_TOTAL#IMP_MARGEN_PRO_COMP_TOTAL';
+  CAMPOS_SUMA = '#CANTIDAD#IMP_UNIDAD#IMP_NETO#IMP_PORTE#IMP_TOTAL#IMP_NETO_ULT_COM_TOTAL#IMP_NETO_PRO_COM_TOTAL#IMP_MARGEN_ULT_COMP_TOTAL#IMP_MARGEN_PRO_COMP_TOTAL';
 
 procedure Create_srv_InfMargenArticulo(out anInstance : IUnknown);
 begin
diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj
index a7d2b8ba..f016b2e4 100644
--- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj	
+++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj	
@@ -170,8 +170,7 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-		</VersionInfoKeys>  
-    <Excluded_Packages>
+		</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>
   </Delphi.Personality>
diff --git a/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm
index 3f355f24..b49d277a 100644
--- a/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm	
+++ b/Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm	
@@ -167,8 +167,6 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
     ExplicitWidth = 679
     ExplicitHeight = 452
     inherited pagGeneral: TTabSheet
-      ExplicitLeft = 0
-      ExplicitTop = 0
       ExplicitWidth = 671
       ExplicitHeight = 424
     end
@@ -282,12 +280,12 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
         end
         inherited frViewPeriodoFechas1: TfrViewPeriodoFechas
           Width = 659
-          ExplicitWidth = 124
+          ExplicitWidth = 659
           inherited TBXDockablePanel1: TTBXDockablePanel
-            ExplicitWidth = 124
+            ExplicitWidth = 659
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 659
-              ExplicitWidth = 124
+              ExplicitWidth = 659
             end
           end
         end
@@ -426,7 +424,9 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
           end
           inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn [16]
           end
-          inherited cxGridViewDESCRIPCION: TcxGridDBColumn [17]
+          inherited cxGridViewPROVEEDOR: TcxGridDBColumn [17]
+          end
+          inherited cxGridViewDESCRIPCION: TcxGridDBColumn [18]
           end
         end
       end
diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
index df05a969..7ffba49c 100644
--- a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm	
+++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm	
@@ -151,7 +151,6 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
       OptionsView.GroupByBox = False
       OptionsView.GroupFooters = gfAlwaysVisible
       OptionsView.HeaderEndEllipsis = True
-      OptionsView.NewItemRowInfoText = 'Click here to add a new row'
       Styles.FilterBox = cxStyleFilterBox
       Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
       OnColumnPosChanged = cxGridViewColumnPosChanged
@@ -219,6 +218,10 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
         Caption = 'Ref. proveedor'
         DataBinding.FieldName = 'REFERENCIA_PROV'
       end
+      object cxGridViewPROVEEDOR: TcxGridDBColumn
+        Caption = 'Proveedor'
+        DataBinding.FieldName = 'PROVEEDOR'
+      end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         Caption = 'Descripci'#243'n'
         DataBinding.FieldName = 'DESCRIPCION'
diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas
index 84339b09..c18d50bb 100644
--- a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas	
+++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas	
@@ -85,6 +85,7 @@ type
     cxGridViewIMP_NETO_PRO_COM_TOTAL: TcxGridDBColumn;
     cxGridViewIMP_MARGEN_ULT_COMP_TOTAL: TcxGridDBColumn;
     cxGridViewIMP_MARGEN_PRO_COMP_TOTAL: TcxGridDBColumn;
+    cxGridViewPROVEEDOR: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index d8ee77b2..64819221 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -152,8 +152,8 @@
 		<VersionInfo>
 			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-			<VersionInfo Name="MajorVer">2</VersionInfo>
-			<VersionInfo Name="MinorVer">9</VersionInfo>
+			<VersionInfo Name="MajorVer">3</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
 			<VersionInfo Name="Release">0</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
@@ -167,15 +167,15 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">miércoles, 28 de mayo de 2008 16:31</VersionInfoKeys></VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">jueves, 29 de mayo de 2008 19:41</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>
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 5400e245..08531b44 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -128,10 +128,10 @@ uses
   schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
   schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
   schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
-  schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
-  schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas',
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
-  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
+  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
+  schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
+  schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index cb3050a4..cfce97af 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,9,0,0
-PRODUCTVERSION 2,9,0,0
+FILEVERSION 3,0,0,0
+PRODUCTVERSION 3,0,0,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.9.0.0\0"
+              VALUE "FileVersion", "3.0.0.0\0"
               VALUE "ProductName", "FactuGES Server\0"
-              VALUE "ProductVersion", "2.9.0.0\0"
-              VALUE "CompileDate", "jueves, 29 de mayo de 2008 19:41\0"
+              VALUE "ProductVersion", "3.0.0.0\0"
+              VALUE "CompileDate", "miércoles, 04 de junio de 2008 18:52\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 97940d1e..5e9e9886 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ