diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 9e39f1f..c7dd853 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 6725688..7a42eec 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dpk b/Source/Modulos/Articulos/Views/Articulos_view.dpk
index 92f8883..ae282d9 100644
--- a/Source/Modulos/Articulos/Views/Articulos_view.dpk
+++ b/Source/Modulos/Articulos/Views/Articulos_view.dpk
@@ -51,7 +51,14 @@ requires
   RemObjects_Core_D11,
   dxLayoutControlD11,
   dxComnD11,
-  Contactos_model;
+  Contactos_model,
+  PngComponentsD10,
+  PNG_D10,
+  vclactnband,
+  cxGridD11,
+  cxPageControlD11,
+  cxExtEditorsD11,
+  cxExportD11;
 
 contains
   uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},
@@ -65,6 +72,7 @@ contains
   uViewDetallesArticulosParaVenta in 'uViewDetallesArticulosParaVenta.pas' {frViewDetallesArticulosParaVenta: TCustomView},
   uEditorArticulos in 'uEditorArticulos.pas' {fEditorArticulos: TfEditorArticulo},
   uViewProveedorArticulo in 'uViewProveedorArticulo.pas' {frViewProveedorArticulo: TFrame},
-  uViewParametrosPrecio in 'uViewParametrosPrecio.pas' {frViewParametrosPrecio: TFrame};
+  uViewParametrosPrecio in 'uViewParametrosPrecio.pas' {frViewParametrosPrecio: TFrame},
+  uViewArticulosProveedores in 'uViewArticulosProveedores.pas';
 
 end.
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj
index 15eb4c4..b8999c7 100644
--- a/Source/Modulos/Articulos/Views/Articulos_view.dproj
+++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj
@@ -55,33 +55,34 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Facturas de proveedor\adortl.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Articulos_model.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dbrtl.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dsnap.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Fabricantes_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\Familias_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\GUIBase.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\rtl.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\UnidadesMedida_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\vcl.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\vcldb.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\vcljpg.dcp" />
-    <DCCReference Include="..\..\Facturas de proveedor\vclx.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="Articulos_controller.dcp" />
+    <DCCReference Include="Articulos_model.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="Contactos_view.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="dsnap.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="Fabricantes_controller.dcp" />
+    <DCCReference Include="Familias_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>
@@ -95,6 +96,7 @@
       <Form>fEditorElegirArticulos</Form>
       <DesignClass>TfEditorElegirArticulos</DesignClass>
     </DCCReference>
+    <DCCReference Include="UnidadesMedida_controller.dcp" />
     <DCCReference Include="uViewArticulo.pas">
       <Form>frViewArticulo</Form>
       <DesignClass>TFrame</DesignClass>
@@ -107,6 +109,7 @@
       <Form>frViewArticulosPorProveedor</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewArticulosProveedores.pas" />
     <DCCReference Include="uViewDetallesArticulos.pas">
       <Form>frViewDetallesArticulos</Form>
       <DesignClass>TFrame</DesignClass>
@@ -127,6 +130,11 @@
       <Form>frViewProveedoresArticulo</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.res b/Source/Modulos/Articulos/Views/Articulos_view.res
index 8b251f3..1641339 100644
Binary files a/Source/Modulos/Articulos/Views/Articulos_view.res and b/Source/Modulos/Articulos/Views/Articulos_view.res differ
diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.dfm b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
index b126ab7..20bb7b0 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulo.dfm
+++ b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
@@ -1,6 +1,6 @@
 inherited frViewArticulo: TfrViewArticulo
-  Width = 451
-  Height = 304
+  Width = 719
+  Height = 451
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,18 +9,20 @@ inherited frViewArticulo: TfrViewArticulo
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
-    Height = 304
+    Width = 719
+    Height = 451
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth]
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
-      304)
+      719
+      451)
     object PngSpeedButton2: TPngSpeedButton
