diff --git a/Source/ApplicationBase/uPlugins_Intf.pas b/Source/ApplicationBase/uPlugins_Intf.pas
index 35e0b76..e0f3969 100644
--- a/Source/ApplicationBase/uPlugins_Intf.pas
+++ b/Source/ApplicationBase/uPlugins_Intf.pas
@@ -4,6 +4,7 @@ interface
 
 const
   MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
+  MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';  
   MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
   MODULENAME_FACTURAS_CLIENTE = 'FacturasCliente_plugin.bpl';
   MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
@@ -21,6 +22,12 @@ type
       const ANombreCliente : String = '');
   end;
 
+  IMCPedidosCliente = interface(IInterface)
+ ['{983DA6AB-C138-49BF-AB01-2C94C2284619}']
+    procedure VerPedidos(const ID_Cliente: Integer;
+      const ANombreCliente : String = '');
+  end;
+
   IMCAlbaranesCliente = interface(IInterface)
     ['{0B9DD25A-3E76-446A-9EA6-D43131634A1E}']
     procedure VerAlbaranes(const ID_Cliente: Integer;
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339..8b251f3 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 258cd1b..3441df3 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -30,10 +30,11 @@ begin
     LoadModule('Contactos_plugin.bpl');
 
     LoadModule('Almacenes_plugin.bpl');
-    LoadModule('Obras_plugin.bpl');    
+//    LoadModule('Obras_plugin.bpl');    
     LoadModule('Articulos_plugin.bpl');
 
-    LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
+//    LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
+    LoadModule(MODULENAME_PEDIDOS_CLIENTE);
     LoadModule(MODULENAME_ALBARANES_CLIENTE);
 
     LoadModule('RecibosCliente_plugin.bpl');
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 8d4eeaa..a62b147 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -59,26 +59,30 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="cxTreeListD11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dxBarD11.dcp" />
-    <DCCReference Include="dxBarExtItemsD11.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxPSCoreD11.dcp" />
-    <DCCReference Include="dxPScxCommonD11.dcp" />
-    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="frx11.dcp" />
-    <DCCReference Include="frxe11.dcp" />
-    <DCCReference Include="fs11.dcp" />
-    <DCCReference Include="JvAppFrmD11R.dcp" />
-    <DCCReference Include="JvCtrlsD11R.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\Base.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\cxTreeListD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxComnD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Articulos\Views\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>
@@ -86,7 +90,7 @@
       <Form>fDialogElegirEMail</Form>
     </DCCReference>
     <DCCReference Include="uDialogListaEnvioEMail.pas">
-      <Form>fEditorBase</Form>
+      <Form>fDialogListaEnvioEMail</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorBase.pas">
@@ -180,10 +184,6 @@
       <Form>frViewTotales</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc
index 1f80574..f0c9264 100644
--- a/Source/GUIBase/GUIBase.drc
+++ b/Source/GUIBase/GUIBase.drc
@@ -39,4 +39,4 @@ END
 /* C:\Codigo\Source\GUIBase\uViewDocumentos.dfm */
 /* C:\Codigo\Source\GUIBase\uDialogListaEnvioEMail.dfm */
 /* C:\Codigo\Source\GUIBase\GUIBase.res */
-/* C:\Codigo\Source\GUIBase\GUIBase.drf */
+/* c:\temp\dtf575.tmp */
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
index 5612946..d8fd477 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc	
+++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
-/* c:\temp\dtf1A1.tmp */
+/* c:\temp\dtf5FF.tmp */
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
index 475d91d..f2411e2 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas	
@@ -155,7 +155,8 @@ begin
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then
-       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
+//       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
+       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_NETO
      else
        ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;
diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
index b1e0853..ed42d55 100644
--- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc	
+++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
-/* c:\temp\dtf19F.tmp */
+/* c:\temp\dtf5FD.tmp */
diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
index f568427..8be4c54 100644
--- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc	
+++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
-/* c:\temp\dtf19D.tmp */
+/* c:\temp\dtf5FB.tmp */
diff --git a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
index 8cf7190..c96a436 100644
--- a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc	
+++ b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
-/* c:\temp\dtf1F7.tmp */
+/* c:\temp\dtf647.tmp */
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
index 74f36e4..eeb0de5 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc	
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc	
@@ -28,4 +28,4 @@ END
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
-/* c:\temp\dtf1F5.tmp */
+/* c:\temp\dtf645.tmp */
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc
index 1310ff0..bce540a 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
-/* c:\temp\dtf1CB.tmp */
+/* c:\temp\dtf629.tmp */
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
index a3b02e8..d01b9f7 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas	
@@ -141,19 +141,11 @@ begin
   //Validamos la existencia de todos los campos necesarios
   AField := AArticulos.DataTable.FindField(CAMPO_ID_ARTICULOS);
   if Assigned(AField) then
-  begin
-//     if not ADetalles.DataTable.Editing then
-//        ADetalles.DataTable.Edit;
      ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsVariant := AField.AsVariant;
-  end;
 
-  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
-  if Assigned(AField) then
-  begin
-//     if not ADetalles.DataTable.Editing then
-//        ADetalles.DataTable.Edit;
-     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
-  end;
+//  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
+//  if Assigned(AField) then
+//     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
 end;
 
 procedure TDetallesAlbaranProveedorController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc
index f4091e1..0cb9aa1 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc	
+++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */
-/* c:\temp\dtf1C9.tmp */
+/* c:\temp\dtf627.tmp */
diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc
index 9e54db4..04b53c1 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc	
+++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
-/* c:\temp\dtf1C7.tmp */
+/* c:\temp\dtf625.tmp */
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc
index e1014ef..43b2c1c 100644
--- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc	
+++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */
-/* c:\temp\dtf20B.tmp */
+/* c:\temp\dtf65B.tmp */
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc
index 385e424..8938718 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc	
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc	
@@ -30,4 +30,4 @@ END
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */
 /* C:\Codigo\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
-/* c:\temp\dtf209.tmp */
+/* c:\temp\dtf659.tmp */
diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
index 0b51788..65a1d93 100644
--- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
+++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
@@ -121,7 +121,7 @@ function TAlmacenesController.BuscarTodos: IBizAlmacen;
 begin
   Result := FDataModule.GetItems;
 //Los almacenes serán comunes para todas las empresas.
-//  FiltrarEmpresa(Result);
+  FiltrarEmpresa(Result);
 end;
 
 constructor TAlmacenesController.Create;
diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index 1ae4c614..66be4d5 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas
@@ -247,7 +247,8 @@ end;
 
 function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo;
 begin
-  Result := FDataModule.GetItems(txArticulo); //ACliente);
+  Result := FDataModule.GetItems(ACliente);
+//  Result := FDataModule.GetItems(txArticulo);
 //Los articulos serán comunes para todas las empresas.
 //  FiltrarEmpresa(Result);
 end;
@@ -258,7 +259,7 @@ begin
 //  if not Assigned(ACliente) then
 //     raise Exception.Create('Falta ACliente: BuscarTodos');
 
-  Result := BuscarTodos; //(ACliente.ID);
+  Result := BuscarTodos(ACliente.ID);
 end;
 
 function TArticulosController.BuscarTodos(AProveedor: IBizProveedor): IBizArticulo;
@@ -360,8 +361,8 @@ begin
   try
     with Result do
     begin
-      Add(CurrToStr(AArticulo.PRECIO_PVP_TOTAL));
-      Add(CurrToStr(AArticulo.PRECIO_PVP_VENTA));
+//      Add(CurrToStr(AArticulo.PRECIO_PVP_TOTAL));
+//      Add(CurrToStr(AArticulo.PRECIO_PVP_VENTA));
     end;
   finally
     AArticulo := NIL;
diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index 7f2ab44..46360d6 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -375,7 +375,7 @@ begin
     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA).AsVariant := AArticulos.REFERENCIA;
     ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_PROVEEDOR).AsVariant := AArticulos.REFERENCIA_PROV;
     ADetalles.DataTable.FieldByName(CAMPO_CONCEPTO).AsVariant := AArticulos.DESCRIPCION;
-    ADetalles.DataTable.FieldByName(CAMPO_UNIDADMEDIDA).AsVariant := AArticulos.UNIDAD_MEDIDA;
+//    ADetalles.DataTable.FieldByName(CAMPO_UNIDADMEDIDA).AsVariant := AArticulos.UNIDAD_MEDIDA;
   end;
 end;
 
diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
index 8c2060f..a9c57d5 100644
--- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
+++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
@@ -14,12 +14,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
     Top = 84
   end
   object rda_Articulos: TDARemoteDataAdapter
+    DataStreamer = Bin2DataStreamer
     GetSchemaCall.RemoteService = RORemoteService
     GetDataCall.RemoteService = RORemoteService
     UpdateDataCall.RemoteService = RORemoteService
     GetScriptsCall.RemoteService = RORemoteService
     RemoteService = RORemoteService
-    DataStreamer = Bin2DataStreamer
     Left = 51
     Top = 151
   end
@@ -54,13 +54,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
         DisplayLabel = 'Descripci'#243'n'
         DictionaryEntry = 'Articulos_DESCRIPCION'
       end
-      item
-        Name = 'UNIDAD_MEDIDA'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Unidad de medida'
-        DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
-      end
       item
         Name = 'FAMILIA'
         DataType = datString
@@ -135,6 +128,15 @@ inherited DataModuleArticulos: TDataModuleArticulos
         DisplayLabel = 'Inventariable'
         DictionaryEntry = 'Articulos_INVENTARIABLE'
       end
+      item
+        Name = 'ID_PROVEEDOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'NOMBRE_PROVEEDOR'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'ELIMINADO'
         DataType = datSmallInt
@@ -142,62 +144,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
         DictionaryEntry = 'Articulos_ELIMINADO'
       end
       item
-        Name = 'FABRICANTE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Fabricante'
-        DictionaryEntry = 'Articulos_FABRICANTE'
-      end
-      item
-        Name = 'REFERENCIA_FABR'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Ref. fabricante'
-        DictionaryEntry = 'Articulos_REFERENCIA_FABR'
-      end
-      item
-        Name = 'PARAM_MARGEN'
-        DataType = datFloat
-      end
-      item
-        Name = 'PRECIO_PVP_VENTA'
-        DataType = datCurrency
-        DisplayLabel = 'Precio PVP (Solo suministro)'
-        Alignment = taRightJustify
-        ServerAutoRefresh = True
-        DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
-      end
-      item
-        Name = 'TIEMPO'
-        DataType = datInteger
-      end
-      item
-        Name = 'PARAM_TIEMPO'
-        DataType = datFloat
-        DisplayLabel = 'Precio min'
-        Alignment = taRightJustify
-        DictionaryEntry = 'Articulos_PARAM_TIEMPO'
-      end
-      item
-        Name = 'MANO_OBRA'
-        DataType = datCurrency
-        DisplayLabel = 'Mano de obra'
-        Alignment = taRightJustify
-        DictionaryEntry = 'Articulos_MANO_OBRA'
-      end
-      item
-        Name = 'PRECIO_PVP_TOTAL'
-        DataType = datCurrency
-        DisplayLabel = 'Precio P.V.P (Total)'
-        Alignment = taRightJustify
-        ServerAutoRefresh = True
-        DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
+        Name = 'TIENDA_WEB'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_Articulos
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Articulos'
     IndexDefs = <>
     Left = 232
@@ -229,8 +181,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
       end>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_Articulos
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ProveedoresConArticulos'
     IndexDefs = <>
     Left = 232
@@ -313,8 +263,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
     MasterSource = ds_Articulos
     MasterFields = 'ID'
     DetailFields = 'ID_ARTICULO'
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Articulos_Proveedores'
     IndexDefs = <>
     Left = 368
@@ -512,8 +460,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_Articulos
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ArticulosParaCompra'
     IndexDefs = <>
     Left = 416
@@ -525,4 +471,111 @@ inherited DataModuleArticulos: TDataModuleArticulos
     Left = 416
     Top = 192
   end
+  object tbl_ArticulosParaCliente: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FAMILIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMAGEN'
+        DataType = datBlob
+      end
+      item
+        Name = 'COMISIONABLE'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'FECHA_ALTA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FECHA_MODIFICACION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'USUARIO'
+        DataType = datString
+        Size = 30
+      end
+      item
+        Name = 'REFERENCIA_PROV'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PRECIO_COSTE'
+        DataType = datCurrency
+      end
+      item
+        Name = 'PRECIO_PORTE'
+        DataType = datCurrency
+      end
+      item
+        Name = 'DESCUENTO'
+        DataType = datFloat
+      end
+      item
+        Name = 'PRECIO_NETO'
+        DataType = datCurrency
+      end
+      item
+        Name = 'INVENTARIABLE'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'ID_PROVEEDOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'NOMBRE_PROVEEDOR'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ELIMINADO'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'TIENDA_WEB'
+        DataType = datSmallInt
+      end>
+    Params = <
+      item
+        Name = 'ID_CLIENTE'
+        Value = ''
+      end>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Articulos
+    LogicalName = 'ArticulosParaCliente'
+    IndexDefs = <>
+    Left = 424
+    Top = 368
+  end
+  object ds_ArticulosParaCliente: TDADataSource
+    DataSet = tbl_ArticulosParaCliente.Dataset
+    DataTable = tbl_ArticulosParaCliente
+    Left = 424
+    Top = 304
+  end
 end
diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
index 2cdfecc..8778cc1 100644
--- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
+++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
@@ -24,6 +24,8 @@ type
     ds_Articulos_Proveedores: TDADataSource;
     tbl_ArticulosParaCompra: TDAMemDataTable;
     ds_ArticulosParaCompra: TDADataSource;
+    tbl_ArticulosParaCliente: TDAMemDataTable;
+    ds_ArticulosParaCliente: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   private
     function _GetProveedores : IBizArticulosProveedores;
@@ -32,7 +34,8 @@ type
     procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual;
 
   public
-    function GetItems (const Tipo: TEnumArticulos) : IBizArticulo;
+    function GetItems (const Tipo: TEnumArticulos) : IBizArticulo; overload;
+    function GetItems (IDCliente: Integer) : IBizArticulo; overload;
     function GetItem(const ID : Integer) : IBizArticulo;
     function NewItem : IBizArticulo;
     function DarListaProveedoresConArticulos(const IDEmpresa: Integer) : TStringList;
@@ -113,6 +116,23 @@ begin
   end;
 end;
 
+function TDataModuleArticulos.GetItems(IDCliente: Integer): IBizArticulo;
+var
+  AArticulo : TDAMemDataTable;
+begin
+
+  ShowHourglassCursor;
+  try
+    AArticulo := CloneDataTable(tbl_ArticulosParaCliente);
+    AsignarClaseNegocio(AArticulo);
+    AArticulo.ParamByName('ID_CLIENTE').AsInteger := IdCliente;
+    Result := (AArticulo as IBizArticulo);
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TDataModuleArticulos.GetItems(const Tipo: TEnumArticulos): IBizArticulo;
 var
   AArticulo : TDAMemDataTable;
diff --git a/Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas b/Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
index b850ddb..80bc606 100644
--- a/Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
+++ b/Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
@@ -10,7 +10,8 @@ type
   
   IDataModuleArticulos = interface
     ['{9047C468-78DE-404E-9047-1125B382FE3B}']
-    function GetItems (const Tipo: TEnumArticulos) : IBizArticulo;
+    function GetItems (const Tipo: TEnumArticulos) : IBizArticulo; overload;
+    function GetItems (IDCliente: Integer) : IBizArticulo; overload;
     function GetItem(const ID : Integer) : IBizArticulo;
     function NewItem : IBizArticulo;
     function DarListaProveedoresConArticulos(const IDEmpresa: Integer) : TStringList;    
diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
index 25372a9..d57cd2f 100644
--- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
+++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
@@ -3,22 +3,26 @@ unit schArticulosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_ProveedoresConArticulos = '{5C4B513D-A09F-4964-93E6-DD87A4AAA324}';
-  RID_Articulos_Proveedores = '{C23E90C0-7019-447D-ACD4-12687E51658B}';
-  RID_Articulos = '{730B578C-0743-43FF-87A3-1D580A528918}';
-  RID_ArticulosParaCompra = '{CF8E3694-1AA8-41E9-B4D8-0A3A002BDCB9}';
+  RID_ProveedoresConArticulos = '{0BB606FA-1CFB-47DC-A712-FACB3ABFDDC5}';
+  RID_Articulos_Proveedores = '{4411A1EA-4941-41EF-808B-18520989BF07}';
+  RID_Articulos_ParaVariosProveedores = '{E109AA7E-AC29-4F16-B29C-8C96E378E001}';
+  RID_ArticulosParaCompra = '{EF0E4414-E2EF-487E-866D-FAB3C9963281}';
+  RID_ArticulosParaCliente = '{021CF61C-CF96-4831-B59A-7EB1D5445E61}';
+  RID_Articulos = '{D83B7008-C443-4357-9458-6C71AB3AFBDC}';
 
   { Data table names }
   nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
   nme_Articulos_Proveedores = 'Articulos_Proveedores';
-  nme_Articulos = 'Articulos';
+  nme_Articulos_ParaVariosProveedores = 'Articulos_ParaVariosProveedores';
   nme_ArticulosParaCompra = 'ArticulosParaCompra';
+  nme_ArticulosParaCliente = 'ArticulosParaCliente';
+  nme_Articulos = 'Articulos';
 
   { ProveedoresConArticulos fields }
   fld_ProveedoresConArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
@@ -52,61 +56,63 @@ const
   idx_Articulos_ProveedoresPRECIO_PVP_VENTA = 8;
   idx_Articulos_ProveedoresPRECIO_PVP_TOTAL = 9;
 
-  { Articulos fields }
-  fld_ArticulosID = 'ID';
-  fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
-  fld_ArticulosREFERENCIA = 'REFERENCIA';
-  fld_ArticulosDESCRIPCION = 'DESCRIPCION';
-  fld_ArticulosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
-  fld_ArticulosFAMILIA = 'FAMILIA';
-  fld_ArticulosIMAGEN = 'IMAGEN';
-  fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
-  fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
-  fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
-  fld_ArticulosUSUARIO = 'USUARIO';
-  fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
-  fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
-  fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
-  fld_ArticulosDESCUENTO = 'DESCUENTO';
-  fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
-  fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
-  fld_ArticulosELIMINADO = 'ELIMINADO';
-  fld_ArticulosFABRICANTE = 'FABRICANTE';
-  fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
-  fld_ArticulosPARAM_MARGEN = 'PARAM_MARGEN';
-  fld_ArticulosPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
-  fld_ArticulosTIEMPO = 'TIEMPO';
-  fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
-  fld_ArticulosMANO_OBRA = 'MANO_OBRA';
-  fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
+  { Articulos_ParaVariosProveedores fields }
+  fld_Articulos_ParaVariosProveedoresID = 'ID';
+  fld_Articulos_ParaVariosProveedoresID_EMPRESA = 'ID_EMPRESA';
+  fld_Articulos_ParaVariosProveedoresREFERENCIA = 'REFERENCIA';
+  fld_Articulos_ParaVariosProveedoresDESCRIPCION = 'DESCRIPCION';
+  fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
+  fld_Articulos_ParaVariosProveedoresFAMILIA = 'FAMILIA';
+  fld_Articulos_ParaVariosProveedoresIMAGEN = 'IMAGEN';
+  fld_Articulos_ParaVariosProveedoresCOMISIONABLE = 'COMISIONABLE';
+  fld_Articulos_ParaVariosProveedoresFECHA_ALTA = 'FECHA_ALTA';
+  fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_Articulos_ParaVariosProveedoresUSUARIO = 'USUARIO';
+  fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV = 'REFERENCIA_PROV';
+  fld_Articulos_ParaVariosProveedoresPRECIO_COSTE = 'PRECIO_COSTE';
+  fld_Articulos_ParaVariosProveedoresPRECIO_PORTE = 'PRECIO_PORTE';
+  fld_Articulos_ParaVariosProveedoresDESCUENTO = 'DESCUENTO';
+  fld_Articulos_ParaVariosProveedoresPRECIO_NETO = 'PRECIO_NETO';
+  fld_Articulos_ParaVariosProveedoresINVENTARIABLE = 'INVENTARIABLE';
+  fld_Articulos_ParaVariosProveedoresELIMINADO = 'ELIMINADO';
+  fld_Articulos_ParaVariosProveedoresFABRICANTE = 'FABRICANTE';
+  fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR = 'REFERENCIA_FABR';
+  fld_Articulos_ParaVariosProveedoresTIENDA_WEB = 'TIENDA_WEB';
+  fld_Articulos_ParaVariosProveedoresPARAM_MARGEN = 'PARAM_MARGEN';
+  fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
+  fld_Articulos_ParaVariosProveedoresTIEMPO = 'TIEMPO';
+  fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO = 'PARAM_TIEMPO';
+  fld_Articulos_ParaVariosProveedoresMANO_OBRA = 'MANO_OBRA';
+  fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
 
-  { Articulos field indexes }
-  idx_ArticulosID = 0;
-  idx_ArticulosID_EMPRESA = 1;
-  idx_ArticulosREFERENCIA = 2;
-  idx_ArticulosDESCRIPCION = 3;
-  idx_ArticulosUNIDAD_MEDIDA = 4;
-  idx_ArticulosFAMILIA = 5;
-  idx_ArticulosIMAGEN = 6;
-  idx_ArticulosCOMISIONABLE = 7;
-  idx_ArticulosFECHA_ALTA = 8;
-  idx_ArticulosFECHA_MODIFICACION = 9;
-  idx_ArticulosUSUARIO = 10;
-  idx_ArticulosREFERENCIA_PROV = 11;
-  idx_ArticulosPRECIO_COSTE = 12;
-  idx_ArticulosPRECIO_PORTE = 13;
-  idx_ArticulosDESCUENTO = 14;
-  idx_ArticulosPRECIO_NETO = 15;
-  idx_ArticulosINVENTARIABLE = 16;
-  idx_ArticulosELIMINADO = 17;
-  idx_ArticulosFABRICANTE = 18;
-  idx_ArticulosREFERENCIA_FABR = 19;
-  idx_ArticulosPARAM_MARGEN = 20;
-  idx_ArticulosPRECIO_PVP_VENTA = 21;
-  idx_ArticulosTIEMPO = 22;
-  idx_ArticulosPARAM_TIEMPO = 23;
-  idx_ArticulosMANO_OBRA = 24;
-  idx_ArticulosPRECIO_PVP_TOTAL = 25;
+  { Articulos_ParaVariosProveedores field indexes }
+  idx_Articulos_ParaVariosProveedoresID = 0;
+  idx_Articulos_ParaVariosProveedoresID_EMPRESA = 1;
+  idx_Articulos_ParaVariosProveedoresREFERENCIA = 2;
+  idx_Articulos_ParaVariosProveedoresDESCRIPCION = 3;
+  idx_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA = 4;
+  idx_Articulos_ParaVariosProveedoresFAMILIA = 5;
+  idx_Articulos_ParaVariosProveedoresIMAGEN = 6;
+  idx_Articulos_ParaVariosProveedoresCOMISIONABLE = 7;
+  idx_Articulos_ParaVariosProveedoresFECHA_ALTA = 8;
+  idx_Articulos_ParaVariosProveedoresFECHA_MODIFICACION = 9;
+  idx_Articulos_ParaVariosProveedoresUSUARIO = 10;
+  idx_Articulos_ParaVariosProveedoresREFERENCIA_PROV = 11;
+  idx_Articulos_ParaVariosProveedoresPRECIO_COSTE = 12;
+  idx_Articulos_ParaVariosProveedoresPRECIO_PORTE = 13;
+  idx_Articulos_ParaVariosProveedoresDESCUENTO = 14;
+  idx_Articulos_ParaVariosProveedoresPRECIO_NETO = 15;
+  idx_Articulos_ParaVariosProveedoresINVENTARIABLE = 16;
+  idx_Articulos_ParaVariosProveedoresELIMINADO = 17;
+  idx_Articulos_ParaVariosProveedoresFABRICANTE = 18;
+  idx_Articulos_ParaVariosProveedoresREFERENCIA_FABR = 19;
+  idx_Articulos_ParaVariosProveedoresTIENDA_WEB = 20;
+  idx_Articulos_ParaVariosProveedoresPARAM_MARGEN = 21;
+  idx_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA = 22;
+  idx_Articulos_ParaVariosProveedoresTIEMPO = 23;
+  idx_Articulos_ParaVariosProveedoresPARAM_TIEMPO = 24;
+  idx_Articulos_ParaVariosProveedoresMANO_OBRA = 25;
+  idx_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL = 26;
 
   { ArticulosParaCompra fields }
   fld_ArticulosParaCompraID = 'ID';
@@ -170,10 +176,98 @@ const
   idx_ArticulosParaCompraPRECIO_PVP_TOTAL = 27;
   idx_ArticulosParaCompraID_ARTICULO = 28;
 
+  { ArticulosParaCliente fields }
+  fld_ArticulosParaClienteID = 'ID';
+  fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
+  fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
+  fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
+  fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
+  fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
+  fld_ArticulosParaClienteCOMISIONABLE = 'COMISIONABLE';
+  fld_ArticulosParaClienteFECHA_ALTA = 'FECHA_ALTA';
+  fld_ArticulosParaClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_ArticulosParaClienteUSUARIO = 'USUARIO';
+  fld_ArticulosParaClienteREFERENCIA_PROV = 'REFERENCIA_PROV';
+  fld_ArticulosParaClientePRECIO_COSTE = 'PRECIO_COSTE';
+  fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE';
+  fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO';
+  fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO';
+  fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
+  fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
+  fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
+  fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
+  fld_ArticulosParaClienteTIENDA_WEB = 'TIENDA_WEB';
+
+  { ArticulosParaCliente field indexes }
+  idx_ArticulosParaClienteID = 0;
+  idx_ArticulosParaClienteID_EMPRESA = 1;
+  idx_ArticulosParaClienteREFERENCIA = 2;
+  idx_ArticulosParaClienteDESCRIPCION = 3;
+  idx_ArticulosParaClienteFAMILIA = 4;
+  idx_ArticulosParaClienteIMAGEN = 5;
+  idx_ArticulosParaClienteCOMISIONABLE = 6;
+  idx_ArticulosParaClienteFECHA_ALTA = 7;
+  idx_ArticulosParaClienteFECHA_MODIFICACION = 8;
+  idx_ArticulosParaClienteUSUARIO = 9;
+  idx_ArticulosParaClienteREFERENCIA_PROV = 10;
+  idx_ArticulosParaClientePRECIO_COSTE = 11;
+  idx_ArticulosParaClientePRECIO_PORTE = 12;
+  idx_ArticulosParaClienteDESCUENTO = 13;
+  idx_ArticulosParaClientePRECIO_NETO = 14;
+  idx_ArticulosParaClienteINVENTARIABLE = 15;
+  idx_ArticulosParaClienteID_PROVEEDOR = 16;
+  idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17;
+  idx_ArticulosParaClienteELIMINADO = 18;
+  idx_ArticulosParaClienteTIENDA_WEB = 19;
+
+  { Articulos fields }
+  fld_ArticulosID = 'ID';
+  fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
+  fld_ArticulosREFERENCIA = 'REFERENCIA';
+  fld_ArticulosDESCRIPCION = 'DESCRIPCION';
+  fld_ArticulosFAMILIA = 'FAMILIA';
+  fld_ArticulosIMAGEN = 'IMAGEN';
+  fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
+  fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
+  fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_ArticulosUSUARIO = 'USUARIO';
+  fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV';
+  fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE';
+  fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
+  fld_ArticulosDESCUENTO = 'DESCUENTO';
+  fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
+  fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
+  fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
+  fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
+  fld_ArticulosELIMINADO = 'ELIMINADO';
+  fld_ArticulosTIENDA_WEB = 'TIENDA_WEB';
+
+  { Articulos field indexes }
+  idx_ArticulosID = 0;
+  idx_ArticulosID_EMPRESA = 1;
+  idx_ArticulosREFERENCIA = 2;
+  idx_ArticulosDESCRIPCION = 3;
+  idx_ArticulosFAMILIA = 4;
+  idx_ArticulosIMAGEN = 5;
+  idx_ArticulosCOMISIONABLE = 6;
+  idx_ArticulosFECHA_ALTA = 7;
+  idx_ArticulosFECHA_MODIFICACION = 8;
+  idx_ArticulosUSUARIO = 9;
+  idx_ArticulosREFERENCIA_PROV = 10;
+  idx_ArticulosPRECIO_COSTE = 11;
+  idx_ArticulosPRECIO_PORTE = 12;
+  idx_ArticulosDESCUENTO = 13;
+  idx_ArticulosPRECIO_NETO = 14;
+  idx_ArticulosINVENTARIABLE = 15;
+  idx_ArticulosID_PROVEEDOR = 16;
+  idx_ArticulosNOMBRE_PROVEEDOR = 17;
+  idx_ArticulosELIMINADO = 18;
+  idx_ArticulosTIENDA_WEB = 19;
+
 type
   { IProveedoresConArticulos }
   IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
-  ['{EE9B47ED-6CFF-405D-A2B1-027A58BF0562}']
+  ['{5A4C141A-D774-4996-9FFE-ED336B4BA5B3}']
     { Property getters and setters }
     function GetID_PROVEEDORValue: Integer;
     procedure SetID_PROVEEDORValue(const aValue: Integer);
@@ -220,7 +314,7 @@ type
 
   { IArticulos_Proveedores }
   IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
-  ['{202E2D67-E014-4CC6-8E1A-60E915C329A7}']
+  ['{207A4E73-3708-4C1F-9075-D0C64F754C70}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -361,9 +455,9 @@ type
 
   end;
 
-  { IArticulos }
-  IArticulos = interface(IDAStronglyTypedDataTable)
-  ['{92E42697-A92B-46A4-9A19-3214D8C788E6}']
+  { IArticulos_ParaVariosProveedores }
+  IArticulos_ParaVariosProveedores = interface(IDAStronglyTypedDataTable)
+  ['{1E88E36B-26F7-4F85-B9FC-EF7AD928DA83}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -444,6 +538,10 @@ type
     procedure SetREFERENCIA_FABRValue(const aValue: String);
     function GetREFERENCIA_FABRIsNull: Boolean;
     procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+    function GetTIENDA_WEBValue: String;
+    procedure SetTIENDA_WEBValue(const aValue: String);
+    function GetTIENDA_WEBIsNull: Boolean;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
     function GetPARAM_MARGENValue: Float;
     procedure SetPARAM_MARGENValue(const aValue: Float);
     function GetPARAM_MARGENIsNull: Boolean;
@@ -511,6 +609,8 @@ type
     property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
     property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
     property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+    property TIENDA_WEB: String read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
     property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
     property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
     property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
@@ -525,8 +625,8 @@ type
     property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
   end;
 
-  { TArticulosDataTableRules }
-  TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
+  { TArticulos_ParaVariosProveedoresDataTableRules }
+  TArticulos_ParaVariosProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IArticulos_ParaVariosProveedores)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: TObject);
@@ -611,6 +711,10 @@ type
     procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
     function GetREFERENCIA_FABRIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: String; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: String); virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
     function GetPARAM_MARGENValue: Float; virtual;
     procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
     function GetPARAM_MARGENIsNull: Boolean; virtual;
@@ -677,6 +781,8 @@ type
     property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
     property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
     property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+    property TIENDA_WEB: String read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
     property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
     property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
     property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
@@ -701,7 +807,7 @@ type
   }
   { IArticulosParaCompra }
   IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
