-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

AF/PopUpBuscarAF.aspx.vb

@@ -235,7 +235,7 @@ Partial Class AF_PopUpBuscarAF
     End Sub
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

AF/RepAF.aspx.vb

@@ -42,11 +42,11 @@ Partial Class AF_RepAF
             'CargaDatos()
 
             ' If UsuarioActual.Empresa.GralSoloProyecto Then
-            DivProyecto.Visible = False
-                LblSubProyecto.Text = "Proyecto: "
-                DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DivProyecto.Visible = False
+            LblSubProyecto.Text = "Proyecto: "
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataBind()
+            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
             ' End If
         End If
     End Sub

AF/RepFlotillas.aspx.vb

@@ -31,7 +31,7 @@ Partial Class AF_RepFlotillas
         DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CentroCosto
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub

AF/ResguardoAF.aspx.vb

@@ -87,7 +87,7 @@ Partial Class AF_ResguardoAF
 
         TxtFechaT.Text = NowADS().ToShortDateString
         CargaAFResguardosTraslado()
-        DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoT.DataBind()
         DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
@@ -103,7 +103,7 @@ Partial Class AF_ResguardoAF
 
         'RECEPCION
 
-        DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoRT.DataBind()
         DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
         DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -115,7 +115,7 @@ Partial Class AF_ResguardoAF
 
         'LIBERACION
 
-        DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoRL.DataBind()
         DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
         DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1"))

AF/ValesCombustible.aspx.vb

@@ -43,7 +43,7 @@ Partial Class AF_ValesCombustible
         DdlRHPersonal.DataBind()
         DdlRHPersonal.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -51,7 +51,7 @@ Partial Class AF_ValesCombustible
 
         '    LtlSubProyecto.Text = "Proyecto"
         '    DdlSubProyecto.Items.Clear()
-        '    DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        '    DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(  UsuarioActual.CveEmpresa ))
         '    DdlSubProyecto.DataBind()
         '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         '    DivProyecto.Visible = False