diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
index a7574b09..65ad70b8 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
@@ -219,12 +219,117 @@ object srvArticulos: TsrvArticulos
             Size = 255
           end>
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'ARTICULOS_PROVEEDORES'
+            Name = 'IBX'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_ARTICULO'
+                TableField = 'ID_ARTICULO'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
+              end
+              item
+                DatasetField = 'REFERENCIA_PROV'
+                TableField = 'REFERENCIA_PROV'
+              end
+              item
+                DatasetField = 'PRECIO_COSTE'
+                TableField = 'PRECIO_COSTE'
+              end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
+              end
+              item
+                DatasetField = 'PRECIO_NETO'
+                TableField = 'PRECIO_NETO'
+              end
+              item
+                DatasetField = 'PRECIO_PORTE'
+                TableField = 'PRECIO_PORTE'
+              end
+              item
+                DatasetField = 'PRECIO_PVP_VENTA'
+                TableField = 'PRECIO_PVP_VENTA'
+              end
+              item
+                DatasetField = 'MANO_OBRA'
+                TableField = 'MANO_OBRA'
+              end
+              item
+                DatasetField = 'PRECIO_PVP_TOTAL'
+                TableField = 'PRECIO_PVP_TOTAL'
+              end>
+          end>
+        Name = 'Articulos_Proveedores'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_ARTICULO'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+          end
+          item
+            Name = 'PRECIO_PVP_VENTA'
+            DataType = datCurrency
+          end
+          item
+            Name = 'MANO_OBRA'
+            DataType = datCurrency
+          end
+          item
+            Name = 'PRECIO_PVP_TOTAL'
+            DataType = datCurrency
+          end>
+      end
       item
         Params = <>
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'V_ARTICULOS'
+            TargetTable = 'V_ARTICULOS_PARA_COMPRA'
             StatementType = stAutoSQL
             ColumnMappings = <
               item
@@ -496,33 +601,23 @@ object srvArticulos: TsrvArticulos
           end>
       end
       item
-        Params = <
-          item
-            Name = 'ID_CLIENTE'
-            Value = '2'
-            ParamType = daptInput
-          end>
+        Params = <>
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'V_ARTICULOS'
+            TargetTable = 'V_ARTICULOS_PARA_VENTA'
             SQL = 