-  ['{3D547837-FB04-4E59-AD87-C00D844EE481}']
+  ['{E628F912-DAD9-43C4-A1C6-23C0B0894DAC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1070,6 +1176,532 @@ type
 
   end;
 
+  { IArticulosParaCliente }
+  IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
+  ['{86AE95E8-0F31-4DCA-8B6B-4AE75C1E25FE}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetID_EMPRESAIsNull: Boolean;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetREFERENCIAIsNull: Boolean;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+    function GetFAMILIAValue: String;
+    procedure SetFAMILIAValue(const aValue: String);
+    function GetFAMILIAIsNull: Boolean;
+    procedure SetFAMILIAIsNull(const aValue: Boolean);
+    function GetIMAGENValue: IROStream;
+    function GetIMAGENIsNull: Boolean;
+    procedure SetIMAGENIsNull(const aValue: Boolean);
+    function GetCOMISIONABLEValue: SmallInt;
+    procedure SetCOMISIONABLEValue(const aValue: SmallInt);
+    function GetCOMISIONABLEIsNull: Boolean;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_ALTAIsNull: Boolean;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONIsNull: Boolean;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetUSUARIOIsNull: Boolean;
+    procedure SetUSUARIOIsNull(const aValue: Boolean);
+    function GetREFERENCIA_PROVValue: String;
+    procedure SetREFERENCIA_PROVValue(const aValue: String);
+    function GetREFERENCIA_PROVIsNull: Boolean;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+    function GetPRECIO_COSTEValue: Currency;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency);
+    function GetPRECIO_COSTEIsNull: Boolean;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
+    function GetPRECIO_PORTEValue: Currency;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency);
+    function GetPRECIO_PORTEIsNull: Boolean;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
+    function GetDESCUENTOValue: Float;
+    procedure SetDESCUENTOValue(const aValue: Float);
+    function GetDESCUENTOIsNull: Boolean;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean);
+    function GetPRECIO_NETOValue: Currency;
+    procedure SetPRECIO_NETOValue(const aValue: Currency);
+    function GetPRECIO_NETOIsNull: Boolean;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
+    function GetINVENTARIABLEValue: SmallInt;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt);
+    function GetINVENTARIABLEIsNull: Boolean;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
+    function GetID_PROVEEDORValue: Integer;
+    procedure SetID_PROVEEDORValue(const aValue: Integer);
+    function GetID_PROVEEDORIsNull: Boolean;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
+    function GetNOMBRE_PROVEEDORValue: String;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
+    function GetNOMBRE_PROVEEDORIsNull: Boolean;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+    function GetELIMINADOValue: SmallInt;
+    procedure SetELIMINADOValue(const aValue: SmallInt);
+    function GetELIMINADOIsNull: Boolean;
+    procedure SetELIMINADOIsNull(const aValue: Boolean);
+    function GetTIENDA_WEBValue: SmallInt;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt);
+    function GetTIENDA_WEBIsNull: Boolean;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property IMAGEN: IROStream read GetIMAGENValue;
+    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+  end;
+
+  { TArticulosParaClienteDataTableRules }
+  TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
+  private
+    f_IMAGEN: IROStream;
+    procedure IMAGEN_OnChange(Sender: TObject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFAMILIAValue: String; virtual;
+    procedure SetFAMILIAValue(const aValue: String); virtual;
+    function GetFAMILIAIsNull: Boolean; virtual;
+    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+    function GetIMAGENValue: IROStream; virtual;
+    function GetIMAGENIsNull: Boolean; virtual;
+    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
+    function GetCOMISIONABLEValue: SmallInt; virtual;
+    procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
+    function GetCOMISIONABLEIsNull: Boolean; virtual;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_COSTEValue: Currency; virtual;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
+    function GetPRECIO_COSTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_PORTEValue: Currency; virtual;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
+    function GetPRECIO_PORTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_NETOValue: Currency; virtual;
+    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
+    function GetPRECIO_NETOIsNull: Boolean; virtual;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
+    function GetINVENTARIABLEValue: SmallInt; virtual;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
+    function GetINVENTARIABLEIsNull: Boolean; virtual;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    function GetID_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetELIMINADOValue: SmallInt; virtual;
+    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
+    function GetELIMINADOIsNull: Boolean; virtual;
+    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property IMAGEN: IROStream read GetIMAGENValue;
+    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IArticulos }
+  IArticulos = interface(IDAStronglyTypedDataTable)
+  ['{4BC982D0-D8CB-432D-93D9-94ACA53AD0E0}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetID_EMPRESAIsNull: Boolean;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetREFERENCIAIsNull: Boolean;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+    function GetFAMILIAValue: String;
+    procedure SetFAMILIAValue(const aValue: String);
+    function GetFAMILIAIsNull: Boolean;
+    procedure SetFAMILIAIsNull(const aValue: Boolean);
+    function GetIMAGENValue: IROStream;
+    function GetIMAGENIsNull: Boolean;
+    procedure SetIMAGENIsNull(const aValue: Boolean);
+    function GetCOMISIONABLEValue: Integer;
+    procedure SetCOMISIONABLEValue(const aValue: Integer);
+    function GetCOMISIONABLEIsNull: Boolean;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_ALTAIsNull: Boolean;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONIsNull: Boolean;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetUSUARIOIsNull: Boolean;
+    procedure SetUSUARIOIsNull(const aValue: Boolean);
+    function GetREFERENCIA_PROVValue: String;
+    procedure SetREFERENCIA_PROVValue(const aValue: String);
+    function GetREFERENCIA_PROVIsNull: Boolean;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+    function GetPRECIO_COSTEValue: Currency;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency);
+    function GetPRECIO_COSTEIsNull: Boolean;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
+    function GetPRECIO_PORTEValue: Currency;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency);
+    function GetPRECIO_PORTEIsNull: Boolean;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
+    function GetDESCUENTOValue: Float;
+    procedure SetDESCUENTOValue(const aValue: Float);
+    function GetDESCUENTOIsNull: Boolean;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean);
+    function GetPRECIO_NETOValue: Currency;
+    procedure SetPRECIO_NETOValue(const aValue: Currency);
+    function GetPRECIO_NETOIsNull: Boolean;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
+    function GetINVENTARIABLEValue: SmallInt;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt);
+    function GetINVENTARIABLEIsNull: Boolean;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
+    function GetID_PROVEEDORValue: Integer;
+    procedure SetID_PROVEEDORValue(const aValue: Integer);
+    function GetID_PROVEEDORIsNull: Boolean;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
+    function GetNOMBRE_PROVEEDORValue: String;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
+    function GetNOMBRE_PROVEEDORIsNull: Boolean;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+    function GetELIMINADOValue: SmallInt;
+    procedure SetELIMINADOValue(const aValue: SmallInt);
+    function GetELIMINADOIsNull: Boolean;
+    procedure SetELIMINADOIsNull(const aValue: Boolean);
+    function GetTIENDA_WEBValue: SmallInt;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt);
+    function GetTIENDA_WEBIsNull: Boolean;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property IMAGEN: IROStream read GetIMAGENValue;
+    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+  end;
+
+  { TArticulosDataTableRules }
+  TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
+  private
+    f_IMAGEN: IROStream;
+    procedure IMAGEN_OnChange(Sender: TObject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFAMILIAValue: String; virtual;
+    procedure SetFAMILIAValue(const aValue: String); virtual;
+    function GetFAMILIAIsNull: Boolean; virtual;
+    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+    function GetIMAGENValue: IROStream; virtual;
+    function GetIMAGENIsNull: Boolean; virtual;
+    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
+    function GetCOMISIONABLEValue: Integer; virtual;
+    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
+    function GetCOMISIONABLEIsNull: Boolean; virtual;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_COSTEValue: Currency; virtual;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
+    function GetPRECIO_COSTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_PORTEValue: Currency; virtual;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
+    function GetPRECIO_PORTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_NETOValue: Currency; virtual;
+    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
+    function GetPRECIO_NETOIsNull: Boolean; virtual;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
+    function GetINVENTARIABLEValue: SmallInt; virtual;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
+    function GetINVENTARIABLEIsNull: Boolean; virtual;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    function GetID_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetELIMINADOValue: SmallInt; virtual;
+    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
+    function GetELIMINADOIsNull: Boolean; virtual;
+    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property IMAGEN: IROStream read GetIMAGENValue;
+    property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses Variants, uROBinaryHelpers;
@@ -1350,8 +1982,8 @@ begin
 end;
 
 
-{ TArticulosDataTableRules }
-constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
+{ TArticulos_ParaVariosProveedoresDataTableRules }
+constructor TArticulos_ParaVariosProveedoresDataTableRules.Create(aDataTable: TDADataTable);
 var
   ROStream: TROStream;
 begin
@@ -1362,560 +1994,581 @@ begin
   f_IMAGEN := ROStream;
 end;
 
-destructor TArticulosDataTableRules.Destroy;
+destructor TArticulos_ParaVariosProveedoresDataTableRules.Destroy;
 begin
   inherited;
 end;
 
-procedure TArticulosDataTableRules.IMAGEN_OnChange(Sender: TObject);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.IMAGEN_OnChange(Sender: TObject);
 begin
-  if DataTable.Editing then DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(TROStream(Sender));
+  if DataTable.Editing then DataTable.Fields[idx_Articulos_ParaVariosProveedoresIMAGEN].LoadFromStream(TROStream(Sender));
 end;
 
-function TArticulosDataTableRules.GetIDValue: Integer;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetIDValue: Integer;
 begin
-  result := DataTable.Fields[idx_ArticulosID].AsInteger;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresID].AsInteger;
 end;
 
-procedure TArticulosDataTableRules.SetIDValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetIDValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_ArticulosID].AsInteger := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresID].AsInteger := aValue;
 end;
 
-function TArticulosDataTableRules.GetIDIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetIDIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosID].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresID].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetIDIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetIDIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosID].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresID].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetID_EMPRESAValue: Integer;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetID_EMPRESAValue: Integer;
 begin
-  result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresID_EMPRESA].AsInteger;
 end;
 
-procedure TArticulosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresID_EMPRESA].AsInteger := aValue;
 end;
 
-function TArticulosDataTableRules.GetID_EMPRESAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetID_EMPRESAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosID_EMPRESA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresID_EMPRESA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosID_EMPRESA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresID_EMPRESA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIAValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIAValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIAValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosREFERENCIA].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosREFERENCIA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetDESCRIPCIONValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetDESCRIPCIONValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosDESCRIPCION].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCRIPCION].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetDESCRIPCIONValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosDESCRIPCION].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCRIPCION].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetDESCRIPCIONIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosDESCRIPCION].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCRIPCION].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCRIPCION].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetUNIDAD_MEDIDAValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetUNIDAD_MEDIDAValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetFAMILIAValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFAMILIAValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosFAMILIA].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFAMILIA].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFAMILIAValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresFAMILIA].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetFAMILIAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFAMILIAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosFAMILIA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFAMILIA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosFAMILIA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresFAMILIA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetIMAGENValue: IROStream;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetIMAGENValue: IROStream;
 begin
   result := f_IMAGEN;
   result.Position := 0;
   if not Result.InUpdateMode then begin
-    DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresIMAGEN].SaveToStream(result);
     result.Position := 0;
   end;
 end;
 
-function TArticulosDataTableRules.GetIMAGENIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetIMAGENIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosIMAGEN].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresIMAGEN].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosIMAGEN].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresIMAGEN].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetCOMISIONABLEValue: Integer;
 begin
-  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresCOMISIONABLE].AsInteger;
 end;
 
-procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresCOMISIONABLE].AsInteger := aValue;
 end;
 
-function TArticulosDataTableRules.GetCOMISIONABLEIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetCOMISIONABLEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresCOMISIONABLE].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosCOMISIONABLE].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresCOMISIONABLE].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFECHA_ALTAValue: DateTime;
 begin
-  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_ALTA].AsDateTime;
 end;
 
-procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_ALTA].AsDateTime := aValue;
 end;
 
-function TArticulosDataTableRules.GetFECHA_ALTAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFECHA_ALTAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_ALTA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosFECHA_ALTA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_ALTA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
 begin
-  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_MODIFICACION].AsDateTime;
 end;
 
-procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_MODIFICACION].AsDateTime := aValue;
 end;
 
-function TArticulosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_MODIFICACION].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresFECHA_MODIFICACION].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetUSUARIOValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetUSUARIOValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosUSUARIO].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresUSUARIO].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetUSUARIOValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetUSUARIOValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosUSUARIO].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresUSUARIO].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetUSUARIOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetUSUARIOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosUSUARIO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresUSUARIO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosUSUARIO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresUSUARIO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIA_PROVValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIA_PROVValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_PROV].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_PROV].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_PROV].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_PROV].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_COSTEValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_COSTEValue: Currency;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_COSTE].AsCurrency;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_COSTE].AsCurrency := aValue;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_COSTEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_COSTE].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_COSTE].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PORTEValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PORTEValue: Currency;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PORTE].AsCurrency;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PORTE].AsCurrency := aValue;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PORTEIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PORTEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PORTE].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PORTE].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetDESCUENTOValue: Float;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetDESCUENTOValue: Float;
 begin
-  result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCUENTO].AsFloat;
 end;
 
-procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetDESCUENTOValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCUENTO].AsFloat := aValue;
 end;
 
-function TArticulosDataTableRules.GetDESCUENTOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetDESCUENTOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosDESCUENTO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCUENTO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosDESCUENTO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresDESCUENTO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_NETOValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_NETOValue: Currency;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_NETO].AsCurrency;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_NETO].AsCurrency := aValue;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_NETOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_NETO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_NETO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetINVENTARIABLEValue: SmallInt;
 begin
-  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresINVENTARIABLE].AsSmallInt;
 end;
 
-procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
 begin
-  DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresINVENTARIABLE].AsSmallInt := aValue;
 end;
 
-function TArticulosDataTableRules.GetINVENTARIABLEIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetINVENTARIABLEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresINVENTARIABLE].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosINVENTARIABLE].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresINVENTARIABLE].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetELIMINADOValue: SmallInt;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetELIMINADOValue: SmallInt;
 begin
-  result := DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresELIMINADO].AsSmallInt;
 end;
 
-procedure TArticulosDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
 begin
-  DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresELIMINADO].AsSmallInt := aValue;
 end;
 
-function TArticulosDataTableRules.GetELIMINADOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetELIMINADOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosELIMINADO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresELIMINADO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresELIMINADO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetFABRICANTEValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFABRICANTEValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosFABRICANTE].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFABRICANTE].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetFABRICANTEValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFABRICANTEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosFABRICANTE].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresFABRICANTE].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetFABRICANTEIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetFABRICANTEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosFABRICANTE].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresFABRICANTE].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresFABRICANTE].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIA_FABRValue: String;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIA_FABRValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_FABR].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_FABR].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_FABR].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresREFERENCIA_FABR].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPARAM_MARGENValue: Float;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetTIENDA_WEBValue: String;
 begin
-  result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsFloat;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIENDA_WEB].AsString;
 end;
 
-procedure TArticulosDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetTIENDA_WEBValue(const aValue: String);
 begin
-  DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsFloat := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIENDA_WEB].AsString := aValue;
 end;
 
-function TArticulosDataTableRules.GetPARAM_MARGENIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetTIENDA_WEBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIENDA_WEB].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIENDA_WEB].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPARAM_MARGENValue: Float;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_MARGEN].AsFloat;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_MARGEN].AsFloat := aValue;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPARAM_MARGENIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_MARGEN].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_MARGEN].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetTIEMPOValue: Integer;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
 begin
-  result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA].AsCurrency;
 end;
 
-procedure TArticulosDataTableRules.SetTIEMPOValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_ArticulosTIEMPO].AsInteger := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA].AsCurrency := aValue;
 end;
 
-function TArticulosDataTableRules.GetTIEMPOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosTIEMPO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosTIEMPO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPARAM_TIEMPOValue: Float;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetTIEMPOValue: Integer;
 begin
-  result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIEMPO].AsInteger;
 end;
 
-procedure TArticulosDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetTIEMPOValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsFloat := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIEMPO].AsInteger := aValue;
 end;
 
-function TArticulosDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetTIEMPOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPARAM_TIEMPO].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIEMPO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetTIEMPOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPARAM_TIEMPO].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresTIEMPO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetMANO_OBRAValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPARAM_TIEMPOValue: Float;
 begin
-  result := DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_TIEMPO].AsFloat;
 end;
 
-procedure TArticulosDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_ArticulosMANO_OBRA].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_TIEMPO].AsFloat := aValue;
 end;
 
-function TArticulosDataTableRules.GetMANO_OBRAIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosMANO_OBRA].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_TIEMPO].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPARAM_TIEMPO].AsVariant := Null;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetMANO_OBRAValue: Currency;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresMANO_OBRA].AsCurrency;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetMANO_OBRAValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency := aValue;
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresMANO_OBRA].AsCurrency := aValue;
 end;
 
-function TArticulosDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
+function TArticulos_ParaVariosProveedoresDataTableRules.GetMANO_OBRAIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].IsNull;
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresMANO_OBRA].IsNull;
 end;
 
-procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetMANO_OBRAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresMANO_OBRA].AsVariant := Null;
+end;
+
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
+begin
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL].AsCurrency;
+end;
+
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL].AsCurrency := aValue;
+end;
+
+function TArticulos_ParaVariosProveedoresDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL].IsNull;
+end;
+
+procedure TArticulos_ParaVariosProveedoresDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL].AsVariant := Null;
 end;
 
 
@@ -2551,10 +3204,898 @@ begin
 end;
 
 
+{ TArticulosParaClienteDataTableRules }
+constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
+var
+  ROStream: TROStream;
+begin
+  inherited;
+
+  ROStream := TROStream.Create;
+  ROStream.OnChange := IMAGEN_OnChange;
+  f_IMAGEN := ROStream;
+end;
+
+destructor TArticulosParaClienteDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TArticulosParaClienteDataTableRules.IMAGEN_OnChange(Sender: TObject);
+begin
+  if DataTable.Editing then DataTable.Fields[idx_ArticulosParaClienteIMAGEN].LoadFromStream(TROStream(Sender));
+end;
+
+function TArticulosParaClienteDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID].AsInteger;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteID].AsInteger := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteID].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFAMILIAValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFAMILIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFAMILIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetIMAGENValue: IROStream;
+begin
+  result := f_IMAGEN;
+  result.Position := 0;
+  if not Result.InUpdateMode then begin
+    DataTable.Fields[idx_ArticulosParaClienteIMAGEN].SaveToStream(result);
+    result.Position := 0;
+  end;
+end;
+
+function TArticulosParaClienteDataTableRules.GetIMAGENIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteIMAGEN].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetDESCUENTOValue: Float;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetID_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetELIMINADOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsSmallInt;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsSmallInt := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetTIENDA_WEBIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsVariant := Null;
+end;
+
+
+{ TArticulosDataTableRules }
+constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
+var
+  ROStream: TROStream;
+begin
+  inherited;
+
+  ROStream := TROStream.Create;
+  ROStream.OnChange := IMAGEN_OnChange;
+  f_IMAGEN := ROStream;
+end;
+
+destructor TArticulosDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TArticulosDataTableRules.IMAGEN_OnChange(Sender: TObject);
+begin
+  if DataTable.Editing then DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(TROStream(Sender));
+end;
+
+function TArticulosDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosID].AsInteger;
+end;
+
+procedure TArticulosDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosID].AsInteger := aValue;
+end;
+
+function TArticulosDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosID].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosID].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger;
+end;
+
+procedure TArticulosDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger := aValue;
+end;
+
+function TArticulosDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosID_EMPRESA].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosID_EMPRESA].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosREFERENCIA].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosREFERENCIA].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosREFERENCIA].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosDESCRIPCION].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosDESCRIPCION].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosDESCRIPCION].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetFAMILIAValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosFAMILIA].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetFAMILIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosFAMILIA].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosFAMILIA].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetIMAGENValue: IROStream;
+begin
+  result := f_IMAGEN;
+  result.Position := 0;
+  if not Result.InUpdateMode then begin
+    DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
+    result.Position := 0;
+  end;
+end;
+
+function TArticulosDataTableRules.GetIMAGENIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosIMAGEN].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosIMAGEN].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
+end;
+
+procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue;
+end;
+
+function TArticulosDataTableRules.GetCOMISIONABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosCOMISIONABLE].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosCOMISIONABLE].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime;
+end;
+
+procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TArticulosDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosFECHA_ALTA].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosFECHA_ALTA].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TArticulosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosUSUARIO].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosUSUARIO].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosUSUARIO].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosUSUARIO].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetREFERENCIA_PROVValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_COSTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency := aValue;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_PORTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency := aValue;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_PORTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetDESCUENTOValue: Float;
+begin
+  result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat;
+end;
+
+procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue;
+end;
+
+function TArticulosDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosDESCUENTO].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosDESCUENTO].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_NETOValue: Currency;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency := aValue;
+end;
+
+function TArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosPRECIO_NETO].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;
+end;
+
+procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt := aValue;
+end;
+
+function TArticulosDataTableRules.GetINVENTARIABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosINVENTARIABLE].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosINVENTARIABLE].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger;
+end;
+
+procedure TArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger := aValue;
+end;
+
+function TArticulosDataTableRules.GetID_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString;
+end;
+
+procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString := aValue;
+end;
+
+function TArticulosDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetELIMINADOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt;
+end;
+
+procedure TArticulosDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt := aValue;
+end;
+
+function TArticulosDataTableRules.GetELIMINADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosELIMINADO].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null;
+end;
+
+function TArticulosDataTableRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ArticulosTIENDA_WEB].AsSmallInt;
+end;
+
+procedure TArticulosDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ArticulosTIENDA_WEB].AsSmallInt := aValue;
+end;
+
+function TArticulosDataTableRules.GetTIENDA_WEBIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosTIENDA_WEB].IsNull;
+end;
+
+procedure TArticulosDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosTIENDA_WEB].AsVariant := Null;
+end;
+
+
 initialization
   RegisterDataTableRules(RID_ProveedoresConArticulos, TProveedoresConArticulosDataTableRules);
   RegisterDataTableRules(RID_Articulos_Proveedores, TArticulos_ProveedoresDataTableRules);
-  RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
+  RegisterDataTableRules(RID_Articulos_ParaVariosProveedores, TArticulos_ParaVariosProveedoresDataTableRules);
   RegisterDataTableRules(RID_ArticulosParaCompra, TArticulosParaCompraDataTableRules);
+  RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);
+  RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
 
 end.
diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
index 4ded5e4..12292f2 100644
--- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
+++ b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
@@ -9,15 +9,17 @@ 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_ProveedoresConArticulosDelta = '{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}';
-  RID_Articulos_ProveedoresDelta = '{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}';
-  RID_ArticulosDelta = '{132D6F55-09CD-4018-A2CB-1D2552713417}';
-  RID_ArticulosParaCompraDelta = '{F30257BA-3AC6-486E-B33C-0F429FBA0D62}';
+  RID_ProveedoresConArticulosDelta = '{514BF6C2-40C2-4436-90D0-46F31B5739D8}';
+  RID_Articulos_ProveedoresDelta = '{95043872-969F-4136-8DCB-585FD443928A}';
+  RID_Articulos_ParaVariosProveedoresDelta = '{4E4C09FC-CAFE-4C47-BA36-7F6E28831C6D}';
+  RID_ArticulosParaCompraDelta = '{9EE3A427-D46B-4AD6-BC4B-DB8A527E3A8D}';
+  RID_ArticulosParaClienteDelta = '{1F560050-5CDE-4D40-999E-CD725B1B9EAB}';
+  RID_ArticulosDelta = '{3DC3C09F-4821-4C60-8CD2-F162605FF93C}';
 
 type
   { IProveedoresConArticulosDelta }
   IProveedoresConArticulosDelta = interface(IProveedoresConArticulos)
-  ['{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}']
+  ['{514BF6C2-40C2-4436-90D0-46F31B5739D8}']
     { Property getters and setters }
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBREValue : String;
@@ -63,7 +65,7 @@ type
 
   { IArticulos_ProveedoresDelta }
   IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
-  ['{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}']
+  ['{95043872-969F-4136-8DCB-585FD443928A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ARTICULOValue : Integer;
@@ -203,9 +205,9 @@ type
 
   end;
 
-  { IArticulosDelta }
-  IArticulosDelta = interface(IArticulos)
-  ['{132D6F55-09CD-4018-A2CB-1D2552713417}']
+  { IArticulos_ParaVariosProveedoresDelta }
+  IArticulos_ParaVariosProveedoresDelta = interface(IArticulos_ParaVariosProveedores)
+  ['{4E4C09FC-CAFE-4C47-BA36-7F6E28831C6D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -227,6 +229,7 @@ type
     function GetOldELIMINADOValue : SmallInt;
     function GetOldFABRICANTEValue : String;
     function GetOldREFERENCIA_FABRValue : String;
+    function GetOldTIENDA_WEBValue : String;
     function GetOldPARAM_MARGENValue : Float;
     function GetOldPRECIO_PVP_VENTAValue : Currency;
     function GetOldTIEMPOValue : Integer;
@@ -255,6 +258,7 @@ type
     property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
     property OldFABRICANTE : String read GetOldFABRICANTEValue;
     property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
+    property OldTIENDA_WEB : String read GetOldTIENDA_WEBValue;
     property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
     property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
     property OldTIEMPO : Integer read GetOldTIEMPOValue;
@@ -263,8 +267,8 @@ type
     property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
   end;
 
-  { TArticulosBusinessProcessorRules }
-  TArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos, IArticulosDelta)
+  { TArticulos_ParaVariosProveedoresBusinessProcessorRules }
+  TArticulos_ParaVariosProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos_ParaVariosProveedores, IArticulos_ParaVariosProveedoresDelta)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: Tobject);
@@ -389,6 +393,12 @@ type
     function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
     procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: String; virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    function GetOldTIENDA_WEBValue: String; virtual;
+    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: String); virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
     function GetPARAM_MARGENValue: Float; virtual;
     function GetPARAM_MARGENIsNull: Boolean; virtual;
     function GetOldPARAM_MARGENValue: Float; virtual;
@@ -507,6 +517,10 @@ type
     property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
     property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
     property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
+    property TIENDA_WEB : String read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property OldTIENDA_WEB : String read GetOldTIENDA_WEBValue;
+    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
     property PARAM_MARGEN : Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
     property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
     property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
@@ -540,7 +554,7 @@ type
 
   { IArticulosParaCompraDelta }
   IArticulosParaCompraDelta = interface(IArticulosParaCompra)
-  ['{F30257BA-3AC6-486E-B33C-0F429FBA0D62}']
+  ['{9EE3A427-D46B-4AD6-BC4B-DB8A527E3A8D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -909,6 +923,532 @@ type
 
   end;
 
+  { IArticulosParaClienteDelta }
+  IArticulosParaClienteDelta = interface(IArticulosParaCliente)
+  ['{1F560050-5CDE-4D40-999E-CD725B1B9EAB}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_EMPRESAValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldFAMILIAValue : String;
+    function GetOldIMAGENValue : IROStream;
+    function GetOldCOMISIONABLEValue : SmallInt;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldUSUARIOValue : String;
+    function GetOldREFERENCIA_PROVValue : String;
+    function GetOldPRECIO_COSTEValue : Currency;
+    function GetOldPRECIO_PORTEValue : Currency;
+    function GetOldDESCUENTOValue : Float;
+    function GetOldPRECIO_NETOValue : Currency;
+    function GetOldINVENTARIABLEValue : SmallInt;
+    function GetOldID_PROVEEDORValue : Integer;
+    function GetOldNOMBRE_PROVEEDORValue : String;
+    function GetOldELIMINADOValue : SmallInt;
+    function GetOldTIENDA_WEBValue : SmallInt;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldFAMILIA : String read GetOldFAMILIAValue;
+    property OldIMAGEN : IROStream read GetOldIMAGENValue;
+    property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
+    property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
+    property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+  end;
+
+  { TArticulosParaClienteBusinessProcessorRules }
+  TArticulosParaClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCliente, IArticulosParaClienteDelta)
+  private
+    f_IMAGEN: IROStream;
+    procedure IMAGEN_OnChange(Sender: Tobject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFAMILIAValue: String; virtual;
+    function GetFAMILIAIsNull: Boolean; virtual;
+    function GetOldFAMILIAValue: String; virtual;
+    function GetOldFAMILIAIsNull: Boolean; virtual;
+    procedure SetFAMILIAValue(const aValue: String); virtual;
+    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+    function GetIMAGENValue: IROStream; virtual;
+    function GetIMAGENIsNull: Boolean; virtual;
+    function GetOldIMAGENValue: IROStream; virtual;
+    function GetOldIMAGENIsNull: Boolean; virtual;
+    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
+    function GetCOMISIONABLEValue: SmallInt; virtual;
+    function GetCOMISIONABLEIsNull: Boolean; virtual;
+    function GetOldCOMISIONABLEValue: SmallInt; virtual;
+    function GetOldCOMISIONABLEIsNull: Boolean; virtual;
+    procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    function GetOldUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVValue: String; virtual;
+    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_PROVValue: String; virtual;
+    function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_COSTEValue: Currency; virtual;
+    function GetPRECIO_COSTEIsNull: Boolean; virtual;
+    function GetOldPRECIO_COSTEValue: Currency; virtual;
+    function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_PORTEValue: Currency; virtual;
+    function GetPRECIO_PORTEIsNull: Boolean; virtual;
+    function GetOldPRECIO_PORTEValue: Currency; virtual;
+    function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    function GetOldDESCUENTOValue: Float; virtual;
+    function GetOldDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_NETOValue: Currency; virtual;
+    function GetPRECIO_NETOIsNull: Boolean; virtual;
+    function GetOldPRECIO_NETOValue: Currency; virtual;
+    function GetOldPRECIO_NETOIsNull: Boolean; virtual;
+    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
+    function GetINVENTARIABLEValue: SmallInt; virtual;
+    function GetINVENTARIABLEIsNull: Boolean; virtual;
+    function GetOldINVENTARIABLEValue: SmallInt; virtual;
+    function GetOldINVENTARIABLEIsNull: Boolean; virtual;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    function GetID_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldID_PROVEEDORValue: Integer; virtual;
+    function GetOldID_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldNOMBRE_PROVEEDORValue: String; virtual;
+    function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetELIMINADOValue: SmallInt; virtual;
+    function GetELIMINADOIsNull: Boolean; virtual;
+    function GetOldELIMINADOValue: SmallInt; virtual;
+    function GetOldELIMINADOIsNull: Boolean; virtual;
+    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
+    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    function GetOldTIENDA_WEBValue: SmallInt; virtual;
+    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property OldFAMILIA : String read GetOldFAMILIAValue;
+    property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
+    property IMAGEN : IROStream read GetIMAGENValue;
+    property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property OldIMAGEN : IROStream read GetOldIMAGENValue;
+    property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
+    property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
+    property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
+    property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
+    property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
+    property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
+    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+    property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
+    property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
+    property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
+    property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
+    property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
+    property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IArticulosDelta }
+  IArticulosDelta = interface(IArticulos)
+  ['{3DC3C09F-4821-4C60-8CD2-F162605FF93C}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_EMPRESAValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldFAMILIAValue : String;
+    function GetOldIMAGENValue : IROStream;
+    function GetOldCOMISIONABLEValue : Integer;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldUSUARIOValue : String;
+    function GetOldREFERENCIA_PROVValue : String;
+    function GetOldPRECIO_COSTEValue : Currency;
+    function GetOldPRECIO_PORTEValue : Currency;
+    function GetOldDESCUENTOValue : Float;
+    function GetOldPRECIO_NETOValue : Currency;
+    function GetOldINVENTARIABLEValue : SmallInt;
+    function GetOldID_PROVEEDORValue : Integer;
+    function GetOldNOMBRE_PROVEEDORValue : String;
+    function GetOldELIMINADOValue : SmallInt;
+    function GetOldTIENDA_WEBValue : SmallInt;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldFAMILIA : String read GetOldFAMILIAValue;
+    property OldIMAGEN : IROStream read GetOldIMAGENValue;
+    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
+    property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
+    property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+  end;
+
+  { TArticulosBusinessProcessorRules }
+  TArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos, IArticulosDelta)
+  private
+    f_IMAGEN: IROStream;
+    procedure IMAGEN_OnChange(Sender: Tobject);
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetFAMILIAValue: String; virtual;
+    function GetFAMILIAIsNull: Boolean; virtual;
+    function GetOldFAMILIAValue: String; virtual;
+    function GetOldFAMILIAIsNull: Boolean; virtual;
+    procedure SetFAMILIAValue(const aValue: String); virtual;
+    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+    function GetIMAGENValue: IROStream; virtual;
+    function GetIMAGENIsNull: Boolean; virtual;
+    function GetOldIMAGENValue: IROStream; virtual;
+    function GetOldIMAGENIsNull: Boolean; virtual;
+    procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
+    function GetCOMISIONABLEValue: Integer; virtual;
+    function GetCOMISIONABLEIsNull: Boolean; virtual;
+    function GetOldCOMISIONABLEValue: Integer; virtual;
+    function GetOldCOMISIONABLEIsNull: Boolean; virtual;
+    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
+    procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    function GetOldUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVValue: String; virtual;
+    function GetREFERENCIA_PROVIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_PROVValue: String; virtual;
+    function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_COSTEValue: Currency; virtual;
+    function GetPRECIO_COSTEIsNull: Boolean; virtual;
+    function GetOldPRECIO_COSTEValue: Currency; virtual;
+    function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_PORTEValue: Currency; virtual;
+    function GetPRECIO_PORTEIsNull: Boolean; virtual;
+    function GetOldPRECIO_PORTEValue: Currency; virtual;
+    function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
+    procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetDESCUENTOValue: Float; virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
+    function GetOldDESCUENTOValue: Float; virtual;
+    function GetOldDESCUENTOIsNull: Boolean; virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetPRECIO_NETOValue: Currency; virtual;
+    function GetPRECIO_NETOIsNull: Boolean; virtual;
+    function GetOldPRECIO_NETOValue: Currency; virtual;
+    function GetOldPRECIO_NETOIsNull: Boolean; virtual;
+    procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
+    procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
+    function GetINVENTARIABLEValue: SmallInt; virtual;
+    function GetINVENTARIABLEIsNull: Boolean; virtual;
+    function GetOldINVENTARIABLEValue: SmallInt; virtual;
+    function GetOldINVENTARIABLEIsNull: Boolean; virtual;
+    procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
+    procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
+    function GetID_PROVEEDORValue: Integer; virtual;
+    function GetID_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldID_PROVEEDORValue: Integer; virtual;
+    function GetOldID_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+    procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_PROVEEDORValue: String; virtual;
+    function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldNOMBRE_PROVEEDORValue: String; virtual;
+    function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetELIMINADOValue: SmallInt; virtual;
+    function GetELIMINADOIsNull: Boolean; virtual;
+    function GetOldELIMINADOValue: SmallInt; virtual;
+    function GetOldELIMINADOIsNull: Boolean; virtual;
+    procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
+    procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetTIENDA_WEBValue: SmallInt; virtual;
+    function GetTIENDA_WEBIsNull: Boolean; virtual;
+    function GetOldTIENDA_WEBValue: SmallInt; virtual;
+    function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+    procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+    procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
+    property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+    property OldFAMILIA : String read GetOldFAMILIAValue;
+    property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
+    property IMAGEN : IROStream read GetIMAGENValue;
+    property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
+    property OldIMAGEN : IROStream read GetOldIMAGENValue;
+    property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
+    property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
+    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
+    property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+    property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
+    property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
+    property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
+    property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
+    property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
+    property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
+    property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
+    property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
+    property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
+    property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
+    property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
+    property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
+    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+    property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
+    property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
+    property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
+    property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
+    property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
+    property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
+    property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
+    property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
+    property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+    property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+    property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+    property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
+    property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
+    property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
+    property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
+    property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
+    property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+    property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+    property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+    property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses
@@ -1310,8 +1850,8 @@ begin
 end;
 
 
-{ TArticulosBusinessProcessorRules }
-constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+{ TArticulos_ParaVariosProveedoresBusinessProcessorRules }
+constructor TArticulos_ParaVariosProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 var
   ROStream: TROStream;
 begin
@@ -1322,821 +1862,852 @@ begin
   f_IMAGEN := ROStream;
 end;
 
-destructor TArticulosBusinessProcessorRules.Destroy;
+destructor TArticulos_ParaVariosProveedoresBusinessProcessorRules.Destroy;
 begin
   inherited;
 end;
 
-procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
 end;
 
-function TArticulosBusinessProcessorRules.GetIDValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID];
 end;
 
