Cambios Visuales y de ortografia

OC/RepOC.aspx

@@ -147,7 +147,7 @@
                             </div>
                             <div class="colf-2 truncate">
                                 <label class="col-md-3">Tipo:</label>
-                                <asp:DropDownList ID="DdlTipo" CssClass="form-control input-sm col-md-9" runat="server" AutoPostBack="true" Style="width: 100px; height: 30px;">
+                                <asp:DropDownList ID="DdlTipo" CssClass="form-control input-sm col-md-9 select2me" runat="server" AutoPostBack="true" Style="width: 100px; height: 30px;">
                                     <asp:ListItem Value="-1" Text="Todas"></asp:ListItem>
                                     <asp:ListItem Value="REQ" Text="Requisiciones"></asp:ListItem>
                                     <asp:ListItem Value="OC" Text="Ordenes Compra"></asp:ListItem>
@@ -165,7 +165,7 @@
                             </div>
                             <label class="colf-1">Estatus</label>
                             <div class="colf-2">
-                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="form-control input-sm " DataTextField="Estatus" DataValueField="CveEstatus" Style="width: 95px; height: 30px; display: inline-block;">
+                                <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="form-control input-sm select2me" DataTextField="Estatus" DataValueField="CveEstatus" Style="width: 95px; height: 30px; display: inline-block;">
                                 </asp:DropDownList>
                             </div>
 
@@ -199,7 +199,7 @@
 
                     </div>
                     <div class="row rownomargin">
-                        <label class="colf-1 truncate">Clasificacion</label>
+                        <label class="colf-1 truncate">Clasificación</label>
                         <div class="colf-2">
                             <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true">
                             </asp:DropDownList>

OC/RepOC.aspx.vb

@@ -106,15 +106,15 @@ Partial Class RepOC
     End Sub
 
     Protected Sub CargaUsuarios()
-        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"})
         ddlUsuario.DataBind()
         ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
+        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre", {"CveUsuario", "Nombre"})
         DdlUsuarioAsignado.DataBind()
         DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"})
         DdlUsuarioAutorizo.DataBind()
         DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -137,7 +137,7 @@ Partial Class RepOC
 
     End Sub
     Protected Sub CargaEstatus()
-        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
+        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
         DdlEstatus.DataBind()
         If DdlTipo.SelectedValue = "-1" Or DdlTipo.SelectedValue = "REQ" Then DdlEstatus.Items.Insert(0, New ListItem("Pre Requisicion", "0"))
         DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))

OC/RepRequisiciones.aspx

@@ -79,7 +79,7 @@
                         <div class="row">
                             <div class="col-md-1 "><span>Proyecto:</span></div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
+                                <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;" OnSelectedIndexChanged="CargaSubProyecto" AutoPostBack="true">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>

OC/RepRequisiciones.aspx.vb

@@ -7,7 +7,14 @@ Imports Microsoft.Reporting.WebForms
 
 Partial Class OC_RepRequisiciones
     Inherits ClsPaginas
-
+    Private Property DtUsuarioProyectos As DataTable
+        Get
+            Return DirectCast(ViewState("DtUsuarioProyectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtUsuarioProyectos") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             ViewState("Orden") = ""
@@ -19,7 +26,6 @@ Partial Class OC_RepRequisiciones
 
     Private Sub CargaCombos()
         'CargaProyectos
-        Dim DtUsuarioProyectos As DataTable = Nothing
 
         Dim objEstatusUsuarios As New ClsOC
         If objEstatusUsuarios.GetEstatusUsuarios(UsuarioActual.CveUsuario, -1, -1, -1, UsuarioActual.CveEmpresa) Then
@@ -67,6 +73,19 @@ Partial Class OC_RepRequisiciones
 
     End Sub
 
+    Public Sub CargaSubProyecto(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        DdlSubProyecto.Items.Clear()
+        If DdlProyecto.SelectedValue.ToEntero = -1 Then
+            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})  'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataBind()
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        Else
+            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1)
+            DdlSubProyecto.DataBind()
+        End If
+
+    End Sub
+
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             'If e.Row.RowIndex = 0 Then
@@ -161,4 +180,5 @@ Partial Class OC_RepRequisiciones
     End Sub
 #End Region
 
+
 End Class