diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index 40c1d988..2db5c9e6 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas	
@@ -62,6 +62,7 @@ type
     procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
 //    procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
+    procedure SetID_FACTURAValue(const aValue: Integer); override;    
 
     procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
     procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@@ -295,6 +296,14 @@ begin
     inherited;
 end;
 
+procedure TBizPedidoProveedor.SetID_FACTURAValue(const aValue: Integer);
+begin
+  if (aValue = 0) then
+    SetFieldNull(DataTable, fld_PedidosProveedorID_FACTURA)
+  else
+    inherited;
+end;
+
 procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
 begin
   if (aValue = 0) then