-              'SELECT'#10'    V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.R' +
-              'EFERENCIA,'#10#9'V_ARTICULOS.DESCRIPCION, V_ARTICULOS.UNIDAD_MEDIDA,'#10 +
-              '    V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIO' +
-              'NABLE,'#10#9'V_ARTICULOS.FECHA_ALTA, V_ARTICULOS.FECHA_MODIFICACION,'#10 +
-              '    V_ARTICULOS.USUARIO, V_ARTICULOS.REFERENCIA_PROV, V_ARTICULO' +
-              'S.PRECIO_COSTE,'#10#9'V_ARTICULOS.PRECIO_PORTE, CLIENTES_DTOS_PROVEED' +
-              'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
-              'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
-              '_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
-              'NCIA_FABR,'#10#9'V_ARTICULOS.PARAM_MARGEN, V_ARTICULOS.PRECIO_PVP_VEN' +
-              'TA, V_ARTICULOS.TIEMPO,'#10'        V_ARTICULOS.PARAM_TIEMPO, V_ARTI' +
-              'CULOS.MANO_OBRA, V_ARTICULOS.PRECIO_PVP_TOTAL'#10'  FROM'#10'    V_ARTIC' +
-              'ULOS'#10'  LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10#9'ON ((CLIENTES_' +
-              'DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10#9#9'AND ' +
-              '(CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'  WHERE {W' +
-              'here}'#10
+              #10#10'SELECT'#10'    V_ARTICULOS_PARA_VENTA.ID, V_ARTICULOS_PARA_VENTA.I' +
+              'D_EMPRESA,'#10'    V_ARTICULOS_PARA_VENTA.REFERENCIA, V_ARTICULOS_PA' +
+              'RA_VENTA.DESCRIPCION,'#10'    V_ARTICULOS_PARA_VENTA.UNIDAD_MEDIDA, ' +
+              'V_ARTICULOS_PARA_VENTA.FAMILIA,'#10'    V_ARTICULOS_PARA_VENTA.IMAGE' +
+              'N, V_ARTICULOS_PARA_VENTA.COMISIONABLE,'#10'    V_ARTICULOS_PARA_VEN' +
+              'TA.FECHA_ALTA, V_ARTICULOS_PARA_VENTA.FECHA_MODIFICACION,'#10'    V_' +
+              'ARTICULOS_PARA_VENTA.USUARIO, V_ARTICULOS_PARA_VENTA.INVENTARIAB' +
+              'LE,'#10'    V_ARTICULOS_PARA_VENTA.ELIMINADO, V_ARTICULOS_PARA_VENTA' +
+              '.FABRICANTE,'#10'    V_ARTICULOS_PARA_VENTA.REFERENCIA_FABR, V_ARTIC' +
+              'ULOS_PARA_VENTA.PRECIO_PVP_VENTA,'#10'    V_ARTICULOS_PARA_VENTA.PRE' +
+              'CIO_PVP_TOTAL'#10'  FROM'#10'    V_ARTICULOS_PARA_VENTA'#10'  WHERE {Where}'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -569,38 +664,10 @@ object srvArticulos: TsrvArticulos
                 DatasetField = 'USUARIO'
                 TableField = 'USUARIO'
               end
-              item
-                DatasetField = 'REFERENCIA_PROV'
-                TableField = 'REFERENCIA_PROV'
-              end
-              item
-                DatasetField = 'PRECIO_COSTE'
-                TableField = 'PRECIO_COSTE'
-              end
-              item
-                DatasetField = 'PRECIO_PORTE'
-                TableField = 'PRECIO_PORTE'
-              end
-              item
-                DatasetField = 'DESCUENTO'
-                TableField = 'DESCUENTO'
-              end
-              item
-                DatasetField = 'PRECIO_NETO'
-                TableField = 'PRECIO_NETO'
-              end
               item
                 DatasetField = 'INVENTARIABLE'
                 TableField = 'INVENTARIABLE'
               end
-              item
-                DatasetField = 'ID_PROVEEDOR'
-                TableField = 'ID_PROVEEDOR'
-              end
-              item
-                DatasetField = 'NOMBRE_PROVEEDOR'
-                TableField = 'NOMBRE_PROVEEDOR'
-              end
               item
                 DatasetField = 'ELIMINADO'
                 TableField = 'ELIMINADO'
@@ -613,26 +680,10 @@ object srvArticulos: TsrvArticulos
                 DatasetField = 'REFERENCIA_FABR'
                 TableField = 'REFERENCIA_FABR'
               end
-              item
-                DatasetField = 'PARAM_MARGEN'
-                TableField = 'PARAM_MARGEN'
-              end
               item
                 DatasetField = 'PRECIO_PVP_VENTA'
                 TableField = 'PRECIO_PVP_VENTA'
               end
-              item
-                DatasetField = 'TIEMPO'
-                TableField = 'TIEMPO'
-              end
-              item
-                DatasetField = 'PARAM_TIEMPO'
-                TableField = 'PARAM_TIEMPO'
-              end
-              item
-                DatasetField = 'MANO_OBRA'
-                TableField = 'MANO_OBRA'
-              end
               item
                 DatasetField = 'PRECIO_PVP_TOTAL'
                 TableField = 'PRECIO_PVP_TOTAL'
@@ -706,48 +757,11 @@ object srvArticulos: TsrvArticulos
             Size = 20
             DictionaryEntry = 'Articulos_USUARIO'
           end
-          item
-            Name = 'REFERENCIA_PROV'
-            DataType = datString
-            Size = 255
-            DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
-          end
-          item
-            Name = 'PRECIO_COSTE'
-            DataType = datCurrency
-            DictionaryEntry = 'Articulos_PRECIO_COSTE'
-          end
-          item
-            Name = 'PRECIO_PORTE'
-            DataType = datCurrency
-            DictionaryEntry = 'Articulos_PRECIO_PORTE'
-          end
-          item
-            Name = 'DESCUENTO'
-            DataType = datFloat
-            DictionaryEntry = 'Articulos_DESCUENTO'
-          end
-          item
-            Name = 'PRECIO_NETO'
-            DataType = datCurrency
-            DictionaryEntry = 'Articulos_PRECIO_NETO'
-          end
           item
             Name = 'INVENTARIABLE'
             DataType = datSmallInt
             DictionaryEntry = 'Articulos_INVENTARIABLE'
           end
-          item
-            Name = 'ID_PROVEEDOR'
-            DataType = datInteger
-            DictionaryEntry = 'Articulos_ID_PROVEEDOR'
-          end
-          item
-            Name = 'NOMBRE_PROVEEDOR'
-            DataType = datString
-            Size = 255
-            DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR'
-          end
           item
             Name = 'ELIMINADO'
             DataType = datSmallInt
@@ -765,30 +779,12 @@ object srvArticulos: TsrvArticulos
             Size = 255
             DictionaryEntry = 'Articulos_REFERENCIA_FABR'
           end
-          item
-            Name = 'PARAM_MARGEN'
-            DataType = datFloat
-          end
           item
             Name = 'PRECIO_PVP_VENTA'
             DataType = datCurrency
             DisplayLabel = 'Precio P.V.P (Solo suministro)'
             Alignment = taRightJustify
           end
-          item
-            Name = 'TIEMPO'
-            DataType = datInteger
-          end
-          item
-            Name = 'PARAM_TIEMPO'
-            DataType = datFloat
-          end
-          item
-            Name = 'MANO_OBRA'
-            DataType = datCurrency
-            DisplayLabel = 'Mano de obra'
-            Alignment = taRightJustify
-          end
           item
             Name = 'PRECIO_PVP_TOTAL'
             DataType = datCurrency
@@ -918,17 +914,15 @@ object srvArticulos: TsrvArticulos
             SQL = 
               'INSERT'#10'  INTO ARTICULOS'#10'    (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
               'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10'     COMISIONABLE, FECHA_A' +
-              'LTA, FECHA_MODIFICACION, USUARIO, '#10'     PRECIO_COSTE, PRECIO_POR' +
-              'TE, DESCUENTO, ID_PROVEEDOR, '#10'     PRECIO_NETO, REFERENCIA_PROV,' +
-              ' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10'     REFERENCIA_FABR, PAR' +
-              'AM_MARGEN, PRECIO_PVP_VENTA, TIEMPO, PARAM_TIEMPO,'#10'     MANO_OBR' +
-              'A, PRECIO_PVP_TOTAL)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFERENCIA' +
-              ', :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10'     :IMAGEN, :COMISIO' +
-              'NABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO, :PRECIO' +
-              '_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10'     :ID_PROVEEDOR, :PRECIO_' +
-              'NETO, :REFERENCIA_PROV,'#10'     :INVENTARIABLE, :ELIMINADO, :FABRIC' +
-              'ANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10'     :PRECIO_PVP_VENTA, :' +
-              'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA, :PRECIO_PVP_TOTAL)'#10
+              'LTA, FECHA_MODIFICACION, USUARIO, '#10'     INVENTARIABLE, ELIMINADO' +
+              ', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10'     PARAM_' +
+              'TIEMPO, MANO_OBRA)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFERENCIA, ' +
+              ':DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10'     :IMAGEN, :COMISIONA' +
+              'BLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARIO, :PRECIO_C' +
+              'OSTE, :PRECIO_PORTE, :DESCUENTO, '#10'     :ID_PROVEEDOR, :PRECIO_NE' +
+              'TO, :REFERENCIA_PROV,'#10'     :INVENTARIABLE, :ELIMINADO, :FABRICAN' +
+              'TE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10'     :PRECIO_PVP_VENTA, :TI' +
+              'EMPO, :PARAM_TIEMPO, :MANO_OBRA, :PRECIO_PVP_TOTAL)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1086,6 +1080,185 @@ object srvArticulos: TsrvArticulos
             ColumnMappings = <>
           end>
         Name = 'Update_Articulos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'ID_ARTICULO'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PVP_VENTA'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'MANO_OBRA'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PVP_TOTAL'
+            DataType = datCurrency
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'ARTICULOS_PROVEEDORES'
+            SQL = 
+              'INSERT'#10'  INTO ARTICULOS_PROVEEDORES'#10'    (ID, ID_ARTICULO, ID_PRO' +
+              'VEEDOR, REFERENCIA_PROV, PRECIO_COSTE, '#10'     DESCUENTO, PRECIO_N' +
+              'ETO, PRECIO_PORTE, PRECIO_PVP_VENTA, '#10'     MANO_OBRA, PRECIO_PVP' +
+              '_TOTAL)'#10'  VALUES'#10'    (:ID, :ID_ARTICULO, :ID_PROVEEDOR, :REFEREN' +
+              'CIA_PROV, '#10'     :PRECIO_COSTE, :DESCUENTO, :PRECIO_NETO, :PRECIO' +
+              '_PORTE, '#10'     :PRECIO_PVP_VENTA, :MANO_OBRA, :PRECIO_PVP_TOTAL)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Articulos_Proveedores'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'ARTICULOS_PROVEEDORES'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    ARTICULOS_PROVEEDORES'#10'  WHERE'#10'    (ID = :OLD_' +
+              'ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Articulos_Proveedores'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'ID_ARTICULO'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PVP_VENTA'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'MANO_OBRA'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'PRECIO_PVP_TOTAL'
+            DataType = datCurrency
+            Value = '0'
+          end
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'ARTICULOS_PROVEEDORES'
+            SQL = 
+              'UPDATE ARTICULOS_PROVEEDORES'#10'  SET '#10'    ID = :ID, '#10'    ID_ARTICU' +
+              'LO = :ID_ARTICULO, '#10'    ID_PROVEEDOR = :ID_PROVEEDOR, '#10'    REFER' +
+              'ENCIA_PROV = :REFERENCIA_PROV, '#10'    PRECIO_COSTE = :PRECIO_COSTE' +
+              ', '#10'    DESCUENTO = :DESCUENTO, '#10'    PRECIO_NETO = :PRECIO_NETO, ' +
+              #10'    PRECIO_PORTE = :PRECIO_PORTE, '#10'    PRECIO_PVP_VENTA = :PREC' +
+              'IO_PVP_VENTA, '#10'    MANO_OBRA = :MANO_OBRA, '#10'    PRECIO_PVP_TOTAL' +
+              ' = :PRECIO_PVP_TOTAL'#10'  WHERE'#10'    (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Articulos_Proveedores'
       end>
     RelationShips = <>
     UpdateRules = <