Cambios Visuales y de ortografia

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