-function TArticulosBusinessProcessorRules.GetIDIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldIDValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresID];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresID]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA];
 end;
 
-function TArticulosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresID_EMPRESA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA];
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION];
 end;
 
-function TArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCRIPCION] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA];
 end;
 
-function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUNIDAD_MEDIDA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetFAMILIAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFAMILIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA];
 end;
 
-function TArticulosBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFAMILIAValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFAMILIAValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFAMILIA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetIMAGENValue: IROStream;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetIMAGENValue: IROStream;
 begin
   result := f_IMAGEN;
   result.Position := 0;
   if not Result.InUpdateMode then begin
-    WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
+    BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN], result.Stream);
     result.Position := 0;
   end;
 end;
 
-function TArticulosBusinessProcessorRules.GetIMAGENIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetIMAGENIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldIMAGENValue: IROStream;
 begin
   result := NewROStream();
-  WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
+  BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN], result.Stream);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresIMAGEN] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE];
 end;
 
-function TArticulosBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresCOMISIONABLE] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA];
 end;
 
-function TArticulosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_ALTA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION];
 end;
 
-function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFECHA_MODIFICACION] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetUSUARIOValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO];
 end;
 
-function TArticulosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldUSUARIOValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresUSUARIO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV];
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_PROV] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_COSTE] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PORTE] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetDESCUENTOValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO];
 end;
 
-function TArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresDESCUENTO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO];
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_NETO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE];
 end;
 
-function TArticulosBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresINVENTARIABLE] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetELIMINADOValue: SmallInt;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetELIMINADOValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO];
 end;
 
-function TArticulosBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresELIMINADO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetFABRICANTEValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFABRICANTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFABRICANTEValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFABRICANTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresFABRICANTE] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR];
 end;
 
-function TArticulosBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FABR];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FABR]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresREFERENCIA_FABR] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPARAM_MARGENValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB];
 end;
 
-function TArticulosBusinessProcessorRules.GetPARAM_MARGENIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_MARGEN];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPARAM_MARGENIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_MARGEN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIENDA_WEB] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPARAM_MARGENValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN];
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPARAM_MARGENIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_VENTA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPARAM_MARGENIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_VENTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_MARGEN] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetTIEMPOValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA];
 end;
 
-function TArticulosBusinessProcessorRules.GetTIEMPOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldTIEMPOValue: Integer;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIEMPO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldTIEMPOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIEMPO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetTIEMPOValue(const aValue: Integer);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetTIEMPOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_VENTA] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPARAM_TIEMPOValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetTIEMPOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO];
 end;
 
-function TArticulosBusinessProcessorRules.GetPARAM_TIEMPOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetTIEMPOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Float;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldTIEMPOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_TIEMPO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPARAM_TIEMPOIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldTIEMPOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_TIEMPO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Float);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetTIEMPOValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetTIEMPOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_TIEMPO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresTIEMPO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetMANO_OBRAValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPARAM_TIEMPOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO];
 end;
 
-function TArticulosBusinessProcessorRules.GetMANO_OBRAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPARAM_TIEMPOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldMANO_OBRAValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosMANO_OBRA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldMANO_OBRAIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPARAM_TIEMPOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosMANO_OBRA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetMANO_OBRAValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Float);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetMANO_OBRAIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPARAM_TIEMPO] := Null;
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetMANO_OBRAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA];
 end;
 
-function TArticulosBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetMANO_OBRAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA]);
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldMANO_OBRAValue: Currency;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_TOTAL];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA];
 end;
 
-function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldMANO_OBRAIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_TOTAL]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA]);
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetMANO_OBRAValue(const aValue: Currency);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA] := aValue;
 end;
 
-procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetMANO_OBRAIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresMANO_OBRA] := Null;
+end;
+
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL];
+end;
+
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL]);
+end;
+
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL];
+end;
+
+function TArticulos_ParaVariosProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL]);
+end;
+
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL] := aValue;
+end;
+
+procedure TArticulos_ParaVariosProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ParaVariosProveedoresPRECIO_PVP_TOTAL] := Null;
 end;
 
 
@@ -2159,7 +2730,7 @@ end;
 
 procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
 end;
 
 function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
@@ -2353,7 +2924,7 @@ begin
   result := f_IMAGEN;
   result.Position := 0;
   if not Result.InUpdateMode then begin
-    WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
+    BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
     result.Position := 0;
   end;
 end;
@@ -2366,7 +2937,7 @@ end;
 function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
 begin
   result := NewROStream();
-  WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
+  BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
 end;
 
 function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
@@ -3063,10 +3634,1300 @@ begin
 end;
 
 
+{ TArticulosParaClienteBusinessProcessorRules }
+constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+  ROStream: TROStream;
+begin
+  inherited;
+
+  ROStream := TROStream.Create;
+  ROStream.OnChange := IMAGEN_OnChange;
+  f_IMAGEN := ROStream;
+end;
+
+destructor TArticulosParaClienteBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetIMAGENValue: IROStream;
+begin
+  result := f_IMAGEN;
+  result.Position := 0;
+  if not Result.InUpdateMode then begin
+    BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
+    result.Position := 0;
+  end;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetIMAGENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream;
+begin
+  result := NewROStream();
+  BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTIENDA_WEB];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTIENDA_WEB]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB] := Null;
+end;
+
+
+{ TArticulosBusinessProcessorRules }
+constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+  ROStream: TROStream;
+begin
+  inherited;
+
+  ROStream := TROStream.Create;
+  ROStream.OnChange := IMAGEN_OnChange;
+  f_IMAGEN := ROStream;
+end;
+
+destructor TArticulosBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
+end;
+
+function TArticulosBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID];
+end;
+
+function TArticulosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA];
+end;
+
+function TArticulosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA];
+end;
+
+function TArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION];
+end;
+
+function TArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetFAMILIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA];
+end;
+
+function TArticulosBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFAMILIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetIMAGENValue: IROStream;
+begin
+  result := f_IMAGEN;
+  result.Position := 0;
+  if not Result.InUpdateMode then begin
+    BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
+    result.Position := 0;
+  end;
+end;
+
+function TArticulosBusinessProcessorRules.GetIMAGENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
+begin
+  result := NewROStream();
+  BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE];
+end;
+
+function TArticulosBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA];
+end;
+
+function TArticulosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION];
+end;
+
+function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO];
+end;
+
+function TArticulosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV];
+end;
+
+function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO];
+end;
+
+function TArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO];
+end;
+
+function TArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE];
+end;
+
+function TArticulosBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR];
+end;
+
+function TArticulosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR];
+end;
+
+function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetELIMINADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO];
+end;
+
+function TArticulosBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null;
+end;
+
+function TArticulosBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB];
+end;
+
+function TArticulosBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB]);
+end;
+
+function TArticulosBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIENDA_WEB];
+end;
+
+function TArticulosBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIENDA_WEB]);
+end;
+
+procedure TArticulosBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB] := aValue;
+end;
+
+procedure TArticulosBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB] := Null;
+end;
+
+
 initialization
   RegisterBusinessProcessorRules(RID_ProveedoresConArticulosDelta, TProveedoresConArticulosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_Articulos_ProveedoresDelta, TArticulos_ProveedoresBusinessProcessorRules);
-  RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_Articulos_ParaVariosProveedoresDelta, TArticulos_ParaVariosProveedoresBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ArticulosParaCompraDelta, TArticulosParaCompraBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
 
 end.
diff --git a/Source/Modulos/Articulos/Model/uBizArticulos.pas b/Source/Modulos/Articulos/Model/uBizArticulos.pas
index 9e9d304..6000de0 100644
--- a/Source/Modulos/Articulos/Model/uBizArticulos.pas
+++ b/Source/Modulos/Articulos/Model/uBizArticulos.pas
@@ -68,9 +68,9 @@ begin
 
   with aDataTable do
   begin
-    FieldByName(fld_ArticulosTIEMPO).OnChange := PARAMETROSPRECIOOnChange;
-    FieldByName(fld_ArticulosPARAM_TIEMPO).OnChange := PARAMETROSPRECIOOnChange;
-    FieldByName(fld_ArticulosPARAM_MARGEN).OnChange := PARAMETROSPRECIOOnChange;
+//    FieldByName('TIEMPO').OnChange := PARAMETROSPRECIOOnChange;
+//    FieldByName('PARAM_TIEMPO').OnChange := PARAMETROSPRECIOOnChange;
+//    FieldByName('PARAM_MARGEN').OnChange := PARAMETROSPRECIOOnChange;
   end;
 
   FProveedoresLink := TDADataSource.Create(NIL);
@@ -118,8 +118,8 @@ procedure TBizArticulo.IniciarValoresArticuloNuevo;
 begin
   ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
-  PARAM_TIEMPO := AppFactuGES.EmpresaActiva.PARAM_TIEMPO;
-  PARAM_MARGEN := AppFactuGES.EmpresaActiva.PARAM_MARGEN;
+//  PARAM_TIEMPO := AppFactuGES.EmpresaActiva.PARAM_TIEMPO;
+//  PARAM_MARGEN := AppFactuGES.EmpresaActiva.PARAM_MARGEN;
   INVENTARIABLE := 1;
   COMISIONABLE := 1;
   ELIMINADO := 0;
@@ -136,7 +136,7 @@ begin
   if not Self.DataTable.Editing then
     Edit;
 
-  MANO_OBRA := TIEMPO * PARAM_TIEMPO;
+//  MANO_OBRA := TIEMPO * PARAM_TIEMPO;
       
   if Assigned(Self.Proveedores) then
   begin
diff --git a/Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas b/Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas
index 582bc5a..d1befb1 100644
--- a/Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas
+++ b/Source/Modulos/Articulos/Model/uBizArticulosProveedores.pas
@@ -88,9 +88,9 @@ begin
      //OJO SI ALGUNA VEZ ESTO CAMBIA TAMBIEN HAY QUE CAMBIAR EL PROCEDIMIENTO ALMACENADO PRO_ART_RECALCULAR_PVP
      Self.PRECIO_NETO := Self.PRECIO_COSTE - (Self.PRECIO_COSTE * (Self.DESCUENTO / 100));
 
-     Self.PRECIO_PVP_VENTA := (Self.PRECIO_NETO + Self.PRECIO_PORTE) * ((MasterSource.DataTable.FieldByName(fld_ArticulosPARAM_MARGEN).AsFloat / 100) + 1);
+//     Self.PRECIO_PVP_VENTA := (Self.PRECIO_NETO + Self.PRECIO_PORTE) * ((MasterSource.DataTable.FieldByName('PARAM_MARGEN').AsFloat / 100) + 1);
 
-     Self.PRECIO_PVP_TOTAL := Self.PRECIO_PVP_VENTA + MasterSource.DataTable.FieldByName(fld_ArticulosMANO_OBRA).AsFloat;
+//     Self.PRECIO_PVP_TOTAL := Self.PRECIO_PVP_VENTA + MasterSource.DataTable.FieldByName('MANO_OBRA').AsFloat;
   end;
 end;
 
diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
index 127e71b..6f1e3e5 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
@@ -441,9 +441,13 @@ object srvArticulos: TsrvArticulos
               item
                 DatasetField = 'PRECIO_PVP_TOTAL'
                 TableField = 'PRECIO_PVP_TOTAL'
+              end
+              item
+                DatasetField = 'TIENDA_WEB'
+                TableField = 'TIENDA_WEB'
               end>
           end>
-        Name = 'Articulos'
+        Name = 'Articulos_ParaVariosProveedores'
         Fields = <
           item
             Name = 'ID'
@@ -558,6 +562,11 @@ object srvArticulos: TsrvArticulos
             Size = 255
             DictionaryEntry = 'Articulos_REFERENCIA_FABR'
           end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'PARAM_MARGEN'
             DataType = datFloat
@@ -875,6 +884,402 @@ object srvArticulos: TsrvArticulos
             Name = 'ID_ARTICULO'
             DataType = datInteger
           end>
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_CLIENTE'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            Name = 'IBX'
+            SQL = 
+              'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
+              'ENCIA, V_ARTICULOS.DESCRIPCION,'#10'V_ARTICULOS.FAMILIA, V_ARTICULOS' +
+              '.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10'V_ART' +
+              'ICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO, V_ARTICULOS.REFE' +
+              'RENCIA_PROV,'#10'V_ARTICULOS.PRECIO_COSTE, V_ARTICULOS.PRECIO_PORTE,' +
+              ' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10'V_ARTICULOS.PRECIO_NETO, V' +
+              '_ARTICULOS.INVENTARIABLE, V_ARTICULOS.ID_PROVEEDOR,'#10'V_ARTICULOS.' +
+              'NOMBRE_PROVEEDOR, V_ARTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10 +
+              'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((' +
+              'CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDO' +
+              'R)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end
+              item
+                DatasetField = 'FAMILIA'
+                TableField = 'FAMILIA'
+              end
+              item
+                DatasetField = 'COMISIONABLE'
+                TableField = 'COMISIONABLE'
+              end
+              item
+                DatasetField = 'FECHA_ALTA'
+                TableField = 'FECHA_ALTA'
+              end
+              item
+                DatasetField = 'FECHA_MODIFICACION'
+                TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                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'
+              end
+              item
+                DatasetField = 'TIENDA_WEB'
+                TableField = 'TIENDA_WEB'
+              end
+              item
+                DatasetField = 'IMAGEN'
+                TableField = 'IMAGEN'
+              end>
+          end>
+        Name = 'ArticulosParaCliente'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMAGEN'
+            DataType = datBlob
+          end
+          item
+            Name = 'COMISIONABLE'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            Size = 30
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+          end
+          item
+            Name = 'INVENTARIABLE'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'NOMBRE_PROVEEDOR'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ELIMINADO'
+            DataType = datSmallInt
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
+          end>
+      end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'V_ARTICULOS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end
+              item
+                DatasetField = 'FAMILIA'
+                TableField = 'FAMILIA'
+              end
+              item
+                DatasetField = 'IMAGEN'
+                TableField = 'IMAGEN'
+              end
+              item
+                DatasetField = 'COMISIONABLE'
+                TableField = 'COMISIONABLE'
+              end
+              item
+                DatasetField = 'FECHA_ALTA'
+                TableField = 'FECHA_ALTA'
+              end
+              item
+                DatasetField = 'FECHA_MODIFICACION'
+                TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                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 = 'ELIMINADO'
+                TableField = 'ELIMINADO'
+              end
+              item
+                DatasetField = 'TIENDA_WEB'
+                TableField = 'TIENDA_WEB'
+              end
+              item
+                DatasetField = 'ID_PROVEEDOR'
+                TableField = 'ID_PROVEEDOR'
+              end
+              item
+                DatasetField = 'NOMBRE_PROVEEDOR'
+                TableField = 'NOMBRE_PROVEEDOR'
+              end>
+          end>
+        Name = 'Articulos'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_ARTICULOS_ID'
+            ServerAutoRefresh = True
+            DictionaryEntry = 'Articulos_ID'
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            DictionaryEntry = 'Articulos_ID_EMPRESA'
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Articulos_REFERENCIA'
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Articulos_DESCRIPCION'
+          end
+          item
+            Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Articulos_FAMILIA'
+          end
+          item
+            Name = 'IMAGEN'
+            DataType = datBlob
+            DictionaryEntry = 'Articulos_IMAGEN'
+          end
+          item
+            Name = 'COMISIONABLE'
+            DataType = datInteger
+            DictionaryEntry = 'Articulos_COMISIONABLE'
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+            DictionaryEntry = 'Articulos_FECHA_ALTA'
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+            DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            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
+            DecimalPrecision = 2
+            DecimalScale = 2
+            DictionaryEntry = 'Articulos_PRECIO_NETO'
+          end
+          item
+            Name = 'INVENTARIABLE'
+            DataType = datSmallInt
+            DictionaryEntry = 'Articulos_INVENTARIABLE'
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'NOMBRE_PROVEEDOR'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ELIMINADO'
+            DataType = datSmallInt
+            DictionaryEntry = 'Articulos_ELIMINADO'
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -889,74 +1294,104 @@ object srvArticulos: TsrvArticulos
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'UNIDAD_MEDIDA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'IMAGEN'
+            DataType = datBlob
             Value = ''
           end
           item
             Name = 'COMISIONABLE'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'INVENTARIABLE'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ELIMINADO'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_FABR'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'PARAM_MARGEN'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'TIEMPO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'PARAM_TIEMPO'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'MANO_OBRA'
+            DataType = datCurrency
             Value = ''
           end>
         Statements = <
@@ -967,16 +1402,17 @@ object srvArticulos: TsrvArticulos
               'INSERT'#10'  INTO ARTICULOS'#10'    (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
               'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10'     COMISIONABLE, FECHA_A' +
               '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, :INVENTAR' +
-              'IABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,' +
-              #10'     :TIEMPO, :PARAM_TIEMPO, :MANO_OBRA)'#10
+              ', FABRICANTE, REFERENCIA_FABR, TIENDA_WEB, PARAM_MARGEN, TIEMPO,' +
+              #10'     PARAM_TIEMPO, MANO_OBRA)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :' +
+              'REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10'     :IMAGEN' +
+              ', :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10'     :USUARI' +
+              'O, :INVENTARIABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :T' +
+              'IENDA_WEB, :PARAM_MARGEN,'#10'     :TIEMPO, :PARAM_TIEMPO, :MANO_OBR' +
+              'A)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Insert_Articulos'
+        Name = 'Insert_Articulos_ParaVariosProveedores'
       end
       item
         Params = <
@@ -994,80 +1430,110 @@ object srvArticulos: TsrvArticulos
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Delete_Articulos'
+        Name = 'Delete_Articulos_ParaVariosProveedores'
       end
       item
         Params = <
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'UNIDAD_MEDIDA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'IMAGEN'
+            DataType = datBlob
             Value = ''
           end
           item
             Name = 'COMISIONABLE'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'FECHA_ALTA'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'INVENTARIABLE'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'ELIMINADO'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_FABR'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
             Value = ''
           end
           item
             Name = 'PARAM_MARGEN'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'TIEMPO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'PARAM_TIEMPO'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'MANO_OBRA'
+            DataType = datCurrency
             Value = ''
           end
           item
@@ -1086,13 +1552,14 @@ object srvArticulos: TsrvArticulos
               'ECHA_ALTA, '#10'    FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10'    U' +
               'SUARIO = :USUARIO, '#10'    INVENTARIABLE = :INVENTARIABLE,'#10'    ELIM' +
               'INADO = :ELIMINADO,'#10'    FABRICANTE = :FABRICANTE,'#10'    REFERENCIA' +
-              '_FABR = :REFERENCIA_FABR,'#10'    PARAM_MARGEN = :PARAM_MARGEN,'#10'    ' +
-              'TIEMPO = :TIEMPO,'#10'    PARAM_TIEMPO = :PARAM_TIEMPO,'#10'    MANO_OBR' +
-              'A = :MANO_OBRA'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              '_FABR = :REFERENCIA_FABR,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'    PARA' +
+              'M_MARGEN = :PARAM_MARGEN,'#10'    TIEMPO = :TIEMPO,'#10'    PARAM_TIEMPO' +
+              ' = :PARAM_TIEMPO,'#10'    MANO_OBRA = :MANO_OBRA'#10'  WHERE'#10'    (ID = :' +
+              'OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = 'Update_Articulos'
+        Name = 'Update_Articulos_ParaVariosProveedores'
       end
       item
         Params = <
@@ -1237,6 +1704,257 @@ object srvArticulos: TsrvArticulos
             ColumnMappings = <>
           end>
         Name = 'Update_Articulos_Proveedores'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_ARTICULOS_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'COMISIONABLE'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+            Value = ''
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'INVENTARIABLE'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'ELIMINADO'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'ARTICULOS'
+            SQL = 
+              'INSERT'#10'  INTO ARTICULOS'#10'    (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
+              'CION, FAMILIA, COMISIONABLE, FECHA_ALTA,'#10'     FECHA_MODIFICACION' +
+              ', USUARIO, PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, ID_PROVEEDOR,'#10 +
+              '     PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE, ELIMINADO,'#10'   ' +
+              '  TIENDA_WEB)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFERENCIA, :DESC' +
+              'RIPCION, :FAMILIA, :COMISIONABLE, :FECHA_ALTA,'#10'     :FECHA_MODIF' +
+              'ICACION, :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, :ID' +
+              '_PROVEEDOR,'#10'     :PRECIO_NETO, :REFERENCIA_PROV, :INVENTARIABLE,' +
+              ' :ELIMINADO,'#10'     :TIENDA_WEB)'#10'     '#10'     '#10#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Articulos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'FAMILIA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'COMISIONABLE'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+            Value = ''
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_COSTE'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_PORTE'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            DataType = datFloat
+            Value = ''
+          end
+          item
+            Name = 'ID_PROVEEDOR'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'PRECIO_NETO'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA_PROV'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'INVENTARIABLE'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'ELIMINADO'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'TIENDA_WEB'
+            DataType = datSmallInt
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'ARTICULOS'
+            SQL = 
+              'UPDATE ARTICULOS'#10'  SET '#10'    ID_EMPRESA = :ID_EMPRESA,'#10'    REFERE' +
+              'NCIA = :REFERENCIA, '#10'    DESCRIPCION = :DESCRIPCION, '#10'    FAMILI' +
+              'A = :FAMILIA,'#10'    COMISIONABLE = :COMISIONABLE,'#10'    FECHA_ALTA =' +
+              ' :FECHA_ALTA,'#10'    FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10'   ' +
+              ' USUARIO = :USUARIO, '#10'    PRECIO_COSTE = :PRECIO_COSTE,'#10'    PREC' +
+              'IO_PORTE = :PRECIO_PORTE,'#10'    DESCUENTO = :DESCUENTO,'#10'    ID_PRO' +
+              'VEEDOR = :ID_PROVEEDOR,'#10'    PRECIO_NETO = :PRECIO_NETO,'#10'    REFE' +
+              'RENCIA_PROV = :REFERENCIA_PROV,'#10'    INVENTARIABLE = :INVENTARIAB' +
+              'LE,'#10'    ELIMINADO = :ELIMINADO,'#10'    TIENDA_WEB = :TIENDA_WEB'#10#10'  ' +
+              'WHERE'#10'    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Articulos'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'ARTICULOS'
+            SQL = 'UPDATE ARTICULOS'#10'SET ELIMINADO = 1'#10'WHERE (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Articulos'
       end>
     RelationShips = <
       item
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dpk b/Source/Modulos/Articulos/Views/Articulos_view.dpk
index c143bb7..92f8883 100644
--- a/Source/Modulos/Articulos/Views/Articulos_view.dpk
+++ b/Source/Modulos/Articulos/Views/Articulos_view.dpk
@@ -32,7 +32,26 @@ requires
   UnidadesMedida_controller,
   Contactos_view,
   Fabricantes_controller,
-  GUISDK_D11R;
+  GUISDK_D11R,
+  rtl,
+  vcl,
+  dbrtl,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  dxCoreD11,
+  vclx,
+  cxEditorsD11,
+  cxDataD11,
+  vcljpg,
+  vcldb,
+  DataAbstract_Core_D11,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  dxLayoutControlD11,
+  dxComnD11,
+  Contactos_model;
 
 contains
   uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},
@@ -41,9 +60,11 @@ contains
   uEditorElegirArticulos in 'uEditorElegirArticulos.pas' {fEditorElegirArticulos: TfEditorElegirArticulos},
   uViewArticulo in 'uViewArticulo.pas' {frViewArticulo: TFrame},
   uViewDetallesArticulos in 'uViewDetallesArticulos.pas' {frViewDetallesArticulos: TFrame},
-  uViewArticulosProveedores in 'uViewArticulosProveedores.pas' {frViewArticulosProveedores: TFrame},
+  uViewProveedoresArticulo in 'uViewProveedoresArticulo.pas' {frViewProveedoresArticulo: TFrame},
   uViewArticulosPorProveedor in 'uViewArticulosPorProveedor.pas' {frViewArticulosPorProveedor: TFrame},
   uViewDetallesArticulosParaVenta in 'uViewDetallesArticulosParaVenta.pas' {frViewDetallesArticulosParaVenta: TCustomView},
-  uEditorArticulos in 'uEditorArticulos.pas' {fEditorArticulos: TfEditorArticulo};
+  uEditorArticulos in 'uEditorArticulos.pas' {fEditorArticulos: TfEditorArticulo},
+  uViewProveedorArticulo in 'uViewProveedorArticulo.pas' {frViewProveedorArticulo: TFrame},
+  uViewParametrosPrecio in 'uViewParametrosPrecio.pas' {frViewParametrosPrecio: TFrame};
 
 end.
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj
index c4420a1..c18d3cf 100644
--- a/Source/Modulos/Articulos/Views/Articulos_view.dproj
+++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj
@@ -55,14 +55,33 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Articulos_model.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Fabricantes_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\Servidor\UnidadesMedida_controller.dcp" />
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Lib\Fabricantes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\UnidadesMedida_controller.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>
@@ -88,10 +107,6 @@
       <Form>frViewArticulosPorProveedor</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="uViewArticulosProveedores.pas">
-      <Form>frViewArticulosProveedores</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
     <DCCReference Include="uViewDetallesArticulos.pas">
       <Form>frViewDetallesArticulos</Form>
       <DesignClass>TFrame</DesignClass>
@@ -100,6 +115,18 @@
       <Form>frViewDetallesArticulosParaVenta</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewParametrosPrecio.pas">
+      <Form>frViewParametrosPrecio</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewProveedorArticulo.pas">
+      <Form>frViewProveedorArticulo</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewProveedoresArticulo.pas">
+      <Form>frViewProveedoresArticulo</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulo.dfm b/Source/Modulos/Articulos/Views/uEditorArticulo.dfm
index 1d66323..b66fa4b 100644
--- a/Source/Modulos/Articulos/Views/uEditorArticulo.dfm
+++ b/Source/Modulos/Articulos/Views/uEditorArticulo.dfm
@@ -34,6 +34,12 @@ inherited fEditorArticulo: TfEditorArticulo
         4495BD38333E3DC0F0B71000FEC966E74A55381F0000000049454E44AE426082}
       ExplicitLeft = 607
     end
+    inherited lblDesbloquear: TcxLabel
+      Left = 780
+      ExplicitLeft = 780
+      AnchorX = 825
+      AnchorY = 14
+    end
   end
   inherited TBXDock: TTBXDock
     Width = 905
@@ -110,12 +116,12 @@ inherited fEditorArticulo: TfEditorArticulo
     object TabSheet1: TTabSheet
       Caption = 'Precios'
       ImageIndex = 1
-      inline frViewArticulosProveedores1: TfrViewArticulosProveedores
+      inline frViewProveedorArticulo1: TfrViewProveedorArticulo
         Left = 0
-        Top = 97
+        Top = 0
         Width = 891
-        Height = 279
-        Align = alClient
+        Height = 234
+        Align = alTop
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -124,217 +130,52 @@ inherited fEditorArticulo: TfEditorArticulo
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitTop = 97
         ExplicitWidth = 891
-        ExplicitHeight = 279
-        inherited cxGrid: TcxGrid
+        inherited dxLayoutControlArticulo: TdxLayoutControl
           Width = 891
-          Height = 254
           ExplicitWidth = 891
-          ExplicitHeight = 254
-          inherited cxGridView: TcxGridDBTableView
-            inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
-              PropertiesClassName = 'TcxCurrencyEditProperties'
-              Properties.Alignment.Horz = taRightJustify
-              FooterAlignmentHorz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-              HeaderAlignmentHorz = taRightJustify
-            end
-            inherited cxGridViewDESCUENTO: TcxGridDBColumn
-              Properties.Alignment.Horz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-            end
-            inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
-              PropertiesClassName = 'TcxCurrencyEditProperties'
-              Properties.Alignment.Horz = taRightJustify
-              FooterAlignmentHorz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-              HeaderAlignmentHorz = taRightJustify
-            end
-            inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
-              PropertiesClassName = 'TcxCurrencyEditProperties'
-              Properties.Alignment.Horz = taRightJustify
-              FooterAlignmentHorz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-              HeaderAlignmentHorz = taRightJustify
-            end
-            inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
-              PropertiesClassName = 'TcxCurrencyEditProperties'
-              Properties.Alignment.Horz = taRightJustify
-              FooterAlignmentHorz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-              HeaderAlignmentHorz = taRightJustify
-            end
-            inherited cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
-              PropertiesClassName = 'TcxCurrencyEditProperties'
-              Properties.Alignment.Horz = taRightJustify
-              FooterAlignmentHorz = taRightJustify
-              GroupSummaryAlignment = taRightJustify
-              HeaderAlignmentHorz = taRightJustify
-            end
+          inherited eReferenciaProv: TcxDBTextEdit
+            DataBinding.DataSource = dsDataTable
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 290
+            Width = 290
           end
