a

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -292,12 +292,20 @@ Partial Class RepNotasSinAlmacen
             Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
             Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
+            Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
+            Dim CvePS As Integer = GvRow.DataKey("CveCompra")
+
+            Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
-            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then
-                Alert("El producto se desmarco correctamente.")
+            Dim ObjEventos As New ClsOIEventos
+            If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
+                If ObjEventos.AddEventoBitacora(String.Format("Se cambio el estatus de almacen del producto/servicio: {0} a 'No Recibir'", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                    Alert("El producto se desmarco correctamente.")
+                End If
             End If
             ObjCompras.Dispose()
+            ObjEventos.Dispose()
 
             CargaDatos()
         End If