-      Left = 389
+      Left = 674
       Top = 331
       Width = 23
       Height = 22
@@ -47,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton1: TPngSpeedButton
-      Left = 389
+      Left = 674
       Top = 359
       Width = 23
       Height = 22
diff --git a/Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm b/Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm
index 57d63ff..5d48dca 100644
--- a/Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm
+++ b/Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm
@@ -119,10 +119,9 @@ inherited frViewProveedorArticulo: TfrViewProveedorArticulo
       Top = 163
       DataBinding.DataField = 'PRECIO_NETO'
       Properties.Alignment.Horz = taRightJustify
-      Properties.ReadOnly = True
+      Properties.ReadOnly = False
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
-      Style.Color = clBtnFace
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
diff --git a/Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas b/Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
index f7c17a8..f2e401a 100644
--- a/Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
+++ b/Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
@@ -33,11 +33,15 @@ type
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure OnProveedorChange(Sender: TObject);
+    procedure PrecioCosteChanged(Sender: TObject);
+    procedure DescuentoChanged(Sender: TObject);
     procedure PrecioNetoChanged(Sender: TObject);
     procedure CustomViewShow(Sender: TObject);
   protected
     FProveedoresController : IProveedoresController;
     FProveedores : IBizProveedor;
+    procedure DesactivarEventos;
+    procedure ActivarEventos;
   public
     { Public declarations }
   end;
@@ -48,6 +52,17 @@ var
 implementation
 {$R *.dfm}
 
+uses
+  Math;
+
+procedure TfrViewProveedorArticulo.ActivarEventos;
+begin
+  eProveedor.Properties.OnEditValueChanged := OnProveedorChange;
+  ePrecioCoste.Properties.OnEditValueChanged := PrecioCosteChanged;
+  eDescuento.Properties.OnEditValueChanged := DescuentoChanged;
+  ePrecioNeto.Properties.OnEditValueChanged := PrecioNetoChanged;
+end;
+
 procedure TfrViewProveedorArticulo.CustomViewCreate(Sender: TObject);
 begin
   inherited;
@@ -62,9 +77,7 @@ end;
 
 procedure TfrViewProveedorArticulo.CustomViewDestroy(Sender: TObject);
 begin
-  ePrecioCoste.Properties.OnEditValueChanged := NIL;
-  eDescuento.Properties.OnEditValueChanged := NIL;
-  eProveedor.Properties.OnEditValueChanged := NIL;
+  DesactivarEventos;
   FProveedoresController := NIL;
   FProveedores := NIL;
   inherited;
@@ -73,9 +86,41 @@ end;
 procedure TfrViewProveedorArticulo.CustomViewShow(Sender: TObject);
 begin
   inherited;
-  eProveedor.Properties.OnEditValueChanged := OnProveedorChange;
-  ePrecioCoste.Properties.OnEditValueChanged := PrecioNetoChanged;
-  eDescuento.Properties.OnEditValueChanged := PrecioNetoChanged;
+  ActivarEventos;
+end;
+
+procedure TfrViewProveedorArticulo.DesactivarEventos;
+begin
+  ePrecioNeto.Properties.OnEditValueChanged := NIL;
+  ePrecioCoste.Properties.OnEditValueChanged := NIL;
+  eDescuento.Properties.OnEditValueChanged := NIL;
+  eProveedor.Properties.OnEditValueChanged := NIL;
+end;
+
+procedure TfrViewProveedorArticulo.DescuentoChanged(Sender: TObject);
+var
+  APrecioCoste: Double;
+  ADescuento: Double;
+begin
+  APrecioCoste := 0;
+  ADescuento := 0;
+
+  if eDescuento.EditModified then
+  begin
+    if not varIsNull(ePrecioCoste.DataBinding.Field.AsFloat) then
+       APrecioCoste := ePrecioCoste.DataBinding.Field.AsFloat;
+
+    if not varIsNull(eDescuento.DataBinding.Field.AsFloat) then
+       ADescuento := eDescuento.DataBinding.Field.AsFloat;
+
+    DesactivarEventos;
+    try
+      ePrecioNeto.DataBinding.DataSource.Edit;
+      ePrecioNeto.DataBinding.Field.AsFloat := APrecioCoste - ((APrecioCoste * ADescuento)/100)
+    finally
+      ActivarEventos;
+    end;
+  end;
 end;
 
 procedure TfrViewProveedorArticulo.OnProveedorChange(Sender: TObject);