-        end
-        inherited ToolBar1: TToolBar
-          Width = 891
-          ExplicitWidth = 891
-        end
-      end
-      object dxLayoutControl1: TdxLayoutControl
-        Left = 0
-        Top = 0
-        Width = 891
-        Height = 97
-        Align = alTop
-        TabOrder = 1
-        TabStop = False
-        AutoContentSizes = [acsWidth, acsHeight]
-        LookAndFeel = dxLayoutOfficeLookAndFeel1
-        object eParamMargen: TcxDBSpinEdit
-          Left = 118
-          Top = 30
-          DataBinding.DataField = 'PARAM_MARGEN'
-          DataBinding.DataSource = dsDataTable
-          Properties.Alignment.Horz = taRightJustify
-          Properties.AssignedValues.EditFormat = True
-          Properties.DisplayFormat = ',0.00 %;-,0.00 %'
-          Properties.ImmediatePost = True
-          Properties.MaxValue = 100.000000000000000000
-          Style.BorderColor = clWindowFrame
-          Style.BorderStyle = ebs3D
-          Style.HotTrack = False
-          Style.LookAndFeel.Kind = lfStandard
-          Style.LookAndFeel.NativeStyle = True
-          Style.LookAndFeel.SkinName = ''
-          Style.ButtonStyle = bts3D
-          StyleDisabled.LookAndFeel.Kind = lfStandard
-          StyleDisabled.LookAndFeel.NativeStyle = True
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.Kind = lfStandard
-          StyleFocused.LookAndFeel.NativeStyle = True
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.Kind = lfStandard
-          StyleHot.LookAndFeel.NativeStyle = True
-          StyleHot.LookAndFeel.SkinName = ''
-          TabOrder = 0
-          Width = 100
-        end
-        object eTiempo: TcxDBSpinEdit
-          Left = 118
-          Top = 57
-          DataBinding.DataField = 'TIEMPO'
-          DataBinding.DataSource = dsDataTable
-          Properties.Alignment.Horz = taRightJustify
-          Properties.ImmediatePost = True
-          Properties.MaxValue = 100000.000000000000000000
-          Style.BorderColor = clWindowFrame
-          Style.BorderStyle = ebs3D
-          Style.HotTrack = False
-          Style.LookAndFeel.Kind = lfStandard
-          Style.LookAndFeel.NativeStyle = True
-          Style.LookAndFeel.SkinName = ''
-          Style.ButtonStyle = bts3D
-          StyleDisabled.LookAndFeel.Kind = lfStandard
-          StyleDisabled.LookAndFeel.NativeStyle = True
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.Kind = lfStandard
-          StyleFocused.LookAndFeel.NativeStyle = True
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.Kind = lfStandard
-          StyleHot.LookAndFeel.NativeStyle = True
-          StyleHot.LookAndFeel.SkinName = ''
-          TabOrder = 1
-          Width = 100
-        end
-        object eParamTiempo: TcxDBCurrencyEdit
-          Left = 300
-          Top = 57
-          DataBinding.DataField = 'PARAM_TIEMPO'
-          DataBinding.DataSource = dsDataTable
-          Properties.Alignment.Horz = taRightJustify
-          Style.BorderColor = clWindowFrame
-          Style.BorderStyle = ebs3D
-          Style.HotTrack = False
-          Style.LookAndFeel.Kind = lfStandard
-          Style.LookAndFeel.NativeStyle = True
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.Kind = lfStandard
-          StyleDisabled.LookAndFeel.NativeStyle = True
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.Kind = lfStandard
-          StyleFocused.LookAndFeel.NativeStyle = True
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.Kind = lfStandard
-          StyleHot.LookAndFeel.NativeStyle = True
-          StyleHot.LookAndFeel.SkinName = ''
-          TabOrder = 2
-          Width = 150
-        end
-        object eManoObra: TcxDBSpinEdit
-          Left = 545
-          Top = 57
-          DataBinding.DataField = 'MANO_OBRA'
-          DataBinding.DataSource = dsDataTable
-          Enabled = False
-          Properties.Alignment.Horz = taRightJustify
-          Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
-          Properties.ImmediatePost = True
-          Properties.MaxValue = 100.000000000000000000
-          Properties.SpinButtons.Visible = False
-          Style.BorderColor = clWindowFrame
-          Style.BorderStyle = ebs3D
-          Style.HotTrack = False
-          Style.LookAndFeel.Kind = lfStandard
-          Style.LookAndFeel.NativeStyle = True
-          Style.LookAndFeel.SkinName = ''
-          Style.ButtonStyle = bts3D
-          StyleDisabled.LookAndFeel.Kind = lfStandard
-          StyleDisabled.LookAndFeel.NativeStyle = True
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.Kind = lfStandard
-          StyleFocused.LookAndFeel.NativeStyle = True
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.Kind = lfStandard
-          StyleHot.LookAndFeel.NativeStyle = True
-          StyleHot.LookAndFeel.SkinName = ''
-          TabOrder = 3
-          Width = 200
-        end
-        object dxLayoutControl1Group_Root: TdxLayoutGroup
-          ShowCaption = False
-          Hidden = True
-          LayoutDirection = ldHorizontal
-          ShowBorder = False
-          object dxLayoutControl1Group1: TdxLayoutGroup
-            AutoAligns = []
-            AlignHorz = ahClient
-            Caption = 'Par'#225'metros de precio'
-            object dxLayoutControl1Item1: TdxLayoutItem
-              AutoAligns = [aaVertical]
-              Caption = 'Margen coste (%):'
-              Control = eParamMargen
-              ControlOptions.ShowBorder = False
-            end
-            object dxLayoutControl1Group3: TdxLayoutGroup
-              ShowCaption = False
-              Hidden = True
-              LayoutDirection = ldHorizontal
-              ShowBorder = False
-              object dxLayoutControl1Item2: TdxLayoutItem
-                Caption = 'Tiempo min.:'
-                Control = eTiempo
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item3: TdxLayoutItem
-                Caption = '     Precio min.:'
-                Control = eParamTiempo
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item4: TdxLayoutItem
-                Caption = '      Mano de obra'
-                Control = eManoObra
-                ControlOptions.ShowBorder = False
-              end
-            end
+          inherited eProveedor: TcxDBLookupComboBox
+            DataBinding.DataSource = dsDataTable
+            ExplicitWidth = 304
+            Width = 304
+          end
+          inherited ePrecioCoste: TcxDBCurrencyEdit
+            DataBinding.DataSource = dsDataTable
+            ExplicitWidth = 200
+            Width = 200
+          end
+          inherited eDescuento: TcxDBSpinEdit
+            DataBinding.DataSource = dsDataTable
+            ExplicitWidth = 200
+            Width = 200
+          end
+          inherited ePrecioNeto: TcxDBCurrencyEdit
+            DataBinding.DataSource = dsDataTable
+            ExplicitWidth = 200
+            Width = 200
+          end
+          inherited ePrecioPorte: TcxDBCurrencyEdit
+            DataBinding.DataSource = dsDataTable
+            ExplicitWidth = 200
+            Width = 200
+          end
+          inherited cbTiendaWeb: TcxDBCheckBox
+            DataBinding.DataSource = dsDataTable
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 290
+            Width = 290
           end
         end
       end
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulo.pas b/Source/Modulos/Articulos/Views/uEditorArticulo.pas
index d8eff2d..fd7f48d 100644
--- a/Source/Modulos/Articulos/Views/uEditorArticulo.pas
+++ b/Source/Modulos/Articulos/Views/uEditorArticulo.pas
@@ -18,7 +18,9 @@ uses
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
   cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
   uViewArticulosProveedores,  dxLayoutControl, cxContainer,
-  cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit;
+  cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit,
+  uViewProveedoresArticulo, uViewParametrosPrecio, cxLabel,
+  uViewProveedorArticulo;
 
 type
   TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
@@ -28,19 +30,7 @@ type
     actFamilias: TAction;
     TBXSeparatorItem6: TTBXSeparatorItem;
     TabSheet1: TTabSheet;
-    frViewArticulosProveedores1: TfrViewArticulosProveedores;
-    dxLayoutControl1Group_Root: TdxLayoutGroup;
-    dxLayoutControl1: TdxLayoutControl;
-    dxLayoutControl1Item1: TdxLayoutItem;
-    eParamMargen: TcxDBSpinEdit;
-    dxLayoutControl1Item2: TdxLayoutItem;
-    eTiempo: TcxDBSpinEdit;
-    dxLayoutControl1Item3: TdxLayoutItem;
-    eParamTiempo: TcxDBCurrencyEdit;
-    dxLayoutControl1Item4: TdxLayoutItem;
-    eManoObra: TcxDBSpinEdit;
-    dxLayoutControl1Group1: TdxLayoutGroup;
-    dxLayoutControl1Group3: TdxLayoutGroup;
+    frViewProveedorArticulo1: TfrViewProveedorArticulo;
     procedure FormShow(Sender: TObject);
     procedure dsDataTableDataChange(Sender: TObject; Field: TField);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@@ -131,7 +121,7 @@ begin
   if Assigned(FViewArticulo) and Assigned(Articulo) then
   begin
      FViewArticulo.Articulo := Articulo;
-     frViewArticulosProveedores1.Articulo := Articulo;
+//     frViewProveedoresArticulo1.Articulo := Articulo;
   end;
 end;
 
@@ -141,7 +131,7 @@ begin
   if Assigned(FController) then
   begin
     (ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
-    frViewArticulosProveedores1.Controller := FController;
+//    frViewProveedoresArticulo1.Controller := FController;
   end;
 end;
 
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
index 90e9cb1..6e0208c 100644
--- a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
@@ -114,18 +114,26 @@ inherited fEditorArticulos: TfEditorArticulos
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 166
+                Width = 166
               end
               inherited edtFechaFinFiltro: TcxDateEdit
+                Left = 353
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitLeft = 353
+                ExplicitWidth = 150
+                Width = 150
               end
               inherited eLista: TcxComboBox
+                Left = 595
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitLeft = 595
                 ExplicitWidth = 20
                 Width = 20
               end
@@ -172,6 +180,7 @@ inherited fEditorArticulos: TfEditorArticulos
     object pagArticulosPorProveedor: TTabSheet
       Caption = 'Art'#237'culos por proveedor'
       ImageIndex = 1
+      TabVisible = False
       inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor
         Left = 0
         Top = 0
@@ -223,18 +232,26 @@ inherited fEditorArticulos: TfEditorArticulos
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitWidth = 166
+                Width = 166
               end
               inherited edtFechaFinFiltro: TcxDateEdit
+                Left = 353
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitLeft = 353
+                ExplicitWidth = 150
+                Width = 150
               end
               inherited eLista: TcxComboBox
+                Left = 595
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
+                ExplicitLeft = 595
                 ExplicitWidth = 20
                 Width = 20
               end
diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.dfm b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
index 7edc3f7..b641c12 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulo.dfm
+++ b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
@@ -1,6 +1,6 @@
 inherited frViewArticulo: TfrViewArticulo
-  Width = 614
-  Height = 376
+  Width = 451
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,20 +9,18 @@ inherited frViewArticulo: TfrViewArticulo
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 614
-    Height = 376
+    Width = 451
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth]
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      614
-      376)
+      451
+      304)
     object PngSpeedButton2: TPngSpeedButton
-      Left = 552
+      Left = 389
       Top = 304
       Width = 23
       Height = 22
@@ -49,7 +47,7 @@ inherited frViewArticulo: TfrViewArticulo
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton1: TPngSpeedButton
-      Left = 552
+      Left = 389
       Top = 332
       Width = 23
       Height = 22
@@ -219,7 +217,6 @@ inherited frViewArticulo: TfrViewArticulo
     object cbUnidadMedida: TcxDBComboBox
       Left = 122
       Top = 109
-      DataBinding.DataField = 'UNIDAD_MEDIDA'
       DataBinding.DataSource = dsViewArticulo
       Properties.DropDownRows = 16
       Properties.ImmediatePost = True
@@ -247,7 +244,6 @@ inherited frViewArticulo: TfrViewArticulo
     object cbFabricante: TcxDBComboBox
       Left = 122
       Top = 220
-      DataBinding.DataField = 'FABRICANTE'
       DataBinding.DataSource = dsViewArticulo
       Properties.DropDownRows = 16
       Properties.ImmediatePost = True
@@ -276,7 +272,6 @@ inherited frViewArticulo: TfrViewArticulo
       Left = 122
       Top = 247
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'REFERENCIA_FABR'
       DataBinding.DataSource = dsViewArticulo
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -349,6 +344,7 @@ inherited frViewArticulo: TfrViewArticulo
               AutoAligns = [aaVertical]
               AlignHorz = ahClient
               Caption = 'Unidad de medida:'
+              Visible = False
               Control = cbUnidadMedida
               ControlOptions.ShowBorder = False
             end
@@ -367,7 +363,6 @@ inherited frViewArticulo: TfrViewArticulo
                 AutoAligns = [aaVertical]
                 AlignHorz = ahClient
                 Caption = ' '
-                Visible = False
                 Control = eNoComisionable
                 ControlOptions.ShowBorder = False
               end
@@ -376,6 +371,7 @@ inherited frViewArticulo: TfrViewArticulo
         end
         object dxLayoutControlArticuloGroup10: TdxLayoutGroup
           Caption = 'Datos del fabricante'
+          Visible = False
           object dxLayoutControlArticuloItem10: TdxLayoutItem
             Caption = 'Fabricante:'
             Control = cbFabricante
diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm
index 43d5ada..5f0106d 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm
@@ -21,6 +21,59 @@ inherited frViewArticulos: TfrViewArticulos
       OptionsBehavior.PullFocusing = True
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      inherited cxGridViewICONO: TcxGridDBColumn
+        Visible = False
+        VisibleForCustomization = False
+      end
+      object cxGridViewINVENTARIABLE: TcxGridDBColumn
+        Caption = #191'Inventariable?'
+        DataBinding.FieldName = 'INVENTARIABLE'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+            Value = 0
+          end
+          item
+            ImageIndex = 1
+            Value = 1
+          end>
+        MinWidth = 22
+        Width = 22
+      end
+      object cxGridViewCOMISIONABLE: TcxGridDBColumn
+        DataBinding.FieldName = 'COMISIONABLE'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+          end
+          item
+            Value = 0
+          end
+          item
+            ImageIndex = 2
+            Value = 1
+          end>
+        MinWidth = 22
+        Width = 22
+      end
+      object cxGridViewTIENDA_WEB: TcxGridDBColumn
+        Caption = 'Acceso a tienda web'
+        DataBinding.FieldName = 'TIENDA_WEB'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+            Value = 0
+          end
+          item
+            ImageIndex = 4
+            Value = 1
+          end>
+        MinWidth = 22
+        Width = 22
+      end
       object cxGridViewRecID: TcxGridDBColumn
         DataBinding.FieldName = 'RecID'
         Visible = False
@@ -44,23 +97,32 @@ inherited frViewArticulos: TfrViewArticulos
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         DataBinding.FieldName = 'DESCRIPCION'
       end
-      object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
-        DataBinding.FieldName = 'UNIDAD_MEDIDA'
-      end
       object cxGridViewFAMILIA: TcxGridDBColumn
         DataBinding.FieldName = 'FAMILIA'
       end
-      object cxGridViewFABRICANTE: TcxGridDBColumn
-        DataBinding.FieldName = 'FABRICANTE'
+      object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
+        Caption = 'Proveedor'
+        DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
       end
-      object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
-        DataBinding.FieldName = 'REFERENCIA_FABR'
+      object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
+        DataBinding.FieldName = 'REFERENCIA_PROV'
       end
-      object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
-        DataBinding.FieldName = 'PRECIO_PVP_VENTA'
+      object cxGridViewPRECIO_COSTE: TcxGridDBColumn
+        DataBinding.FieldName = 'PRECIO_COSTE'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
       end
-      object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
-        DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
+      object cxGridViewDESCUENTO: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCUENTO'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DisplayFormat = ',0.00 %;-,0.00 %'
+      end
+      object cxGridViewPRECIO_NETO: TcxGridDBColumn
+        DataBinding.FieldName = 'PRECIO_NETO'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+      end
+      object cxGridViewPRECIO_PORTE: TcxGridDBColumn
+        DataBinding.FieldName = 'PRECIO_PORTE'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
       end
     end
     inherited cxGridLevel: TcxGridLevel
@@ -88,20 +150,28 @@ inherited frViewArticulos: TfrViewArticulos
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 272
+          Width = 272
         end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 376
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 376
+          ExplicitWidth = 221
+          Width = 221
         end
         inherited eLista: TcxComboBox
+          Left = 634
           Properties.DropDownRows = 20
           Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 634
           ExplicitWidth = 71
           Width = 71
         end
@@ -150,7 +220,7 @@ inherited frViewArticulos: TfrViewArticulos
         object TBXSeparatorItem2: TTBXSeparatorItem
         end
         object TBXItem4: TTBXItem
-          Action = actFabricante
+          Action = actProveedor
         end
       end
     end
@@ -169,10 +239,10 @@ inherited frViewArticulos: TfrViewArticulos
       OnExecute = actFamiliaExecute
       OnUpdate = actFamiliaUpdate
     end
-    object actFabricante: TAction
-      Caption = 'Fabricante'
-      OnExecute = actFabricanteExecute
-      OnUpdate = actFabricanteUpdate
+    object actProveedor: TAction
+      Caption = 'Proveedor'
+      OnExecute = actProveedorExecute
+      OnUpdate = actProveedorUpdate
     end
   end
   inherited GridPNGImageList: TPngImageList
@@ -321,6 +391,42 @@ inherited frViewArticulos: TfrViewArticulos
           B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
         Name = 'PngImage3'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B1300000B1301009A9C18000003734944415478DA
+          5D536D685B55187ECEBDB99FB9371F26CB92ACADE9D66E75DDA6D356A6881B82
+          6C32904DA63074B66EEA90CDFDEC3EF0D7500A4357D18A286D6163A820289BCC
+          0A83EE872875FB51964E6AD79936ED9A6459BE939B9BDCE4DEEBA1B2317DE1E1
+          1C78CFFB9CE77DCE7909FE17472F7ED6EEF0048E36D5F8FE464509A5EACBD0ED
+          DB497DE9E0B71E73FBF04FEF4AF30F9F27F7375F5DBA244795F90F798FF350C8
+          25A8204D52327E455ABB89997B69CC2C1EB3513958DEE81646BB4CF183AF0F93
+          EA03826D9FBC2AADEFDE7CCE15C8EF0BAB3D64B5732B54BE84941647AC30821B
+          A934A6E2A750486E876054EC8857FFDEBB5CEE9F1C7A565F21D83DBE635075E5
+          06DABD9DCCA3AE67D04A21D18C6ECAB8BA78067FDC791A7F67A7908C1F875D8E
+          81E3BEB4D6284367164E6C3849768D7DD1BB208C4F74866795764F184165275A
+          DDCF839851F8A55770FD6E0197E782984EA4A06573407314D0AEC04DF6547A5A
+          4EBF403A07EF8D2CE84B879E78EA30DABC15F8652F9C9C8FEA62B04AFE18B17C
+          04130B04F3E93C6CBD9F220E946F8194FDE80A7E33420283E94CBA58F2B56F7A
+          072DBE3928BC0889E321B2AF51834E60BEE0403449FD2B14815A3FD0B806948A
+          60AA1236C8C359221C9BB6EB848510FE19ABDB4E83C536B0CC2A18D647D08C16
+          54AA26EAC51250BD492DEFA32B07520C436E5610300E8084DF9CB4133207A880
+          103A0F8BB3C092000813815EDB4D9DB4695181DEFC2325380ED44DB055111EAB
+          036AE92D9035AF4FDACBA60EB85C802C03920628BF81F0E760D75F048A8F5382
+          C7A879598A8B609A0978B95904C94658ECFE1CF1EF9918CF98DA2EA8EABF04A2
+          08B8AF52A201C034687100C89C070C9A2B95C19ACB5817BC8247ECB53095BDA3
+          6473DF54FF5CECAFB19A53249024DA070F7035C07792BEC46D20F73255F10695
+          5E072A1A78AB82273B0A10A52D0D67CF8EE748C7FBB70423BE185DCA26D6DBA2
+          408BB91510FF59DAB7053B71844A6F50050618D3845BE2B135E2B36AFEAE0BBF
+          9F5DD7B7F2137B07FEEC4ECEDEB99CCFA4DAEAB64D2C16F0847F41F9EE26587A
+          081C6120700E04A84F1EA76AF3A2F707D3E73B3039D4A63F18A6EEF7AEB53A74
+          32ACE5F22FD51A794E76C5A16522B4230E0A55E6969CB620AB5A4351C6F219F5
+          54F44248FBCF34DE8FDE23333B19ADFAB683AFED330A26388103E371A6ACAAF5
+          5D59653E9FFE744BECE1F3FF00F7B9639E6BE4CA2D0000000049454E44AE4260
+          82}
+        Name = 'PngImage4'
+        Background = clWindow
       end>
     Bitmap = {}
   end
diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.pas b/Source/Modulos/Articulos/Views/uViewArticulos.pas
index b2d8364..c0914d6 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uViewArticulos.pas
@@ -15,7 +15,7 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
   cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
   TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces,  
-  uArticulosController;
+  uArticulosController, uCustomView, uViewBase;
 
 type
   IViewArticulos = interface(IViewGrid)
@@ -35,22 +35,26 @@ type
     TBXSeparatorItem1: TTBXSeparatorItem;
     TBXSeparatorItem2: TTBXSeparatorItem;
     TBXItem4: TTBXItem;
-    actFabricante: TAction;
+    actProveedor: TAction;
     cxGridViewRecID: TcxGridDBColumn;
     cxGridViewID: TcxGridDBColumn;
     cxGridViewID_EMPRESA: TcxGridDBColumn;
     cxGridViewREFERENCIA: TcxGridDBColumn;
     cxGridViewDESCRIPCION: TcxGridDBColumn;
-    cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
     cxGridViewFAMILIA: TcxGridDBColumn;
-    cxGridViewFABRICANTE: TcxGridDBColumn;
-    cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
-    cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
-    cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
+    cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn;
+    cxGridViewREFERENCIA_PROV: TcxGridDBColumn;
+    cxGridViewPRECIO_COSTE: TcxGridDBColumn;
+    cxGridViewPRECIO_NETO: TcxGridDBColumn;
+    cxGridViewCOMISIONABLE: TcxGridDBColumn;
+    cxGridViewTIENDA_WEB: TcxGridDBColumn;
+    cxGridViewDESCUENTO: TcxGridDBColumn;
+    cxGridViewPRECIO_PORTE: TcxGridDBColumn;
+    cxGridViewINVENTARIABLE: TcxGridDBColumn;
     procedure actFamiliaExecute(Sender: TObject);
     procedure actFamiliaUpdate(Sender: TObject);
-    procedure actFabricanteExecute(Sender: TObject);
-    procedure actFabricanteUpdate(Sender: TObject);
+    procedure actProveedorExecute(Sender: TObject);
+    procedure actProveedorUpdate(Sender: TObject);
     procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
       AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
     procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
@@ -109,24 +113,24 @@ begin
   FController := Value;
 end;
 
-procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject);
+procedure TfrViewArticulos.actProveedorExecute(Sender: TObject);
 begin
-  if (cxGridViewFABRICANTE.GroupIndex < 0) then
+  if (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0) then
   begin
-    cxGridViewFABRICANTE.GroupIndex := cxGridView.GroupedColumnCount;
-    cxGridViewFABRICANTE.Visible := False;
+    cxGridViewNOMBRE_PROVEEDOR.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewNOMBRE_PROVEEDOR.Visible := False;
   end
   else
   begin
-    cxGridViewFABRICANTE.GroupIndex := -1;
-    cxGridViewFABRICANTE.Visible := True;
+    cxGridViewNOMBRE_PROVEEDOR.GroupIndex := -1;
+    cxGridViewNOMBRE_PROVEEDOR.Visible := True;
   end;
 end;
 
-procedure TfrViewArticulos.actFabricanteUpdate(Sender: TObject);
+procedure TfrViewArticulos.actProveedorUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Checked := not (cxGridViewFABRICANTE.GroupIndex < 0);
+  (Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0);
 end;
 
 procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject);
diff --git a/Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.pas b/Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.pas
index c666c0d..0e600d4 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.pas
+++ b/Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.pas
@@ -15,7 +15,7 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
   cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
   TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces,  
-  uArticulosController, uViewArticulos;
+  uArticulosController, uViewArticulos, uCustomView, uViewBase;
 
 type
   TfrViewArticulosPorProveedor = class(TfrViewGrid, IViewArticulos)
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
index 5049d52..fec8947 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
@@ -2,34 +2,95 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
   ParentBiDiMode = False
   OnShow = CustomViewShow
   inherited ToolBar1: TToolBar
+    Height = 73
+    ExplicitHeight = 73
+    inherited ToolButton3: TToolButton
+      Wrap = False
+    end
+    inherited ToolButton4: TToolButton
+      Left = 278
+      Top = 0
+      ExplicitLeft = 278
+      ExplicitTop = 0
+    end
+    inherited ToolButton14: TToolButton
+      Left = 334
+      Top = 0
+      ExplicitLeft = 334
+      ExplicitTop = 0
+    end
+    inherited FontName: TJvFontComboBox
+      Top = 22
+      ExplicitTop = 22
+    end
     inherited FontSize: TEdit
+      Top = 22
       Width = 42
+      ExplicitTop = 22
       ExplicitWidth = 42
     end
     inherited UpDown1: TUpDown
       Left = 187
+      Top = 22
       Width = 17
       ExplicitLeft = 187
+      ExplicitTop = 22
       ExplicitWidth = 17
     end
     inherited ToolButton13: TToolButton
       Left = 204
+      Top = 22
       ExplicitLeft = 204
+      ExplicitTop = 22
     end
     inherited ToolButton6: TToolButton
       Left = 212
+      Top = 22
       ExplicitLeft = 212
+      ExplicitTop = 22
     end
     inherited ToolButton7: TToolButton
       Left = 278
+      Top = 22
       ExplicitLeft = 278
+      ExplicitTop = 22
     end
     inherited ToolButton8: TToolButton
       Left = 345
+      Top = 22
       ExplicitLeft = 345
+      ExplicitTop = 22
+    end
+    inherited ToolButton12: TToolButton
+      Left = 0
+      Top = 22
+      Wrap = True
+      ExplicitLeft = 0
+      ExplicitTop = 22
+      ExplicitHeight = 27
+    end
+    inherited ToolButton9: TToolButton
+      Left = 0
+      Top = 49
+      ExplicitLeft = 0
+      ExplicitTop = 49
+    end
+    inherited ToolButton10: TToolButton
+      Left = 145
+      Top = 49
+      ExplicitLeft = 145
+      ExplicitTop = 49
+    end
+    inherited ToolButton11: TToolButton
+      Left = 270
+      Top = 49
+      ExplicitLeft = 270
+      ExplicitTop = 49
     end
   end
   inherited cxGrid: TcxGrid
+    Top = 99
+    Height = 205
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewTIPO: TcxGridDBColumn
         MinWidth = 69
@@ -101,11 +162,13 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
         Width = 80
       end
       inherited cxGridViewDESCUENTO: TcxGridDBColumn
+        Visible = True
         BestFitMaxWidth = 50
         HeaderAlignmentHorz = taRightJustify
         Width = 25
       end
       inherited cxGridViewIMPORTENETO: TcxGridDBColumn
+        Visible = True
         BestFitMaxWidth = 50
       end
       inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
@@ -118,6 +181,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
     end
   end
   inherited TBXDock1: TTBXDock
+    Top = 73
     inherited TBXToolbar1: TTBXToolbar
       inherited TBXSubmenuItem1: TTBXSubmenuItem
         object TBXSeparatorItem8: TTBXSeparatorItem [4]
@@ -130,6 +194,34 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
     end
   end
   inherited ActionListContenido: TActionList
+    inherited RichEditBold1: TRichEditBold
+      Enabled = False
+      Visible = False
+    end
+    inherited RichEditItalic1: TRichEditItalic
+      Enabled = False
+      Visible = False
+    end
+    inherited RichEditUnderline1: TRichEditUnderline
+      Enabled = False
+      Visible = False
+    end
+    inherited RichEditAlignLeft1: TRichEditAlignLeft
+      Enabled = False
+      Visible = False
+    end
+    inherited RichEditAlignCenter1: TRichEditAlignCenter
+      Enabled = False
+      Visible = False
+    end
+    inherited RichEditAlignRight1: TRichEditAlignRight
+      Enabled = False
+      Visible = False
+    end
+    inherited FontEdit1: TFontEdit
+      Enabled = False
+      Visible = False
+    end
     object actAnadirArticulos: TAction [12]
       Category = 'Operaciones'
       Caption = 'Art'#237'culos del cat'#225'logo'
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc
index d127acd..75a4b34 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Contactos\Controller\Contactos_controller.res */
-/* C:\Codigo\Source\Modulos\Contactos\Controller\Contactos_controller.drf */
+/* c:\temp\dtf5A5.tmp */
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.res b/Source/Modulos/Contactos/Controller/Contactos_controller.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.res and b/Source/Modulos/Contactos/Controller/Contactos_controller.res differ
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc
index 5c9543d..2eae50d 100644
--- a/Source/Modulos/Contactos/Data/Contactos_data.drc
+++ b/Source/Modulos/Contactos/Data/Contactos_data.drc
@@ -12,10 +12,10 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleContactos.DFM */
+/* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Data\uDataModuleAgentes.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Data\Contactos_data.res */
-/* C:\Codigo\Source\Modulos\Contactos\Data\Contactos_data.drf */
+/* c:\temp\dtf5A3.tmp */
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Data/Contactos_data.res and b/Source/Modulos/Contactos/Data/Contactos_data.res differ
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc
index bcdf0e4..ef55dbc 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.drc
+++ b/Source/Modulos/Contactos/Model/Contactos_model.drc
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Contactos\Model\Contactos_model.res */
-/* C:\Codigo\Source\Modulos\Contactos\Model\Contactos_model.drf */
+/* c:\temp\dtf5A1.tmp */
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index 73da84d..f30ea00 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -3,7 +3,7 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -730,7 +730,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -904,7 +904,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -993,7 +993,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1321,7 +1321,7 @@ type
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1824,7 +1824,7 @@ type
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2275,7 +2275,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2602,7 +2602,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2752,7 +2752,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2817,7 +2817,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2864,7 +2864,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -3024,7 +3024,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -3180,7 +3180,7 @@ type
   end;
 
   { TContratosEmpleadosDataTableRules }
-  TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
+  TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
   private
   protected
     { Property getters and setters }
@@ -3215,7 +3215,7 @@ type
   end;
 
   { TDescripcionesProveedoresDataTableRules }
-  TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
+  TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
   private
   protected
     { Property getters and setters }
@@ -3304,7 +3304,7 @@ type
   end;
 
   { TPersonalContactoDataTableRules }
-  TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
+  TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
   private
   protected
     { Property getters and setters }
@@ -3417,7 +3417,7 @@ type
   end;
 
   { TAgentes_ComisionesDataTableRules }
-  TAgentes_ComisionesDataTableRules = class(TDADataTableRules, IAgentes_Comisiones)
+  TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones)
   private
   protected
     { Property getters and setters }
@@ -3625,7 +3625,7 @@ type
   end;
 
   { TAgentesDataTableRules }
-  TAgentesDataTableRules = class(TDADataTableRules, IAgentes)
+  TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
index 180ecee..5e88fb7 100644
--- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
+++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
-/* C:\Codigo\Source\Modulos\Contactos\Plugin\Contactos_plugin.drf */
+/* c:\temp\dtf5A9.tmp */
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index b881b0b..ccfce12 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,57 +49,64 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="bdertl.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="cfpack_d11.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dclcxLibraryD11.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxPSCoreD11.dcp" />
-    <DCCReference Include="dxPScxCommonD11.dcp" />
-    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="dxPSLnksD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="FormasPago_controller.dcp" />
-    <DCCReference Include="FormasPago_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="JSDialog100.dcp" />
-    <DCCReference Include="JvAppFrmD11R.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="JvCtrlsD11R.dcp" />
-    <DCCReference Include="JvGlobusD11R.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
-    <DCCReference Include="TiposIVA_controller.dcp" />
-    <DCCReference Include="TiposIVA_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorAgente.pas">
       <Form>fEditorAgente</Form>
@@ -205,7 +212,7 @@
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewClienteDatosComerciales.pas">
-      <Form>frViewAgenteComisiones</Form>
+      <Form>frViewClienteDatosComerciales</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewClienteDescuentos.pas">
@@ -272,13 +279,6 @@
       <Form>frViewProveedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclshlctrls.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc
index 40b11e5..793d6ec 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.drc
+++ b/Source/Modulos/Contactos/Views/Contactos_view.drc
@@ -12,48 +12,48 @@ STRINGTABLE
 BEGIN
 END
 
-/* c:\codigo\source\modulos\contactos\views\uViewContactos.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorContactos.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewClientes.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorClientes.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewProveedores.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorProveedores.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewEmpleados.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorEmpleados.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewAgentes.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorAgentes.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorElegirClientes.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewContacto.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewContactoDatosBancarios.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewContactoListaDatosBancarios.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewPersonalContacto.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorContacto.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewCliente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewEmpleado.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewDireccionesEntrega.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewClienteDescuentos.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewClienteDatosComerciales.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorCliente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewProveedor.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewProveedorDatosComerciales.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorProveedor.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewAgente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewAgenteComisiones.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorAgente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorEmpleado.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorElegirProveedores.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorDireccion.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorElegirDireccionEntrega.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorGruposCliente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorGruposProveedor.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorGruposEmpleado.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorFichasEmpleadoReport.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorEtiquetasContactosReport.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorDatoBancario.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorPersonal.dfm */
-/* c:\codigo\source\modulos\contactos\views\uEditorElegirPersonaContacto.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewDatosYSeleccionProveedor.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewDatosYSeleccionCliente.dfm */
-/* c:\codigo\source\modulos\contactos\views\uViewDatosYSeleccionClienteBase.dfm */
-/* c:\codigo\source\modulos\contactos\views\Contactos_view.res */
-/* c:\codigo\source\modulos\contactos\views\Contactos_view.drf */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewContactos.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorContactos.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewClientes.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorClientes.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewProveedores.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorProveedores.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewEmpleados.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorEmpleados.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewAgentes.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorAgentes.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorElegirClientes.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewContacto.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewContactoDatosBancarios.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewContactoListaDatosBancarios.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewPersonalContacto.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorContacto.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewCliente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewEmpleado.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewDireccionesEntrega.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewClienteDescuentos.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewClienteDatosComerciales.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorCliente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewProveedor.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewProveedorDatosComerciales.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorProveedor.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewAgente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewAgenteComisiones.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorAgente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorEmpleado.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorElegirProveedores.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorDireccion.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorElegirDireccionEntrega.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorGruposCliente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorGruposProveedor.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorGruposEmpleado.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorFichasEmpleadoReport.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorEtiquetasContactosReport.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorDatoBancario.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorPersonal.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uEditorElegirPersonaContacto.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */
+/* C:\Codigo\Source\Modulos\Contactos\Views\Contactos_view.res */
+/* C:\Codigo\Source\Modulos\Contactos\Views\Contactos_view.drf */
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ
diff --git a/Source/Modulos/Contactos/Views/uEditorAgente.dfm b/Source/Modulos/Contactos/Views/uEditorAgente.dfm
index cfeba76..c5d3f00 100644
--- a/Source/Modulos/Contactos/Views/uEditorAgente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorAgente.dfm
@@ -19,7 +19,7 @@ inherited fEditorAgente: TfEditorAgente
         000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F0000040F49444154484BD595594C9C651486F5C22B
