Actualizacion sobre la asignacion y permisos en las ordenes de servicio mayormente todo enfocado a la lógica de subProyecto

OS/Asignaciones.aspx.vb

@@ -17,12 +17,20 @@ Partial Class OS_Asignaciones
             ViewState("TmpDT") = value
         End Set
     End Property
+
+    Private Property DtOSSubProyectos As DataTable
+        Get
+            Return CType(ViewState("DtOSSubProyectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtOSSubProyectos") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-
             CargaEstatusOS()
-            CargaUsuarios()
+            'CargaUsuarios()
             CargaClientes()
             CargaSubProyecto()
 
@@ -38,6 +46,7 @@ Partial Class OS_Asignaciones
                 DivAsignacionPersona.Visible = False
                 'CargaOrdenesServiciosAsignadas()
             End If
+            CargarTecnico()
 
             Dim ObjEstatusPermisos As New ClsOS
             If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
@@ -79,6 +88,7 @@ Partial Class OS_Asignaciones
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
         If ObjOS.GetOrdenesServiciosNoAsignadas(DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+            DtOSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
             GvNA.DataSource = ObjOS.DtResultados
             TmpDT = ObjOS.DtResultados
         Else
@@ -138,6 +148,26 @@ Partial Class OS_Asignaciones
         End If
         UPFiltros.Update()
     End Sub
+    Private Sub CargarTecnico()
+        Dim ObjOS As New ClsOS
+        Dim TecnicosSubProyectos As New DataTable
+        Dim TecnicosResultado As New DataTable
+
+        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+            TecnicosSubProyectos = ObjOS.DtResultados
+        End If
+
+        For Each SubProyecto As DataRow In DtOSSubProyectos.Rows
+            Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))).Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
+            Dim dtAuxiliar As New DataTable
+            dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
+            TecnicosResultado.Merge(dtAuxiliar)
+        Next
+        DdlTecnico.DataSource = TecnicosResultado
+        DdlTecnico.DataBind()
+        DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
+        ObjOS.Dispose()
+    End Sub
 #End Region
 
 #Region "BTN'S"

OS/CatEstatusOrdenServicio.aspx

@@ -4,10 +4,11 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .columnaUsuarios{
-            text-align:left;
-            font-weight:bold;
+        .columnaUsuarios {
+            text-align: left;
+            font-weight: bold;
         }
+
         .Widthall {
             width: 100% !important;
         }
@@ -95,17 +96,18 @@
                 <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
                     <label for="TxtBusquedaEstatus">Buscar: </label>
                     <input type="text" id="TxtBusquedaEstatus" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuariosEstatus.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
                 <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
                         <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
 
-                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
+                        <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveEstatusOrdenServicio,TipoEstatus,TipoEstatusTexto,EstatusOrdenServicio,EstatusBool,Estado,Orden" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
                             <Columns>
                                 <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus Orden Servicio" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField DataField="Estado" HeaderText="Estado" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField DataField="TipoEstatusTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="Orden" HeaderText="Orden" ItemStyle-HorizontalAlign="Left" />
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="Edit_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
@@ -125,27 +127,40 @@
 
         <ajax:TabPanel runat="server" ID="TabPanel3" HeaderText="Configuración">
             <ContentTemplate>
-                <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-                    <label for="TxtBusqueda">Buscar: </label>
-                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Prueba.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                <div class="portlet solid  grey-cascade portlet-filter">
+                    <div class="portlet-title portlet-filterT smalltitle">
+                        <div class="tools">
+                            <a href="javascript:;" class="expand"></a>
+                        </div>
+                        <div class="titlefiltros  caption">
+                            <div class="row">
+                                <label class="col-md-1">Proyecto: </label>
+                                <div class="col-md-2" id="DivProyecto" runat="server">
+                                    <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                </div>
+                                <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                <div class="col-md-2" id="DivSubProyecto" runat="server">
+                                    <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
                 </div>
-                <asp:UpdatePanel ID="UpPrueba" runat="server" UpdateMode="Conditional">
+                <asp:UpdatePanel ID="UpGvUsuariosEstatus" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <asp:GridView ID="Prueba" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" Style="text-align: center">
+
+                        <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+                            <label for="TxtBusqueda">Buscar: </label>
+                            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuariosEstatus.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvUsuariosEstatus.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        </div>
+                        <asp:GridView ID="GvUsuariosEstatus" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" Style="text-align: center">
                             <HeaderStyle VerticalAlign="Middle" />
                             <Columns>
-                                <%--<asp:TemplateField>
-                                    <HeaderTemplate>Estatus</HeaderTemplate>
-                                    <ItemStyle Width="150px" BorderStyle="None" />
-                                    <ItemTemplate>
-                                        <asp:Label Font-Bold="true" Style="text-align: left" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>--%>
                             </Columns>
                         </asp:GridView>
                         <div style="width: 100%; text-align: center">
-                            <asp:Button ID="BtnGuardarPruebas" Text="Guardar" runat="server" Visible="true" CssClass="btn btn-primary" />
+                            <asp:Button ID="BtnGuardarUsuariosEstatus" Text="Guardar" runat="server" Visible="true" CssClass="btn btn-primary" />
                         </div>
                     </ContentTemplate>
                 </asp:UpdatePanel>

OS/CatEstatusOrdenServicio.aspx.vb

@@ -64,13 +64,23 @@ Partial Class OS_CatEstatusOrdenServicio
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
-            CargaDatos()
-            AsociarEstatusUsuarios()
-            CargarUsuarioConEstatus()
+            'CargaDatos()
+            'AsociarEstatusUsuarios()
+            'CargarUsuarioConEstatus()
+            'CargarSubProyectos()
+            CargarProyectos()
+            CargarTodosLosDatos()
             CveEstatuOS = -1
         End If
     End Sub
 
+    Private Sub CargarTodosLosDatos()
+        'CargarSubProyectos()
+        CargaDatos()
+        AsociarEstatusUsuarios()
+        CargarUsuarioConEstatus()
+    End Sub
+
     Public Sub CargaDatos()
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
@@ -83,7 +93,7 @@ Partial Class OS_CatEstatusOrdenServicio
 
             End If
 
-            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1) Then
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=CboSubProyecto.SelectedValue.ToEntero) Then
                 DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
             End If
 
