From bd98dc1e8414d1afc1270ade46e486e5b662c242 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 11 Oct 2022 00:41:44 -0700
Subject: [PATCH] Limpiar proveedor en OC

---
 OC/OC.aspx.vb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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