+        17100000171001186111DB0000040F49444154484BD595594C9C651486F5C22B
         4DBC6ABC7349AD56AD089434696AD548DDD2DA86DA54206026D029AB8896A626
         55AA8D315A2D8B8DD6428B550B52455A96863DB4D0B253F6656080D998056686
         7D29DBE3F70D8B343FDCC9857F7226F96FDEF73DCF3973FE07810736F491061B
@@ -132,7 +132,7 @@ inherited fEditorAgente: TfEditorAgente
   inherited pgPaginas: TPageControl
     Width = 864
     Height = 614
-    ActivePage = pagGeneral
+    ActivePage = pagDescuentos
     ExplicitWidth = 864
     ExplicitHeight = 614
     inherited pagGeneral: TTabSheet
@@ -221,6 +221,14 @@ inherited fEditorAgente: TfEditorAgente
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 587
           end
+          inherited eFechaBaja: TcxDBDateEdit
+            ExplicitWidth = 229
+            Width = 229
+          end
+          inherited eCausaBaja: TcxDBTextEdit
+            ExplicitWidth = 229
+            Width = 229
+          end
           inherited eTlfMovil: TcxDBTextEdit
             Left = 587
             Style.LookAndFeel.SkinName = ''
@@ -243,14 +251,6 @@ inherited fEditorAgente: TfEditorAgente
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
           end
-          inherited eFechaBaja: TcxDBDateEdit
-            ExplicitWidth = 229
-            Width = 229
-          end
-          inherited eCausaBaja: TcxDBTextEdit
-            ExplicitWidth = 229
-            Width = 229
-          end
           inherited eNIFCIF: TcxDBTextEdit
             Left = 285
             Style.LookAndFeel.SkinName = ''
@@ -337,7 +337,7 @@ inherited fEditorAgente: TfEditorAgente
       end
     end
     object pagDescuentos: TTabSheet [2]
-      Caption = 'Descuentos'
+      Caption = 'Comisiones'
       ImageIndex = 2
       inline frViewAgenteComisiones1: TfrViewAgenteComisiones
         Left = 0
@@ -353,14 +353,17 @@ inherited fEditorAgente: TfEditorAgente
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitLeft = 230
-        ExplicitTop = 91
+        ExplicitWidth = 856
+        ExplicitHeight = 586
         inherited cxGrid: TcxGrid
           Width = 856
           Height = 561
+          ExplicitWidth = 856
+          ExplicitHeight = 561
         end
         inherited ToolBar1: TToolBar
           Width = 856
+          ExplicitWidth = 856
         end
       end
     end
diff --git a/Source/Modulos/Contactos/Views/uEditorDireccion.dfm b/Source/Modulos/Contactos/Views/uEditorDireccion.dfm
index 95a926b..ed6c591 100644
--- a/Source/Modulos/Contactos/Views/uEditorDireccion.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorDireccion.dfm
@@ -4,22 +4,22 @@ object fEditorDireccion: TfEditorDireccion
   ActiveControl = eNombre
   BorderStyle = bsDialog
   Caption = 'Cambiar datos de la direcci'#243'n'
-  ClientHeight = 499
-  ClientWidth = 426
+  ClientHeight = 534
+  ClientWidth = 454
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
   Position = poOwnerFormCenter
   DesignSize = (
-    426
-    499)
+    454
+    534)
   PixelsPerInch = 96
   TextHeight = 13
   object Bevel1: TBevel
     Left = 8
     Top = 8
-    Width = 329
-    Height = 457
+    Width = 357
+    Height = 521
     Anchors = [akLeft, akTop, akRight]
     Shape = bsFrame
   end
@@ -120,15 +120,6 @@ object fEditorDireccion: TfEditorDireccion
     AutoSize = False
     Caption = 'Notas:'
   end
-  object Label10: TLabel
-    Left = 20
-    Top = 471
-    Width = 156
-    Height = 13
-    AutoSize = False
-    Caption = 'Coste del env'#237'o a esta direcci'#243'n:'
-    Visible = False
-  end
   object Label11: TLabel
     Left = 21
     Top = 275
@@ -145,8 +136,23 @@ object fEditorDireccion: TfEditorDireccion
     AutoSize = False
     Caption = 'Fax:'
   end
+  object Label10: TLabel
+    Left = 21
+    Top = 493
+    Width = 156
+    Height = 13
+    AutoSize = False
+    Caption = 'Coste del env'#237'o a esta direcci'#243'n:'
+  end
+  object Bevel2: TBevel
+    Left = 21
+    Top = 475
+    Width = 307
+    Height = 14
+    Shape = bsTopLine
+  end
   object OKBtn: TButton
-    Left = 343
+    Left = 371
     Top = 7
     Width = 75
     Height = 25
@@ -154,9 +160,10 @@ object fEditorDireccion: TfEditorDireccion
     Caption = '&Aceptar'
     ModalResult = 1
     TabOrder = 0
+    ExplicitLeft = 343
   end
   object CancelBtn: TButton
-    Left = 343
+    Left = 371
     Top = 38
     Width = 75
     Height = 25
@@ -165,6 +172,7 @@ object fEditorDireccion: TfEditorDireccion
     Caption = '&Cancelar'
     ModalResult = 2
     TabOrder = 1
+    ExplicitLeft = 343
   end
   object eDireccion: TDBEdit
     Left = 135
@@ -263,9 +271,27 @@ object fEditorDireccion: TfEditorDireccion
     ScrollBars = ssVertical
     TabOrder = 10
   end
+  object eMovil: TDBEdit
+    Left = 136
+    Top = 272
+    Width = 191
+    Height = 21
+    DataField = 'MOVIL'
+    DataSource = dsDireccion
+    TabOrder = 11
+  end
+  object eFax: TDBEdit
+    Left = 136
+    Top = 296
+    Width = 191
+    Height = 21
+    DataField = 'FAX'
+    DataSource = dsDireccion
+    TabOrder = 12
+  end
   object ePortes: TcxDBCurrencyEdit
     Left = 194
-    Top = 471
+    Top = 492
     DataBinding.DataField = 'PORTE'
     DataBinding.DataSource = dsDireccion
     Properties.UseThousandSeparator = True
@@ -277,27 +303,8 @@ object fEditorDireccion: TfEditorDireccion
     StyleFocused.LookAndFeel.NativeStyle = True
     StyleHot.LookAndFeel.Kind = lfStandard
     StyleHot.LookAndFeel.NativeStyle = True
-    TabOrder = 11
-    Visible = False
-    Width = 143
-  end
-  object eMovil: TDBEdit
-    Left = 136
-    Top = 272
-    Width = 191
-    Height = 21
-    DataField = 'MOVIL'
-    DataSource = dsDireccion
-    TabOrder = 12
-  end
-  object eFax: TDBEdit
-    Left = 136
-    Top = 296
-    Width = 191
-    Height = 21
-    DataField = 'FAX'
-    DataSource = dsDireccion
     TabOrder = 13
+    Width = 132
   end
   object dsDireccion: TDADataSource
     Left = 352
diff --git a/Source/Modulos/Contactos/Views/uEditorDireccion.pas b/Source/Modulos/Contactos/Views/uEditorDireccion.pas
index c46beae..361dcbd 100644
--- a/Source/Modulos/Contactos/Views/uEditorDireccion.pas
+++ b/Source/Modulos/Contactos/Views/uEditorDireccion.pas
@@ -33,12 +33,13 @@ type
     Label8: TLabel;
     Label9: TLabel;
     eNotas: TDBMemo;
-    Label10: TLabel;
-    ePortes: TcxDBCurrencyEdit;
     Label11: TLabel;
     eMovil: TDBEdit;
     Label12: TLabel;
     eFax: TDBEdit;
+    Label10: TLabel;
+    ePortes: TcxDBCurrencyEdit;
+    Bevel2: TBevel;
     procedure PngSpeedButton3Click(Sender: TObject);
     procedure eMailPropertiesEditValueChanged(Sender: TObject);
     procedure eMailPropertiesValidate(Sender: TObject;
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
index d1a129d..4cd5444 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
@@ -3,8 +3,8 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
   Top = 108
   BorderStyle = bsDialog
   Caption = 'Elegir una direcci'#243'n de cliente'
-  ClientHeight = 506
-  ClientWidth = 599
+  ClientHeight = 386
+  ClientWidth = 638
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
@@ -17,7 +17,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
   object pnlHeader: TPanel
     Left = 0
     Top = 0
-    Width = 656
+    Width = 638
     Height = 64
     Align = alTop
     BevelOuter = bvNone
@@ -27,12 +27,12 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
     Padding.Right = 25
     Padding.Bottom = 8
     ParentBackground = False
-    TabOrder = 5
+    TabOrder = 2
     object lblTitle: TLabel
       AlignWithMargins = True
       Left = 25
       Top = 8
-      Width = 606
+      Width = 588
       Height = 13
       Margins.Left = 0
       Margins.Top = 0
@@ -46,28 +46,29 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
       Font.Name = 'Tahoma'
       Font.Style = [fsBold]
       ParentFont = False
-      ExplicitWidth = 135
+      ExplicitWidth = 199
     end
     object lblComments: TLabel
       AlignWithMargins = True
       Left = 50
       Top = 29
-      Width = 581
-      Height = 27
+      Width = 563
+      Height = 24
       Margins.Left = 25
       Margins.Top = 0
       Margins.Right = 0
       Align = alClient
-      ExplicitWidth = 3
-      ExplicitHeight = 13
-      Caption = 'El cliente dispone de varias direcciones dadas de alta en su fic' +
+      Caption = 
+        'El cliente dispone de varias direcciones dadas de alta en su fic' +
         'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.'
+      ExplicitWidth = 564
+      ExplicitHeight = 13
     end
   end
   inline frViewBarraSeleccion1: TfrViewBarraSeleccion
     Left = 0
-    Top = 457
-    Width = 599
+    Top = 337
+    Width = 638
     Height = 49
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
@@ -78,18 +79,18 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
     ParentFont = False
     TabOrder = 0
     ReadOnly = False
-    ExplicitTop = 457
-    ExplicitWidth = 599
+    ExplicitTop = 337
+    ExplicitWidth = 638
     inherited JvFooter1: TJvFooter
-      Width = 599
-      ExplicitWidth = 599
+      Width = 638
+      ExplicitWidth = 638
       inherited bSeleccionar: TJvFooterBtn
-        Left = 387
+        Left = 426
         ExplicitLeft = 387
       end
       inherited bCancelar: TJvFooterBtn
-        Left = 491
-        ExplicitLeft = 491
+        Left = 530
+        ExplicitLeft = 530
       end
     end
     inherited BarraSeleccionActionList: TActionList
@@ -103,8 +104,8 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
     end
   end
   object DBCtrlGrid1: TDBCtrlGrid
-    Left = 45
-    Top = 214
+    Left = 50
+    Top = 77
     Width = 539
     Height = 241
     Margins.Left = 10
@@ -275,177 +276,6 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
       OnDblClick = ComponenteDblClick
     end
   end
-  object rdxDestino1: TRadioButton
-    Left = 16
-    Top = 77
-    Width = 335
-    Height = 17
-    Action = actDirSocial
-    TabOrder = 2
-    TabStop = True
-  end
-  object RadioButton1: TRadioButton
-    Left = 16
-    Top = 193
-    Width = 335
-    Height = 17
-    Action = actOtro
-    TabOrder = 3
-    TabStop = True
-  end
-  object pnlDirSocial: TPanel
-    Left = 45
-    Top = 97
-    Width = 520
-    Height = 81
-    Color = clWindow
-    ParentBackground = False
-    TabOrder = 4
-    object DBText1: TDBText
-      Left = 8
-      Top = 5
-      Width = 497
-      Height = 17
-      DataField = 'NOMBRE'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object Label3: TLabel
-      Left = 13
-      Top = 23
-      Width = 27
-      Height = 13
-      Caption = 'Calle:'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-    end
-    object DBText2: TDBText
-      Left = 46
-      Top = 23
-      Width = 465
-      Height = 17
-      DataField = 'CALLE'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object Label5: TLabel
-      Left = 13
-      Top = 40
-      Width = 49
-      Height = 13
-      Caption = 'Poblaci'#243'n:'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-    end
-    object DBText3: TDBText
-      Left = 68
-      Top = 40
-      Width = 251
-      Height = 17
-      DataField = 'POBLACION'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object DBText4: TDBText
-      Left = 325
-      Top = 40
-      Width = 50
-      Height = 17
-      DataField = 'CODIGO_POSTAL'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object DBText5: TDBText
-      Left = 381
-      Top = 40
-      Width = 130
-      Height = 17
-      DataField = 'PROVINCIA'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object DBText7: TDBText
-      Left = 381
-      Top = 57
-      Width = 130
-      Height = 17
-      DataField = 'TELEFONO_1'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-    object Label6: TLabel
-      Left = 13
-      Top = 57
-      Width = 103
-      Height = 13
-      Caption = 'Persona de contacto:'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-    end
-    object DBText6: TDBText
-      Left = 122
-      Top = 57
-      Width = 261
-      Height = 17
-      DataField = 'PERSONA_CONTACTO'
-      DataSource = dsContacto
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-    end
-  end
   object dsDirecciones: TDADataSource
     Left = 16
     Top = 222
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
index 5c00a20..c3f0139 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
@@ -27,23 +27,11 @@ type
     Label1: TLabel;
     Label2: TLabel;
     Label4: TLabel;
-    rdxDestino1: TRadioButton;
-    RadioButton1: TRadioButton;
     ActionList1: TActionList;
     actDirSocial: TAction;
     actOtro: TAction;
     dsContacto: TDADataSource;
-    pnlDirSocial: TPanel;
-    DBText1: TDBText;
-    Label3: TLabel;
-    DBText2: TDBText;
-    Label5: TLabel;
-    DBText3: TDBText;
-    DBText4: TDBText;
-    DBText5: TDBText;
-    DBText7: TDBText;
-    Label6: TLabel;
-    DBText6: TDBText;
+    pnlHeader: TPanel;
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
     procedure DBCtrlGrid1DblClick(Sender: TObject);
@@ -56,7 +44,7 @@ type
     procedure actOtroUpdate(Sender: TObject);
   private
     procedure ColorearTextoDirSocial(AColor : TColor);
-    procedure ColorearTextoDirOtra(AColor : TColor);    
+    procedure ColorearTextoDirOtra(AColor : TColor);
   protected
     FDirecciones: IBizDireccionesContacto;
     FContacto : IBizContacto;
@@ -162,38 +150,20 @@ end;
 function TfEditorElegirDireccionEntrega.GetDireccionSeleccionada: IBizDireccionesContacto;
 begin
   Result := FDireccionesController.Nuevo;
-  if actOtro.Checked then
+  with Result do
   begin
-    with Result do
-    begin
-      ID := FDirecciones.ID;
-      NOMBRE := FDirecciones.NOMBRE;
-      CALLE := FDirecciones.CALLE;
-      POBLACION := FDirecciones.POBLACION;
-      CODIGO_POSTAL := FDirecciones.CODIGO_POSTAL;
-      PROVINCIA := FDirecciones.PROVINCIA;
-      TELEFONO := FDirecciones.TELEFONO;
-      FAX := FDirecciones.FAX;
-      MOVIL := FDirecciones.MOVIL;
-      EMAIL := FDirecciones.EMAIL;
-      PERSONA_CONTACTO := FDirecciones.PERSONA_CONTACTO;
-    end;
-  end
-  else begin
-    with Result do
-    begin
-      DataTable.FieldByName('ID').AsVariant := Null;
-      NOMBRE := FContacto.NOMBRE;
-      CALLE := FContacto.CALLE;
-      POBLACION := FContacto.POBLACION;
-      CODIGO_POSTAL := FContacto.CODIGO_POSTAL;
-      PROVINCIA := FContacto.PROVINCIA;
-      TELEFONO := FContacto.TELEFONO_1;
-      FAX := FContacto.FAX;
-      MOVIL := FContacto.MOVIL_1;
-      EMAIL := FContacto.EMAIL_1;
-      PERSONA_CONTACTO := FContacto.PERSONA_CONTACTO;
-    end;
+    ID := FDirecciones.ID;
+    NOMBRE := FDirecciones.NOMBRE;
+    CALLE := FDirecciones.CALLE;
+    POBLACION := FDirecciones.POBLACION;
+    CODIGO_POSTAL := FDirecciones.CODIGO_POSTAL;
+    PROVINCIA := FDirecciones.PROVINCIA;
+    TELEFONO := FDirecciones.TELEFONO;
+    FAX := FDirecciones.FAX;
+    MOVIL := FDirecciones.MOVIL;
+    EMAIL := FDirecciones.EMAIL;
+    PERSONA_CONTACTO := FDirecciones.PERSONA_CONTACTO;
+    PORTE := FDirecciones.PORTE;
   end;
 end;
 
@@ -204,6 +174,7 @@ end;
 
 procedure TfEditorElegirDireccionEntrega.RefrescarEstado;
 begin
+{
   if (actOtro.Checked) then
   begin
     DBCtrlGrid1.Enabled := True;
@@ -225,10 +196,12 @@ begin
     ColorearTextoDirSocial(clWindowText);
     ColorearTextoDirOtra(clGray);
   end;
+}  
 end;
 
 procedure TfEditorElegirDireccionEntrega.ColorearTextoDirOtra(AColor: TColor);
 begin
+{
   eNombre.Font.Color := AColor;
   eCalle.Font.Color := AColor;
   ePoblacion.Font.Color := AColor;
@@ -236,10 +209,12 @@ begin
   eTelefono.Font.Color := AColor;
   ePersonaContacto.Font.Color := AColor;
   eCodigoPostal.Font.Color := AColor;
+}  
 end;
 
 procedure TfEditorElegirDireccionEntrega.ColorearTextoDirSocial(AColor: TColor);
 begin
+{
   DBText1.Font.Color := AColor;
   DBText2.Font.Color := AColor;
   DBText3.Font.Color := AColor;
@@ -247,6 +222,7 @@ begin
   DBText5.Font.Color := AColor;
   DBText6.Font.Color := AColor;
   DBText7.Font.Color := AColor;
+}  
 end;
 
 procedure TfEditorElegirDireccionEntrega.SetContacto(const Value: IBizContacto);
diff --git a/Source/Modulos/Contactos/Views/uViewAgente.dfm b/Source/Modulos/Contactos/Views/uViewAgente.dfm
index 4e0208f..665b116 100644
--- a/Source/Modulos/Contactos/Views/uViewAgente.dfm
+++ b/Source/Modulos/Contactos/Views/uViewAgente.dfm
@@ -154,6 +154,43 @@ inherited frViewAgente: TfrViewAgente
       ExplicitWidth = 239
       Width = 239
     end
+    object eFechaBaja: TcxDBDateEdit [14]
+      Left = 121
+      Top = 109
+      DataBinding.DataField = 'FECHA_BAJA'
+      DataBinding.DataSource = dsContacto
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 4
+      Width = 229
+    end
+    object eCausaBaja: TcxDBTextEdit [15]
+      Left = 121
+      Top = 136
+      DataBinding.DataField = 'CAUSA_BAJA'
+      DataBinding.DataSource = dsContacto
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 5
+      Width = 229
+    end
     inherited eNIFCIF: TcxDBTextEdit
       Left = 231
       Style.LookAndFeel.SkinName = ''
@@ -188,43 +225,6 @@ inherited frViewAgente: TfrViewAgente
       ExplicitWidth = 137
       Width = 137
     end
-    object eFechaBaja: TcxDBDateEdit [17]
-      Left = 121
-      Top = 109
-      DataBinding.DataField = 'FECHA_BAJA'
-      DataBinding.DataSource = dsContacto
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.HotTrack = False
-      Style.LookAndFeel.NativeStyle = True
-      Style.ButtonStyle = bts3D
-      Style.PopupBorderStyle = epbsFrame3D
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
-      Width = 229
-    end
-    object eCausaBaja: TcxDBTextEdit [18]
-      Left = 121
-      Top = 136
-      DataBinding.DataField = 'CAUSA_BAJA'
-      DataBinding.DataSource = dsContacto
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clWindow
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
-      Width = 229
-    end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
       Left = 485
       Style.LookAndFeel.SkinName = ''
@@ -299,18 +299,11 @@ inherited frViewAgente: TfrViewAgente
           inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
             inherited dxLayoutControlContactoItem10: TdxLayoutItem
               Caption = 'Tlf. trabajo:'
-              Visible = False
             end
             inherited dxLayoutControlContactoItem9: TdxLayoutItem
               Caption = 'Tlf. particular:'
               Visible = False
             end
-            inherited dxLayoutControlContactoItem12: TdxLayoutItem
-              Visible = False
-            end
-          end
-          inherited dxLayoutControlContactoGroup5: TdxLayoutGroup
-            Visible = False
           end
         end
       end
diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
index ea3aec6..6a7485d 100644
--- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
@@ -9,14 +9,14 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
     Left = 0
     Top = 0
     Width = 725
-    Height = 209
+    Height = 217
     Align = alTop
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth]
     object Label1: TLabel
-      Left = 435
+      Left = 445
       Top = 28
       Width = 227
       Height = 26
@@ -34,7 +34,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Shape = bsBottomLine
     end
     object eDiasVencimiento1: TcxDBSpinEdit
-      Left = 507
+      Left = 517
       Top = 60
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
       DataBinding.DataSource = dsDatosComerciales
@@ -154,7 +154,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 121
     end
     object bFormasPago: TButton
-      Left = 273
+      Left = 283
       Top = 55
       Width = 132
       Height = 21
@@ -198,7 +198,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 121
     end
     object bTiposIVA: TButton
-      Left = 273
+      Left = 283
       Top = 82
       Width = 132
       Height = 21
@@ -233,7 +233,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 190
     end
     object eDiasVencimiento2: TcxDBSpinEdit
-      Left = 507
+      Left = 517
       Top = 87
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
       DataBinding.DataSource = dsDatosComerciales
@@ -260,7 +260,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 79
     end
     object eDiasVencimiento3: TcxDBSpinEdit
-      Left = 507
+      Left = 517
       Top = 114
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
       DataBinding.DataSource = dsDatosComerciales
diff --git a/Source/Modulos/Fabricantes/Data/Fabricantes_data.drc b/Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
index 141d4b7..061e0b4 100644
--- a/Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
+++ b/Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
 /* C:\Codigo\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
-/* c:\temp\dtf159.tmp */
+/* c:\temp\dtf5B7.tmp */
diff --git a/Source/Modulos/Fabricantes/Model/Fabricantes_model.drc b/Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
index 4763227..45f4b47 100644
--- a/Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
+++ b/Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
-/* c:\temp\dtf157.tmp */
+/* c:\temp\dtf5B5.tmp */
diff --git a/Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm b/Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm
index 0ea4d57..526939e 100644
--- a/Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm
+++ b/Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm
@@ -53,7 +53,9 @@ object PluginFabricantes: TPluginFabricantes
     object actFabricantes: TAction
       Category = 'Datos'
       Caption = 'Fabricantes'
+      Enabled = False
       ImageIndex = 0
+      Visible = False
       OnExecute = actFabricantesExecute
     end
   end
diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc
index 3d53f34..04acb14 100644
--- a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc	
+++ b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
-/* c:\temp\dtf1A7.tmp */
+/* c:\temp\dtf605.tmp */
diff --git a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
index 63df8b8..759ded8 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas	
@@ -177,7 +177,8 @@ begin
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then
-       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
+//       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
+       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_NETO
      else
        ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;
diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc
index 41c39b7..6e08d88 100644
--- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc	
+++ b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
-/* c:\temp\dtf1A5.tmp */
+/* c:\temp\dtf603.tmp */
diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc
index 515c733..8f2ea73 100644
--- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc	
+++ b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
-/* c:\temp\dtf1A3.tmp */
+/* c:\temp\dtf601.tmp */
diff --git a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
index ebc0feb..054d164 100644
--- a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc	
+++ b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
-/* c:\temp\dtf1FB.tmp */
+/* c:\temp\dtf64B.tmp */
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
index 8b15070..8eebfaa 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
@@ -33,7 +33,6 @@ requires
   Contactos_view,
   Articulos_view,
   AlbCli_FacCli_relation,
-  PreCli_FacCli_relation,
   GestorInformes_controller,
   rtl,
   vcl;
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index 4cf71f8..4484fb5 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
@@ -58,7 +58,6 @@
     <DCCReference Include="..\FacturasCliente_model.dcp" />
     <DCCReference Include="..\GestorInformes_controller.dcp" />
     <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\PreCli_FacCli_relation.dcp" />
     <DCCReference Include="..\rtl.dcp" />
     <DCCReference Include="..\vcl.dcp" />
     <DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
index 8709554..316bb7a 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc	
@@ -24,4 +24,4 @@ END
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
-/* c:\temp\dtf1F9.tmp */
+/* c:\temp\dtf649.tmp */
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
index 151d0f7..a34214d 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm	
@@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     Width = 842
     ExplicitWidth = 842
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 842
+      ExplicitWidth = 740
       object TBXSubmenuItem2: TTBXSubmenuItem [0]
         Caption = 'Nuevo'
         DisplayMode = nbdmImageAndText
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index 8013fde..92e7bfe 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
@@ -83,7 +83,7 @@ implementation
 
 uses
   uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
-  uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliPreCliUtils,
+  uGenerarFacturasCliAlbCliUtils, //uGenerarFacturasCliPreCliUtils,
   uBizAlbaranesCliente, uGestorInformesController, uDialogOpcionesImpresionFacturasCliente,
   uEditorBase,  uGridStatusUtils, uDBSelectionListUtils, udialogUtils;
 
@@ -365,7 +365,7 @@ begin
   begin
     case JsNuevaFacturaDialog.CustomButtonResult of
       200   : begin   // Utilizar presupuestos
-                GenerarFacturaCliPre;
+//                GenerarFacturaCliPre;
                 actRefrescar.Execute;
               end;
       300   : begin   // Utilizar albaranes
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc
index 08bb91d..a61bc45 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc	
+++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
-/* c:\temp\dtf1D1.tmp */
+/* c:\temp\dtf62F.tmp */
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
index fee9b09..a6320b2 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas	
@@ -162,9 +162,10 @@ begin
   if Assigned(AField) then
      ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsVariant := AField.AsVariant;
 
