AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Limpiar proveedor en OC

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-10-11 00:41:44 -07:00
parent 057820477a
commit bd98dc1e84
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
OC/OC.aspx.vb
View File

@@ -6995,8 +6995,16 @@ Partial Class OC_OC
#Region " ACTUALIZA OC " #Region " ACTUALIZA OC "
Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click 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 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() CargaHistorial()
Alert("El cambio de proveedor se hizo correctamente", TipoMensaje.MsgInformacion) Alert("El cambio de proveedor se hizo correctamente", TipoMensaje.MsgInformacion)
End If End If