@@ -131,7 +141,7 @@ Partial Class OS_CatEstatusOrdenServicio
         AsociarEstatusUsuarios()
         CargarUsuarioConEstatus()
         UpDatos.Update()
-        UpPrueba.Update()
+        UpGvUsuariosEstatus.Update()
         'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -175,7 +185,7 @@ Partial Class OS_CatEstatusOrdenServicio
         EstatusUsuariosGridActualizar()
         AsociarEstatusUsuarios()
         CargarUsuarioConEstatus()
-        UpPrueba.Update()
+        UpGvUsuariosEstatus.Update()
         'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
@@ -218,18 +228,18 @@ Partial Class OS_CatEstatusOrdenServicio
         nombresUsuarios.DataField = "Nombre"
         nombresUsuarios.HeaderText = "Usuario"
         nombresUsuarios.ItemStyle.CssClass = "columnaUsuarios"
-        Prueba.Columns.Add(nombresUsuarios)
+        GvUsuariosEstatus.Columns.Add(nombresUsuarios)
         For Each Estatus As DataRow In DtEstatusOS.Rows
             Dim test As New CheckBoxField
             test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
             test.DataField = Estatus.Item("CveEstatusOrdenServicio").ToString
-            Prueba.Columns.Add(test)
+            GvUsuariosEstatus.Columns.Add(test)
         Next
-        Prueba.DataSource = DtEstatusUsuariosAsociados
-        Prueba.DataBind()
+        GvUsuariosEstatus.DataSource = DtEstatusUsuariosAsociados
+        GvUsuariosEstatus.DataBind()
     End Sub
 
-    Private Sub Prueba_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Prueba.RowDataBound
+    Private Sub GvUsuariosEstatus_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvUsuariosEstatus.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim PermisosDeUsuario As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString))
             For i As Integer = 1 To e.Row.Cells.Count - 1
@@ -241,48 +251,78 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
     End Sub
 
-    Private Sub GuardarDatosPrueba(sender As Object, e As EventArgs) Handles BtnGuardarPruebas.Click
-        Dim objEstatusOC As New ClsOS
-        objEstatusOC.IniciaTransacSQL()
-        Dim HuboErrores As Boolean = False
-        Dim CveSubProyecto = 59
+    Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click
+        If CboSubProyecto.SelectedValue.ToEntero > 0 Then
+            Dim objEstatusOC As New ClsOS
+            objEstatusOC.IniciaTransacSQL()
+            Dim HuboErrores As Boolean = False
+            Dim CveSubProyecto As Integer = CboSubProyecto.SelectedValue.ToEntero
 