-  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
-  if Assigned(AField) then
-     ADetalles.DataTable.FieldByName(fld_FacturasProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
+
+//  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
+//  if Assigned(AField) then
+//     ADetalles.DataTable.FieldByName(fld_FacturasProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
 end;
 
 procedure TDetallesFacturaProveedorController.ValidarCampos(DataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc
index 7cac6f8..7e81ead 100644
--- a/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc	
+++ b/Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */
-/* c:\temp\dtf1CF.tmp */
+/* c:\temp\dtf62D.tmp */
diff --git a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc
index be0f261..964c783 100644
--- a/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc	
+++ b/Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
-/* c:\temp\dtf1CD.tmp */
+/* c:\temp\dtf62B.tmp */
diff --git a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc
index a9b1045..9e5aeb4 100644
--- a/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc	
+++ b/Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */
-/* c:\temp\dtf20F.tmp */
+/* c:\temp\dtf65F.tmp */
diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
index ada6e46..9e1104d 100644
--- a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc	
+++ b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
-/* c:\temp\dtf163.tmp */
+/* c:\temp\dtf5C1.tmp */
diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
index 68dbbac..d5ad7a9 100644
--- a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc	
+++ b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
 /* C:\Codigo\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
-/* c:\temp\dtf161.tmp */
+/* c:\temp\dtf5BF.tmp */
diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.dpk b/Source/Modulos/Inventario/Controller/Inventario_controller.dpk
index 5d85b5b..8e5b2a3 100644
--- a/Source/Modulos/Inventario/Controller/Inventario_controller.dpk
+++ b/Source/Modulos/Inventario/Controller/Inventario_controller.dpk
@@ -29,8 +29,6 @@ requires
   Inventario_data,
   Articulos_controller,
   Almacenes_controller,
-  PresupuestosCliente_model,
-  PresupuestosCliente_controller,
   PedidosProveedor_controller,
   PedidosProveedor_model,
   Obras_controller,
diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.dproj b/Source/Modulos/Inventario/Controller/Inventario_controller.dproj
index 11877ee..cb6aa5d 100644
--- a/Source/Modulos/Inventario/Controller/Inventario_controller.dproj
+++ b/Source/Modulos/Inventario/Controller/Inventario_controller.dproj
@@ -46,16 +46,14 @@
     <DelphiCompile Include="Inventario_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\..\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\..\Inventario_data.dcp" />
-    <DCCReference Include="..\..\..\Inventario_model.dcp" />
-    <DCCReference Include="..\..\..\Obras_controller.dcp" />
-    <DCCReference Include="..\..\..\Obras_model.dcp" />
-    <DCCReference Include="..\..\..\PedidosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\..\PedidosProveedor_model.dcp" />
-    <DCCReference Include="..\..\..\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\..\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\Almacenes_controller.dcp" />
+    <DCCReference Include="..\Articulos_controller.dcp" />
+    <DCCReference Include="..\Inventario_data.dcp" />
+    <DCCReference Include="..\Inventario_model.dcp" />
+    <DCCReference Include="..\Obras_controller.dcp" />
+    <DCCReference Include="..\Obras_model.dcp" />
+    <DCCReference Include="..\PedidosProveedor_controller.dcp" />
+    <DCCReference Include="..\PedidosProveedor_model.dcp" />
     <DCCReference Include="..\Utiles\uInventarioUtils.pas">
       <Form>dmInventarioUtils</Form>
       <DesignClass>TDataModule</DesignClass>
diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas
index 99fd589..61782ee 100644
--- a/Source/Modulos/Inventario/Controller/uInventarioController.pas
+++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas
@@ -6,8 +6,9 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
   uIDataModuleInventario, uBizInventario, uArticulosInventarioController,
-  uAlmacenesController, uObrasController, uPresupuestosClienteController,
-  uBizPresupuestosCliente, uPedidosProveedorController, uBizPedidosProveedor,
+  uAlmacenesController, uObrasController, //uPresupuestosClienteController,
+  //uBizPresupuestosCliente,
+  uPedidosProveedorController, uBizPedidosProveedor,
   uBizArticulos, uBizAlmacenes, uBizObras;
 
 
@@ -60,17 +61,17 @@ type
     FAlmacenesController: IAlmacenesController;
     FObrasController: IObrasController;
     FArticulosController : IArticulosInventarioController;
-    FPresupuestosClienteController : IPresupuestosClienteController;
+//    FPresupuestosClienteController : IPresupuestosClienteController;
     FPedidosProveedorController : IPedidosProveedorController;
     function GetAlmacenesController: IAlmacenesController;
     function GetObrasController: IObrasController;
     function GetArticulosController: IArticulosInventarioController;
-    function GetPresupuestosClienteController: IPresupuestosClienteController;
+//    function GetPresupuestosClienteController: IPresupuestosClienteController;
     function GetPedidosProveedorController: IPedidosProveedorController;
     procedure SetAlmacenesController(const Value: IAlmacenesController);
     procedure SetObrasController(const Value: IObrasController);
     procedure SetArticulosController(const Value: IArticulosInventarioController);
-    procedure SetPresupuestosClienteController(const Value: IPresupuestosClienteController);
+//    procedure SetPresupuestosClienteController(const Value: IPresupuestosClienteController);
     procedure SetPedidosProveedorController(const Value: IPedidosProveedorController);
 
     function Liberar(AInventario : IBizInventario; Todos: Boolean): Boolean; overload;
@@ -102,7 +103,7 @@ type
     property AlmacenesController: IAlmacenesController read GetAlmacenesController write SetAlmacenesController;
     property ObrasController: IObrasController read GetObrasController write SetObrasController;
     property ArticulosController: IArticulosInventarioController read GetArticulosController write SetArticulosController;
-    property PresupuestosClienteController: IPresupuestosClienteController read GetPresupuestosClienteController write SetPresupuestosClienteController;
+//    property PresupuestosClienteController: IPresupuestosClienteController read GetPresupuestosClienteController write SetPresupuestosClienteController;
     property PedidosProveedorController: IPedidosProveedorController read GetPedidosProveedorController write SetPedidosProveedorController;
 
     constructor Create; override;
@@ -367,7 +368,7 @@ begin
   FArticulosController := TArticulosInventarioController.Create;
   FAlmacenesController := TAlmacenesController.Create;
   FObrasController := TObrasController.Create;  
-  FPresupuestosClienteController := TPresupuestosClienteController.Create;
+//  FPresupuestosClienteController := TPresupuestosClienteController.Create;
   FPedidosProveedorController := TPedidosProveedorController.Create;
 end;
 
@@ -400,7 +401,7 @@ begin
   FArticulosController := Nil;
   FAlmacenesController := Nil;
   FObrasController := Nil;  
-  FPresupuestosClienteController := Nil;
+//  FPresupuestosClienteController := Nil;
   FPedidosProveedorController := Nil;    
   inherited;
 end;
@@ -854,10 +855,12 @@ begin
   FArticulosController := Value
 end;
 
+{
 procedure TInventarioController.SetPresupuestosClienteController(const Value: IPresupuestosClienteController);
 begin
   FPresupuestosClienteController := Value
 end;
+}
 
 procedure TInventarioController.SetPedidosProveedorController(const Value: IPedidosProveedorController);
 begin
@@ -1016,10 +1019,12 @@ begin
   Result := FArticulosController;
 end;
 
+{
 function TInventarioController.GetPresupuestosClienteController: IPresupuestosClienteController;
 begin
   Result := FPresupuestosClienteController;
 end;
+}
 
 function TInventarioController.GetPedidosProveedorController: IPedidosProveedorController;
 begin
diff --git a/Source/Modulos/Inventario/Plugin/uPluginInventario.dfm b/Source/Modulos/Inventario/Plugin/uPluginInventario.dfm
index e6b5662..4983957 100644
--- a/Source/Modulos/Inventario/Plugin/uPluginInventario.dfm
+++ b/Source/Modulos/Inventario/Plugin/uPluginInventario.dfm
@@ -175,7 +175,9 @@ object PluginInventario: TPluginInventario
     object actInventarioObras: TAction
       Category = 'Log'#237'stica'
       Caption = 'Inventario obras'
+      Enabled = False
       ImageIndex = 1
+      Visible = False
       OnExecute = actInventarioObrasExecute
     end
   end
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc
index cd1fc2c..45e80d6 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
-/* c:\temp\dtf1AD.tmp */
+/* c:\temp\dtf60B.tmp */
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
index ec5fc60..0019ae2 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas	
@@ -147,9 +147,9 @@ begin
   if Assigned(AField) then
      ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsVariant := AField.AsVariant;
 
-  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
-  if Assigned(AField) then
-     ADetalles.DataTable.FieldByName(fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
+//  AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
+//  if Assigned(AField) then
+//     ADetalles.DataTable.FieldByName(fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
 end;
 
 procedure TDetallesPedidoProveedorController.ValidarCampos(DataTable: TDADataTable);
diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc
index 688f074..106f0c1 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc	
+++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
-/* c:\temp\dtf1AB.tmp */
+/* c:\temp\dtf609.tmp */
diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc
index cf07365..5f55057 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc	
+++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
-/* c:\temp\dtf1A9.tmp */
+/* c:\temp\dtf607.tmp */
diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc
index 8b1db11..ffcfe13 100644
--- a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc	
+++ b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */
-/* c:\temp\dtf207.tmp */
+/* c:\temp\dtf657.tmp */
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc
index 3279860..358d4eb 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc	
+++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc	
@@ -30,4 +30,4 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
-/* c:\temp\dtf205.tmp */
+/* c:\temp\dtf655.tmp */
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
index fd1041b..f7aeb89 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas	
@@ -230,7 +230,7 @@ begin
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then
-       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
+       ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_NETO
      else
        ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
 end;
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
index 97641d8..c4e7de0 100644
--- a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc	
+++ b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
-/* c:\temp\dtf185.tmp */
+/* c:\temp\dtf5E3.tmp */
diff --git a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
index 92df55d..0ff9ca3 100644
--- a/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc	
+++ b/Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
-/* c:\temp\dtf18B.tmp */
+/* c:\temp\dtf5E9.tmp */
diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc
index 0764100..2969ead 100644
--- a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc	
+++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */
-/* c:\temp\dtf1B1.tmp */
+/* c:\temp\dtf60F.tmp */
diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc
index a6045ab..6c014cf 100644
--- a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc	
+++ b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */
 /* C:\Codigo\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */
-/* c:\temp\dtf1B7.tmp */
+/* c:\temp\dtf615.tmp */
diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
index 077fd61..9ff3a67 100644
--- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc	
+++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
 /* C:\Codigo\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
-/* c:\temp\dtf127.tmp */
+/* c:\temp\dtf585.tmp */
diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
index d33f0af..7326214 100644
--- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc	
+++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
-/* c:\temp\dtf125.tmp */
+/* c:\temp\dtf583.tmp */
diff --git a/Source/Modulos/Unidades de medida/Data/UnidadesMedida_data.drc b/Source/Modulos/Unidades de medida/Data/UnidadesMedida_data.drc
index ed24ce6..9c42ec7 100644
--- a/Source/Modulos/Unidades de medida/Data/UnidadesMedida_data.drc	
+++ b/Source/Modulos/Unidades de medida/Data/UnidadesMedida_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Unidades de medida\Data\uDataModuleUnidadesMedida.dfm */
 /* C:\Codigo\Source\Modulos\Unidades de medida\Data\UnidadesMedida_data.res */
-/* c:\temp\dtf13B.tmp */
+/* c:\temp\dtf599.tmp */
diff --git a/Source/Modulos/Unidades de medida/Model/UnidadesMedida_model.drc b/Source/Modulos/Unidades de medida/Model/UnidadesMedida_model.drc
index 4ad1a57..33e67a6 100644
--- a/Source/Modulos/Unidades de medida/Model/UnidadesMedida_model.drc	
+++ b/Source/Modulos/Unidades de medida/Model/UnidadesMedida_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Unidades de medida\Model\UnidadesMedida_model.res */
-/* c:\temp\dtf139.tmp */
+/* c:\temp\dtf597.tmp */
diff --git a/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm b/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm
index 6b2d050..91e5c87 100644
--- a/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm	
+++ b/Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm	
@@ -42,7 +42,9 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
     object actUnidadesMedida: TAction
       Category = 'Datos'
       Caption = 'Unidades de medida'
+      Enabled = False
       ImageIndex = 0
+      Visible = False
       OnExecute = actUnidadesMedidaExecute
     end
   end
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index dfbb966..958c793 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -880,6 +880,38 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvPedidosCliente" UID="{7491FEBB-7312-408A-BB2F-9E4141BA8C87}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}">
+<Operations>
+<Operation Name="GenerarInforme" UID="{B802C067-33D2-4FD1-A480-37D8EEC690B1}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+<Parameter Name="ImprimirPrecio" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="ImprimirRefProveedor" DataType="Boolean" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GenerarInformeEnPDF" UID="{004F8ECE-D3D5-45DB-A482-D1F3F520B13D}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+<Parameter Name="ImprimirPrecio" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="ImprimirRefProveedor" DataType="Boolean" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 </Services>
 <EventSinks>
 </EventSinks>
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 6059f5d..c0ee3be 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -52,6 +52,7 @@ const
   IsrvProvinciasPoblaciones_IID : TGUID = '{551D8756-51AE-4929-B235-107CD7B05C38}';
   IsrvGestorDocumentos_IID : TGUID = '{2FFB4EEA-F314-442C-920A-E1D37F378929}';
   IsrvGestorInformes_IID : TGUID = '{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}';
+  IsrvPedidosCliente_IID : TGUID = '{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}';
 
   { Event ID's }
 
@@ -86,6 +87,7 @@ type
   IsrvProvinciasPoblaciones = interface;
   IsrvGestorDocumentos = interface;
   IsrvGestorInformes = interface;
+  IsrvPedidosCliente = interface;
 
   TRdxEmpresasArray = class;
   TIntegerArray = class;
@@ -825,6 +827,27 @@ type
                                           const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
   end;
 
+  { IsrvPedidosCliente }
+  IsrvPedidosCliente = interface(IDataAbstractService)
+    ['{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}']
+    function GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+  end;
+
+  { CosrvPedidosCliente }
+  CosrvPedidosCliente = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosCliente;
+  end;
+
+  { TsrvPedidosCliente_Proxy }
+  TsrvPedidosCliente_Proxy = class(TDataAbstractService_Proxy, IsrvPedidosCliente)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+  end;
+
 implementation
 
 uses
@@ -2615,6 +2638,58 @@ begin
   end
 end;
 
+{ CosrvPedidosCliente }
+
+class function CosrvPedidosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosCliente;
+begin
+  result := TsrvPedidosCliente_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TsrvPedidosCliente_Proxy }
+
+function TsrvPedidosCliente_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvPedidosCliente';
+end;
+
+function TsrvPedidosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Write('ImprimirPrecio', TypeInfo(Boolean), ImprimirPrecio, []);
+    __Message.Write('ImprimirRefProveedor', TypeInfo(Boolean), ImprimirRefProveedor, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvPedidosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Write('ImprimirPrecio', TypeInfo(Boolean), ImprimirPrecio, []);
+    __Message.Write('ImprimirRefProveedor', TypeInfo(Boolean), ImprimirRefProveedor, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
@@ -2648,6 +2723,7 @@ initialization
   RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
   RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy);
   RegisterProxyClass(IsrvGestorInformes_IID, TsrvGestorInformes_Proxy);
+  RegisterProxyClass(IsrvPedidosCliente_IID, TsrvPedidosCliente_Proxy);
 
 
 finalization
@@ -2683,5 +2759,6 @@ finalization
   UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
   UnregisterProxyClass(IsrvGestorDocumentos_IID);
   UnregisterProxyClass(IsrvGestorInformes_IID);
+  UnregisterProxyClass(IsrvPedidosCliente_IID);
 
 end.
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index ef1ddeb..5dc98df 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -305,6 +305,16 @@ type
     procedure Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvPedidosCliente_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
 implementation
 
 uses
@@ -2215,5 +2225,81 @@ begin
   end;
 end;
 
+{ TsrvPedidosCliente_Invoker }
+
+constructor TsrvPedidosCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TsrvPedidosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  ImprimirPrecio: Boolean;
+  ImprimirRefProveedor: Boolean;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Read('ImprimirPrecio', TypeInfo(Boolean), ImprimirPrecio, []);
+    __Message.Read('ImprimirRefProveedor', TypeInfo(Boolean), ImprimirRefProveedor, []);
+
+    lResult := (__Instance as IsrvPedidosCliente).GenerarInforme(ListaID, ImprimirPrecio, ImprimirRefProveedor);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosCliente', 'GenerarInformeResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TsrvPedidosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  ImprimirPrecio: Boolean;
+  ImprimirRefProveedor: Boolean;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Read('ImprimirPrecio', TypeInfo(Boolean), ImprimirPrecio, []);
+    __Message.Read('ImprimirRefProveedor', TypeInfo(Boolean), ImprimirRefProveedor, []);
+
+    lResult := (__Instance as IsrvPedidosCliente).GenerarInformeEnPDF(ListaID, ImprimirPrecio, ImprimirRefProveedor);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosCliente', 'GenerarInformeEnPDFResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 initialization
 end.
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 02ed795..074e69b 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index ee2de48..7f3729e 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 31ba8ee..1ebc60f 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -97,8 +97,6 @@ uses
   uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
   schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
   schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
-  schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
-  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
   uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
   srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
@@ -136,7 +134,13 @@ uses
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   uBizAgentesServer in '..\Modulos\Contactos\Model\uBizAgentesServer.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
+  uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
+  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
+  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
+  schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
+  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 299e4db..3261191 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,344 +1,342 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-    <DCC_DebugVN>True</DCC_DebugVN>
-    <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-    <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-    <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-    <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-  </PropertyGroup>
-  <ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
-    <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-  </ProjectExtensions>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-  <ItemGroup>
-    <DelphiCompile Include="FactuGES_Server.dpr">
-      <MainSource>MainSource</MainSource>
-    </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-      <Form>srvEmpresas</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-      <Form>srvProvinciasPoblaciones_Impl</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-      <Form>srvUsuarios</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-      <Form>RptAlbaranesCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-      <Form>RptWordAlbaranCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-      <Form>srvAlbaranesCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-      <Form>RptAlbaranesProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-      <Form>RptWordAlbaranProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-      <Form>srvAlbaranesProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-      <Form>srvAlmacenes</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-      <Form>srvArticulos</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-      <Form>RptEtiquetasContacto</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-      <Form>RptFichasEmpleado</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-      <Form>srvContactos</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-      <Form>srvFabricantes</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-      <Form>RptFacturasCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-      <Form>RptWordFacturaCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-      <Form>srvFacturasCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-      <Form>RptFacturasProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-      <Form>srvFacturasProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-      <Form>srvFamilias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-      <Form>srvFormasPago</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-      <Form>srvGestorDocumentos</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-      <Form>srvGestorInformes</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-      <Form>srvHistoricoMovimientos</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-      <Form>srvInventario</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
-    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-      <Form>srvObras</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-      <Form>RptPedidosProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-      <Form>RptWordPedidoProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-      <Form>srvPedidosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-      <Form>RptPresupuestosCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-      <Form>RptWordCertificadoTrabajo</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-      <Form>RptWordPresupuestoCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-      <Form>srvPresupuestosCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-      <Form>RptRecibosCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-      <Form>srvRecibosCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-      <Form>RptRecibosProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-      <Form>srvRecibosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-      <Form>srvReferencias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-      <Form>srvRemesasCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-      <Form>srvRemesasProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-      <Form>srvTiposIVA</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-      <Form>srvUnidadesMedida</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-      <Form>srvConfiguracion</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
-      <Form>frConexionBD</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
-      <Form>frConfGeneral</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
-      <Form>fConfiguracion</Form>
-      <DesignClass>TForm</DesignClass>
-    </DCCReference>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-      <Form>FrameConfiguracion</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
-    <DCCReference Include="srvLogin_Impl.pas">
-      <Form>srvLogin</Form>
-      <DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="uAcercaDe.pas">
-      <Form>fAcercaDe</Form>
-    </DCCReference>
-    <DCCReference Include="uDataModuleServer.pas">
-      <Form>dmServer</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="uServerMainForm.pas">
-      <Form>fServerForm</Form>
-    </DCCReference>
-    <DCCReference Include="Utiles\AHWord97.pas" />
-    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-    <DCCReference Include="Utiles\RegExpr.pas" />
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-  </ItemGroup>
+	<PropertyGroup>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<MainSource>FactuGES_Server.dpr</MainSource>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_MapFile>3</DCC_MapFile>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_Define>RELEASE</DCC_Define>
+	</PropertyGroup>
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+		<Version>7.0</Version>
+		<DCC_MapFile>3</DCC_MapFile>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_Define>DEBUG;</DCC_Define>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+		<DCC_DebugVN>True</DCC_DebugVN>
+		<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+		<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+		<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+		<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+	</PropertyGroup>
+	<ProjectExtensions>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.ProjectType/>
+		<BorlandProject>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	</ProjectExtensions>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+	<ItemGroup>
+		<DelphiCompile Include="FactuGES_Server.dpr">
+			<MainSource>MainSource</MainSource>
+		</DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+			<Form>srvEmpresas</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+			<Form>srvProvinciasPoblaciones_Impl</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+			<Form>srvUsuarios</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+			<Form>RptAlbaranesCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+			<Form>RptWordAlbaranCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+			<Form>srvAlbaranesCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
+			<Form>RptAlbaranesProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
+			<Form>RptWordAlbaranProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+			<Form>srvAlbaranesProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<Form>srvAlmacenes</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+			<Form>srvArticulos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+			<Form>RptEtiquetasContacto</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+			<Form>RptFichasEmpleado</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+			<Form>srvContactos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+			<Form>srvFabricantes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+			<Form>RptFacturasCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+			<Form>RptWordFacturaCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+			<Form>srvFacturasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+			<Form>RptFacturasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+			<Form>srvFacturasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+			<Form>srvFamilias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+			<Form>srvFormasPago</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+			<Form>srvGestorDocumentos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+			<Form>srvGestorInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+			<Form>srvHistoricoMovimientos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+			<Form>srvInventario</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+			<Form>srvObras</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+			<Form>RptPedidosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+			<Form>RptWordPedidoProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+			<Form>srvPedidosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
+			<Form>srvPedidosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+			<Form>RptPresupuestosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+			<Form>RptWordCertificadoTrabajo</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+			<Form>RptWordPresupuestoCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+			<Form>srvPresupuestosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+			<Form>RptRecibosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<Form>srvRecibosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+			<Form>RptRecibosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+			<Form>srvRecibosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+			<Form>srvReferencias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+			<Form>srvRemesasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+			<Form>srvRemesasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+			<Form>srvTiposIVA</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+			<Form>srvUnidadesMedida</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+			<Form>srvConfiguracion</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
+			<Form>frConexionBD</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
+			<Form>frConfGeneral</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
+			<Form>fConfiguracion</Form>
+			<DesignClass>TForm</DesignClass>
+		</DCCReference>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+			<Form>FrameConfiguracion</Form>
+			<DesignClass>TFrame</DesignClass>
+		</DCCReference>
+		<DCCReference Include="srvLogin_Impl.pas">
+			<Form>srvLogin</Form>
+			<DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="uAcercaDe.pas">
+			<Form>fAcercaDe</Form>
+		</DCCReference>
+		<DCCReference Include="uDataModuleServer.pas">
+			<Form>dmServer</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="uServerMainForm.pas">
+			<Form>fServerForm</Form>
+		</DCCReference>
+		<DCCReference Include="Utiles\AHWord97.pas"/>
+		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+	</ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
diff --git a/Source/Servidor/FactuGES_Server.drc b/Source/Servidor/FactuGES_Server.drc
index f89f3ac..0fe9668 100644
--- a/Source/Servidor/FactuGES_Server.drc
+++ b/Source/Servidor/FactuGES_Server.drc
@@ -326,15 +326,15 @@
 #define cxDataConsts_cxSDataReadError 64541
 #define cxDataConsts_cxSDataWriteError 64542
 #define cxDataConsts_cxSDataItemExistError 64543
-#define IBSQLMonitor_StrPrepare 64544
-#define IBSQLMonitor_StrPlan 64545
-#define IBSQLMonitor_StrPlanCantRetrive 64546
-#define IBSQLMonitor_StrCommitHardComm 64547
-#define IBSQLMonitor_StrCommitRetaining 64548
-#define IBSQLMonitor_StrRollback 64549
-#define IBSQLMonitor_StrRollbackRetainin 64550
-#define IBSQLMonitor_StrStartTransaction 64551
-#define IBSQLMonitor_StrApplication 64552
+#define IBXConst_SFieldSizeMismatch 64544
+#define IBXConst_SEventAlreadyRegistered 64545
+#define IBXConst_SStringTooLarge 64546
+#define IBXConst_SNoTimers 64547
+#define IBXConst_SIB65feature 64548
+#define IBXConst_SLoginPromptFailure 64549
+#define IBXConst_SIB70feature 64550
+#define IBXConst_SIB71feature 64551
+#define IBXConst_SIB80feature 64552
 #define pnglang_EPngInvalidCRCText 64553
 #define pnglang_EPNGInvalidIHDRText 64554
 #define pnglang_EPNGMissingMultipleIDATText 64555
@@ -342,150 +342,150 @@
 #define pnglang_EPNGInvalidPaletteText 64557
 #define pnglang_EPNGInvalidFileHeaderText 64558
 #define pnglang_EPNGIHDRNotFirstText 64559
-#define IBXConst_SLoginPromptFailure 64560
-#define IBXConst_SIB70feature 64561
-#define IBXConst_SIB71feature 64562
-#define IBXConst_SIB80feature 64563
-#define IBSQLMonitor_StrConnect 64564
-#define IBSQLMonitor_StrDisconnect 64565
-#define IBSQLMonitor_StrMisc 64566
-#define IBSQLMonitor_StrError 64567
-#define IBSQLMonitor_StrAttach 64568
-#define IBSQLMonitor_StrDetach 64569
-#define IBSQLMonitor_StrQuery 64570
-#define IBSQLMonitor_StrStart 64571
-#define IBSQLMonitor_StrExecute 64572
-#define IBSQLMonitor_StrNULL 64573
-#define IBSQLMonitor_StrBLOB 64574
-#define IBSQLMonitor_StrFetch 64575
-#define IBXConst_SNoDestinationDirectory 64576
-#define IBXConst_SNosourceDirectory 64577
-#define IBXConst_SNoUninstallFile 64578
-#define IBXConst_SOptionNeedsClient 64579
-#define IBXConst_SOptionNeedsServer 64580
-#define IBXConst_SInvalidOption 64581
-#define IBXConst_SInvalidOnErrorResult 64582
-#define IBXConst_SInvalidOnStatusResult 64583
-#define IBXConst_SDPBConstantUnknownEx 64584
-#define IBXConst_STPBConstantUnknownEx 64585
-#define IBXConst_SUnknownPlan 64586
-#define IBXConst_SFieldSizeMismatch 64587
-#define IBXConst_SEventAlreadyRegistered 64588
-#define IBXConst_SStringTooLarge 64589
-#define IBXConst_SNoTimers 64590
-#define IBXConst_SIB65feature 64591
-#define IBXConst_SServiceActive 64592
-#define IBXConst_SServiceInActive 64593
-#define IBXConst_SServerNameMissing 64594
-#define IBXConst_SQueryParamsError 64595
-#define IBXConst_SStartParamsError 64596
-#define IBXConst_SOutputParsingError 64597
-#define IBXConst_SUseSpecificProcedures 64598
-#define IBXConst_SSQLMonitorAlreadyPresent 64599
-#define IBXConst_SCantPrintValue 64600
-#define IBXConst_SEOFReached 64601
-#define IBXConst_SEOFInComment 64602
-#define IBXConst_SEOFInString 64603
-#define IBXConst_SParamNameExpected 64604
-#define IBXConst_SSuccess 64605
-#define IBXConst_SDelphiException 64606
-#define IBXConst_SNoOptionsSet 64607
-#define IBXConst_SNoRecordsAffected 64608
-#define IBXConst_SNoTableName 64609
-#define IBXConst_SCannotCreatePrimaryIndex 64610
-#define IBXConst_SCannotDropSystemIndex 64611
-#define IBXConst_STableNameMismatch 64612
-#define IBXConst_SIndexFieldMissing 64613
-#define IBXConst_SInvalidCancellation 64614
-#define IBXConst_SInvalidEvent 64615
-#define IBXConst_SMaximumEvents 64616
-#define IBXConst_SNoEventsRegistered 64617
-#define IBXConst_SInvalidQueueing 64618
-#define IBXConst_SInvalidRegistration 64619
-#define IBXConst_SInvalidBatchMove 64620
-#define IBXConst_SSQLDialectInvalid 64621
-#define IBXConst_SSPBConstantNotSupported 64622
-#define IBXConst_SSPBConstantUnknown 64623
-#define IBXConst_SCannotCreateSharedResource 64624
-#define IBXConst_SWindowsAPIError 64625
-#define IBXConst_SColumnListsDontMatch 64626
-#define IBXConst_SColumnTypesDontMatch 64627
-#define IBXConst_SCantEndSharedTransaction 64628
-#define IBXConst_SFieldUnsupportedType 64629
-#define IBXConst_SCircularDataLink 64630
-#define IBXConst_SEmptySQLStatement 64631
-#define IBXConst_SIsASelectStatement 64632
-#define IBXConst_SRequiredParamNotSet 64633
-#define IBXConst_SNoStoredProcName 64634
-#define IBXConst_SIsAExecuteProcedure 64635
-#define IBXConst_SUpdateFailed 64636
-#define IBXConst_SNotCachedUpdates 64637
-#define IBXConst_SNotLiveRequest 64638
-#define IBXConst_SNoProvider 64639
-#define IBXConst_SEmptyQuery 64640
-#define IBXConst_SCannotOpenNonSQLSelect 64641
-#define IBXConst_SNoFieldAccess 64642
-#define IBXConst_SFieldReadOnly 64643
-#define IBXConst_SFieldNotFound 64644
-#define IBXConst_SNotEditing 64645
-#define IBXConst_SCannotInsert 64646
-#define IBXConst_SCannotPost 64647
-#define IBXConst_SCannotUpdate 64648
-#define IBXConst_SCannotDelete 64649
-#define IBXConst_SCannotRefresh 64650
-#define IBXConst_SBufferNotSet 64651
-#define IBXConst_SCircularReference 64652
-#define IBXConst_SSQLParseError 64653
-#define IBXConst_SUserAbort 64654
-#define IBXConst_SDataSetUniDirectional 64655
-#define IBXConst_SXSQLDAIndexOutOfRange 64656
-#define IBXConst_SXSQLDANameDoesNotExist 64657
-#define IBXConst_SEOF 64658
-#define IBXConst_SBOF 64659
-#define IBXConst_SInvalidStatementHandle 64660
-#define IBXConst_SSQLOpen 64661
-#define IBXConst_SSQLClosed 64662
-#define IBXConst_SDatasetOpen 64663
-#define IBXConst_SDatasetClosed 64664
-#define IBXConst_SUnknownSQLDataType 64665
-#define IBXConst_SInvalidColumnIndex 64666
-#define IBXConst_SInvalidParamColumnIndex 64667
-#define IBXConst_SInvalidDataConversion 64668
-#define IBXConst_SColumnIsNotNullable 64669
-#define IBXConst_SBlobCannotBeRead 64670
-#define IBXConst_SBlobCannotBeWritten 64671
-#define IBXConst_SOperationCancelled 64672
-#define IBXConst_SDPBConstantNotSupported 64673
-#define IBXConst_SDPBConstantUnknown 64674
-#define IBXConst_STPBConstantNotSupported 64675
-#define IBXConst_STPBConstantUnknown 64676
-#define IBXConst_SDatabaseClosed 64677
-#define IBXConst_SDatabaseOpen 64678
-#define IBXConst_SDatabaseNameMissing 64679
-#define IBXConst_SNotInTransaction 64680
-#define IBXConst_SInTransaction 64681
-#define IBXConst_STimeoutNegative 64682
-#define IBXConst_SNoDatabasesInTransaction 64683
-#define IBXConst_SUpdateWrongDB 64684
-#define IBXConst_SUpdateWrongTR 64685
-#define IBXConst_SDatabaseNotAssigned 64686
-#define IBXConst_STransactionNotAssigned 64687
+#define IBXConst_SEOFInString 64560
+#define IBXConst_SParamNameExpected 64561
+#define IBXConst_SSuccess 64562
+#define IBXConst_SDelphiException 64563
+#define IBXConst_SNoOptionsSet 64564
+#define IBXConst_SNoDestinationDirectory 64565
+#define IBXConst_SNosourceDirectory 64566
+#define IBXConst_SNoUninstallFile 64567
+#define IBXConst_SOptionNeedsClient 64568
+#define IBXConst_SOptionNeedsServer 64569
+#define IBXConst_SInvalidOption 64570
+#define IBXConst_SInvalidOnErrorResult 64571
+#define IBXConst_SInvalidOnStatusResult 64572
+#define IBXConst_SDPBConstantUnknownEx 64573
+#define IBXConst_STPBConstantUnknownEx 64574
+#define IBXConst_SUnknownPlan 64575
+#define IBXConst_SInvalidRegistration 64576
+#define IBXConst_SInvalidBatchMove 64577
+#define IBXConst_SSQLDialectInvalid 64578
+#define IBXConst_SSPBConstantNotSupported 64579
+#define IBXConst_SSPBConstantUnknown 64580
+#define IBXConst_SServiceActive 64581
+#define IBXConst_SServiceInActive 64582
+#define IBXConst_SServerNameMissing 64583
+#define IBXConst_SQueryParamsError 64584
+#define IBXConst_SStartParamsError 64585
+#define IBXConst_SOutputParsingError 64586
+#define IBXConst_SUseSpecificProcedures 64587
+#define IBXConst_SSQLMonitorAlreadyPresent 64588
+#define IBXConst_SCantPrintValue 64589
+#define IBXConst_SEOFReached 64590
+#define IBXConst_SEOFInComment 64591
+#define IBXConst_SIsAExecuteProcedure 64592
+#define IBXConst_SUpdateFailed 64593
+#define IBXConst_SNotCachedUpdates 64594
+#define IBXConst_SNotLiveRequest 64595
+#define IBXConst_SNoProvider 64596
+#define IBXConst_SNoRecordsAffected 64597
+#define IBXConst_SNoTableName 64598
+#define IBXConst_SCannotCreatePrimaryIndex 64599
+#define IBXConst_SCannotDropSystemIndex 64600
+#define IBXConst_STableNameMismatch 64601
+#define IBXConst_SIndexFieldMissing 64602
+#define IBXConst_SInvalidCancellation 64603
+#define IBXConst_SInvalidEvent 64604
+#define IBXConst_SMaximumEvents 64605
+#define IBXConst_SNoEventsRegistered 64606
+#define IBXConst_SInvalidQueueing 64607
+#define IBXConst_SBufferNotSet 64608
+#define IBXConst_SCircularReference 64609
+#define IBXConst_SSQLParseError 64610
+#define IBXConst_SUserAbort 64611
+#define IBXConst_SDataSetUniDirectional 64612
+#define IBXConst_SCannotCreateSharedResource 64613
+#define IBXConst_SWindowsAPIError 64614
+#define IBXConst_SColumnListsDontMatch 64615
+#define IBXConst_SColumnTypesDontMatch 64616
+#define IBXConst_SCantEndSharedTransaction 64617
+#define IBXConst_SFieldUnsupportedType 64618
+#define IBXConst_SCircularDataLink 64619
+#define IBXConst_SEmptySQLStatement 64620
+#define IBXConst_SIsASelectStatement 64621
+#define IBXConst_SRequiredParamNotSet 64622
+#define IBXConst_SNoStoredProcName 64623
+#define IBXConst_SInvalidParamColumnIndex 64624
+#define IBXConst_SInvalidDataConversion 64625
+#define IBXConst_SColumnIsNotNullable 64626
+#define IBXConst_SBlobCannotBeRead 64627
+#define IBXConst_SBlobCannotBeWritten 64628
+#define IBXConst_SEmptyQuery 64629
+#define IBXConst_SCannotOpenNonSQLSelect 64630
+#define IBXConst_SNoFieldAccess 64631
+#define IBXConst_SFieldReadOnly 64632
+#define IBXConst_SFieldNotFound 64633
+#define IBXConst_SNotEditing 64634
+#define IBXConst_SCannotInsert 64635
+#define IBXConst_SCannotPost 64636
+#define IBXConst_SCannotUpdate 64637
+#define IBXConst_SCannotDelete 64638
+#define IBXConst_SCannotRefresh 64639
+#define IBXConst_SNoDatabasesInTransaction 64640
+#define IBXConst_SUpdateWrongDB 64641
+#define IBXConst_SUpdateWrongTR 64642
+#define IBXConst_SDatabaseNotAssigned 64643
+#define IBXConst_STransactionNotAssigned 64644
+#define IBXConst_SXSQLDAIndexOutOfRange 64645
+#define IBXConst_SXSQLDANameDoesNotExist 64646
+#define IBXConst_SEOF 64647
+#define IBXConst_SBOF 64648
+#define IBXConst_SInvalidStatementHandle 64649
+#define IBXConst_SSQLOpen 64650
+#define IBXConst_SSQLClosed 64651
+#define IBXConst_SDatasetOpen 64652
+#define IBXConst_SDatasetClosed 64653
+#define IBXConst_SUnknownSQLDataType 64654
+#define IBXConst_SInvalidColumnIndex 64655
+#define IBXConst_SNotPermitted 64656
+#define IBXConst_SFileAccessError 64657
+#define IBXConst_SConnectionTimeout 64658
+#define IBXConst_SCannotSetDatabase 64659
+#define IBXConst_SCannotSetTransaction 64660
+#define IBXConst_SOperationCancelled 64661
+#define IBXConst_SDPBConstantNotSupported 64662
+#define IBXConst_SDPBConstantUnknown 64663
+#define IBXConst_STPBConstantNotSupported 64664
+#define IBXConst_STPBConstantUnknown 64665
+#define IBXConst_SDatabaseClosed 64666
+#define IBXConst_SDatabaseOpen 64667
+#define IBXConst_SDatabaseNameMissing 64668
+#define IBXConst_SNotInTransaction 64669
+#define IBXConst_SInTransaction 64670
+#define IBXConst_STimeoutNegative 64671
+#define IBSQLMonitor_StrBLOB 64672
+#define IBSQLMonitor_StrFetch 64673
+#define IBSQLMonitor_StrPrepare 64674
+#define IBSQLMonitor_StrPlan 64675
+#define IBSQLMonitor_StrPlanCantRetrive 64676
+#define IBSQLMonitor_StrCommitHardComm 64677
+#define IBSQLMonitor_StrCommitRetaining 64678
+#define IBSQLMonitor_StrRollback 64679
+#define IBSQLMonitor_StrRollbackRetainin 64680
+#define IBSQLMonitor_StrStartTransaction 64681
+#define IBSQLMonitor_StrApplication 64682
+#define IBXConst_SUnknownError 64683
+#define IBXConst_SInterBaseMissing 64684
+#define IBXConst_SInterBaseInstallMissing 64685
+#define IBXConst_SIB60feature 64686
+#define IBXConst_SNotSupported 64687
 #define uDARes_err_NeedShareMem 64688
 #define uDARes_err_DatasetNotAccessible 64689
 #define uDARes_err_CommandNotAccessible 64690
 #define uDARes_err_SQLNotPermitted 64691
 #define uDARes_err_UTF8DecodeError 64692
 #define uDAMemDataset_SNoDetailFilter 64693
-#define IBXConst_SUnknownError 64694
-#define IBXConst_SInterBaseMissing 64695
-#define IBXConst_SInterBaseInstallMissing 64696
-#define IBXConst_SIB60feature 64697
-#define IBXConst_SNotSupported 64698
-#define IBXConst_SNotPermitted 64699
-#define IBXConst_SFileAccessError 64700
-#define IBXConst_SConnectionTimeout 64701
-#define IBXConst_SCannotSetDatabase 64702
-#define IBXConst_SCannotSetTransaction 64703
+#define IBSQLMonitor_StrConnect 64694
+#define IBSQLMonitor_StrDisconnect 64695
+#define IBSQLMonitor_StrMisc 64696
+#define IBSQLMonitor_StrError 64697
+#define IBSQLMonitor_StrAttach 64698
+#define IBSQLMonitor_StrDetach 64699
+#define IBSQLMonitor_StrQuery 64700
+#define IBSQLMonitor_StrStart 64701
+#define IBSQLMonitor_StrExecute 64702
+#define IBSQLMonitor_StrNULL 64703
 #define uDARes_err_NotSupported 64704
 #define uDARes_err_InvalidDataset 64705
 #define uDARes_err_CannotFindItem 64706
@@ -758,86 +758,86 @@
 #define JvResources_RsAniFilterName 64973
 #define JvResources_RsRootValueReplaceFmt 64974
 #define JvResources_RsEUnableToCreateKey 64975
-#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 64976
-#define IdResourceStringsCore_RSConnectTimeout 64977
-#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 64978
-#define IdResourceStringsCore_RSAlreadyConnected 64979
-#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 64980
-#define IdResourceStringsCore_RSchedMaxThreadEx 64981
-#define IdResourceStringsCore_RSTransparentProxyCannotBind 64982
-#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 64983
-#define IdResourceStringsCore_RSBufferMissingTerminator 64984
-#define IdResourceStringsCore_RSBufferInvalidStartPos 64985
-#define IdResourceStringsCore_RSReplyInvalidCode 64986
-#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 64987
-#define IdResourceStringsCore_RSNoOnExecute 64988
-#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 64989
+#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 64976
+#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 64977
+#define IdResourceStringsProtocols_RSHTTPInternalServerError 64978
+#define IdResourceStringsProtocols_RSHTTPNotImplemented 64979
+#define IdResourceStringsProtocols_RSHTTPBadGateway 64980
+#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 64981
+#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 64982
+#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 64983
+#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 64984
+#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 64985
+#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 64986
+#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 64987
+#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 64988
+#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 64989
 #define ComStrs_sTabFailClear 64990
 #define ComStrs_sTabFailDelete 64991
-#define IdResourceStringsCore_RSSocksServerGeneralError 64992
-#define IdResourceStringsCore_RSSocksServerPermissionError 64993
-#define IdResourceStringsCore_RSSocksServerNetUnreachableError 64994
-#define IdResourceStringsCore_RSSocksServerHostUnreachableError 64995
-#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 64996
-#define IdResourceStringsCore_RSSocksServerTTLExpiredError 64997
-#define IdResourceStringsCore_RSSocksServerCommandError 64998
-#define IdResourceStringsCore_RSSocksServerAddressError 64999
-#define IdResourceStringsCore_RSInterceptCircularLink 65000
-#define IdResourceStringsCore_RSNotEnoughDataInBuffer 65001
-#define IdResourceStringsCore_RSTooMuchDataInBuffer 65002
-#define IdResourceStringsCore_RSFileNotFound 65003
-#define IdResourceStringsCore_RSNotConnected 65004
-#define IdResourceStringsCore_RSObjectTypeNotSupported 65005
-#define IdResourceStringsCore_RSIdNoDataToRead 65006
-#define IdResourceStringsCore_RSReadTimeout 65007
-#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65008
-#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 65009
-#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 65010
-#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 65011
-#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 65012
-#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 65013
-#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 65014
-#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 65015
-#define IdResourceStringsCore_RSSocksUDPNotSupported 65016
-#define IdResourceStringsCore_RSSocksRequestFailed 65017
-#define IdResourceStringsCore_RSSocksRequestServerFailed 65018
-#define IdResourceStringsCore_RSSocksRequestIdentFailed 65019
-#define IdResourceStringsCore_RSSocksUnknownError 65020
-#define IdResourceStringsCore_RSSocksServerRespondError 65021
-#define IdResourceStringsCore_RSSocksAuthMethodError 65022
-#define IdResourceStringsCore_RSSocksAuthError 65023
-#define IdResourceStringsProtocols_RSHTTPNotFound 65024
-#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65025
-#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65026
-#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65027
-#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65028
-#define IdResourceStringsProtocols_RSHTTPConflict 65029
-#define IdResourceStringsProtocols_RSHTTPGone 65030
-#define IdResourceStringsProtocols_RSHTTPLengthRequired 65031
-#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65032
-#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65033
-#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 65034
-#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 65035
-#define IdResourceStringsProtocols_RSHTTPInternalServerError 65036
-#define IdResourceStringsProtocols_RSHTTPNotImplemented 65037
-#define IdResourceStringsProtocols_RSHTTPBadGateway 65038
-#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65039
-#define IdResourceStringsProtocols_RSHTTPContinue 65040
-#define IdResourceStringsProtocols_RSHTTPOK 65041
-#define IdResourceStringsProtocols_RSHTTPCreated 65042
-#define IdResourceStringsProtocols_RSHTTPAccepted 65043
-#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65044
-#define IdResourceStringsProtocols_RSHTTPNoContent 65045
-#define IdResourceStringsProtocols_RSHTTPResetContent 65046
-#define IdResourceStringsProtocols_RSHTTPPartialContent 65047
-#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65048
-#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65049
-#define IdResourceStringsProtocols_RSHTTPSeeOther 65050
-#define IdResourceStringsProtocols_RSHTTPNotModified 65051
-#define IdResourceStringsProtocols_RSHTTPUseProxy 65052
-#define IdResourceStringsProtocols_RSHTTPBadRequest 65053
-#define IdResourceStringsProtocols_RSHTTPUnauthorized 65054
-#define IdResourceStringsProtocols_RSHTTPForbidden 65055
+#define IdResourceStringsProtocols_RSHTTPSeeOther 64992
+#define IdResourceStringsProtocols_RSHTTPNotModified 64993
+#define IdResourceStringsProtocols_RSHTTPUseProxy 64994
+#define IdResourceStringsProtocols_RSHTTPBadRequest 64995
+#define IdResourceStringsProtocols_RSHTTPUnauthorized 64996
+#define IdResourceStringsProtocols_RSHTTPForbidden 64997
+#define IdResourceStringsProtocols_RSHTTPNotFound 64998
+#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 64999
+#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65000
+#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65001
+#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65002
+#define IdResourceStringsProtocols_RSHTTPConflict 65003
+#define IdResourceStringsProtocols_RSHTTPGone 65004
+#define IdResourceStringsProtocols_RSHTTPLengthRequired 65005
+#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65006
+#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65007
+#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 65008
+#define IdResourceStringsCore_RSNoOnExecute 65009
+#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 65010
+#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65011
+#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65012
+#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65013
+#define IdResourceStringsProtocols_RSHTTPContinue 65014
+#define IdResourceStringsProtocols_RSHTTPOK 65015
+#define IdResourceStringsProtocols_RSHTTPCreated 65016
+#define IdResourceStringsProtocols_RSHTTPAccepted 65017
+#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65018
+#define IdResourceStringsProtocols_RSHTTPNoContent 65019
+#define IdResourceStringsProtocols_RSHTTPResetContent 65020
+#define IdResourceStringsProtocols_RSHTTPPartialContent 65021
+#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65022
+#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65023
+#define IdResourceStringsCore_RSFileNotFound 65024
+#define IdResourceStringsCore_RSNotConnected 65025
+#define IdResourceStringsCore_RSObjectTypeNotSupported 65026
+#define IdResourceStringsCore_RSIdNoDataToRead 65027
+#define IdResourceStringsCore_RSReadTimeout 65028
+#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 65029
+#define IdResourceStringsCore_RSConnectTimeout 65030
+#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 65031
+#define IdResourceStringsCore_RSAlreadyConnected 65032
+#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 65033
+#define IdResourceStringsCore_RSchedMaxThreadEx 65034
+#define IdResourceStringsCore_RSTransparentProxyCannotBind 65035
+#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 65036
+#define IdResourceStringsCore_RSBufferMissingTerminator 65037
+#define IdResourceStringsCore_RSBufferInvalidStartPos 65038
+#define IdResourceStringsCore_RSReplyInvalidCode 65039
+#define IdResourceStringsCore_RSSocksRequestIdentFailed 65040
+#define IdResourceStringsCore_RSSocksUnknownError 65041
+#define IdResourceStringsCore_RSSocksServerRespondError 65042
+#define IdResourceStringsCore_RSSocksAuthMethodError 65043
+#define IdResourceStringsCore_RSSocksAuthError 65044
+#define IdResourceStringsCore_RSSocksServerGeneralError 65045
+#define IdResourceStringsCore_RSSocksServerPermissionError 65046
+#define IdResourceStringsCore_RSSocksServerNetUnreachableError 65047
+#define IdResourceStringsCore_RSSocksServerHostUnreachableError 65048
+#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 65049
+#define IdResourceStringsCore_RSSocksServerTTLExpiredError 65050
+#define IdResourceStringsCore_RSSocksServerCommandError 65051
+#define IdResourceStringsCore_RSSocksServerAddressError 65052
+#define IdResourceStringsCore_RSInterceptCircularLink 65053
+#define IdResourceStringsCore_RSNotEnoughDataInBuffer 65054
+#define IdResourceStringsCore_RSTooMuchDataInBuffer 65055
 #define IdResourceStrings_RSAntiFreezeOnlyOne 65056
 #define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65057
 #define IdResourceStrings_RSCannotBindRange 65058
@@ -851,9 +851,9 @@
 #define IdResourceStrings_RSNotAllBytesSent 65066
 #define IdResourceStrings_RSPackageSizeTooBig 65067
 #define IdResourceStrings_RSSetSizeExceeded 65068
-#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65069
-#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65070
-#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65071
+#define IdResourceStringsCore_RSSocksUDPNotSupported 65069
+#define IdResourceStringsCore_RSSocksRequestFailed 65070
+#define IdResourceStringsCore_RSSocksRequestServerFailed 65071
 #define IdResourceStrings_RSStackECONNRESET 65072
 #define IdResourceStrings_RSStackENOBUFS 65073
 #define IdResourceStrings_RSStackEISCONN 65074
@@ -950,86 +950,86 @@
 #define DBConsts_SDataSetMissing 65165
 #define DBConsts_SInvalidCalcType 65166
 #define DBConsts_SFieldReadOnly 65167
-#define uRORes_err_IDispatchMarshalingNotSupported 65168
-#define uRORes_err_UnsupportedVariantType 65169
-#define uRORes_err_VariantIsNotArray 65170
-#define uRORes_err_InvalidVarArrayDimCount 65171
-#define uRORes_err_CannotFindParameter 65172
-#define uRORes_err_MessageNotAssigned 65173
-#define ComConst_SOleError 65174
-#define ComConst_SNoMethod 65175
-#define ComConst_SVarNotObject 65176
-#define ComConst_STooManyParams 65177
-#define ComConst_SDCOMNotInstalled 65178
+#define uRODECConst_sStringFormatExists 65168
+#define uRODECConst_sInvalidStringFormat 65169
+#define uRODECConst_sInvalidFormatString 65170
+#define uRODECConst_sFMT_COPY 65171
+#define uRODECConst_sFMT_HEX 65172
+#define uRODECConst_sFMT_HEXL 65173
+#define uRODECConst_sFMT_MIME64 65174
+#define uRODECConst_sFMT_UU 65175
+#define uRODECConst_sFMT_XX 65176
+#define uRODECConst_sInvalidKeySize 65177
+#define uRODECConst_sNotInitialized 65178
 #define DBConsts_SInvalidFieldSize 65179
 #define DBConsts_SInvalidFieldKind 65180
 #define DBConsts_SUnknownFieldType 65181
 #define DBConsts_SFieldNameMissing 65182
 #define DBConsts_SDuplicateFieldName 65183
-#define uRORes_err_CannotFindMessageDispatcher 65184
-#define uRORes_err_ServerOnlySupportsOneDispatcher 65185
-#define uRORes_err_UnhandledException 65186
-#define uRORes_err_ChannelBusy 65187
-#define uRORes_err_ArrayIndexOutOfBounds 65188
-#define uRORes_err_InvalidHeader 65189
-#define uRORes_err_InvalidHeaderEncrypted 65190
-#define uRORes_err_UnknownClassInStream 65191
-#define uRORes_err_UnexpectedClassInStream 65192
-#define uRORes_err_SessionNotFound 65193
-#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65194
-#define uRORes_err_TooManySessions 65195
-#define uRORes_err_DOMElementIsNIL 65196
-#define uRORes_err_CannotLoadXMLDocument 65197
-#define uRORes_err_ErrorCreatingMsXmlDoc 65198
-#define uRORes_err_NoXMLParsersAvailable 65199
-#define uRORes_str_ExceptionReraisedFromServer 65200
-#define uRORes_err_AssignError 65201
-#define uRORes_err_InvalidRequestStream 65202
-#define uRORes_err_NILMessage 65203
-#define uRORes_err_UnspecifiedInterface 65204
-#define uRORes_err_UnspecifiedMessage 65205
-#define uRORes_err_UnknownMethod 65206
-#define uRORes_err_ClassFactoryDidNotReturnInstance 65207
-#define uRORes_err_AbstractService 65208
-#define uRORes_err_TypeNotSupported 65209
-#define uRORes_err_ClassFactoryNotFound 65210
-#define uRORes_err_IROMessageNotSupported 65211
-#define uRORes_err_ClassAlreadyRegistered 65212
-#define uRORes_err_UnknownClass 65213
-#define uRORes_err_UnknownProxyInterface 65214
-#define uRORes_err_DispatcherAlreadyAssigned 65215
-#define uRORes_err_InvalidStringLength 65216
-#define uRORes_str_InvalidClassTypeInStream 65217
-#define uRORes_err_UnexpectedEndOfStream 65218
-#define uRORes_err_RodlDuplicateName 65219
-#define uRORes_err_RodlNoDataTypeSpecified 65220
-#define uRORes_err_RodlNoEnumValues 65221
-#define uRORes_err_RodlNoStructElementsDefined 65222
-#define uRORes_err_RodlNoOperationsDefined 65223
-#define uRORes_err_RodlUsedFileDoesNotExist 65224
-#define uRORes_err_RodlInvalidDataType 65225
-#define uRORes_err_RodlStructCannotBeNested 65226
-#define uRORes_err_RodlInvalidAncestorType 65227
-#define uRORes_err_RodlItemExistsInAnsector 65228
-#define uRORes_err_RodlCircularReference 65229
-#define uRORes_err_RodlCircularityWarning 65230
-#define uRORes_str_ExceptionOnServer 65231
-#define uRODECConst_sInvalidStringFormat 65232
-#define uRODECConst_sInvalidFormatString 65233
-#define uRODECConst_sFMT_COPY 65234
-#define uRODECConst_sFMT_HEX 65235
-#define uRODECConst_sFMT_HEXL 65236
-#define uRODECConst_sFMT_MIME64 65237
-#define uRODECConst_sFMT_UU 65238
-#define uRODECConst_sFMT_XX 65239
-#define uRODECConst_sInvalidKeySize 65240
-#define uRODECConst_sNotInitialized 65241
-#define uRORes_err_InvalidIndex 65242
-#define uRORes_err_InvalidType 65243
-#define uRORes_err_InvalidLibrary 65244
-#define uRORes_err_InvalidStream 65245
-#define uRORes_err_InvalidTargetEntity 65246
-#define uRORes_err_InvalidParamFlag 65247
+#define uRORes_err_DOMElementIsNIL 65184
+#define uRORes_err_CannotLoadXMLDocument 65185
+#define uRORes_err_ErrorCreatingMsXmlDoc 65186
+#define uRORes_err_NoXMLParsersAvailable 65187
+#define uRORes_err_IDispatchMarshalingNotSupported 65188
+#define uRORes_err_UnsupportedVariantType 65189
+#define uRORes_err_VariantIsNotArray 65190
+#define uRORes_err_InvalidVarArrayDimCount 65191
+#define uRORes_err_CannotFindParameter 65192
+#define uRORes_err_MessageNotAssigned 65193
+#define ComConst_SOleError 65194
+#define ComConst_SNoMethod 65195
+#define ComConst_SVarNotObject 65196
+#define ComConst_STooManyParams 65197
+#define ComConst_SDCOMNotInstalled 65198
+#define uRODECConst_sProtectionCircular 65199
+#define uRORes_err_ClassAlreadyRegistered 65200
+#define uRORes_err_UnknownClass 65201
+#define uRORes_err_UnknownProxyInterface 65202
+#define uRORes_err_DispatcherAlreadyAssigned 65203
+#define uRORes_err_CannotFindMessageDispatcher 65204
+#define uRORes_err_ServerOnlySupportsOneDispatcher 65205
+#define uRORes_err_UnhandledException 65206
+#define uRORes_err_ChannelBusy 65207
+#define uRORes_err_ArrayIndexOutOfBounds 65208
+#define uRORes_err_InvalidHeader 65209
+#define uRORes_err_InvalidHeaderEncrypted 65210
+#define uRORes_err_UnknownClassInStream 65211
+#define uRORes_err_UnexpectedClassInStream 65212
+#define uRORes_err_SessionNotFound 65213
+#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65214
+#define uRORes_err_TooManySessions 65215
+#define uRORes_err_RodlItemExistsInAnsector 65216
+#define uRORes_err_RodlCircularReference 65217
+#define uRORes_err_RodlCircularityWarning 65218
+#define uRORes_str_ExceptionOnServer 65219
+#define uRORes_str_ExceptionReraisedFromServer 65220
+#define uRORes_err_AssignError 65221
+#define uRORes_err_InvalidRequestStream 65222
+#define uRORes_err_NILMessage 65223
+#define uRORes_err_UnspecifiedInterface 65224
+#define uRORes_err_UnspecifiedMessage 65225
+#define uRORes_err_UnknownMethod 65226
+#define uRORes_err_ClassFactoryDidNotReturnInstance 65227
+#define uRORes_err_AbstractService 65228
+#define uRORes_err_TypeNotSupported 65229
+#define uRORes_err_ClassFactoryNotFound 65230
+#define uRORes_err_IROMessageNotSupported 65231
+#define uRORes_err_InvalidLibrary 65232
+#define uRORes_err_InvalidStream 65233
+#define uRORes_err_InvalidTargetEntity 65234
+#define uRORes_err_InvalidParamFlag 65235
+#define uRORes_err_InvalidStringLength 65236
+#define uRORes_str_InvalidClassTypeInStream 65237
+#define uRORes_err_UnexpectedEndOfStream 65238
+#define uRORes_err_RodlDuplicateName 65239
+#define uRORes_err_RodlNoDataTypeSpecified 65240
+#define uRORes_err_RodlNoEnumValues 65241
+#define uRORes_err_RodlNoStructElementsDefined 65242
+#define uRORes_err_RodlNoOperationsDefined 65243
+#define uRORes_err_RodlUsedFileDoesNotExist 65244
+#define uRORes_err_RodlInvalidDataType 65245
+#define uRORes_err_RodlStructCannotBeNested 65246
+#define uRORes_err_RodlInvalidAncestorType 65247
 #define Consts_SASCIIEncoding 65248
 #define Consts_SUnicodeEncoding 65249
 #define Consts_SBigEndianEncoding 65250
@@ -1044,8 +1044,8 @@
 #define HelpIntfs_hNoContext 65259
 #define HelpIntfs_hNoContextFound 65260
 #define HelpIntfs_hNoTopics 65261
-#define uRODECConst_sProtectionCircular 65262
-#define uRODECConst_sStringFormatExists 65263
+#define uRORes_err_InvalidIndex 65262
+#define uRORes_err_InvalidType 65263
 #define Consts_SShutdown 65264
 #define Consts_SCustomError 65265
 #define Consts_SServiceInstallOK 65266
@@ -1638,15 +1638,15 @@ BEGIN
 	cxDataConsts_cxSDataReadError,	"Stream read error"
 	cxDataConsts_cxSDataWriteError,	"Stream write error"
 	cxDataConsts_cxSDataItemExistError,	"Item already exists"
-	IBSQLMonitor_StrPrepare,	": [Prepare] "
-	IBSQLMonitor_StrPlan,	"  Plan: "
-	IBSQLMonitor_StrPlanCantRetrive,	"  Plan: Can't retrieve plan - too large"
-	IBSQLMonitor_StrCommitHardComm,	": [Commit (Hard commit)]"
-	IBSQLMonitor_StrCommitRetaining,	": [Commit retaining (Soft commit)]"
-	IBSQLMonitor_StrRollback,	": [Rollback]"
-	IBSQLMonitor_StrRollbackRetainin,	": [Rollback retaining (Soft rollback)]"
-	IBSQLMonitor_StrStartTransaction,	": [Start transaction]"
-	IBSQLMonitor_StrApplication,	"[Application: "
+	IBXConst_SFieldSizeMismatch,	"Size Mismatch - Field %s size is too small for data"
+	IBXConst_SEventAlreadyRegistered,	"Events already registered"
+	IBXConst_SStringTooLarge,	"Trying to store a string of length %d into a field that can only contain %d"
+	IBXConst_SNoTimers,	"Not enough timers available"
+	IBXConst_SIB65feature,	"%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality"
+	IBXConst_SLoginPromptFailure,	"Can not find default login prompt dialog.  Please add DBLogDlg to the uses section of your main file."
+	IBXConst_SIB70feature,	"%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality"
+	IBXConst_SIB71feature,	"%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality"
+	IBXConst_SIB80feature,	"%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality"
 	pnglang_EPngInvalidCRCText,	"This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)"
 	pnglang_EPNGInvalidIHDRText,	"The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted"
 	pnglang_EPNGMissingMultipleIDATText,	"This \"Portable Network Graphics\" image is invalid because it has missing image parts."
@@ -1654,22 +1654,11 @@ BEGIN
 	pnglang_EPNGInvalidPaletteText,	"The \"Portable Network Graphics\" image contains an invalid palette."
 	pnglang_EPNGInvalidFileHeaderText,	"The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again."
 	pnglang_EPNGIHDRNotFirstText,	"This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)"
-	IBXConst_SLoginPromptFailure,	"Can not find default login prompt dialog.  Please add DBLogDlg to the uses section of your main file."
-	IBXConst_SIB70feature,	"%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality"
-	IBXConst_SIB71feature,	"%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality"
-	IBXConst_SIB80feature,	"%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality"
-	IBSQLMonitor_StrConnect,	": [Connect]"
-	IBSQLMonitor_StrDisconnect,	": [Disconnect]"
-	IBSQLMonitor_StrMisc,	"[Misc] "
-	IBSQLMonitor_StrError,	"[Error] "
-	IBSQLMonitor_StrAttach,	": [Attach]"
-	IBSQLMonitor_StrDetach,	": [Detach]"
-	IBSQLMonitor_StrQuery,	": [Query]"
-	IBSQLMonitor_StrStart,	": [Start]"
-	IBSQLMonitor_StrExecute,	": [Execute] "
-	IBSQLMonitor_StrNULL,	"<NULL>"
-	IBSQLMonitor_StrBLOB,	"<BLOB>"
-	IBSQLMonitor_StrFetch,	": [Fetch] "
+	IBXConst_SEOFInString,	"EOF in string detected"
+	IBXConst_SParamNameExpected,	"Parameter name expected"
+	IBXConst_SSuccess,	"Successful execution"
+	IBXConst_SDelphiException,	"DelphiException %s"
+	IBXConst_SNoOptionsSet,	"No Install Options selected"
 	IBXConst_SNoDestinationDirectory,	"DestinationDirectory is not set"
 	IBXConst_SNosourceDirectory,	"SourceDirectory is not set"
 	IBXConst_SNoUninstallFile,	"Uninstall File Name is not set"
@@ -1681,11 +1670,11 @@ BEGIN
 	IBXConst_SDPBConstantUnknownEx,	"DPB Constant (%s) is unknown"
 	IBXConst_STPBConstantUnknownEx,	"TPB Constant (%s) is unknown"
 	IBXConst_SUnknownPlan,	"Unknown Error - Can't retrieve plan"
-	IBXConst_SFieldSizeMismatch,	"Size Mismatch - Field %s size is too small for data"
-	IBXConst_SEventAlreadyRegistered,	"Events already registered"
-	IBXConst_SStringTooLarge,	"Trying to store a string of length %d into a field that can only contain %d"
-	IBXConst_SNoTimers,	"Not enough timers available"
-	IBXConst_SIB65feature,	"%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality"
+	IBXConst_SInvalidRegistration,	"Invalid Registration"
+	IBXConst_SInvalidBatchMove,	"Invalid Batch Move"
+	IBXConst_SSQLDialectInvalid,	"SQL Dialect Invalid"
+	IBXConst_SSPBConstantNotSupported,	"SPB Constant Not supported"
+	IBXConst_SSPBConstantUnknown,	"SPB Constant Unknown"
 	IBXConst_SServiceActive,	"Cannot perform operation -- service is not attached"
 	IBXConst_SServiceInActive,	"Cannot perform operation -- service is attached"
 	IBXConst_SServerNameMissing,	"Server Name Missing"
@@ -1697,11 +1686,11 @@ BEGIN
 	IBXConst_SCantPrintValue,	"Cannot print value"
 	IBXConst_SEOFReached,	"SEOFReached"
 	IBXConst_SEOFInComment,	"EOF in comment detected"
-	IBXConst_SEOFInString,	"EOF in string detected"
-	IBXConst_SParamNameExpected,	"Parameter name expected"
-	IBXConst_SSuccess,	"Successful execution"
-	IBXConst_SDelphiException,	"DelphiException %s"
-	IBXConst_SNoOptionsSet,	"No Install Options selected"
+	IBXConst_SIsAExecuteProcedure,	"use ExecProc for Procedure; use TQuery for Select procedures"
+	IBXConst_SUpdateFailed,	"Update Failed"
+	IBXConst_SNotCachedUpdates,	"CachedUpdates not enabled"
+	IBXConst_SNotLiveRequest,	"Request is not live - cannot modify"
+	IBXConst_SNoProvider,	"No Provider"
 	IBXConst_SNoRecordsAffected,	"No Records Affected"
 	IBXConst_SNoTableName,	"No Table Name assigned"
 	IBXConst_SCannotCreatePrimaryIndex,	"Cannot Create Primary Index; are created automatically"
@@ -1713,11 +1702,11 @@ BEGIN
 	IBXConst_SMaximumEvents,	"Exceded Maximum Event limits"
 	IBXConst_SNoEventsRegistered,	"No Events Registered"
 	IBXConst_SInvalidQueueing,	"Invalid Queueing"
-	IBXConst_SInvalidRegistration,	"Invalid Registration"
-	IBXConst_SInvalidBatchMove,	"Invalid Batch Move"
-	IBXConst_SSQLDialectInvalid,	"SQL Dialect Invalid"
-	IBXConst_SSPBConstantNotSupported,	"SPB Constant Not supported"
-	IBXConst_SSPBConstantUnknown,	"SPB Constant Unknown"
+	IBXConst_SBufferNotSet,	"Buffer not set"
+	IBXConst_SCircularReference,	"Circular references not permitted"
+	IBXConst_SSQLParseError,	"SQL Parse Error:\r\n\r\n%s"
+	IBXConst_SUserAbort,	"User abort"
+	IBXConst_SDataSetUniDirectional,	"Data set is uni-directional"
 	IBXConst_SCannotCreateSharedResource,	"Cannot create shared resource. (Windows error %d)"
 	IBXConst_SWindowsAPIError,	"Windows API error. (Windows error %d [$%.8x])"
 	IBXConst_SColumnListsDontMatch,	"Column lists do not match"
@@ -1729,11 +1718,11 @@ BEGIN
 	IBXConst_SIsASelectStatement,	"use Open for a Select Statement"
 	IBXConst_SRequiredParamNotSet,	"Required Param value not set"
 	IBXConst_SNoStoredProcName,	"No Stored Procedure Name assigned"
-	IBXConst_SIsAExecuteProcedure,	"use ExecProc for Procedure; use TQuery for Select procedures"
-	IBXConst_SUpdateFailed,	"Update Failed"
-	IBXConst_SNotCachedUpdates,	"CachedUpdates not enabled"
-	IBXConst_SNotLiveRequest,	"Request is not live - cannot modify"
-	IBXConst_SNoProvider,	"No Provider"
+	IBXConst_SInvalidParamColumnIndex,	"Invalid parameter index (index exceeds permitted range)"
+	IBXConst_SInvalidDataConversion,	"Invalid data conversion"
+	IBXConst_SColumnIsNotNullable,	"Column cannot be set to null (%s)"
+	IBXConst_SBlobCannotBeRead,	"Blob stream cannot be read"
+	IBXConst_SBlobCannotBeWritten,	"Blob stream cannot be written"
 	IBXConst_SEmptyQuery,	"Empty query"
 	IBXConst_SCannotOpenNonSQLSelect,	"Cannot \"open\" a non-select statement. Use ExecQuery"
 	IBXConst_SNoFieldAccess,	"No access to field \"%s\""
@@ -1745,11 +1734,11 @@ BEGIN
 	IBXConst_SCannotUpdate,	"Cannot update. (No update query)"
 	IBXConst_SCannotDelete,	"Cannot delete from dataset. (No delete query)"
 	IBXConst_SCannotRefresh,	"Cannot refresh row. (No refresh query)"
-	IBXConst_SBufferNotSet,	"Buffer not set"
-	IBXConst_SCircularReference,	"Circular references not permitted"
-	IBXConst_SSQLParseError,	"SQL Parse Error:\r\n\r\n%s"
-	IBXConst_SUserAbort,	"User abort"
-	IBXConst_SDataSetUniDirectional,	"Data set is uni-directional"
+	IBXConst_SNoDatabasesInTransaction,	"No databases are listed in transaction component"
+	IBXConst_SUpdateWrongDB,	"Updating wrong database"
+	IBXConst_SUpdateWrongTR,	"Updating wrong transaction. Unique transaction expected in set"
+	IBXConst_SDatabaseNotAssigned,	"Database not assigned"
+	IBXConst_STransactionNotAssigned,	"Transaction not assigned"
 	IBXConst_SXSQLDAIndexOutOfRange,	"XSQLDA index out of range"
 	IBXConst_SXSQLDANameDoesNotExist,	"XSQLDA name does not exist (%s)"
 	IBXConst_SEOF,	"End of file"
@@ -1761,11 +1750,11 @@ BEGIN
 	IBXConst_SDatasetClosed,	"Dataset closed"
 	IBXConst_SUnknownSQLDataType,	"Unknown SQL Data type (%d)"
 	IBXConst_SInvalidColumnIndex,	"Invalid column index (index exceeds permitted range)"
-	IBXConst_SInvalidParamColumnIndex,	"Invalid parameter index (index exceeds permitted range)"
-	IBXConst_SInvalidDataConversion,	"Invalid data conversion"
-	IBXConst_SColumnIsNotNullable,	"Column cannot be set to null (%s)"
-	IBXConst_SBlobCannotBeRead,	"Blob stream cannot be read"
-	IBXConst_SBlobCannotBeWritten,	"Blob stream cannot be written"
+	IBXConst_SNotPermitted,	"Not permitted"
+	IBXConst_SFileAccessError,	"Temporary file access error"
+	IBXConst_SConnectionTimeout,	"Database connection timed out"
+	IBXConst_SCannotSetDatabase,	"Cannot set database"
+	IBXConst_SCannotSetTransaction,	"Cannot set transaction"
 	IBXConst_SOperationCancelled,	"Operation cancelled at user's request"
 	IBXConst_SDPBConstantNotSupported,	"DPB Constant (isc_dpb_%s) is unsupported"
 	IBXConst_SDPBConstantUnknown,	"DPB Constant (%d) is unknown"
@@ -1777,27 +1766,38 @@ BEGIN
 	IBXConst_SNotInTransaction,	"Transaction is not active"
 	IBXConst_SInTransaction,	"Transaction is active"
 	IBXConst_STimeoutNegative,	"Timeout values cannot be negative"
-	IBXConst_SNoDatabasesInTransaction,	"No databases are listed in transaction component"
-	IBXConst_SUpdateWrongDB,	"Updating wrong database"
-	IBXConst_SUpdateWrongTR,	"Updating wrong transaction. Unique transaction expected in set"
-	IBXConst_SDatabaseNotAssigned,	"Database not assigned"
-	IBXConst_STransactionNotAssigned,	"Transaction not assigned"
+	IBSQLMonitor_StrBLOB,	"<BLOB>"
+	IBSQLMonitor_StrFetch,	": [Fetch] "
+	IBSQLMonitor_StrPrepare,	": [Prepare] "
+	IBSQLMonitor_StrPlan,	"  Plan: "
+	IBSQLMonitor_StrPlanCantRetrive,	"  Plan: Can't retrieve plan - too large"
+	IBSQLMonitor_StrCommitHardComm,	": [Commit (Hard commit)]"
+	IBSQLMonitor_StrCommitRetaining,	": [Commit retaining (Soft commit)]"
+	IBSQLMonitor_StrRollback,	": [Rollback]"
+	IBSQLMonitor_StrRollbackRetainin,	": [Rollback retaining (Soft rollback)]"
+	IBSQLMonitor_StrStartTransaction,	": [Start transaction]"
+	IBSQLMonitor_StrApplication,	"[Application: "
+	IBXConst_SUnknownError,	"Unknown error"
+	IBXConst_SInterBaseMissing,	"InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality"
+	IBXConst_SInterBaseInstallMissing,	"InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality"
+	IBXConst_SIB60feature,	"%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality"
+	IBXConst_SNotSupported,	"Unsupported feature"
 	uDARes_err_NeedShareMem,	"To use dynamically loaded drivers, you must build your application with ShareMem."
 	uDARes_err_DatasetNotAccessible,	"Access to dataset %s has not been permitted."
 	uDARes_err_CommandNotAccessible,	"executon of command %s has not been permitted."
 	uDARes_err_SQLNotPermitted,	"Execution of the specified SQL statement has not been permitted."
 	uDARes_err_UTF8DecodeError,	"Can't decode UTF8 string: \"%s\""
 	uDAMemDataset_SNoDetailFilter,	"Filter property cannot be used for detail tables"
-	IBXConst_SUnknownError,	"Unknown error"
-	IBXConst_SInterBaseMissing,	"InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality"
-	IBXConst_SInterBaseInstallMissing,	"InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality"
-	IBXConst_SIB60feature,	"%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality"
-	IBXConst_SNotSupported,	"Unsupported feature"
-	IBXConst_SNotPermitted,	"Not permitted"
-	IBXConst_SFileAccessError,	"Temporary file access error"
-	IBXConst_SConnectionTimeout,	"Database connection timed out"
-	IBXConst_SCannotSetDatabase,	"Cannot set database"
-	IBXConst_SCannotSetTransaction,	"Cannot set transaction"
+	IBSQLMonitor_StrConnect,	": [Connect]"
+	IBSQLMonitor_StrDisconnect,	": [Disconnect]"
+	IBSQLMonitor_StrMisc,	"[Misc] "
+	IBSQLMonitor_StrError,	"[Error] "
+	IBSQLMonitor_StrAttach,	": [Attach]"
+	IBSQLMonitor_StrDetach,	": [Detach]"
+	IBSQLMonitor_StrQuery,	": [Query]"
+	IBSQLMonitor_StrStart,	": [Start]"
+	IBSQLMonitor_StrExecute,	": [Execute] "
+	IBSQLMonitor_StrNULL,	"<NULL>"
 	uDARes_err_NotSupported,	"Not supported"
 	uDARes_err_InvalidDataset,	"Invalid or NIL dataset"
 	uDARes_err_CannotFindItem,	"Cannot find %s \"%s\" in collection of type %s"
@@ -2070,6 +2070,59 @@ BEGIN
 	JvResources_RsAniFilterName,	"ANI Image"
 	JvResources_RsRootValueReplaceFmt,	"The Default Root Value \"%0:s\" has been replaced with \"%1:s\".\r\nPlease change the value in the FileVersionInfo Project Properties."
 	JvResources_RsEUnableToCreateKey,	"Unable to create key '%s'"
+	IdResourceStringsProtocols_RSHTTPRequestURITooLong,	"Request-URI Too Long. 256 Chars max"
+	IdResourceStringsProtocols_RSHTTPUnsupportedMediaType,	"Unsupported Media Type"
+	IdResourceStringsProtocols_RSHTTPInternalServerError,	"Internal Server Error"
+	IdResourceStringsProtocols_RSHTTPNotImplemented,	"Not Implemented"
+	IdResourceStringsProtocols_RSHTTPBadGateway,	"Bad Gateway"
+	IdResourceStringsProtocols_RSHTTPServiceUnavailable,	"Service Unavailable"
+	IdResourceStringsProtocols_RSHTTPGatewayTimeout,	"Gateway timeout"
+	IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported,	"HTTP version not supported"
+	IdResourceStringsProtocols_RSHTTPUnknownResponseCode,	"Unknown Response Code"
+	IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten,	"Header has already been written."
+	IdResourceStringsProtocols_RSHTTPErrorParsingCommand,	"Error in parsing command."
+	IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme,	"Unsupported authorization scheme."
+	IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive,	"Cannot change session state when the server is active."
+	IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered,	"This authentication method is already registered with class name %s."
+	ComStrs_sTabFailClear,	"Failed to clear tab control"
+	ComStrs_sTabFailDelete,	"Failed to delete tab at index %d"
+	IdResourceStringsProtocols_RSHTTPSeeOther,	"See Other"
+	IdResourceStringsProtocols_RSHTTPNotModified,	"Not Modified"
+	IdResourceStringsProtocols_RSHTTPUseProxy,	"Use Proxy"
+	IdResourceStringsProtocols_RSHTTPBadRequest,	"Bad Request"
+	IdResourceStringsProtocols_RSHTTPUnauthorized,	"Unauthorized"
+	IdResourceStringsProtocols_RSHTTPForbidden,	"Forbidden"
+	IdResourceStringsProtocols_RSHTTPNotFound,	"Not Found"
+	IdResourceStringsProtocols_RSHTTPMethodNotAllowed,	"Method not allowed"
+	IdResourceStringsProtocols_RSHTTPNotAcceptable,	"Not Acceptable"
+	IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired,	"Proxy Authentication Required"
+	IdResourceStringsProtocols_RSHTTPRequestTimeout,	"Request Timeout"
+	IdResourceStringsProtocols_RSHTTPConflict,	"Conflict"
+	IdResourceStringsProtocols_RSHTTPGone,	"Gone"
+	IdResourceStringsProtocols_RSHTTPLengthRequired,	"Length Required"
+	IdResourceStringsProtocols_RSHTTPPreconditionFailed,	"Precondition Failed"
+	IdResourceStringsProtocols_RSHTTPRequestEntityToLong,	"Request Entity To Long"
+	IdResourceStringsCore_RSThreadSchedulerThreadRequired,	"Thread must be specified for the scheduler."
+	IdResourceStringsCore_RSNoOnExecute,	"You must have an OnExecute event."
+	IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive,	"Cannot change the scheduler while the server is Active."
+	IdResourceStringsProtocols_RSMIMEExtensionEmpty,	"Extension is empty"
+	IdResourceStringsProtocols_RSMIMEMIMETypeEmpty,	"Mimetype is empty"
+	IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists,	"Extension already exits"
+	IdResourceStringsProtocols_RSHTTPContinue,	"Continue"
+	IdResourceStringsProtocols_RSHTTPOK,	"OK"
+	IdResourceStringsProtocols_RSHTTPCreated,	"Created"
+	IdResourceStringsProtocols_RSHTTPAccepted,	"Accepted"
+	IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation,	"Non-authoritative Information"
+	IdResourceStringsProtocols_RSHTTPNoContent,	"No Content"
+	IdResourceStringsProtocols_RSHTTPResetContent,	"Reset Content"
+	IdResourceStringsProtocols_RSHTTPPartialContent,	"Partial Content"
+	IdResourceStringsProtocols_RSHTTPMovedPermanently,	"Moved Permanently"
+	IdResourceStringsProtocols_RSHTTPMovedTemporarily,	"Moved Temporarily"
+	IdResourceStringsCore_RSFileNotFound,	"File \"%s\" not found"
+	IdResourceStringsCore_RSNotConnected,	"Not Connected"
+	IdResourceStringsCore_RSObjectTypeNotSupported,	"Object type not supported."
+	IdResourceStringsCore_RSIdNoDataToRead,	"No data to read."
+	IdResourceStringsCore_RSReadTimeout,	"Read Timeout"
 	IdResourceStringsCore_RSReadLnMaxLineLengthExceeded,	"Max line length exceeded."
 	IdResourceStringsCore_RSConnectTimeout,	"Connect timed out."
 	IdResourceStringsCore_RSThreadTerminateAndWaitFor,	"Cannot call TerminateAndWaitFor on FreeAndTerminate threads"
@@ -2081,11 +2134,11 @@ BEGIN
 	IdResourceStringsCore_RSBufferMissingTerminator,	"Buffer terminator must be specified."
 	IdResourceStringsCore_RSBufferInvalidStartPos,	"Buffer start position is invalid."
 	IdResourceStringsCore_RSReplyInvalidCode,	"Reply Code is not valid: %s"
-	IdResourceStringsCore_RSThreadSchedulerThreadRequired,	"Thread must be specified for the scheduler."
-	IdResourceStringsCore_RSNoOnExecute,	"You must have an OnExecute event."
-	IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive,	"Cannot change the scheduler while the server is Active."
-	ComStrs_sTabFailClear,	"Failed to clear tab control"
-	ComStrs_sTabFailDelete,	"Failed to delete tab at index %d"
+	IdResourceStringsCore_RSSocksRequestIdentFailed,	"Request rejected because the client program and identd report different user-ids."
+	IdResourceStringsCore_RSSocksUnknownError,	"Unknown socks error."
+	IdResourceStringsCore_RSSocksServerRespondError,	"Socks server did not respond."
+	IdResourceStringsCore_RSSocksAuthMethodError,	"Invalid socks authentication method."
+	IdResourceStringsCore_RSSocksAuthError,	"Authentication error to socks server."
 	IdResourceStringsCore_RSSocksServerGeneralError,	"General SOCKS server failure."
 	IdResourceStringsCore_RSSocksServerPermissionError,	"Connection not allowed by ruleset."
 	IdResourceStringsCore_RSSocksServerNetUnreachableError,	"Network unreachable."
@@ -2097,59 +2150,6 @@ BEGIN
 	IdResourceStringsCore_RSInterceptCircularLink,	"%d: Circular links are not allowed"
 	IdResourceStringsCore_RSNotEnoughDataInBuffer,	"Not enough data in buffer."
 	IdResourceStringsCore_RSTooMuchDataInBuffer,	"Too much data in buffer."
-	IdResourceStringsCore_RSFileNotFound,	"File \"%s\" not found"
-	IdResourceStringsCore_RSNotConnected,	"Not Connected"
-	IdResourceStringsCore_RSObjectTypeNotSupported,	"Object type not supported."
-	IdResourceStringsCore_RSIdNoDataToRead,	"No data to read."
-	IdResourceStringsCore_RSReadTimeout,	"Read Timeout"
-	IdResourceStringsProtocols_RSHTTPGatewayTimeout,	"Gateway timeout"
-	IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported,	"HTTP version not supported"
-	IdResourceStringsProtocols_RSHTTPUnknownResponseCode,	"Unknown Response Code"
-	IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten,	"Header has already been written."
-	IdResourceStringsProtocols_RSHTTPErrorParsingCommand,	"Error in parsing command."
-	IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme,	"Unsupported authorization scheme."
-	IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive,	"Cannot change session state when the server is active."
-	IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered,	"This authentication method is already registered with class name %s."
-	IdResourceStringsCore_RSSocksUDPNotSupported,	"UDP is not support in this SOCKS version."
-	IdResourceStringsCore_RSSocksRequestFailed,	"Request rejected or failed."
-	IdResourceStringsCore_RSSocksRequestServerFailed,	"Request rejected because SOCKS server cannot connect."
-	IdResourceStringsCore_RSSocksRequestIdentFailed,	"Request rejected because the client program and identd report different user-ids."
-	IdResourceStringsCore_RSSocksUnknownError,	"Unknown socks error."
-	IdResourceStringsCore_RSSocksServerRespondError,	"Socks server did not respond."
-	IdResourceStringsCore_RSSocksAuthMethodError,	"Invalid socks authentication method."
-	IdResourceStringsCore_RSSocksAuthError,	"Authentication error to socks server."
-	IdResourceStringsProtocols_RSHTTPNotFound,	"Not Found"
-	IdResourceStringsProtocols_RSHTTPMethodNotAllowed,	"Method not allowed"
-	IdResourceStringsProtocols_RSHTTPNotAcceptable,	"Not Acceptable"
-	IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired,	"Proxy Authentication Required"
-	IdResourceStringsProtocols_RSHTTPRequestTimeout,	"Request Timeout"
-	IdResourceStringsProtocols_RSHTTPConflict,	"Conflict"
-	IdResourceStringsProtocols_RSHTTPGone,	"Gone"
-	IdResourceStringsProtocols_RSHTTPLengthRequired,	"Length Required"
-	IdResourceStringsProtocols_RSHTTPPreconditionFailed,	"Precondition Failed"
-	IdResourceStringsProtocols_RSHTTPRequestEntityToLong,	"Request Entity To Long"
-	IdResourceStringsProtocols_RSHTTPRequestURITooLong,	"Request-URI Too Long. 256 Chars max"
-	IdResourceStringsProtocols_RSHTTPUnsupportedMediaType,	"Unsupported Media Type"
-	IdResourceStringsProtocols_RSHTTPInternalServerError,	"Internal Server Error"
-	IdResourceStringsProtocols_RSHTTPNotImplemented,	"Not Implemented"
-	IdResourceStringsProtocols_RSHTTPBadGateway,	"Bad Gateway"
-	IdResourceStringsProtocols_RSHTTPServiceUnavailable,	"Service Unavailable"
-	IdResourceStringsProtocols_RSHTTPContinue,	"Continue"
-	IdResourceStringsProtocols_RSHTTPOK,	"OK"
-	IdResourceStringsProtocols_RSHTTPCreated,	"Created"
-	IdResourceStringsProtocols_RSHTTPAccepted,	"Accepted"
-	IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation,	"Non-authoritative Information"
-	IdResourceStringsProtocols_RSHTTPNoContent,	"No Content"
-	IdResourceStringsProtocols_RSHTTPResetContent,	"Reset Content"
-	IdResourceStringsProtocols_RSHTTPPartialContent,	"Partial Content"
-	IdResourceStringsProtocols_RSHTTPMovedPermanently,	"Moved Permanently"
-	IdResourceStringsProtocols_RSHTTPMovedTemporarily,	"Moved Temporarily"
-	IdResourceStringsProtocols_RSHTTPSeeOther,	"See Other"
-	IdResourceStringsProtocols_RSHTTPNotModified,	"Not Modified"
-	IdResourceStringsProtocols_RSHTTPUseProxy,	"Use Proxy"
-	IdResourceStringsProtocols_RSHTTPBadRequest,	"Bad Request"
-	IdResourceStringsProtocols_RSHTTPUnauthorized,	"Unauthorized"
-	IdResourceStringsProtocols_RSHTTPForbidden,	"Forbidden"
 	IdResourceStrings_RSAntiFreezeOnlyOne,	"Only one TIdAntiFreeze can exist per application."
 	IdResourceStrings_RSCannotSetIPVersionWhenConnected,	"Cannot change IPVersion when connected"
 	IdResourceStrings_RSCannotBindRange,	"Can not bind in port range (%d - %d)"
@@ -2163,9 +2163,9 @@ BEGIN
 	IdResourceStrings_RSNotAllBytesSent,	"Not all bytes sent."
 	IdResourceStrings_RSPackageSizeTooBig,	"Package Size Too Big."
 	IdResourceStrings_RSSetSizeExceeded,	"Set Size Exceeded."
-	IdResourceStringsProtocols_RSMIMEExtensionEmpty,	"Extension is empty"
-	IdResourceStringsProtocols_RSMIMEMIMETypeEmpty,	"Mimetype is empty"
-	IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists,	"Extension already exits"
+	IdResourceStringsCore_RSSocksUDPNotSupported,	"UDP is not support in this SOCKS version."
+	IdResourceStringsCore_RSSocksRequestFailed,	"Request rejected or failed."
+	IdResourceStringsCore_RSSocksRequestServerFailed,	"Request rejected because SOCKS server cannot connect."
 	IdResourceStrings_RSStackECONNRESET,	"Connection reset by peer."
 	IdResourceStrings_RSStackENOBUFS,	"No buffer space available."
 	IdResourceStrings_RSStackEISCONN,	"Socket is already connected."
@@ -2262,6 +2262,26 @@ BEGIN
 	DBConsts_SDataSetMissing,	"Field '%s' has no dataset"
 	DBConsts_SInvalidCalcType,	"Field '%s' cannot be a calculated or lookup field"
 	DBConsts_SFieldReadOnly,	"Field '%s' cannot be modified"
+	uRODECConst_sStringFormatExists,	"String Format \"%d\" does not exist."
+	uRODECConst_sInvalidStringFormat,	"Input is not a valid %s Format."
+	uRODECConst_sInvalidFormatString,	"Input cannot be converted to %s Format."
+	uRODECConst_sFMT_COPY,	"copy Input to Output"
+	uRODECConst_sFMT_HEX,	"Hexadecimal"
+	uRODECConst_sFMT_HEXL,	"Hexadecimal lowercase"
+	uRODECConst_sFMT_MIME64,	"MIME Base 64"
+	uRODECConst_sFMT_UU,	"UU Coding"
+	uRODECConst_sFMT_XX,	"XX Coding"
+	uRODECConst_sInvalidKeySize,	"Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes"
+	uRODECConst_sNotInitialized,	"%s is not initialized, call Init() or InitKey() first."
+	DBConsts_SInvalidFieldSize,	"Invalid field size"
+	DBConsts_SInvalidFieldKind,	"Invalid FieldKind"
+	DBConsts_SUnknownFieldType,	"Field '%s' is of an unknown type"
+	DBConsts_SFieldNameMissing,	"Field name missing"
+	DBConsts_SDuplicateFieldName,	"Duplicate field name '%s'"
+	uRORes_err_DOMElementIsNIL,	"DOMElement is NIL"
+	uRORes_err_CannotLoadXMLDocument,	"Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
+	uRORes_err_ErrorCreatingMsXmlDoc,	"Error creating MSXML Document class\r\r%s: %s"
+	uRORes_err_NoXMLParsersAvailable,	"MSXML is not installed"
 	uRORes_err_IDispatchMarshalingNotSupported,	"Marshaling of IDispatch (%d) type variants is not supported."
 	uRORes_err_UnsupportedVariantType,	"Unsupported variant type \"%d\""
 	uRORes_err_VariantIsNotArray,	"Variant must be Array, but is %d"
@@ -2273,11 +2293,11 @@ BEGIN
 	ComConst_SVarNotObject,	"Variant does not reference an automation object"
 	ComConst_STooManyParams,	"Dispatch methods do not support more than 64 parameters"
 	ComConst_SDCOMNotInstalled,	"DCOM not installed"
-	DBConsts_SInvalidFieldSize,	"Invalid field size"
-	DBConsts_SInvalidFieldKind,	"Invalid FieldKind"
-	DBConsts_SUnknownFieldType,	"Field '%s' is of an unknown type"
-	DBConsts_SFieldNameMissing,	"Field name missing"
-	DBConsts_SDuplicateFieldName,	"Duplicate field name '%s'"
+	uRODECConst_sProtectionCircular,	"Circular Protection detected, Protection Object is invalid."
+	uRORes_err_ClassAlreadyRegistered,	"Class \"%s\" is already registered"
+	uRORes_err_UnknownClass,	"Unknown class \"%s\""
+	uRORes_err_UnknownProxyInterface,	"Unknown proxy interface \"%s\""
+	uRORes_err_DispatcherAlreadyAssigned,	"Dispatcher for %s already assigned"
 	uRORes_err_CannotFindMessageDispatcher,	"Cannot find message dispatcher. Maybe there is no message component configured for the requested path?"
 	uRORes_err_ServerOnlySupportsOneDispatcher,	"%s servers only support one dispatcher"
 	uRORes_err_UnhandledException,	"Unhandled exception"
@@ -2290,10 +2310,10 @@ BEGIN
 	uRORes_err_SessionNotFound,	"Session %s could not be found"
 	uRORes_err_ChannelDoesntSupportIROMetadataReader,	"Channel does not support IROMetadataReader"
 	uRORes_err_TooManySessions,	"Too many sessions. Try again in %d minute(s)"
-	uRORes_err_DOMElementIsNIL,	"DOMElement is NIL"
-	uRORes_err_CannotLoadXMLDocument,	"Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
-	uRORes_err_ErrorCreatingMsXmlDoc,	"Error creating MSXML Document class\r\r%s: %s"
-	uRORes_err_NoXMLParsersAvailable,	"MSXML is not installed"
+	uRORes_err_RodlItemExistsInAnsector,	"An item named \"%s\" already exists in ancestor \"%s\"."
+	uRORes_err_RodlCircularReference,	"Circular reference detected between %s and %s"
+	uRORes_err_RodlCircularityWarning,	"Contained items have been not checked for name duplicates in ancestors because of the ancestors' circularity"
+	uRORes_str_ExceptionOnServer,	"An exception of type %s was raised on the server: %s"
 	uRORes_str_ExceptionReraisedFromServer,	"An exception was raised on the server: %s"
 	uRORes_err_AssignError,	"Cannot assign a \"%s\" to a \"%s\"."
 	uRORes_err_InvalidRequestStream,	"Invalid request stream (%d bytes)"
@@ -2306,10 +2326,10 @@ BEGIN
 	uRORes_err_TypeNotSupported,	"Type \"%s\" not supported"
 	uRORes_err_ClassFactoryNotFound,	"Class factory for interface %s not found"
 	uRORes_err_IROMessageNotSupported,	"Class \"%s\" does not support IROMessage"
-	uRORes_err_ClassAlreadyRegistered,	"Class \"%s\" is already registered"
-	uRORes_err_UnknownClass,	"Unknown class \"%s\""
-	uRORes_err_UnknownProxyInterface,	"Unknown proxy interface \"%s\""
-	uRORes_err_DispatcherAlreadyAssigned,	"Dispatcher for %s already assigned"
+	uRORes_err_InvalidLibrary,	"Invalid library"
+	uRORes_err_InvalidStream,	"Invalid stream"
+	uRORes_err_InvalidTargetEntity,	"Invalid TargetEntity \"%s\""
+	uRORes_err_InvalidParamFlag,	"Invalid Parameter Flag \"%s\""
 	uRORes_err_InvalidStringLength,	"Stream read error: Invalid string length \"%d\""
 	uRORes_str_InvalidClassTypeInStream,	"Stream read error: Invalid class type encountered: \"%s\""
 	uRORes_err_UnexpectedEndOfStream,	"Unexpected end of stream."
@@ -2322,26 +2342,6 @@ BEGIN
 	uRORes_err_RodlInvalidDataType,	"Invalid or undefined data type \"%s\"."
 	uRORes_err_RodlStructCannotBeNested,	"Structs cannot recursively contain themselves."
 	uRORes_err_RodlInvalidAncestorType,	"Invalid or undefined ancestor type \"%s\"."
-	uRORes_err_RodlItemExistsInAnsector,	"An item named \"%s\" already exists in ancestor \"%s\"."
-	uRORes_err_RodlCircularReference,	"Circular reference detected between %s and %s"
-	uRORes_err_RodlCircularityWarning,	"Contained items have been not checked for name duplicates in ancestors because of the ancestors' circularity"
-	uRORes_str_ExceptionOnServer,	"An exception of type %s was raised on the server: %s"
-	uRODECConst_sInvalidStringFormat,	"Input is not a valid %s Format."
-	uRODECConst_sInvalidFormatString,	"Input cannot be converted to %s Format."
-	uRODECConst_sFMT_COPY,	"copy Input to Output"
-	uRODECConst_sFMT_HEX,	"Hexadecimal"
-	uRODECConst_sFMT_HEXL,	"Hexadecimal lowercase"
-	uRODECConst_sFMT_MIME64,	"MIME Base 64"
-	uRODECConst_sFMT_UU,	"UU Coding"
-	uRODECConst_sFMT_XX,	"XX Coding"
-	uRODECConst_sInvalidKeySize,	"Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes"
-	uRODECConst_sNotInitialized,	"%s is not initialized, call Init() or InitKey() first."
-	uRORes_err_InvalidIndex,	"Invalid index %d"
-	uRORes_err_InvalidType,	"Invalid type \"%s. Expected \"%s\"\""
-	uRORes_err_InvalidLibrary,	"Invalid library"
-	uRORes_err_InvalidStream,	"Invalid stream"
-	uRORes_err_InvalidTargetEntity,	"Invalid TargetEntity \"%s\""
-	uRORes_err_InvalidParamFlag,	"Invalid Parameter Flag \"%s\""
 	Consts_SASCIIEncoding,	"ASCII"
 	Consts_SUnicodeEncoding,	"Unicode"
 	Consts_SBigEndianEncoding,	"Big Endian Unicode"
@@ -2356,8 +2356,8 @@ BEGIN
 	HelpIntfs_hNoContext,	"No context-sensitive help installed"
 	HelpIntfs_hNoContextFound,	"No help found for context"
 	HelpIntfs_hNoTopics,	"No topic-based help system installed"
-	uRODECConst_sProtectionCircular,	"Circular Protection detected, Protection Object is invalid."
-	uRODECConst_sStringFormatExists,	"String Format \"%d\" does not exist."
+	uRORes_err_InvalidIndex,	"Invalid index %d"
+	uRORes_err_InvalidType,	"Invalid type \"%s. Expected \"%s\"\""
 	Consts_SShutdown,	"shutdown"
 	Consts_SCustomError,	"Service failed in custom message(%d): %s"
 	Consts_SServiceInstallOK,	"Service installed successfully"
@@ -2632,15 +2632,15 @@ BEGIN
 	SysConst_SAccessDenied,	"File access denied"
 END
 
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */
-/* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROPoweredByRemObjectsButton.res */
-/* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROHtmlServerInfo.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\Buttons.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\ExtDlgs.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\controls.res */
+/* C:\Codigo\Lib\RemObjects\RemObjects_SDK\uROPoweredByRemObjectsButton.res */
+/* C:\Codigo\Lib\RemObjects\RemObjects_SDK\uROHtmlServerInfo.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\buttons.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\extdlgs.res */
 /* C:\Codigo\Lib\JVCL\JvConsts.res */
 /* C:\Codigo\Lib\JVCL\JvProgressForm.dfm */
-/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_IBXDriver_Glyphs.res */
+/* C:\Codigo\Lib\RemObjects\Data_Abstract\DataAbstract_IBXDriver_Glyphs.res */
 /* C:\Codigo\Lib\JVCL\JvLogForm.dfm */
 /* C:\Codigo\Source\Servidor\uDataModuleServer.dfm */
 /* C:\Codigo\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */
@@ -2655,35 +2655,35 @@ END
 /* C:\Codigo\Source\Servidor\uAcercaDe.dfm */
 /* C:\Codigo\Source\Servidor\uServerMainForm.dfm */
 /* C:\Codigo\Source\Servidor\srvLogin_Impl.dfm */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\FileCtrl.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\filectrl.res */
 /* C:\Codigo\Lib\FastReport4\frxInheritError.dfm */
-/* C:\Codigo\Lib\FastReport4\frxCtrls.RES */
-/* C:\Codigo\Lib\FastReport4\frxPrintDialog.DFM */
-/* C:\Codigo\Lib\FastReport4\frxPreviewPageSettings.DFM */
-/* C:\Codigo\Lib\FastReport4\frxSearchDialog.DFM */
-/* C:\Codigo\Lib\FastReport4\frxPreview.DFM */
-/* C:\Codigo\Lib\FastReport4\frxPreview.RES */
-/* C:\Codigo\Lib\FastReport4\frxDialogForm.DFM */
+/* C:\Codigo\Lib\FastReport4\frxCtrls.res */
+/* C:\Codigo\Lib\FastReport4\frxPrintDialog.dfm */
+/* C:\Codigo\Lib\FastReport4\frxPreviewPageSettings.dfm */
+/* C:\Codigo\Lib\FastReport4\frxSearchDialog.dfm */
+/* C:\Codigo\Lib\FastReport4\frxPreview.dfm */
+/* C:\Codigo\Lib\FastReport4\frxPreview.res */
+/* C:\Codigo\Lib\FastReport4\frxDialogForm.dfm */
 /* C:\Codigo\Lib\FastReport4\frxPassw.dfm */
-/* C:\Codigo\Lib\FastReport4\frxProgress.DFM */
-/* C:\Codigo\Lib\FastReport4\frxClass.RES */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\TeeResou.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\TeePenDlg.DFM */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\TeeBmps.res */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\TeeGalleryAlternate.DFM */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\Tabs.res */
-/* C:\Codigo\Lib\FastReport4\frxPopupForm.DFM */
-/* C:\Codigo\Lib\FastReport4\frxInsp.DFM */
-/* C:\Codigo\Lib\FastReport4\frxEditFormat.DFM */
-/* C:\Codigo\Lib\FastReport4\frxEditHighlight.DFM */
-/* C:\Codigo\Lib\FastReport4\frxEditSysMemo.DFM */
-/* C:\Codigo\Lib\FastReport4\frxEditMemo.DFM */
-/* C:\Codigo\Lib\FastReport4\frxChartEditor.DFM */
-/* C:\Codigo\Lib\FastReport4\frxEditFrame.DFM */
-/* C:\Codigo\Lib\FastReport4\frxCrossEditor.DFM */
-/* C:\Codigo\Lib\FastReport4\frxOLEEditor.DFM */
-/* C:\Codigo\Lib\FastReport4\frxBarcodeEditor.DFM */
-/* C:\Codigo\Lib\FastReport4\frxRichEditor.DFM */
+/* C:\Codigo\Lib\FastReport4\frxProgress.dfm */
+/* C:\Codigo\Lib\FastReport4\frxClass.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Teeresou.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\TeePenDlg.dfm */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\TeeBmps.res */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\TeeGalleryAlternate.dfm */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\tabs.res */
+/* C:\Codigo\Lib\FastReport4\frxPopupForm.dfm */
+/* C:\Codigo\Lib\FastReport4\frxInsp.dfm */
+/* C:\Codigo\Lib\FastReport4\frxEditFormat.dfm */
+/* C:\Codigo\Lib\FastReport4\frxEditHighlight.dfm */
+/* C:\Codigo\Lib\FastReport4\frxEditSysMemo.dfm */
+/* C:\Codigo\Lib\FastReport4\frxEditMemo.dfm */
+/* C:\Codigo\Lib\FastReport4\frxChartEditor.dfm */
+/* C:\Codigo\Lib\FastReport4\frxEditFrame.dfm */
+/* C:\Codigo\Lib\FastReport4\frxCrossEditor.dfm */
+/* C:\Codigo\Lib\FastReport4\frxOLEEditor.dfm */
+/* C:\Codigo\Lib\FastReport4\frxBarcodeEditor.dfm */
+/* C:\Codigo\Lib\FastReport4\frxRichEditor.dfm */
 /* C:\Codigo\Lib\DevExpressVCL\cxShellBrowser.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.dfm */
 /* C:\Codigo\Source\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.dfm */
@@ -2727,14 +2727,15 @@ END
 /* C:\Codigo\Source\Modulos\Obras\Servidor\srvObras_Impl.dfm */
 /* C:\Codigo\Source\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.dfm */
 /* C:\Codigo\Source\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.dfm */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\DBPWDlg.dfm */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\DBLogDlg.dfm */
-/* c:\archivos de programa\codegear\rad studio\5.0\lib\DBCtrls.res */
-/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\uDAReconcileDialogDetails.dfm */
-/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\uDAReconcileDialog.dfm */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\DBPWDlg.dfm */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\DBLogDlg.dfm */
+/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\dbctrls.res */
+/* C:\Codigo\Lib\RemObjects\Data_Abstract\uDAReconcileDialogDetails.dfm */
+/* C:\Codigo\Lib\RemObjects\Data_Abstract\uDAReconcileDialog.dfm */
 /* C:\Codigo\Source\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.dfm */
 /* C:\Codigo\Source\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.dfm */
 /* C:\Codigo\Source\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.dfm */
-/* C:\Codigo\Source\Servidor\FactuGES_Server.res */
-/* C:\Codigo\Source\Servidor\..\Servicios\RODLFile.res */
-/* C:\Codigo\Source\Servidor\FactuGES_Server.drf */
+/* C:\Codigo\Source\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.dfm */
+/* C:\Codigo\Source\Servidor\FactuGES_Server.RES */
+/* C:\Codigo\Source\Servidor\..\Servicios\RODLFILE.res */
+/* c:\temp\dtf571.tmp */
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 5d15db2..f2c67ec 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.8.3.0\0"
               VALUE "ProductVersion", "1.8.3.0\0"
-              VALUE "CompileDate", "viernes, 06 de agosto de 2010 12:54\0"
+              VALUE "CompileDate", "lunes, 16 de agosto de 2010 18:20\0"
          END
     END
     BLOCK "VarFileInfo"