-- cambios de Ruta a SubProyecto

Transportes/RepContratos.aspx.vb

@@ -43,6 +43,11 @@ Partial Class ListadoContratos
         'Lista de Monedas
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
+
+        DdlEstatus.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
+        DdlEstatus.DataBind()
+        DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
@@ -52,11 +57,6 @@ Partial Class ListadoContratos
             GvContratos.DataBind()
         End If
 
-        If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
-            DdlEstatus.DataSource = ObjContratos.DtResultados
-            DdlEstatus.DataBind()
-            DdlEstatus.Items.Insert(0, New ListItem("-", ""))
-        End If
         'Generamos Folio - NumeroContrato
         Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         Dim ObjFolio As New ClsGralFolios