diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d5a4003f7..9940754d0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -6995,8 +6995,16 @@ Partial Class OC_OC
 
 #Region "  ACTUALIZA OC  "
     Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click
+        Dim CveProveedor As Integer = -1
+        'BORRAR PROVEEDOR
+        If DdlProveedores.SelectedValue.ToEntero() = -1 Then
+            CveProveedor = -2
+        Else
+            CveProveedor = DdlProveedores.SelectedValue.ToEntero()
+        End If
+
         Dim OC As New ClsOC
-        If OC.UpdateProveedorOrdenCompra(DdlProveedores.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
+        If OC.UpdateProveedorOrdenCompra(CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
             CargaHistorial()
             Alert("El cambio de proveedor se hizo correctamente", TipoMensaje.MsgInformacion)
         End If