Clientes reacomodo, limpieza modulos, rep compras af

Planeacion/CatSubProyectos.aspx.vb

@@ -924,10 +924,62 @@ Partial Class CatSubProyectos
 
     End Sub
 
+    Protected Sub LnkusuariosAsignados_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveSubProyectoUsuarios As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
+
+        LblUsuariosProyectoTitulo.Text = $"Centro de Costos: {GvRow.DataKey("SubProyecto")}"
+        CargaUsuariosAsignados(CveSubProyectoUsuarios)
+        RegistraScript("$('#DivUsuariosProyecto').modal('show');")
 
 
+    End Sub
+
+    Private Sub CargaUsuariosAsignados(CveSubProyectoUsuarios As Integer)
+
+        Dim ObjUsuarios As New ClsSisUsuarios
+
+        If ObjUsuarios.GetSubProyectos(-1, CveSubProyectoUsuarios) Then
+            GvUsuariosProyectos.DataSource = ObjUsuarios.DtResultados
+        Else
+            GvUsuariosProyectos.DataSource = Nothing
+        End If
+
+        ObjUsuarios.Dispose()
+
+        GvUsuariosProyectos.DataBind()
+        UpModalUsuariosProyectos.Update()
+
+    End Sub
 
 
+    Protected Sub LnkEliminarUsuarioSubProyecto_Click(sender As Object, e As EventArgs)
 
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveUsuario As Integer = GvRow.DataKey("CveUsuario").ToEntero
+        Dim CveSubProyectoUsuarios As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
+        Dim SubProyecto As String = GvRow.DataKey("SubProyecto")
+        Dim Erroreliminacion As Boolean = False
+
+        Dim ObjUsuarios As New ClsSisUsuarios
+        Dim ObjGenerales As New ClsGenerales
+
+        If ObjUsuarios.RemoveSubProyectos(CveUsuario, CveSubProyectoUsuarios, UsuarioActual.CveUsuario) Then
+            If Not ObjGenerales.AddHistorialBitacora(406, -1, -1, -1, -1, -1, -1, -1, "", SubProyecto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, "-1", "-1", "-1", CveUsuarioTabla:=CveUsuario) Then
+                Erroreliminacion = True
+            End If
+        Else
+            Erroreliminacion = True
+        End If
+
+        ObjUsuarios.Dispose()
+
+        If Not ErrorEliminacion Then
+            CargaUsuariosAsignados(CveSubProyectoUsuarios)
+            Alert("Centro de Costo desasignado.")
+        End If
+
+    End Sub
 End Class