Eliinar movimiento Bitacora, rh actualizar altas bajas

Ashx/SIGWeb.ashx

@@ -1677,8 +1677,18 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
         '    TieneError = True
         'End If
+        Dim CveUsuarioEliminoMovimiento As Integer = 100
 
-        If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then
+        Try
+            Dim usuario As Usuario = UsuarioActual(context)
+            CveUsuarioEliminoMovimiento = If(usuario.CveUsuario > 0, usuario.CveUsuario, 100)
+        Catch ex As Exception
+
+        End Try
+
+
+
+        If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa, CveUsuarioEliminoMovimiento) Then
 
             TieneError = True
         End If