-        For Each Row As GridViewRow In Prueba.Rows
-            Dim controles As Integer = Row.Controls.Count
-            For i = 1 To Row.Cells.Count - 1
-                Dim chk As CheckBox = CType(Row.Cells(i).Controls(0), CheckBox)
-                Dim CveEstatus As Integer = DtEstatusOS.FiltroPrimeroValor("CveEstatusOrdenServicio", String.Format("EstatusOrdenServicio = '{0}'", Prueba.Columns(i).HeaderText)).ToEntero
-                If Not chk.Checked Then
-                    If Not objEstatusOC.RemoveEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero) Then
-                        HuboErrores = True
-                        Exit For
+            For Each Row As GridViewRow In GvUsuariosEstatus.Rows
+                Dim controles As Integer = Row.Controls.Count
+                For i = 1 To Row.Cells.Count - 1
+                    Dim chk As CheckBox = CType(Row.Cells(i).Controls(0), CheckBox)
+                    Dim CveEstatus As Integer = DtEstatusOS.FiltroPrimeroValor("CveEstatusOrdenServicio", String.Format("EstatusOrdenServicio = '{0}'", GvUsuariosEstatus.Columns(i).HeaderText)).ToEntero
+                    If Not chk.Checked Then
+                        If Not objEstatusOC.RemoveEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
+                            HuboErrores = True
+                            Exit For
+                        End If
+                    ElseIf chk.Checked Then
+                        'Guardado masivo cuando sea SubProyecto "Todos"
+                        If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto, UsuarioActual.CveUsuario) Then
+                            HuboErrores = True
+                            Exit For
+                        End If
                     End If
-                ElseIf chk.Checked Then
-                    'Guardado masivo cuando sea SubProyecto "Todos"
-                    If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
-                        HuboErrores = True
-                        Exit For
-                    End If
-                End If
+                Next
             Next
-        Next
 
-        If Not HuboErrores Then
-            objEstatusOC.Commit()
-            Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion)
+            If Not HuboErrores Then
+                objEstatusOC.Commit()
+                Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion)
+            Else
+                objEstatusOC.RollBack()
+                Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            End If
+            objEstatusOC.Dispose()
         Else
-            objEstatusOC.RollBack()
-            Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            Alert("Se debe seleccionar un SubProyecto valido", TipoMensaje.MsgAdvertencia)
+            EstatusUsuariosGridActualizar()
+            CargarTodosLosDatos()
         End If
-        objEstatusOC.Dispose()
     End Sub
 
     Private Sub EstatusUsuariosGridActualizar()
         DtEstatusUsuariosAsociados = Nothing
-        Prueba.DataBind()
-        For Contador As Integer = (Prueba.Columns.Count - 1) To 0 Step -1
-            Prueba.Columns.RemoveAt(Contador)
+        GvUsuariosEstatus.DataBind()
+        For Contador As Integer = (GvUsuariosEstatus.Columns.Count - 1) To 0 Step -1
+            GvUsuariosEstatus.Columns.RemoveAt(Contador)
         Next
     End Sub
+
+    Private Sub CargarProyectos()
+        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        CboProyecto.DataBind()
+        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
+    End Sub
+    Private Sub CargaSubProyectos()
+        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
+        CboSubProyecto.DataBind()
+        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-2"))
+    End Sub
+
+    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
+        CargaSubProyectos()
+        'CargaDatos()
+        EstatusUsuariosGridActualizar()
+        CargarTodosLosDatos()
+        UpGvUsuariosEstatus.Update()
+    End Sub
+
+    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+        EstatusUsuariosGridActualizar()
+        CargarTodosLosDatos()
+    End Sub
 #End Region
 End Class

OS/OrdenesServicios.aspx.vb

@@ -413,11 +413,14 @@ Partial Class OS_OrdenesServicios
 
 #Region "C A R G A S"
     Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1)
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.SelectedValue = Nothing
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+        Dim ObjOS As New ClsOS
+        If ObjOS.GetSubProyectosEstatusInicial(UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa) Then
+            DdlSubProyecto.Items.Clear()
+            DdlSubProyecto.SelectedValue = Nothing
+            DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyecto.DataBind()
+            If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
+        End If
     End Sub
     Private Sub CargaTiposOrden()
         Dim ObjOS As New ClsOS