@@ -84,12 +129,12 @@ begin
   FProveedores.first;
   if FProveedores.Locate('ID', eProveedor.EditValue) then
   begin
-    eDescuento.EditValue := FProveedores.DESCUENTO;
+    eDescuento.DataBinding.Field.AsFloat := FProveedores.DESCUENTO;
     cbTiendaWeb.DataBinding.Field.AsInteger := FProveedores.TIENDA_WEB;
   end;
 end;
 
-procedure TfrViewProveedorArticulo.PrecioNetoChanged(Sender: TObject);
+procedure TfrViewProveedorArticulo.PrecioCosteChanged(Sender: TObject);
 var
   APrecioCoste: Double;
   ADescuento: Double;
@@ -97,13 +142,54 @@ begin
   APrecioCoste := 0;
   ADescuento := 0;
 
-  if not varIsNull(ePrecioCoste.EditValue) then
-     APrecioCoste := ePrecioCoste.EditValue;
+  if ePrecioCoste.EditModified then
+  begin
+    if not varIsNull(ePrecioCoste.DataBinding.Field.AsFloat) then
+       APrecioCoste := ePrecioCoste.DataBinding.Field.AsFloat;
 
-  if not varIsNull(eDescuento.EditValue) then
-     ADescuento := eDescuento.EditValue;
+    if not varIsNull(eDescuento.DataBinding.Field.AsFloat) then
+       ADescuento := eDescuento.DataBinding.Field.AsFloat;
 
-  ePrecioNeto.EditValue := APrecioCoste - ((APrecioCoste * ADescuento)/100)
+    DesactivarEventos;
+    try
+      ePrecioNeto.DataBinding.DataSource.Edit;
+      ePrecioNeto.DataBinding.Field.AsFloat := APrecioCoste - ((APrecioCoste * ADescuento)/100);
+    finally
+      ActivarEventos;
+    end;
+  end;
+end;
+
+procedure TfrViewProveedorArticulo.PrecioNetoChanged(Sender: TObject);
+var
+  APrecioCoste: Double;
+  APrecioNeto: Double;
+  ADescuento : Double;
+begin
+  APrecioCoste := 0;
+  APrecioNeto := 0;
+  ADescuento := 0;
+
+  if ePrecioNeto.EditModified then
+  begin
+    if not varIsNull(ePrecioCoste.EditValue) then
+       APrecioCoste := ePrecioCoste.EditValue;
+
+    if not varIsNull(ePrecioNeto.EditValue) then
+       APrecioNeto := ePrecioNeto.EditValue;
+
+    if (APrecioCoste <> 0) then
+       ADescuento := ((APrecioCoste - APrecioNeto) * 100) / APrecioCoste;
+
+
+    DesactivarEventos;
+    try
+      eDescuento.DataBinding.DataSource.Edit;
+      eDescuento.DataBinding.Field.AsFloat := RoundTo(ADescuento, -2);
+    finally
+      ActivarEventos;
+    end;
+  end;
 end;
 
 end.
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 1d49530..b5f1e13 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 693d683..5ef7332 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.4.0.0\0"
               VALUE "ProductVersion", "4.4.0.0\0"
-              VALUE "CompileDate", "lunes, 07 de julio de 2014 11:24\0"
+              VALUE "CompileDate", "viernes, 08 de agosto de 2014 17:54\0"
          END
     END
     BLOCK "VarFileInfo"