diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb
index cc61ddb46..962cb9ff2 100644
--- a/AF/PopUpBuscarAF.aspx.vb
+++ b/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"))
diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb
index f53192c02..9ace0232a 100644
--- a/AF/RepAF.aspx.vb
+++ b/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
diff --git a/AF/RepFlotillas.aspx.vb b/AF/RepFlotillas.aspx.vb
index 2266fba07..84ff13ac3 100644
--- a/AF/RepFlotillas.aspx.vb
+++ b/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
diff --git a/AF/ResguardoAF.aspx.vb b/AF/ResguardoAF.aspx.vb
index 5da763414..a2a9988b6 100644
--- a/AF/ResguardoAF.aspx.vb
+++ b/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"))
diff --git a/AF/ValesCombustible.aspx.vb b/AF/ValesCombustible.aspx.vb
index dfcd4a56d..5528f933f 100644
--- a/AF/ValesCombustible.aspx.vb
+++ b/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
diff --git a/Acarreos/AcarreosConcluidos.aspx.vb b/Acarreos/AcarreosConcluidos.aspx.vb
index 0770ad579..170f02384 100644
--- a/Acarreos/AcarreosConcluidos.aspx.vb
+++ b/Acarreos/AcarreosConcluidos.aspx.vb
@@ -91,13 +91,13 @@ Partial Class Acarreos_AcarreosAutoConciliacion
 
     Private Sub CargaDdlSubProyectoOrigen()
         DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyectoOrigen.DataBind()
         UPDatos.Update()
     End Sub
     Private Sub CargaDdlSubProyectoDestino()
         DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyectoDestino.DataBind()
         UPDatos.Update()
     End Sub
diff --git a/Acarreos/RegistroContratosAcarreos.aspx.vb b/Acarreos/RegistroContratosAcarreos.aspx.vb
index 661f28235..7b332b050 100644
--- a/Acarreos/RegistroContratosAcarreos.aspx.vb
+++ b/Acarreos/RegistroContratosAcarreos.aspx.vb
@@ -182,14 +182,14 @@ Partial Class Acarreos_ContratosAcarreos
 
     Private Sub CargaDdlSubProyectoOrigen()
         DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyectoOrigen.DataBind()
         UpProyecto.Update()
     End Sub
 
     Private Sub CargaDdlSubProyectoDestino()
         DdlSubProyectoDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyectoDestino.DataBind()
         UpProyecto.Update()
     End Sub
diff --git a/Acarreos/RepAcarreos.aspx.vb b/Acarreos/RepAcarreos.aspx.vb
index 0e43a11d2..97cd13f3b 100644
--- a/Acarreos/RepAcarreos.aspx.vb
+++ b/Acarreos/RepAcarreos.aspx.vb
@@ -76,13 +76,13 @@ Partial Class Acarreos_RepAcarreos
 
     Private Sub CargaDdlSubProyectoOrigen()
         DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoOrigen.DataBind()
         UPDatos.Update()
     End Sub
     Private Sub CargaDdlSubProyectoDestino()
         DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoDestino.DataBind()
         UPDatos.Update()
     End Sub
diff --git a/Acarreos/RepAcarreosDetalle.aspx.vb b/Acarreos/RepAcarreosDetalle.aspx.vb
index c62913d3e..2b6131edd 100644
--- a/Acarreos/RepAcarreosDetalle.aspx.vb
+++ b/Acarreos/RepAcarreosDetalle.aspx.vb
@@ -108,14 +108,14 @@ Partial Class Acarreos_RepAcarreosDetalle
 
     Private Sub CargaDdlSubProyectoOrigen()
         DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoOrigen.DataBind()
         UPDatos.Update()
     End Sub
 
     Private Sub CargaDdlSubProyectoDestino()
         DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoDestino.DataBind()
         UPDatos.Update()
     End Sub
diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb
index 6adf28707..629a9297f 100644
--- a/Acarreos/RepContratosAcarreos.aspx.vb
+++ b/Acarreos/RepContratosAcarreos.aspx.vb
@@ -59,13 +59,13 @@ Partial Class Acarreos_RepContratosAcarreos
 
     Private Sub CargaDdlSubProyectoOrigen()
         DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoOrigen.DataBind()
         UPDatos.Update()
     End Sub
     Private Sub CargaDdlSubProyectoDestino()
         DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoDestino.DataBind()
         UPDatos.Update()
     End Sub
diff --git a/App_Code/ClsCompraManager.vb b/App_Code/ClsCompraManager.vb
index fcdc08bc1..96e43391a 100644
--- a/App_Code/ClsCompraManager.vb
+++ b/App_Code/ClsCompraManager.vb
@@ -549,7 +549,7 @@ Public Class ClsCompraManager
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = NumeroReembolso
 
-        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
 
         If dRowSubProyecto IsNot Nothing Then
             Me.Proyecto = dRowSubProyecto("Proyecto").ToString
@@ -595,7 +595,7 @@ Public Class ClsCompraManager
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = NumeroReembolso
 
-        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
 
         If dRowSubProyecto IsNot Nothing Then
             Me.Proyecto = dRowSubProyecto("Proyecto").ToString
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index c1ae046c4..23f1cd8b5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -270,7 +270,7 @@ Public Class ClsPaginas
             Application("GlobalTipoCambioEuro") = value
         End Set
     End Property
-    Public Shared Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable
+    Public Shared Property GlobalDTUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
@@ -1572,7 +1572,7 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+    Public Shared Property GlobalDTSubProyectos(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveProyecto As Integer = -1, Optional Estatus As Integer = 1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}"
             'sino existe, recarga los datos
@@ -5027,7 +5027,7 @@ Public Class ClsPaginas
             If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
         If DdlSubProyectoMultiple IsNot Nothing Then
-            DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1))
             DdlSubProyectoMultiple.DataBind()
             If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
@@ -5038,7 +5038,7 @@ Public Class ClsPaginas
     Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione")
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.ClearSelection()
-        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero(), Estatus:=1))
         DdlSubProyecto.DataBind()
         If AplicaTodos <> "" Then
             If DdlSubProyecto.GetType() Is GetType(ListBox) Then
@@ -5608,7 +5608,7 @@ Public Class ClsPaginas
                 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
                 Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
 
-                Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
+                Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(dtVentas(0)("CveEmpresa").ToString.ToEntero, CveSubProyecto:=CveSubProyecto)
 
                 Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
                 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
@@ -7776,7 +7776,7 @@ Public Class ClsPaginas
 
                         If CveSubProyectoEntrega > 0 Then
 
-                            Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega, UsuarioActual.CveEmpresa)
+                            Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoEntrega)
 
                             params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString))
 
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 220fc411a..898dfd815 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1915,7 +1915,7 @@ Namespace Modelos
                     dr("Consec") = ii
 
                     If drpss("IVA").ToString = "-1" Then
-                        dr("PorcentajeIVA") = SubProyectoPorcentajeIVA ' GlobalDTSubProyectos(-1,cves DrPS("IVA")
+                        dr("PorcentajeIVA") = SubProyectoPorcentajeIVA
                     Else
                         dr("PorcentajeIVA") = drpss("IVA")
                     End If
@@ -3033,7 +3033,7 @@ Namespace Modelos
                     Dim DtPagosVenta As DataTable = Nothing
 
                     If ObjClientes IsNot Nothing Then
-                        If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.TipoDocto) Then
+                        If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.CveEmpresa, ObjFactura.TipoDocto) Then
                             DtPagosVenta = ObjClientes.DtResultados.Copy()
                         Else
                             ErrorPrepoliza = True
@@ -3900,7 +3900,7 @@ Namespace Modelos
                                                 importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
                                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                                 FechaMovimiento = ObjFactura.FechaPago
-                                                Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+                                                Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
 
                                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                                 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3938,7 +3938,7 @@ Namespace Modelos
 
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
-                                            Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+                                            Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
 
                                             If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                             'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3971,7 +3971,7 @@ Namespace Modelos
                                             importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
-                                            Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                            Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
 
                                             If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                             'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -7888,12 +7888,12 @@ Namespace Modelos
 
         Public Sub SetSubProyecto()
             If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then
-                SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(""))
+                SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero(""))
             End If
         End Sub
         Public Sub SetSubProyectoMatriz()
             If UsuarioActual IsNot Nothing Then
-                Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
+                Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
                 If Not IsNothing(Row) Then
                     SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
                 End If
@@ -7950,12 +7950,12 @@ Namespace Modelos
 
         Public Sub SetSubProyecto(obj As ClsPaginas)
             If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then
-                SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
+                SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
             End If
         End Sub
         Public Sub SetSubProyectoMatriz(obj As ClsPaginas)
             If Not IsNothing(obj) Then
-                Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
+                Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
                 If Not IsNothing(Row) Then
                     SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
                 End If
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 994c995bb..50a0603aa 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -821,8 +821,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
             ObjFactura.CveSubProyecto = CveSubProyecto
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
-            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
-            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
+            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
 
             'CLIENTE
             ObjFactura.CveCliente = CveCliente
@@ -1326,7 +1326,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
                 Dim PorcentajeIVADefault As Decimal = 0.16D
 
-                Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, JsonRequest("branch_office_id").ToEntero(), CveEmpresa:=CveEmpresa).Rows(0)
+                Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos( CveEmpresa, cvesubproyecto:=JsonRequest("branch_office_id").ToEntero()).Rows(0)
 
                 If DrSubProyecto IsNot Nothing Then
                     PorcentajeIVADefault = DrSubProyecto("IVA").ToString().ToDecimal()
@@ -1415,7 +1415,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim Row As DataRow = Nothing
         Dim TotalCalculableImpuestos As Decimal = 0
         PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
-        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0)
+        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).Rows(0)
 
         Row = TmpDT.NewRow()
         Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()
@@ -1593,7 +1593,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
         Dim data As New JArray
 
-        Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltraParametros("EsSucursal = True")
+        Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(CveEmpresa).FiltraParametros("EsSucursal = True")
         If DtSucursales IsNot Nothing Then
             Try
                 For Each Row As DataRow In DtSucursales.Rows
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index 5e4dedbd0..09a66833b 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -143,7 +143,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 
                     If DTRemisionesPS IsNot Nothing AndAlso DTRemisionesPS.Rows.Count > 0 Then
                         Dim Resp As New Modelos.Factura.MMensajeFactura
-                        Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero()
+                        Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero()
 
                         Dim ObjFactura = CreaFactura(Resp, UsuarioActual, DTRemisionesPS, RowCliente("CveCliente").ToString().ToEntero(), CveSubProyectoMatriz, 1, DatosRemisiones, FechaI, FechaF)
 
@@ -312,8 +312,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ObjFactura.CveSubProyecto = CveSubProyecto
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
-            ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
-            ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
+            ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1 ).FiltroPrimero("TipoSucursal=1"))
 
             'CLIENTE
             ObjFactura.CveCliente = CveCliente
@@ -677,7 +677,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         Dim Row As DataRow = Nothing
         Dim TotalCalculableImpuestos As Decimal = 0
         PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
-        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0)
+        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto).Rows(0)
 
         Row = TmpDT.NewRow()
         Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()
diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index 19cd3da04..540f6df90 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -332,9 +332,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero
 
-            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
-            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
-
+            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
+            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
 
             SubProyecto = DR("SubProyectoContrato").ToString
 
diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index bffdc7410..c89f3e3ee 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -38,7 +38,7 @@ Partial Class Bancos_CuentasBancariasDetalle
             CargaCuentasPadre()
             ViewState("DTUsuarios") = Nothing
 
-            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
+            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
             DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
             DdlUsuarios.DataBind()
 
@@ -123,7 +123,7 @@ Partial Class Bancos_CuentasBancariasDetalle
         DdlBanco.DataBind()
         DdlBanco.Items.Add(New ListItem("Empresa", "0"))
 
-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("-", "-1"))
     End Sub
@@ -477,7 +477,7 @@ Partial Class Bancos_CuentasBancariasDetalle
             sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString},"
         Next
         If sUsuarios <> "" Then
-            DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
+            DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
             DdlUsuarios.DataBind()
         End If
     End Sub
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 1742628f5..e466bd4af 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -38,8 +38,8 @@ Partial Class Bancos_DepositosCaja
             BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
             BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
 
-            Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
-            HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
+            'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
+            'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
 
         End If
     End Sub
@@ -327,7 +327,7 @@ Partial Class Bancos_DepositosCaja
 
                 If CveSubProyecto <= 0 Then
                     'se saca de la cuenta de la caja chica
-                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto")
+                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
                 End If
 
             End If
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 588f11403..bc166e690 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -133,7 +133,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
     }
     protected void CargaSubProyectos()
     {
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
         DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1"));
     }
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 5688cc07e..7d6aea526 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2132,7 +2132,7 @@ Partial Class Bancos_IE
 
                                 Dim importeMX As Decimal
                                 Dim Multiplicador As Integer
-                                Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
 
                                 'OTROS INGRESOS/EGRESOS
                                 Dim TCC As Decimal = 1
@@ -2288,7 +2288,7 @@ Partial Class Bancos_IE
                                 If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
                                     Dim TipoMovtoIE As Boolean = False
                                     Dim CveConcIE As Integer = 78
-                                    Dim tCveSub As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                    Dim tCveSub As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
                                     If Impo < 0 Then
                                         TipoMovtoIE = True
                                         Impo = Math.Abs(Impo)
@@ -2355,8 +2355,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicarMN As Decimal = 0.0D
                                 Dim ImporteAplicarME As Decimal = 0.0D
                                 Dim ReferenciaAplicar As String = ObjIE.Folio
-                                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
-
+                                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
                                 Dim ConceptoAplicar As String = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"
 
                                 ImporteAplicar = TxtImporte.Text.ToDecimal
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index dbae5d93f..de1d871ad 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -57,12 +57,12 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
     private void CargaSubproyectos()
     {
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
 
         DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
 
-        DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyectoPago.DataBind();
 
         DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 04f6e33d2..46a3b1198 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -60,12 +60,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas
     private void CargaSubproyectos()
     {
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
 
         DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
 
-        DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyectoPago.DataBind();
 
         DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));
diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb
index 5acea6733..e792f72a4 100644
--- a/Bancos/RepCobrado.aspx.vb
+++ b/Bancos/RepCobrado.aspx.vb
@@ -40,7 +40,7 @@ Partial Class Ventas_RepRecuperacion
         DdlSubProyecto.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaResponsable
diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb
index 52ee35b89..88a08495d 100644
--- a/Bancos/RepCobradoDetalle.aspx.vb
+++ b/Bancos/RepCobradoDetalle.aspx.vb
@@ -59,7 +59,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlSubProyecto.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaResponsable
diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb
index a9a301a3a..017e017c1 100644
--- a/Bancos/RepCobradoPagado.aspx.vb
+++ b/Bancos/RepCobradoPagado.aspx.vb
@@ -217,7 +217,7 @@ Partial Class Bancos_RepCobradoPagado
     Private Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero)
         DdlSubProyecto.DataBind()
     End Sub
 #End Region
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 4c564e10d..8ba701429 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -34,7 +34,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             DdlUsuarioResponsable.DataBind()
 
             If UsuarioActual.TienePermisoProceso(91) Then
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
                 DdlUsuarioRegistro.DataBind()
                 DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
             Else
@@ -51,7 +51,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
             DdlTipoTransaccion.DataBind()
 
-            DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+            DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
             DdlUsuarioSolicito.DataBind()
 
             DdlProveedores.setEsWebService(True)
diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb
index f594d28de..210c08e60 100644
--- a/Bancos/RepIE.aspx.vb
+++ b/Bancos/RepIE.aspx.vb
@@ -97,7 +97,7 @@ Partial Class Bancos_RepIE
             CargaMoneda()
             CargaTipoTransaccion("-1")
             CargaUsuarioConcilio()
-            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
             DdlUsuarioRegistro.databind
             txtFechaI.Text = NowADS().ToShortDateString
 
diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb
index b4db04cea..32e006658 100644
--- a/Bancos/RepIngresosPorComprobar.aspx.vb
+++ b/Bancos/RepIngresosPorComprobar.aspx.vb
@@ -41,11 +41,11 @@ Partial Class Bancos_RepIngresosPorComprobar
 
 
             If UsuarioActual.TienePermisoProceso(91) Then
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                 DdlUsuarioRegistro.DataBind()
                 DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
             Else
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 DdlUsuarioRegistro.DataBind()
             End If
 
@@ -261,7 +261,7 @@ Partial Class Bancos_RepIngresosPorComprobar
                 UPDatos.Update()
             End If
         Next
-        DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoSaldar.DataBind()
         UPModalSaldar.Update()
     End Sub
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index a64e834f9..9d85caa3c 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -122,11 +122,11 @@ Partial Class Bancos_RepProgramarRecursos
             DdlEstatusCompra.DataBind()
 
             If UsuarioActual.TienePermisoProceso(91) Then
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                 DdlUsuarioRegistro.DataBind()
                 DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
             Else
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 DdlUsuarioRegistro.DataBind()
             End If
 
@@ -167,14 +167,14 @@ Partial Class Bancos_RepProgramarRecursos
                 RegistraScript(script, "random12345")
                 proyectolabel.Visible = False
 
-                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()
                 ' DdlEstatusCompra.SelectedValue = "2" 'las programadas
                 'DdlAgrupador.SelectedValue = "2"
                 'Gv.Columns(8).Visible = True
                 DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2"))
 
-                ListSubProyecto.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))
+                ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
                 ListSubProyecto.DataBind()
 
             End If
@@ -188,10 +188,10 @@ Partial Class Bancos_RepProgramarRecursos
                 DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
                 'confirmo la seleccion, de no tener el dato, lo recargo
                 If DdlSubProyecto.SelectedValue <> CveSubProyecto.ToString Then
-                    Dim CveProy As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
+                    Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
                     DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
 
-                    DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, -1, UsuarioActual.CveEmpresa, 1)
+                    DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1)
                     DdlSubProyecto.DataBind()
                 End If
 
diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb
index c753e1c40..335c19e47 100644
--- a/Bancos/RepProveedoresPagos.aspx.vb
+++ b/Bancos/RepProveedoresPagos.aspx.vb
@@ -56,7 +56,7 @@ Partial Class Bancos_RepProveedoresPagos
 
         'puede pagar de todos los usuarios o solo los que halla registrado
         If UsuarioActual.TienePermisoProceso(91) Then
-            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             DdlUsuarioRegistro.DataBind()
             DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         Else
@@ -64,7 +64,7 @@ Partial Class Bancos_RepProveedoresPagos
             DdlUsuarioRegistro.DataBind()
         End If
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Bancos/RepSaldosDAP.aspx.vb b/Bancos/RepSaldosDAP.aspx.vb
index 1d8157710..a8e6a7736 100644
--- a/Bancos/RepSaldosDAP.aspx.vb
+++ b/Bancos/RepSaldosDAP.aspx.vb
@@ -14,11 +14,11 @@ Partial Class Bancos_RepSaldosDAP
 
     Private Sub Bancos_RepSaldosDAP_Load(sender As Object, e As EventArgs) Handles Me.Load
         If UsuarioActual.TienePermisoProceso(91) Then
-            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             DdlUsuarioRegistro.DataBind()
             DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         Else
-            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             DdlUsuarioRegistro.DataBind()
         End If
 
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index def7ef6e3..2094cb900 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -461,7 +461,7 @@ Partial Class Bancos_Transferencias
 
         For Each Row As DataRow In dtcorreo.Rows
             ' CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
-            StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+            StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString)
         Next
 
         Dim strBody As New StringBuilder
diff --git a/CRM/AsignarVendedorEnProspectos.aspx.cs b/CRM/AsignarVendedorEnProspectos.aspx.cs
index c3e28ef66..97abb1b58 100644
--- a/CRM/AsignarVendedorEnProspectos.aspx.cs
+++ b/CRM/AsignarVendedorEnProspectos.aspx.cs
@@ -35,7 +35,7 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas
 
     private void CargaFiltros()
     {
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlSubProyecto.DataBind();
 
diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs
index 9001fb0c6..34b2572be 100644
--- a/CRM/CatEmpresasCRM.aspx.cs
+++ b/CRM/CatEmpresasCRM.aspx.cs
@@ -240,7 +240,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
                     }
 
                     int CveSubProyecto = -1;
-                    DataRow SubProyecto = get_GlobalDTSubProyectos(-1,CveEmpresa:UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal));
+                    DataRow SubProyecto = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal));
                     if(SubProyecto != null)
                     {
                         CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero();
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 1a50f1336..9bd792eb3 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -1972,7 +1972,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
     #endregion
     private void mandarCorreo(string Asunto, string body)
     {
-        DataTable Usuarios = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DataTable Usuarios = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         int CveUsuario = Usuarios.FiltroPrimeroValor("CveUsuario", String.Format("CveVendedor = {0}", DdlVendedorAsignado.SelectedValue)).ToEntero();
         if (CveUsuario != UsuarioActual.CveUsuario)
         {
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0d7f05061..44c333043 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11123,7 +11123,7 @@ Partial Class Compras_Compras
             e.Row.FCDropDownList("DdlPersonalGv").DataBind()
 
             If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                e.Row.FCDropDownList("DdlSubProyectoPersonal").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))
+                e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
                 e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
                 e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind()
                 e.Row.FCDropDownList("DdlProyectoPersonal").Visible = False
@@ -14098,7 +14098,7 @@ Partial Class Compras_Compras
         Dim porcentajes As String() = StringProrrateo.Split(New Char() {";"c})
 
         Dim prtDT As DataTable = TmpDT.Copy
-        Dim GBSP As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
+        Dim GBSP As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToString.ToEntero)
 
         TmpDT.Clear()
         Dim subtotal As Decimal = TxtSubTotal.Text.ToDecimal
@@ -14979,7 +14979,7 @@ Partial Class Compras_Compras
             End If '876906
             Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
             Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
-            Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
+            Dim SubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
 
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
             If PSRow("CvePSCargo").ToString <> "" Then
@@ -17103,7 +17103,7 @@ Partial Class Compras_Compras
                     'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
                     ViewState("IVAPS") = PS("IVA").ToString
                     If ViewState("IVAPS").ToString.ToEntero() = -1 Then
-                        Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
                         DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
 
@@ -17755,7 +17755,7 @@ Partial Class Compras_Compras
                 'RESPETAR VALORES DE LA PANTALLA
                 'IVA = PSRow("IVA").ToString.ToDouble
                 'If IVA = -1 Then
-                '    IVA = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
+                '    IVA = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
                 'End If
                 'RetIVA = If(PSRow("RetIVA").ToString = "-1", ViewState("RetIVA"), PSRow("RetIVA").ToString).ToString.ToDouble
                 'RetISR = If(PSRow("RetISR").ToString = "-1", ViewState("RetISR"), PSRow("RetISR").ToString).ToString.ToDouble
@@ -21078,7 +21078,7 @@ Partial Class Compras_Compras
             Return False
         End If
 
-        SubProyecto = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
+        SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
 
         If PSRow IsNot Nothing Then
 
@@ -21833,7 +21833,7 @@ Public Class ClsCompraManagerCompras
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = NumeroReembolso
 
-        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
 
         If dRowSubProyecto IsNot Nothing Then
             Me.Proyecto = dRowSubProyecto("Proyecto").ToString
@@ -21884,7 +21884,7 @@ Public Class ClsCompraManagerCompras
         Me.Total = Total
         Me.PorcentajeIVA = PorcentajeIVA
 
-        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
 
         If dRowSubProyecto IsNot Nothing Then
             Me.Proyecto = dRowSubProyecto("Proyecto").ToString
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 760d15aa0..6178a49b9 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2791,7 +2791,7 @@ Partial Class PopUpVerFactura
         Dim CantidadProductos As Decimal = 0
         Dim CantidadUsados As Decimal = 0
 
-        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
+        If CveConcepto.Contiene(3, 18, 30, 34, 16, 7, 40) Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
                 DtMovimientos = ObjInventarios.DtResultados
 
@@ -3151,7 +3151,7 @@ Partial Class PopUpVerFactura
 
                 End If
 
-            Case 3, 16, 37, 40, 45, 47  ' S A L I D A S
+            Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
                 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3611,7 +3611,7 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
 
-            Case 8, 26 ' T R A S L A D O   -   S A L I D A
+            Case 8, 26, 35 ' T R A S L A D O   -   S A L I D A
 
                 Dim params As New List(Of ReportParameter)
                 Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
@@ -3619,8 +3619,6 @@ Partial Class PopUpVerFactura
                     RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
                 End If
 
-
-
                 params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
                 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
                 params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
@@ -3641,7 +3639,9 @@ Partial Class PopUpVerFactura
 
                 Dim CveContrato As Integer = 0
                 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
-                    CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
+                    If DtMovimientos.Columns.Contains("CveContrato") Then
+                        CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
+                    End If
                 End If
 
                 If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
@@ -3721,8 +3721,6 @@ Partial Class PopUpVerFactura
                         ObjVentas.Dispose()
                     End If
 
-
-
                     params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
                     params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
                     params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
@@ -3767,7 +3765,6 @@ Partial Class PopUpVerFactura
                     End If
                 End If
 
-
                 Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                 Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
 
@@ -5129,7 +5126,7 @@ Partial Class PopUpVerFactura
 
         If UsuarioActual.CveEmpresa.Contiene(72) Then
             Dim SBDomicilioSucursal As New StringBuilder()
-            Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
+            Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
 
             If DRSucursal IsNot Nothing Then
                 Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -5253,7 +5250,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("CodigoPostal", ""))
 
             If UsuarioActual.CveEmpresa = 119 Then
-                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
             End If
 
             If Archivo.Exists Then
@@ -5465,7 +5462,7 @@ Partial Class PopUpVerFactura
             If UsuarioActual.CveEmpresa.Contiene(141) Then
                 Dim InicialesUsuarioGenero As String = ""
                 Try
-                    Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
+                    Dim NombreUsuarioRenero As String = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
                     If NombreUsuarioRenero.Trim.Length > 0 Then
                         NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
                     End If
@@ -6427,7 +6424,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
                         End If
                         If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
-                            params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                            params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
                         End If
                         If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 7d68495ee..6c937d58b 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -4554,7 +4554,7 @@ Partial Class Compras_Proveedores
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
         'End If
         'ObjUsuarios.Dispose()
-        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
@@ -4918,7 +4918,7 @@ Partial Class Compras_Proveedores
         DdlSubProyectoFiltro.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Productos
diff --git a/Compras/RepAnt-NC-EXC.aspx.cs b/Compras/RepAnt-NC-EXC.aspx.cs
index b5ae1d458..3537ba061 100644
--- a/Compras/RepAnt-NC-EXC.aspx.cs
+++ b/Compras/RepAnt-NC-EXC.aspx.cs
@@ -50,7 +50,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
 
     protected void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
     }
diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx.cs b/Compras/RepAnt-NC-EXCDetalle.aspx.cs
index 8ffc6d98d..e4df1f84c 100644
--- a/Compras/RepAnt-NC-EXCDetalle.aspx.cs
+++ b/Compras/RepAnt-NC-EXCDetalle.aspx.cs
@@ -77,7 +77,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
 
     protected void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlSucursal.SelectedValue = "-1";
diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb
index 6c08d50d5..f8edabf73 100644
--- a/Compras/RepCompras.aspx.vb
+++ b/Compras/RepCompras.aspx.vb
@@ -96,7 +96,7 @@ Partial Class Compras_RepCompras
         DdlUsuario.DataBind()
 
         'Carga Usuarios Captura
-        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DDlUsuarioCaptura.DataBind()
 
         'Carga Monedas
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index c6be3b353..6a69044fc 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -202,7 +202,7 @@ Partial Class Compras_RepComprasDetalle
         DdlUsuario.DataBind()
 
         'Carga Usuario Capturo
-        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DDlUsuarioCaptura.DataBind()
 
         'Carga Grupos
@@ -223,8 +223,6 @@ Partial Class Compras_RepComprasDetalle
 
         Dim AnioMes As String = If(FechaF <> "-1", "-1", IfNull(Request("AnioMes"), "-1").ToString())
 
-
-
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
             TCEspecifico = TxtEspecifico.Text.ToDouble
         Else
diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb
index dd1dc4b00..d40b0f464 100644
--- a/Compras/RepComprasPeriodo.aspx.vb
+++ b/Compras/RepComprasPeriodo.aspx.vb
@@ -66,7 +66,7 @@ Partial Class Compras_RepComprasPeriodo
         DdlUsuario.DataBind()
 
         'Carga Usuarios Captura
-        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DDlUsuarioCaptura.DataBind()
 
         'Carga Monedas
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 6472107ff..aeb8fdc41 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -166,7 +166,7 @@ Partial Class Compras_RepCxP
 
         If UsuarioActual.CveEmpresa = 66 Then DdlEstatusCompra.SelectedIndex = 2 : DdlGrupo.SelectedValue = "8"
 
-        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
+        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
         DdlUsuarioRegistro.DataBind()
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         txtCorteA.Text = $"31/12/{NowADS().Year}"
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 7cea6cea1..6d25c5c5c 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -259,7 +259,7 @@ Partial Class RepCxPDetalle
         DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable)
 
         Dim UsuarioRegistro As Integer = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
-        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlUsuarioRegistro.DataBind()
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)
diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs
index a72690cca..ecc8e6102 100644
--- a/Compras/RepCxPPeriodo.aspx.cs
+++ b/Compras/RepCxPPeriodo.aspx.cs
@@ -81,7 +81,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
 
         if (UsuarioActual.CveEmpresa == 66) { DdlEstatusCompra.SelectedIndex = 2; DdlGrupo.SelectedValue = "8"; }
 
-        DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre");
+        DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( "", "Nombre");
         DdlUsuarioRegistro.DataBind();
         DdlUsuarioRegistro.Items.Insert(0, new ListItem("Todos", "-1"));
 
diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb
index 30acba57f..469ec4e04 100644
--- a/Compras/RepPUESinPago.aspx.vb
+++ b/Compras/RepPUESinPago.aspx.vb
@@ -27,7 +27,7 @@ Partial Class Compras_RepPUESinPago
         TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
         TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs
index 9e6ec15c5..928eea1e4 100644
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -51,12 +51,12 @@ public partial class Compras_RepPagado : ClsPaginas
         DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlUsuario.DataBind();
 
         //Carga Responsable
-        DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlResponsable.DataBind();
 
@@ -73,8 +73,6 @@ public partial class Compras_RepPagado : ClsPaginas
         TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{NowADS().Year}";
         TxtFechaFCompra.Text = NowADS().ToShortDateString();
     }
-
-
     private void ProcesaRequest()
     {
         if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio))
diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs
index 7ad32a7a9..e6794fb54 100644
--- a/Compras/RepPagadoDetalle.aspx.cs
+++ b/Compras/RepPagadoDetalle.aspx.cs
@@ -55,12 +55,12 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlUsuario.DataBind();
 
         //Carga Responsable
-        DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlResponsable.DataBind();
 
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs
index 977ffbc39..fd9407dec 100644
--- a/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -56,12 +56,12 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlUsuario.DataBind();
 
         //Carga Responsable
-        DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlResponsable.DataBind();
 
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index 4c09f6965..990ab0642 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -81,7 +81,7 @@ Partial Class Compras_RepProductosServicios
         DdlProveedor.SelectedValue = "-1"
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index 9c3f6065f..dc15ec06c 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -203,7 +203,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlProveedor.SelectedValue = "-1"
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs
index 5fd674633..24be7162f 100644
--- a/Compras/RepProductosServiciosPeriodo.aspx.cs
+++ b/Compras/RepProductosServiciosPeriodo.aspx.cs
@@ -76,7 +76,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
         DdlUsuario.DataBind();
 
         //Carga Usuarios Captura
-        DDlUsuarioCaptura.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        DDlUsuarioCaptura.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DDlUsuarioCaptura.DataBind();
 
         //Carga Monedas
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 722ac2d7f..996ca07f0 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -5996,7 +5996,7 @@ Public Class ClsCompraManager
         Me.CveTipoPoliza = 3
         Me.NumeroReembolso = NumeroReembolso
 
-        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
 
         If dRowSubProyecto IsNot Nothing Then
             Me.Proyecto = dRowSubProyecto("Proyecto").ToString
diff --git a/Contabilidad/CatCuentasAsignaciones.aspx.vb b/Contabilidad/CatCuentasAsignaciones.aspx.vb
index e428c921d..f708e4802 100644
--- a/Contabilidad/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad/CatCuentasAsignaciones.aspx.vb
@@ -105,7 +105,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1)
         DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
 
         Dim ObjBancos As New ClsBancos
diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs
index c565f3bdc..4c8c5eee9 100644
--- a/Contabilidad/ContabilizacionVentas.aspx.cs
+++ b/Contabilidad/ContabilizacionVentas.aspx.cs
@@ -67,7 +67,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
             DdlClientes.setEsWebService(true);
             DdlClientes.Attributes.Add("data-metodo", "getcliente");
 
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
             DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
             DdlSubProyecto.DataBind();
 
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index 5c54b4f99..c038c1e59 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -449,7 +449,7 @@ Partial Class Contabilidad_FiltraPolizas
             params.Add(New ReportParameter("Moneda", ""))
             params.Add(New ReportParameter("CodigoPostal", ""))
             If UsuarioActual.CveEmpresa = 119 Then
-                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
             End If
             If UsuarioActual.CveEmpresa = 140 Then
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
diff --git a/Contabilidad/MovimientosconProveedores.aspx.vb b/Contabilidad/MovimientosconProveedores.aspx.vb
index 4803b2a7c..7e926347c 100644
--- a/Contabilidad/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad/MovimientosconProveedores.aspx.vb
@@ -171,7 +171,7 @@ Partial Class MovimientosconProveedores
         DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
         DdlTipoCuentas.SelectedIndex = 0
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
     End Sub
     Private Sub CargaDatos()
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index 41359a5ee..e3b735dab 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -368,7 +368,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
     Public Sub CargaDDL()
 
 
-        DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DDLSubProyecto.DataSource = DTSubProyectos
         DDLSubProyecto.DataBind()
         DDLSubProyecto.Items.Insert(0, New ListItem("  -  ", "-1"))
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index 4b3e80111..d6e6b81c9 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -33,7 +33,7 @@ Partial Class Contabilidad_PolizasImpresion
             TxtFechaInicio.Text = NowADS().AddDays(-1).ToShortDateString
             TxtFechaFin.Text = NowADS().ToShortDateString
 
-            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
             DdlUsuarioRegistro.DataBind()
 
 
@@ -133,7 +133,7 @@ Partial Class Contabilidad_PolizasImpresion
         DdlSegmentoNeg.DataValueField = "CveSubProyecto"
         DdlSegmentoNeg.DataTextField = "SubProyecto"
 
-        DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSegmentoNeg.DataBind()
         DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
@@ -196,7 +196,7 @@ Partial Class Contabilidad_PolizasImpresion
                     params.Add(New ReportParameter("CodigoPostal", ""))
 
                     If UsuarioActual.CveEmpresa = 119 Then
-                        params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                        params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
                     End If
 
                     ImprimirPDF(ArchivoReporte, objcont.DtResultados, params)
diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb
index 75acec78a..20d6f96c2 100644
--- a/Contabilidad/RegPoliza.aspx.vb
+++ b/Contabilidad/RegPoliza.aspx.vb
@@ -1184,9 +1184,9 @@ Partial Class RegPoliza
             For Each drt As DataRow In dtt.Rows
                 'PrePólizaDetalle
                 Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero
-                Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1)
+                Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1)
                 'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero
-                '    tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                '    tCveSub = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
                 'End If  '  NowADS(), drt("IdCuenta").ToString.ToEntero, 0,
                 If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
                                                  drt("Importe").ToString.ToDecimal,
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 9ac8ad949..a1766f387 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -581,7 +581,7 @@ Partial Class ContabilidadC_RegPrePoliza
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
-            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
         End If
@@ -660,7 +660,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("  -  ", "-1"))
 
@@ -841,7 +841,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 e.Row.FCTextBox("TxtAbono").Enabled = False
             End If
 
-            e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlSubProyecto").DataBind()
             e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("  -  ", "-1"))
             e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
@@ -1386,7 +1386,7 @@ Partial Class ContabilidadC_RegPrePoliza
         DdlConceptosContablesE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub CargaSubProyectoE()
-        DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoE.DataBind()
         DdlSubProyectoE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
@@ -2536,7 +2536,7 @@ Partial Class ContabilidadC_RegPrePoliza
                     End If
 
                     If Row("SubProyecto").ToString.Trim <> "" Then
-                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
+                        CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
 
                         If CveSubProyecto = 0 Then
                             Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 63da41dd8..6980f4193 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -577,7 +577,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
-            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
         End If
@@ -656,7 +656,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("  -  ", "-1"))
 
@@ -837,7 +837,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 e.Row.FCTextBox("TxtAbono").Enabled = False
             End If
 
-            e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlSubProyecto").DataBind()
             e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("  -  ", "-1"))
             e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
@@ -1382,7 +1382,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub CargaSubProyectoE()
-        DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoE.DataBind()
         DdlSubProyectoE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
@@ -2532,7 +2532,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
 
                     If Row("SubProyecto").ToString.Trim <> "" Then
-                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
+                        CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
 
                         If CveSubProyecto = 0 Then
                             Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
diff --git a/Contabilidad/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb
index 626fd82a0..40421c6f8 100644
--- a/Contabilidad/RepAnexoCatalogoAnual.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb
@@ -180,8 +180,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         DdlEjercicio2.DataBind()
 
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+        DdlSubproyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
 
diff --git a/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
index 2f0ba70a5..05095eda1 100644
--- a/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -167,7 +167,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
 
         DdlCuentas.DataBind()
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
     End Sub
     Private Sub CargaDatos()
diff --git a/Contabilidad/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad/RepAnexoCatalogoVertical.aspx.vb
index 0d54bd46a..64bd92293 100644
--- a/Contabilidad/RepAnexoCatalogoVertical.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoVertical.aspx.vb
@@ -55,7 +55,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb
index 90e1e9770..89393e737 100644
--- a/Contabilidad/RepBalanceGeneral.aspx.vb
+++ b/Contabilidad/RepBalanceGeneral.aspx.vb
@@ -175,7 +175,7 @@ Partial Class Contabilidad_RepBalanceGeneral
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
 
         If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True
diff --git a/Contabilidad/RepBalanceGeneralVertical.aspx.vb b/Contabilidad/RepBalanceGeneralVertical.aspx.vb
index ffd81bd39..59de76755 100644
--- a/Contabilidad/RepBalanceGeneralVertical.aspx.vb
+++ b/Contabilidad/RepBalanceGeneralVertical.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb
index b25bec6b6..96760e3c7 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -97,7 +97,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                 End If
                 'End If
             End If
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubproyecto.DataBind()
 
             If Not ErrorParametros Then
diff --git a/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb b/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb
index 227457d64..fc20d26d0 100644
--- a/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb
+++ b/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb
@@ -129,7 +129,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera
             'TxtFechaAl.Text = NowADS().ToShortDateString
 
             Dim Clsconta As New ClsContabilidad
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubproyecto.DataBind()
 
             If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
diff --git a/Contabilidad/RepEdoResultados2.aspx.vb b/Contabilidad/RepEdoResultados2.aspx.vb
index 27805f9e9..c5e39d586 100644
--- a/Contabilidad/RepEdoResultados2.aspx.vb
+++ b/Contabilidad/RepEdoResultados2.aspx.vb
@@ -55,7 +55,7 @@ Partial Class Contabilidad_RepEdoResultados2
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Contabilidad/RepEdoResultados2Detalle.aspx.cs b/Contabilidad/RepEdoResultados2Detalle.aspx.cs
index 067084904..b27f34e20 100644
--- a/Contabilidad/RepEdoResultados2Detalle.aspx.cs
+++ b/Contabilidad/RepEdoResultados2Detalle.aspx.cs
@@ -30,7 +30,7 @@ public partial class Contabilidad_RepEdoResultados2Detalle : ClsPaginas
         DdlClasificacion.DataBind();
         DdlClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
         DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
 
diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb
index d5af046a8..7427ce343 100644
--- a/Contabilidad/RepEstadoResultados.aspx.vb
+++ b/Contabilidad/RepEstadoResultados.aspx.vb
@@ -160,7 +160,7 @@ Partial Class Contabilidad2_RepEstadoResultados
         End If
 
         ClsConta.Dispose()
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
 
         DdlEjercicio.DataBind()
diff --git a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb
index 63bf9822c..236787764 100644
--- a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb
@@ -2159,7 +2159,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                         If IndexSubProyecto <= IndexSubProyectoMax Then
 
-                            Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
+                            Dim TxtSub As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dColumn.ColumnName.ToEntero).FiltroPrimeroValor("SubProyecto")
 
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
                             CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
diff --git a/Contabilidad/RepFlujoEfectivo.aspx.vb b/Contabilidad/RepFlujoEfectivo.aspx.vb
index ea01c9228..3c8593abc 100644
--- a/Contabilidad/RepFlujoEfectivo.aspx.vb
+++ b/Contabilidad/RepFlujoEfectivo.aspx.vb
@@ -64,7 +64,7 @@ Partial Class AC2_RepFlujoEfectivo
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
 
         Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb
index f13ef4a3b..51c04fd78 100644
--- a/Contabilidad/RepOrigenAplicacion.aspx.vb
+++ b/Contabilidad/RepOrigenAplicacion.aspx.vb
@@ -84,7 +84,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
                 DdlEjercicio.DataSource = Nothing
             End If
 
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubproyecto.DataBind()
 
             DdlEjercicio.SelectedValue = NowADS().Year.ToString
diff --git a/Contabilidad/RepVariacionHaciendaPublica.aspx.vb b/Contabilidad/RepVariacionHaciendaPublica.aspx.vb
index 6c0466cd1..08777d1be 100644
--- a/Contabilidad/RepVariacionHaciendaPublica.aspx.vb
+++ b/Contabilidad/RepVariacionHaciendaPublica.aspx.vb
@@ -97,7 +97,7 @@ Partial Class AC_RepVariacionHaciendaPublica
 
         FechaDel = TxtFechaDel.Text
         FechaAl = TxtFechaAl.Text
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
 
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
diff --git a/Contratos/CatPresupuestos.aspx.vb b/Contratos/CatPresupuestos.aspx.vb
index b1d26379f..bedfc4c03 100644
--- a/Contratos/CatPresupuestos.aspx.vb
+++ b/Contratos/CatPresupuestos.aspx.vb
@@ -38,7 +38,7 @@ Partial Class Contratos_CatPresupuestos
     Protected Sub CargaSubProyecto(CveProyecto As Integer)
         DdlSubProyecto.Items.Clear()
         If CveProyecto > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
         Else
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index fcfc33ffb..8bd3abcd6 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -921,7 +921,7 @@ Partial Class Contratos_Default
         Dim ObjFolios As New ClsGralFolios
         If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then
             If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then
-                FolioSugerido = $"{GlobalDTSubProyectos(-1, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}"
+                FolioSugerido = $"{GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}"
                 TxtNumeroContrato.Text = FolioSugerido
             Else
                 Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia)
@@ -1737,7 +1737,7 @@ Partial Class Contratos_Default
     End Sub
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProyectoContrato.Items.Clear()
-        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
+        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
         DdlSubProyectoContrato.DataBind()
         DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     End Sub
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 5085ff361..d0deb8ccf 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -5548,7 +5548,7 @@ Partial Class Contratos_ContratoObra
 
     Private Sub CargaDLLCargaGVCentrosConsto()
 
-        DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
+        DdlCentroCostos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
         DdlCentroCostos.DataBind()
         DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb
index cce1c4e6a..38ab109d4 100644
--- a/Contratos/FacturacionMasiva.aspx.vb
+++ b/Contratos/FacturacionMasiva.aspx.vb
@@ -106,7 +106,7 @@ Partial Class Contratos_FacturacionMasiva
         DdlCliente.DataBind()
         DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
     End Sub
     Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
diff --git a/Contratos/PopUpBuscarContrato.aspx.vb b/Contratos/PopUpBuscarContrato.aspx.vb
index 414ac9472..fe3c092a6 100644
--- a/Contratos/PopUpBuscarContrato.aspx.vb
+++ b/Contratos/PopUpBuscarContrato.aspx.vb
@@ -56,7 +56,7 @@ Partial Class Contratos_PopUpBuscarContrato
     End Sub
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProtecto.Items.Clear()
-        DdlSubProtecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
+        DdlSubProtecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
         DdlSubProtecto.DataBind()
         DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
         UPFiltros.Update()
diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb
index 1b9b9280f..65d860f72 100644
--- a/Contratos/Presupuestos.aspx.vb
+++ b/Contratos/Presupuestos.aspx.vb
@@ -81,7 +81,7 @@ Partial Class Contratos_Presupuestos
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProyecto.Items.Clear()
         If CveProyecto > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
         Else
diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb
index d91a3059e..36b32b15f 100644
--- a/Contratos/RepPresupuestosDetalle.aspx.vb
+++ b/Contratos/RepPresupuestosDetalle.aspx.vb
@@ -108,7 +108,7 @@ Partial Class Contratos_RepPresupuestosDetalle
             DdlSubProyecto.SelectedValueExist(CveSubProyecto)
         ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
             If Not EsProyecto Then
-                Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
+                Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
                 DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
                 CargaSubProyecto()
                 DdlSubProyecto.SelectedValueExist(Gpo)
diff --git a/Contratos/RepPresupuestosDetalleCompras.aspx.vb b/Contratos/RepPresupuestosDetalleCompras.aspx.vb
index 9c7a70963..4877eaf3e 100644
--- a/Contratos/RepPresupuestosDetalleCompras.aspx.vb
+++ b/Contratos/RepPresupuestosDetalleCompras.aspx.vb
@@ -102,7 +102,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
             DdlSubProyecto.SelectedValueExist(CveSubProyecto)
         ElseIf Agrupador = 1 Then
             If Not EsProyecto Then
-                Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
+                Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
                 DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
                 CargaSubProyecto()
                 DdlSubProyecto.SelectedValueExist(Gpo)
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index 118090e78..223a85851 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -172,7 +172,7 @@ Partial Class RepCxC
         End If
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaResponsable
diff --git a/CxC/RepCxCPeriodo.aspx.cs b/CxC/RepCxCPeriodo.aspx.cs
index 277c96ef7..bc8ee230c 100644
--- a/CxC/RepCxCPeriodo.aspx.cs
+++ b/CxC/RepCxCPeriodo.aspx.cs
@@ -38,11 +38,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
             InicializaValores();
         }
     }
-
-
- 
-
-
+    
     private void InicializaValores()
     {
         TipoCambio = 1;
@@ -71,7 +67,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
         DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor);
 
         //CargaUsuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlUsuario.DataBind();
 
         //CargaResponsable
diff --git a/CxC/RepCxCSemanal.aspx.vb b/CxC/RepCxCSemanal.aspx.vb
index 86d85e691..81719ddc8 100644
--- a/CxC/RepCxCSemanal.aspx.vb
+++ b/CxC/RepCxCSemanal.aspx.vb
@@ -25,13 +25,13 @@ Partial Class CxC_RepCxCSemanal
         DdlClientes.DataBind()
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
         'Vendedor
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Finanzas/RepBalanceGeneral.aspx.vb b/Finanzas/RepBalanceGeneral.aspx.vb
index dfd82d825..e2614f75f 100644
--- a/Finanzas/RepBalanceGeneral.aspx.vb
+++ b/Finanzas/RepBalanceGeneral.aspx.vb
@@ -225,7 +225,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
             DdlEjercicio.DataSource = Nothing
         End If
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
 
         ClsConta.Dispose()
diff --git a/Finanzas/RepBalanceGeneralHorizontal.aspx.vb b/Finanzas/RepBalanceGeneralHorizontal.aspx.vb
index 145bdb3ca..890ebac66 100644
--- a/Finanzas/RepBalanceGeneralHorizontal.aspx.vb
+++ b/Finanzas/RepBalanceGeneralHorizontal.aspx.vb
@@ -55,7 +55,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Finanzas/RepBalanceGeneralVertical.aspx.vb b/Finanzas/RepBalanceGeneralVertical.aspx.vb
index 679344c37..0917c97d8 100644
--- a/Finanzas/RepBalanceGeneralVertical.aspx.vb
+++ b/Finanzas/RepBalanceGeneralVertical.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb
index e35c5215c..11e7dcc34 100644
--- a/Finanzas/RepEstadoResultados.aspx.vb
+++ b/Finanzas/RepEstadoResultados.aspx.vb
@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Net
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Contabilidad2_RepEstadoResultados
@@ -156,7 +157,7 @@ Partial Class Contabilidad2_RepEstadoResultados
             DdlEjercicio.DataSource = Nothing
         End If
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, eStatus:=-1)
         DdlSubproyecto.DataBind()
 
 
diff --git a/Finanzas/RepEstadoResultadosHorizontal.aspx.vb b/Finanzas/RepEstadoResultadosHorizontal.aspx.vb
index f4613355d..856d96465 100644
--- a/Finanzas/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Finanzas/RepEstadoResultadosHorizontal.aspx.vb
@@ -51,7 +51,7 @@ Partial Class Contabilidad2_RepEstadoResultadosHorizontal
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Finanzas/RepEstadoResultadosVertical.aspx.vb b/Finanzas/RepEstadoResultadosVertical.aspx.vb
index 727839c58..ceaf43560 100644
--- a/Finanzas/RepEstadoResultadosVertical.aspx.vb
+++ b/Finanzas/RepEstadoResultadosVertical.aspx.vb
@@ -46,7 +46,7 @@ Partial Class Finanzas_RepEstadoResultadosVertical
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
diff --git a/Finanzas/RepOrigenAplicacion.aspx.vb b/Finanzas/RepOrigenAplicacion.aspx.vb
index f13ef4a3b..51c04fd78 100644
--- a/Finanzas/RepOrigenAplicacion.aspx.vb
+++ b/Finanzas/RepOrigenAplicacion.aspx.vb
@@ -84,7 +84,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
                 DdlEjercicio.DataSource = Nothing
             End If
 
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubproyecto.DataBind()
 
             DdlEjercicio.SelectedValue = NowADS().Year.ToString
diff --git a/Finanzas/RepRazonesFinancieras.aspx.vb b/Finanzas/RepRazonesFinancieras.aspx.vb
index aee1513bd..9387fd779 100644
--- a/Finanzas/RepRazonesFinancieras.aspx.vb
+++ b/Finanzas/RepRazonesFinancieras.aspx.vb
@@ -22,7 +22,7 @@ Partial Class Finanzas_RepRazonesFinancieras
         DdlRazones.DataSource = GlobalDTFinan_RazonesFinancieras
         DdlRazones.DataBind()
 
-        DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()
         DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubproyectos.SelectedIndex = 0
diff --git a/Finanzas/RepRazonesFinancieras2.aspx.vb b/Finanzas/RepRazonesFinancieras2.aspx.vb
index a20971500..e8ea40b91 100644
--- a/Finanzas/RepRazonesFinancieras2.aspx.vb
+++ b/Finanzas/RepRazonesFinancieras2.aspx.vb
@@ -13,10 +13,6 @@ Imports Microsoft.Reporting.WebForms
 Partial Class Finanzas_RepRazonesFinancieras2
     Inherits ClsPaginas
 
-
-
-
-
     Property DTRatios As DataTable
         Get
             If ViewState("DTRatios") Is Nothing Then
@@ -46,8 +42,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
         End Set
     End Property
 
-
-
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs
index f10a5d411..cd325d169 100644
--- a/Finanzas/RepRotacionCartera.aspx.cs
+++ b/Finanzas/RepRotacionCartera.aspx.cs
@@ -231,7 +231,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
 
     private void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos(  UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         //DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         //DdlSucursal.SelectedValue = "-1";
diff --git a/Finanzas/RepRotacionCarteraDetalle.aspx.cs b/Finanzas/RepRotacionCarteraDetalle.aspx.cs
index bd393ec43..304933b0f 100644
--- a/Finanzas/RepRotacionCarteraDetalle.aspx.cs
+++ b/Finanzas/RepRotacionCarteraDetalle.aspx.cs
@@ -248,7 +248,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
 
     private void CargaSucursales()
     {
-        //DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        //DdlSucursal.DataSource = get_GlobalDTSubProyectos(  UsuarioActual.CveEmpresa);
         //DdlSucursal.DataBind();
         //DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         //DdlSucursal.SelectedValue = "-1";
diff --git a/GPS/CatDistribuidoresMaster.aspx.vb b/GPS/CatDistribuidoresMaster.aspx.vb
index 704d74711..6065d760e 100644
--- a/GPS/CatDistribuidoresMaster.aspx.vb
+++ b/GPS/CatDistribuidoresMaster.aspx.vb
@@ -22,11 +22,10 @@ Partial Class GPS_CatDistribuidoresMaster
         Set(value As Integer)
             ViewState("EsEditar") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CveEmpresa = -1
@@ -167,11 +166,11 @@ Partial Class GPS_CatDistribuidoresMaster
         Else
             Application("GlobalDTEmpresas") = Nothing
         End If
-        Dim ObjUsuarios As New ClsSisUsuarios()
-        If ObjUsuarios.GetUsuarios(-1, -1, -1) Then
-            GlobalDTUsuarios = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        'Dim ObjUsuarios As New ClsSisUsuarios()
+        'If ObjUsuarios.GetUsuarios(-1, -1, -1) Then
+        '    GlobalDTUsuarios = ObjUsuarios.DtResultados
+        'End If
+        'ObjUsuarios.Dispose()
         ObjEmpresas.Dispose()
     End Sub
 
diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb
index e43cfc85f..7b2c597fe 100644
--- a/GPS/FacturacionMasiva.aspx.vb
+++ b/GPS/FacturacionMasiva.aspx.vb
@@ -102,7 +102,7 @@ Partial Class Contratos_FacturacionMasiva
         DdlCliente.DataBind()
         DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSucursal.DataBind()
     End Sub
     Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)
@@ -534,8 +534,7 @@ Partial Class Contratos_FacturacionMasiva
         Proyecto = DR("ProyectoContrato").ToString
         CveSubProyecto = DR("CveSubProyecto").ToString
         SubProyecto = DR("SubProyectoContrato").ToString
-        ObjFactura.IVA = GlobalDTSubProyectos(-1, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("IVA").ToDecimal
-
+        ObjFactura.IVA = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto.ToEntero, Estatus:=1).FiltroPrimeroValor("IVA").ToDecimal
 
         If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then
             Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format($" Estado = 'Activo' AND CveSubProyecto = {CveSubProyecto} "))
@@ -582,7 +581,7 @@ Partial Class Contratos_FacturacionMasiva
             DtR("CveProyecto") = CveProyecto
             DtR("Proyecto") = Proyecto
             DtR("CveSubProyecto") = CveSubProyecto
-            DtR("IVA") = If(row("IVA").ToString.ToDouble = -1, GlobalDTSubProyectos(-1, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("IVA").ToDouble, row("IVA").ToString.ToDouble)
+            DtR("IVA") = If(row("IVA").ToString.ToDouble = -1, GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto.ToEntero, Estatus:=1).FiltroPrimeroValor("IVA").ToDouble, row("IVA").ToString.ToDouble)
             DtR("SubProyecto") = SubProyecto
             DtR("CveVentaDetalle") = 0
             DtR("CveContratoDetalle") = row("CveContratoDetalle")
@@ -760,7 +759,7 @@ Partial Class Contratos_FacturacionMasiva
                                     importeMovimiento = (TmpDTDetalle.SUM("Total", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador
                                     importeMX = importeMovimiento * tipoCambio * Multiplicador
                                     FechaMovimiento = ObjFactura.FechaPago
-                                    Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+                                    Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                     If importeMovimiento <> 0 Then
 
diff --git a/GPS/UsuariosRastreo.aspx.vb b/GPS/UsuariosRastreo.aspx.vb
index 88bfd564b..cbc20f2e1 100644
--- a/GPS/UsuariosRastreo.aspx.vb
+++ b/GPS/UsuariosRastreo.aspx.vb
@@ -19,13 +19,13 @@ Partial Class GPS_UsuariosRastreo
 
             If UsuarioActual.CveRol = 1198 Then
                 LnkAddUsuario.Visible = True
-                DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1")
+                DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1")
             ElseIf UsuarioActual.CveRol = 1200 Then
                 If UsuarioActual.TienePermisoProceso(214) Then
                     LnkAddUsuario.Visible = True
-                    DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})")
+                    DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})")
                 Else
-                    DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente, -1).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}")
+                    DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}")
                 End If
             End If
 
diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs
index 6cd4c9ffe..e8f6931ae 100644
--- a/General/RepPaqueteriasGuias.aspx.cs
+++ b/General/RepPaqueteriasGuias.aspx.cs
@@ -286,12 +286,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
     {
         if (UsuarioActual.CveRol == 1339)
         {
-            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre");
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre");
             DdlUsuarios.DataBind();
         }
         else
         {
-            DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre");
+            DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre");
             DdlUsuarios.DataBind();
             DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
         }
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 20b5f1f01..cfc3b5882 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1572,9 +1572,7 @@ Partial Class General_SaldosIniciales
                     Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
                     Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
                     Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
-                    Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-
-
+                    Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
 
                     Dim CountRow As Integer = 1
                     For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
@@ -1602,8 +1600,8 @@ Partial Class General_SaldosIniciales
                         Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
                         Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal
                         Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal
-                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero
-                        If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero
+                        If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
 
                         If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
                         If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1808,7 +1806,7 @@ Partial Class General_SaldosIniciales
                 If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
                 '  If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
                 If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
-                Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+                Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
 
                 'For Each drt As DataRow In dt.FiltraParametros("RFC <> ''", DistinctColumns:={"RFC"}).Rows
                 '    Dim RFC As String = drt("RFC").ToString().Trim.Replace("-", "").Replace(" ", "")
@@ -2194,7 +2192,7 @@ Partial Class General_SaldosIniciales
                         'CLAVES
                         Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString().ToEntero()
                         Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString().ToEntero()
-                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
+                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
                         Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero()
                         Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero()
                         Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
@@ -2500,7 +2498,7 @@ Partial Class General_SaldosIniciales
                     Dim CvePrePoliza As Integer = 0
                     Dim Cuenta As String = ""
                     Dim Reporte As New StringBuilder
-                    Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
+                    Dim SubProTemp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
                     CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
@@ -3575,7 +3573,7 @@ Partial Class General_SaldosIniciales
         If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
             dtregistrospatronales = ObjRH.DtResultados
             dtregistrospatronales.CaseSensitive = False
-            dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            dTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             dTDepartamentos = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
             dTTurno = GlobalDTTurno(UsuarioActual.CveEmpresa)
             dTSubProyectos.CaseSensitive = False
@@ -3794,9 +3792,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = Nominista.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveUsuarioNomina = myarraystr(0).ToEntero()
-                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero()
+                    CveUsuarioNomina = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero()
                 Else
-                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero()
+                    CveUsuarioNomina = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero()
                 End If
                 If CveUsuarioNomina = 0 Then
                     CveUsuarioNomina = -1
@@ -4215,7 +4213,7 @@ Partial Class General_SaldosIniciales
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "subproyecto"
-        Dim dtsubproyecto As DataTable = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        Dim dtsubproyecto As DataTable = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1))
         For Each row As DataRow In dtsubproyecto.Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto"))
diff --git a/General/SaldosMenores.aspx.vb b/General/SaldosMenores.aspx.vb
index d4e14e130..cc6648e7d 100644
--- a/General/SaldosMenores.aspx.vb
+++ b/General/SaldosMenores.aspx.vb
@@ -177,7 +177,7 @@ Partial Public Class General_SaldosMenores
 
     Protected Sub CargaSucursales()
 
-        DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoSaldar.DataBind()
     End Sub
 
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index e5e6cc56f..e394067ca 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -382,7 +382,7 @@ Partial Class Inicio
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()
         DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubproyectos.SelectedIndex = 0
diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb
index acd184e86..61618d66d 100644
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -135,11 +135,11 @@ Partial Class Inventarios_Apartados
     End Sub
     Private Sub CargaCombos()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione ", "-1"))
 
-        DdlSubProyectoDesapartado.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoDesapartado.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoDesapartado.DataBind()
         DdlSubProyectoDesapartado.Items.Insert(0, New ListItem(" Todas ", "-1"))
 
diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index a65f93a13..ec8b4d92f 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -77,8 +77,8 @@ Partial Class Inventarios_CatAlmacenes
 #Region "C O M B O S"
 
     Private Sub CargaSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
 
         DdlSubProyectoFiltro.DataBind()
         DdlSubProyecto.DataBind()
@@ -230,7 +230,7 @@ Partial Class Inventarios_CatAlmacenes
 
     End Sub
     'Private Sub CargaSucursal()
-    '    DtSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero)
+    '    DtSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero)
     '    Dim dr As DataRow
     '    dr = DtSubProyectos(0)
     '    CveSucursal = dr("CveSucursal").ToString.ToEntero
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 9bc004bfe..da6e1c5eb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -786,7 +786,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-        '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, Estatus:=1))
         'DdlSubProyecto.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -1019,7 +1019,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'verifico si existe
                 If (DdlSubProyecto.Items.FindByValue(Mov.CveSubProyecto.ToString()) Is Nothing) Then
-                    Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Mov.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimero("")
+                    Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=Mov.CveSubProyecto, Estatus:=-1).FiltroPrimero("")
                     DdlSubProyecto.Items.Insert(0, New ListItem(dr("SubProyecto").ToString, dr("CveSubProyecto").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString
                 End If
 
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 8a945b90a..7d810834e 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -437,7 +437,7 @@ Partial Class Inventarios_EntregaAlmacen
             End If
             ObjInventarios.Dispose()
         Else
-            DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         End If
         DdlSubProyectos.DataBind()
         DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString())
@@ -2872,6 +2872,10 @@ Partial Class Inventarios_EntregaAlmacen
                 If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then
                     ConceptoMovimiento = 41
                 End If
+                'sms
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ConceptoMovimiento = 8 AndAlso TipoMovimiento = 1 Then
+                    ConceptoMovimiento = 35
+                End If
 
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, Recibio:=Recibio,
                                                         CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7")
diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs
index b410df2ab..46fc11d64 100644
--- a/Inventarios/EntregasPorRealizar.aspx.cs
+++ b/Inventarios/EntregasPorRealizar.aspx.cs
@@ -11,8 +11,6 @@ using System.Text;
 
 public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 {
-
-
     DataTable DTGenrarDocumentos
     {
         get {
@@ -165,7 +163,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 
     private void CargarPersonal()
     {
-        DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430,1155)");
+        DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430,1155)");
         DdlUsuario.DataSource = UsuariosConRolLogistico;
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb
index 6fbaf9f24..65e2f0d25 100644
--- a/Inventarios/InventarioFisico.aspx.vb
+++ b/Inventarios/InventarioFisico.aspx.vb
@@ -215,7 +215,7 @@ Partial Class Inventarios_InventarioFisico
 
     Private Sub CargaDdlUsuarios()
         Dim FiltroAD() As String = {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol"}
-        DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD)
+        DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("  Estatus =1", "Rol ASC", FiltroAD)
         DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlUsuarios.DataBind()
 
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index c17ff8aad..10e644d70 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -99,7 +99,7 @@ Partial Class Inventarios_Default
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.SelectedValue = Nothing
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("-", "-1"))
diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb
index a4c6bdc2e..e63e45015 100644
--- a/Inventarios/RecepcionDevolucion.aspx.vb
+++ b/Inventarios/RecepcionDevolucion.aspx.vb
@@ -362,8 +362,8 @@ Partial Class Inventarios_RecepcionDevolucion
         Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto
         Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto
         Me.ObjRemisionNC.CveSubProyectoEjecucion = CveSubProyecto
-        Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
-        Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+        Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
+        Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
 
         'CLIENTE
         Me.ObjRemisionNC.CveCliente = CveCliente
@@ -711,7 +711,7 @@ Partial Class Inventarios_RecepcionDevolucion
 
             If CvePS > 0 Then
                 Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
-                Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjRemisionNC.CveSubProyecto))
+                Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjRemisionNC.CveSubProyecto))
                 If Dr IsNot Nothing AndAlso DrSubProyecto IsNot Nothing Then
                     CveUnidadMedida = Dr("CveUnidadMedida").ToString.ToEntero
                     CveClasificacion = Dr("CveClasificacion").ToString.ToEntero
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 5ddf4613d..eb35a01ad 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -667,7 +667,7 @@ Partial Class Inventarios_RecepcionUsados
         ObjAcum.Dispose()
     End Sub
     Private Sub CargaSubProyectos()
-        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, Estatus:=1))
         DdlSubProyecto.DataBind()
 
         'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -685,7 +685,7 @@ Partial Class Inventarios_RecepcionUsados
                 End If
                 ObjInventarios.Dispose()
             Else
-                DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+                DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             End If
             DdlSubProyectos.DataBind()
             DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
@@ -2445,8 +2445,8 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto
         Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto
         Me.ObjRemisionNC.CveSubProyectoEjecucion = CveSubProyecto
-        Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
-        Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+        Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
+        Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
 
         'CLIENTE
         Me.ObjRemisionNC.CveCliente = CveCliente
@@ -3019,10 +3019,10 @@ Partial Class Inventarios_RecepcionUsados
                 If TipoPrecioLista = 10 Then
                     CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     If CvePrecioListaPS <= 0 Then
-                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     End If
                 Else
-                    CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                    CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     If CvePrecioListaPS <= 0 Then
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     End If
diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb
index 29942e0d7..db02d8d94 100644
--- a/Inventarios/Remanufactura.aspx.vb
+++ b/Inventarios/Remanufactura.aspx.vb
@@ -772,7 +772,7 @@ Partial Class Inventarios_Remanufactura
                                     importeMovimiento = (TmpDTDetalle.SUM("Total", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador
                                     importeMX = importeMovimiento * tipoCambio * Multiplicador
                                     FechaMovimiento = ObjFactura.FechaPago
-                                    Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+                                    Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                     If importeMovimiento <> 0 Then
                                         If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContable, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento)) Then
diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb
index 917730dac..44dd93cff 100644
--- a/Inventarios/RepApartados.aspx.vb
+++ b/Inventarios/RepApartados.aspx.vb
@@ -31,7 +31,7 @@ Partial Class Inventarios_RepApartados
 
 #Region "  SET VALUES  "
     Private Sub SetValues()
-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1"))
 
diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb
index 1f3d0fff5..f9fad1c33 100644
--- a/Inventarios/RepApartados2.aspx.vb
+++ b/Inventarios/RepApartados2.aspx.vb
@@ -30,7 +30,7 @@ Partial Class Inventarios_RepApartados2
 
 #Region "  SET VALUES  "
     Private Sub SetValues()
-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1"))
 
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index ad7df7e2c..9cfac9352 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -51,7 +51,7 @@ Partial Class Inventarios_RepMaximoMinimo
 #Region "  INICIALIZA VALORES  "
     Private Sub CargaCombos()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa, Estatus:=1)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
 
@@ -81,7 +81,7 @@ Partial Class Inventarios_RepMaximoMinimo
 
     Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
 
-        'Dim DtSubptoyecto As DataTable = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros(String.Format(" CveSubProyecto ={0}", DdlSubProyecto.SelectedValue.ToEntero))        'GlobalDTSucursales(" CveSucursal = ")
+        'Dim DtSubptoyecto As DataTable = GlobalDTSubProyectos( UsuarioActual.Empresa.CveEmpresa ).FiltraParametros(String.Format(" CveSubProyecto ={0}", DdlSubProyecto.SelectedValue.ToEntero))        'GlobalDTSucursales(" CveSucursal = ")
         DdlAlmacen.Items.Clear()
         'If DtSubptoyecto.Rows.Count > 0 Then
         'Dim CveSucursal As Integer = DtSubptoyecto(0)("CveSucursal").ToString.ToEntero
diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb
index c4454dfd6..ee0a1cf43 100644
--- a/Inventarios/RepMovimientos.aspx.vb
+++ b/Inventarios/RepMovimientos.aspx.vb
@@ -66,7 +66,7 @@ Partial Class RepMovimientosRep
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+        DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
         DdlUsuarios.DataBind()
         DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/Inventarios/RepTrasladoSolicitud.aspx.vb b/Inventarios/RepTrasladoSolicitud.aspx.vb
index 19df115a9..997bc7306 100644
--- a/Inventarios/RepTrasladoSolicitud.aspx.vb
+++ b/Inventarios/RepTrasladoSolicitud.aspx.vb
@@ -25,7 +25,7 @@ Partial Class Inventarios_RepTrasladoSolicitud
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSolicitante.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+        DdlSolicitante.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
         DdlSolicitante.DataBind()
         DdlSolicitante.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 1ed0fefa3..2b71c65fb 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -1153,16 +1153,11 @@ Partial Class Inventarios_TrasladoSolicitud
 
         Dim SB As New StringBuilder
 
-        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
-
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo").ToString.Trim
 
         If CorreoDestino.Length > 0 Then
-
-
             SB.AppendLine($"<p>Se ha rechazado la solicitud de traspaso con folio {Folio}, el traspaso fue rechazado por el usuario {UsuarioActual.Nombre }, el traspaso fue rechazado por el motivo: {MotivoRechazo} </p>")
 
-
-
             SB.AppendLine("<br>")
             SB.AppendLine("<table border = '0'>")
             SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th>  <th>Producto</th>  <th>Observaciones</th> </tr>")
@@ -1179,31 +1174,20 @@ Partial Class Inventarios_TrasladoSolicitud
 
             SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso folio {Folio}</a></strong>")
 
-
-
             Dim MandaCorre As New ClsSisMail
             MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Rechazo de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Rechazo de Traspaso")
 
         End If
-
     End Sub
 
-
     Private Sub MandaCorreoAutorizacion(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioAutoriza As Integer)
 
         Dim SB As New StringBuilder
-
-        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
-
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo").ToString.Trim
 
         If CorreoDestino.Length > 0 Then
-
-
-
             SB.AppendLine($"<p>Se ha registrado una solicitud de traspaso de {DdlAlmacenOrigen.SelectedItem.Text} a {DdlAlmacenDestino.SelectedItem.Text}, con los siguientes productos.</p>")
 
-
-
             SB.AppendLine("<br>")
             SB.AppendLine("<table border = '0'>")
             SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th>  <th>Producto</th>  <th>Observaciones</th> </tr>")
@@ -1219,8 +1203,6 @@ Partial Class Inventarios_TrasladoSolicitud
             SB.AppendLine("<br>")
             SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso para autorización</a></strong>")
 
-
-
             Dim MandaCorre As New ClsSisMail
             MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
 
@@ -1255,8 +1237,6 @@ Partial Class Inventarios_TrasladoSolicitud
             End If
 
         End If
-
-
     End Sub
 End Class
 
diff --git a/Nomina/EventoDetalle.aspx.vb b/Nomina/EventoDetalle.aspx.vb
index 8fbbd883d..20003cb4b 100644
--- a/Nomina/EventoDetalle.aspx.vb
+++ b/Nomina/EventoDetalle.aspx.vb
@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
         '    End If
         'End If
 
-        Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", tCveEmpresa, FiltroAD), "Rol ASC")
+        Dim DT As DataTable = GlobalDTUsuarios(-1, tCveEmpresa).FiltraParametros(String.Format(" Estatus = 1 {0}", FiltroAD), "Rol ASC")
 
         GVUsuarios.DataSource = AgregaGrupos(DT)
         DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
 
         'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
 
-        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
         If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
         Dim RutaGuardar = ""
         RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
diff --git a/Nomina/RepInversiondeNomina.aspx.cs b/Nomina/RepInversiondeNomina.aspx.cs
index 77656795d..e58b249a5 100644
--- a/Nomina/RepInversiondeNomina.aspx.cs
+++ b/Nomina/RepInversiondeNomina.aspx.cs
@@ -93,7 +93,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas
         if (!IsPostBack)
         {
 
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1);
+            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa );
             DdlSubProyecto.DataBind();
             DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
             DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " );
diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 065901693..7573f2dbf 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -627,7 +627,7 @@ Partial Class OC_CatEstatus
 
                         'Guardado masivo cuando sea SubProyecto "Todos"
                         If CveSubProyecto = -2 Then
-                            For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
+                            For Each dr As DataRow In GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows
                                 If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboErrores = True
                                     Exit For
@@ -693,7 +693,7 @@ Partial Class OC_CatEstatus
 
                         'Guardado masivo cuando sea SubProyecto "Todos"
                         If CveSubProyecto = -2 Then
-                            For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
+                            For Each dr As DataRow In GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows
                                 If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboErrores = True
                                     Exit For
diff --git a/OC/OC.aspx b/OC/OC.aspx
index ad7107f52..dd6c99ce1 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1,4 +1,5 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OC.aspx.vb" EnableEventValidation="false" Inherits="OC_OC" %>
+<%@ Import Namespace="Extensiones" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OC.aspx.vb" EnableEventValidation="false" Inherits="OC_OC" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
 
@@ -191,9 +192,11 @@
                     <div class="portlet light xspadding bordered">
                         <div class="portlet-title">
                             <div class="caption font-green">
-                                <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Datos de Orden </span>
-                            </div>
+                                 
+                                         <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Datos de Orden </span>
+                                                               
+                            </div>                            
                             <div class="tools">
                                 <a href="javascript;" class="collapse" data-original-title="" title=""></a>
                             </div>
@@ -201,22 +204,26 @@
                         <div class="portlet-body form">
                             <div class="labeltruncate labeltext labelbold">
                                 <%--linea 1--%>
-                                <div class="row" style="padding-bottom: 0.6em;">
-                                    <label class="col-md-2">Folio:</label>
-                                    <label class="col-md-4">
-                                        <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
-                                    </label>
-                                    <b>
-                                        <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
-                                    <div class="col-md-4" id="DivPrioridad" runat="server">
-                                        <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
-                                            <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
-                                            <asp:ListItem Text="Alta" Value="1"></asp:ListItem>
-                                            <asp:ListItem Text="Media" Value="2"></asp:ListItem>
-                                            <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
-                                        </asp:DropDownList>
-                                    </div>
-                                </div>
+                                <asp:UpdatePanel ID="UppFolio" runat="server">
+                                    <ContentTemplate>
+                                        <div class="row" style="padding-bottom: 0.6em;">
+                                            <label class="col-md-2">Folio:</label>
+                                            <label class="col-md-4">
+                                                <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
+                                            </label>
+                                            <b>
+                                                <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
+                                            <div class="col-md-4" id="DivPrioridad" runat="server">
+                                                <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
+                                                    <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                                    <asp:ListItem Text="Alta" Value="1"></asp:ListItem>
+                                                    <asp:ListItem Text="Media" Value="2"></asp:ListItem>
+                                                    <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
                                 <%--linea 2--%>
                                 <div class="row" runat="server" id="option72" visible="false" style="padding-bottom: 0.6em;">
                                     <div runat="server" visible="False" id="DivFolioAdicional">
@@ -439,7 +446,15 @@
                                             <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
                                              <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                         </td>
-                                    </tr>                                    
+                                    </tr>
+                                    <tr id="trSubProyecto">
+                                        <td><b>Sucursal:</b></td>
+                                        <td>
+                                            <asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control  select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
+                                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                        </td>
+                                    </tr>
                                     <tr id="trCfdi" style="display:none;" >
                                         <td>
                                             <div class="caption font-green">
@@ -984,7 +999,7 @@
                                             <asp:TemplateField>
                                                 <ItemTemplate>
 
-                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Eval("CveCultivoCuadroDetalle").ToString <> "0" And Eval("CveCultivoCuadroDetalle").ToString <> "-1" And Eval("CveCultivoCuadroDetalle").ToString <> "", String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
+                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Not Eval("CveCultivoCuadroDetalle").ToString.Contiene("0", "-1", ""), String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
                                                                                                
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 934be7223..e7fc12ea6 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -84,6 +84,14 @@ Partial Class OC_OC
             ViewState("Folio") = value
         End Set
     End Property
+    Private Property SerieFolio As String
+        Get
+            SerieFolio = ViewState("SerieFolio").ToString
+        End Get
+        Set(value As String)
+            ViewState("SerieFolio") = value
+        End Set
+    End Property
     Private Property CveUsuario As Integer
         Get
             CveUsuario = ViewState("CveUsuario").ToString.ToEntero
@@ -717,6 +725,14 @@ Partial Class OC_OC
                     TipoOS = True
                 End If
 
+                'temporal
+                If UsuarioActual.CveEmpresa = 189 Then
+                    'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
+                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
+                    DdlSubProyectoGral.DataBind()
+                    DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+                End If
+
                 BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
                 CargaEstatusInicialFinal()
@@ -848,7 +864,7 @@ Partial Class OC_OC
             'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
             DdlSubProyectoContrato.Items.Clear()
-            DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(  CveEmpresaActual )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
             DdlSubProyectoContrato.DataBind()
             DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -933,9 +949,9 @@ Partial Class OC_OC
                 ChkEntregaDirecta.Checked = False
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then
                 If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then
-                    Alert("PrePoliza  de Presupuesto Generada Correctamente")
+                    Alert("PrePoliza de Presupuesto Generada Correctamente")
                 Else
                     Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia)
                 End If
@@ -957,9 +973,7 @@ Partial Class OC_OC
 
     Private Sub ValidaCancelacionConAlamcen()
 
-
         If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
-
             'BtnCancelarPrevio.Attributes.Remove("onclick")
             BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
             BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
@@ -1303,25 +1317,32 @@ Partial Class OC_OC
                     End If
                     uppEstatus.Update()
                 End If
-
-
             End If
         End If
     End Sub
     Private Sub CargaFolios()
+        Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
         Dim ObjFolios As New ClsGralFolios()
         TipoOC = If(TipoOS, "OS", TipoOC)
         If ObjFolios.GetFolios(If(TipoOC = "REQ", "Req", TipoOC), CveEmpresaActual) Then
             Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'")
+            If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
             'Verificar primero en la sucursal del usuario
-            If DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows.Count > 0 Then
-                ViewState("CveFolio") = DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows(0)("CveFolio").ToString.ToEntero
-                ViewState("FolioActual") = DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows(0)("FActual").ToString
-                lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
+            Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
+            If dts IsNot Nothing Then
+                ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
+                If UsuarioActual.CveEmpresa = 189 Then
+                    lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString
+                    SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString
+                Else
+                    lblFolio.Text = TipoOC + " " + dts("FActual").ToString
+                    SerieFolio = dts("FActual").ToString
+                End If
+
             ElseIf DT.Rows.Count > 0 Then
                 ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString.ToEntero
-                ViewState("FolioActual") = DT.Rows(0)("FActual").ToString
                 lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
+                SerieFolio = DT.Rows(0)("FActual").ToString
             Else
                 Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
             End If
@@ -2259,7 +2280,7 @@ Partial Class OC_OC
             Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
 
             'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
-            '    IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
+            '    IvaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
             'End If
 
             Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -2355,9 +2376,9 @@ Partial Class OC_OC
                 dr("CveSubFamilia") = dr("CveClasificacion")
                 dr("SubFamilia") = dr("Clasificacion")
             End If
-            If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            If UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
                 dr("CveProyecto") = "-1"
-                dr("Proyecto") = "Sin Proyecto"
+                dr("Proyecto") = ""
             Else
                 If CveSubProyecto > 0 Then
                     dr("CveProyecto") = CveSubProyecto
@@ -2381,15 +2402,12 @@ Partial Class OC_OC
             dr("CveContratoDetalle") = CveContratoDetalle
             dr("CveTipoGastoObra") = CveTipoGastoObra
             dr("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
-            dr("Cuadro") = Cuadro
-
-
+            dr("Cuadro") = If(CveCultivoCuadroDetalle > 0, Cuadro, "")
 
             DtDetalle.Rows.Add(dr)
             DtDetalle.AcceptChanges()
         End If
 
-
     End Sub
 #End Region
 
@@ -2766,9 +2784,10 @@ Partial Class OC_OC
 
             If Not TieneError Then ' AGREGAR ORDEN DE COMPRA
 
+                Dim tCveSubProyecto As Integer = -1
+                If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
-
-                If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
+                If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                  LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
                                  RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
@@ -2883,13 +2902,9 @@ Partial Class OC_OC
                 If OC IsNot Nothing Then OC.RollBack()
                 Alert("Hubo un Error al registrar", TipoMensaje.MsgError)
                 CveOrdenCompra = -1
-
-
                 If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
                     TipoOC = "REQ"
                 End If
-
-
             End If
 
             ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "")
@@ -2911,9 +2926,9 @@ Partial Class OC_OC
                 End If
 
                 If LigaOCs = "" Then
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>. Ha sido guardada correctamente <br/> {2}", TipoLargo, Folio, If(TipoOC = "OC", ImprimirOC, ""))
+                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
                 Else
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>. Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, Folio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
                 End If
 
                 'IMPRIME LIGA A POLIZAS
@@ -3426,8 +3441,10 @@ Partial Class OC_OC
                         If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", CveProveedor, objOrdenCompra.IniciaTransacSQL) Then
                             HuboError = True
                         End If
+                        Dim CveSubProyecto As Integer = -1
+                        If UsuarioActual.CveEmpresa = 189 Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
-                        If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
+                        If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                          CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                         PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                         EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
@@ -3497,14 +3514,14 @@ Partial Class OC_OC
 
             Else
 
-
                 If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", DdlProveedores.SelectedValue.ToEntero, objOrdenCompra.IniciaTransacSQL) Then
                     HuboError = True
                 End If
 
+                Dim tCveSubProyecto As Integer = -1
+                If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
-
-                If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
+                If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                  CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                  PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                  EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
@@ -4007,7 +4024,7 @@ Partial Class OC_OC
                 DdlPS_SelectedIndexChanged1(e.Row.FCDropDownList("DdlPS"), EventArgs.Empty)
 
 
-                Dim dr As DataRow = GlobalDTSubProyectos(-1, e.Row.DBCampo("CveSubProyecto").ToEntero, CveEmpresaActual).FiltroPrimero("")
+                Dim dr As DataRow = GlobalDTSubProyectos(CveEmpresaActual, CveSubProyecto:=e.Row.DBCampo("CveSubProyecto").ToEntero).FiltroPrimero("")
                 If dr IsNot Nothing Then
                     If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
                         e.Row.FCDropDownList("DdlProyectoEdit").Visible = False
@@ -4223,8 +4240,8 @@ Partial Class OC_OC
             End If
         End If
 
-        'Agarra el nuevo AF si se modifico o deja el pasado
-        CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
+                'Agarra el nuevo AF si se modifico o deja el pasado
+                CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
         Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
 
         HdnEditCveActivoFijo.Value = ""
@@ -5916,7 +5933,7 @@ Partial Class OC_OC
 
                 If CveEmpresaActual.Contiene(13, 83, 72, 80) Then
                     PnlUsuarioAsignado.Visible = True
-                    DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre")
+                    DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre")
                     DdlUsuariosAsignado.DataBind()
                     DdlUsuariosAsignado.Items.Insert(0, New ListItem(" - ", "-1"))
                     DdlUsuariosAsignado.SelectedValueExist(CveUsuarioAsignado)
@@ -6082,7 +6099,7 @@ Partial Class OC_OC
         'Dim ArrayCC As String()
 
 
-        Dim Correo As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString
+        Dim Correo As String = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString
         'Dim CorreosCCP As New List(Of String)
         Dim StrCorreos As New StringBuilder
 
@@ -6090,7 +6107,7 @@ Partial Class OC_OC
         'Aqui seran los que cambiaron de estatus, que son los niveles inferiores
         If DtHistorial IsNot Nothing Then
             For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
-                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
                 'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
             Next
         End If
@@ -6121,15 +6138,15 @@ Partial Class OC_OC
         End Try
     End Sub
     Protected Sub EnviarCorreoModificada()
-        If CBool(GlobalDTUsuarios(CveUsuario)(0)("Estatus").ToString) Then
+        If CBool(GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estatus").ToString) Then
             Dim Body As String
-            Dim Correo As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString
+            Dim Correo As String = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString
             Dim StrCorreos As New StringBuilder
 
             'Sacar los correos a los que se les notificara
             'Aqui seran los que cambiaron de estatus, que son los niveles inferiores 
             For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
-                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
             Next
 
             Try
@@ -6161,7 +6178,7 @@ Partial Class OC_OC
         If CveEstatusSiguiente > 0 Then
             If hdnCveSuperior.Value.ToEntero > 0 Then
                 'SI TIENE SUPERIOR MANDA CORREO A TODOS LOS DEL SIGUIENTE ESTATUS
-                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(hdnCveSuperior.Value.ToEntero)(0)("correo").ToString)
+                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(hdnCveSuperior.Value.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
             Else
                 'SI NO TIENE SUPERIOR LO BUSCA PARA MANDAR CORREO
                 Dim objOC As New ClsOC
@@ -6171,8 +6188,8 @@ Partial Class OC_OC
                             For Each Row As DataRow In objOC.DtResultados.Rows
                                 'INCLUIR FILTRO DE LIMITE SUPERIOR E INFERIOR
                                 If (IsDBNull(Row("LimiteInferior")) OrElse Row("LimiteInferior").ToString.ToDecimal < LblTotal.Text.ToDecimal) And (IsDBNull(Row("LimiteSuperior")) OrElse Row("LimiteSuperior").ToString.ToDecimal > LblTotal.Text.ToDecimal) Then
-                                    StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
-                                    CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("nombre").ToString)
+                                    StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
+                                    CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltroPrimeroValor("nombre").ToString)
                                 End If
                             Next
                         End If
@@ -6187,9 +6204,9 @@ Partial Class OC_OC
         If DtHistorial IsNot Nothing Then
             For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
 
-                If GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero).FiltraParametros(" Estatus = True ").Rows.Count > 0 Then
-                    StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
-                    CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("nombre").ToString)
+                If GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltraParametros(" Estatus = True ").Rows.Count > 0 Then
+                    StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
+                    CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("nombre").ToString)
                 End If
 
             Next
@@ -6270,17 +6287,17 @@ Partial Class OC_OC
     End Sub
 
     Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True)
-        If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("Estatus").ToString) Then
+        If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then
             'Dim CorreosCCP As New List(Of String)
             Dim StrCorreos As New StringBuilder
             Dim CorreosCCPNombre As New List(Of String)
-            Dim Para As String = GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString
+            Dim Para As String = GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString
 
             'SI TIENE ASIGNADO TAMBIEN SE LE MANDA CORREO
             If DdlUsuariosAsignado.SelectedValue.ToEntero > 0 Then
                 'CorreosCCP.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString)
-                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString)
-                CorreosCCPNombre.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("nombre").ToString)
+                StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
+                CorreosCCPNombre.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("nombre").ToString)
             End If
 
             Dim strOpciones As New StringBuilder
@@ -6761,7 +6778,7 @@ Partial Class OC_OC
                     NumRow = NumRow + 1
 
                     If Proyecto <> "" Then
-                        Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+                        Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
                         DtSubProyecto.CaseSensitive = False
                         DrProyecto = DtSubProyecto.FiltroPrimero($"(SubProyecto) = '{Proyecto}'")
                         If DrProyecto IsNot Nothing Then
@@ -6826,7 +6843,7 @@ Partial Class OC_OC
                         Dim UM As String = DrPS("UnidadMedida").ToString
                         Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
                         'If IvaPS = -1 Then
-                        '    Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        '    Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         '    IvaPS = Drr("IVA").ToString().ToDecimal()
                         'End If
                         Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -7278,7 +7295,7 @@ Partial Class OC_OC
 
     End Sub
     Private Sub CargaSucursal()
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
         DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSucursal.SelectedValue = "-1"
@@ -7833,7 +7850,7 @@ Partial Class OC_OC
                 Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
 
                 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
-                '    IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
+                '    IvaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
                 'End If
 
                 Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -8565,7 +8582,7 @@ Partial Class OC_OC
     Private Sub MostrarUsuarioAsignado()
         If CveUsuarioAsignado > 0 Then
             PnlUsuarioYaAsignado.Visible = True
-            Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
+            Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuarioAsignado, CveEmpresaActual).FiltroPrimeroValor("Nombre")
             LblUsuarioYaAsignado.Text = NombreUsuario
         End If
     End Sub
@@ -8608,10 +8625,10 @@ Partial Class OC_OC
                     lblFolio.Text = $"Folio OT:  {ObjAF.DtResultados(0)("Folio").ToString}"
 
                     CveSubProyecto = ObjAF.DtResultados(0)("CveSubProyecto").ToString.ToEntero
-                    SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("SubProyecto").ToString
+                    SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("SubProyecto").ToString
 
-                    CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
-                    Proyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("Proyecto").ToString
+                    CveProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
+                    Proyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("Proyecto").ToString
 
                     'DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
                     'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
@@ -8655,7 +8672,7 @@ Partial Class OC_OC
                         Dim UM As String = DrPS("UnidadMedida").ToString
                         Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
                         'If IvaPS = -1 Then
-                        '    Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        '    Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         '    IvaPS = Drr("IVA").ToString().ToDecimal()
                         'End If
                         Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -9123,8 +9140,9 @@ Partial Class OC_OC
                                 Else
                                     respuesta = True
                                 End If
+                                respuesta = True
                             Else
-                                Alert($"No hay presupuesto disponible en: <br/> Subproyecto:<b> {ValSubProyecto}</b> Clasificación:<b> {ValClasificacion}</b>.", TipoMensaje.MsgAdvertencia)
+                                Alert($"No hay presupuesto disponible en: <br/> Subproyecto:<b> {ValSubProyecto}</b></b> Clasificación:<b> {ValClasificacion}</b>.", TipoMensaje.MsgAdvertencia)
                                 respuesta = False
                             End If
                         Else
@@ -9160,14 +9178,14 @@ Partial Class OC_OC
                                     Dim Diferencia As Decimal = saldoTotal - item.TotalSum
 
                                     If (Diferencia) < 0 Then
-                                        Alert($"No hay presupuesto disponible en: <br/> Subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                        Alert($"No hay presupuesto disponible en: <br/> Subproyecto: <b>{item.SubProyecto}</b><br/> Clasificación <b>{item.Clasificacion}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
                                         respuesta = False
                                         Exit For
                                     Else
                                         respuesta = True
                                     End If
                                 Else
-                                    Alert($"No hay presupuesto disponible en: <br/> Subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>.", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible en: <br/> Subproyecto: <b>{item.SubProyecto}</b><br/> Clasificación <b>{item.Clasificacion}</b>.", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                     Exit For
                                 End If
@@ -9215,18 +9233,18 @@ Partial Class OC_OC
 
                 Dim EnumAgrupado = (From row In DtDetalle.AsEnumerable()
                                     Group row By
-                                SubProyecto = row.Field(Of String)("SubProyecto"),
-                                CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
-                                Clasificacion = row.Field(Of String)("Clasificacion"),
-                                CveClasificacion = row.Field(Of Integer)("CveClasificacion")
-                            Into Group
+                            SubProyecto = row.Field(Of String)("SubProyecto"),
+                            CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
+                            Clasificacion = row.Field(Of String)("Clasificacion"),
+                            CveClasificacion = row.Field(Of Integer)("CveClasificacion")
+                        Into Group
                                     Select New With {
-                                .SubProyecto = SubProyecto,
-                                .CveSubProyecto = CveSubProyecto,
-                                .Clasificacion = Clasificacion,
-                                .CveClasificacion = CveClasificacion,
-                                .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))) + If(IsDBNull(r("IVA")), 0D, Convert.ToDecimal(r("IVA"))) + If(IsDBNull(r("IEPSPSIVA")), 0D, Convert.ToDecimal(r("IEPSPSIVA"))) - If(IsDBNull(r("RetIVA")), 0D, Convert.ToDecimal(r("RetIVA"))) - If(IsDBNull(r("RetISR")), 0D, Convert.ToDecimal(r("RetISR"))))
-                            }).ToList()
+                            .SubProyecto = SubProyecto,
+                            .CveSubProyecto = CveSubProyecto,
+                            .Clasificacion = Clasificacion,
+                            .CveClasificacion = CveClasificacion,
+                            .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))) + If(IsDBNull(r("IVA")), 0D, Convert.ToDecimal(r("IVA"))) + If(IsDBNull(r("IEPSPSIVA")), 0D, Convert.ToDecimal(r("IEPSPSIVA"))) - If(IsDBNull(r("RetIVA")), 0D, Convert.ToDecimal(r("RetIVA"))) - If(IsDBNull(r("RetISR")), 0D, Convert.ToDecimal(r("RetISR"))))
+                        }).ToList()
 
                 For Each item In EnumAgrupado
 
@@ -9247,7 +9265,9 @@ Partial Class OC_OC
             Else
                 Respuesta = False
             End If
+            If transaccion Is Nothing Then ObjConta.Dispose() 'sino es transac, que se genere el dispose
         End If
+
         Return Respuesta
 
     End Function
@@ -9255,16 +9275,14 @@ Partial Class OC_OC
 
 #End Region
 
-
-
-
-
     Protected Sub chkSubProyectoEntrega_CheckedChanged(sender As Object, e As EventArgs)
-
         DdlSubProyectoEntrega.Visible = chkSubProyectoEntrega.Checked
         txtLugarEntrega.Visible = Not chkSubProyectoEntrega.Checked
         UPPEmp.Update()
+    End Sub
 
+    Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaFolios()
     End Sub
 End Class
 
diff --git a/OC/OC2.aspx.vb b/OC/OC2.aspx.vb
index bc1b0ec4d..e680ffd60 100644
--- a/OC/OC2.aspx.vb
+++ b/OC/OC2.aspx.vb
@@ -502,7 +502,7 @@ Partial Class OC
                 DdlProyecto.Visible = False
                 TituloSubProyecto.Visible = False
 
-                DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) '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)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+                DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
                 DdlSubProyecto.DataBind()
                 DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
             End If
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index 0f9514e06..2fbbf1989 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -105,7 +105,7 @@ Partial Class OC_PopUpBuscarReq
 
         'DdlSubProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(DdlProyectos.SelectedValue.ToEntero).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
         DdlSubProyectos.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))
+                                        GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb
index 942d8e6c2..d34f6ab3c 100644
--- a/OC/RepOCGuias.aspx.vb
+++ b/OC/RepOCGuias.aspx.vb
@@ -80,7 +80,7 @@ Partial Class OC_RepOCGuias
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
         DdlSubproyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/OC/RepOCSinFactura.aspx.vb b/OC/RepOCSinFactura.aspx.vb
index 508f7bf7c..ef5494c07 100644
--- a/OC/RepOCSinFactura.aspx.vb
+++ b/OC/RepOCSinFactura.aspx.vb
@@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura
 
     Private Sub CargaCombos()
         'CargaSucursales
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
 
         'Vendedor
diff --git a/OC/RepOCxSurtir.aspx.vb b/OC/RepOCxSurtir.aspx.vb
index 468e54d2a..0a9726d3a 100644
--- a/OC/RepOCxSurtir.aspx.vb
+++ b/OC/RepOCxSurtir.aspx.vb
@@ -22,7 +22,7 @@ Partial Class OC_RepOCxSurtir
         DdlProveedor.DataBind()
         DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb
index a7215683e..cfbbd1ffd 100644
--- a/OC/RepRequisiciones.aspx.vb
+++ b/OC/RepRequisiciones.aspx.vb
@@ -38,7 +38,7 @@ Partial Class OC_RepRequisiciones
         DdlProyecto.DataBind()
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})  'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         DdlSubProyecto.DataBind()
 
         'CargaEstatus de Requisiciones
@@ -76,7 +76,7 @@ Partial Class OC_RepRequisiciones
     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.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})  'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         Else
diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs
index e294c04ea..ad3a3f57f 100644
--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -91,7 +91,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 
     private void CargaUsuarios()
     {
-        DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
+        DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         DdlUsuarios.DataBind();
     }
 
diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb
index 212b71247..73e186ff0 100644
--- a/OI/Circular.aspx.vb
+++ b/OI/Circular.aspx.vb
@@ -28,7 +28,7 @@ Partial Class OI_Circular
         TxtFechaI.Text = FechaI.ToString()
         TxtFechaF.Text = FechaF.ToString
 
-        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
         DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb
index 7ff4c5c4c..405d4a7a5 100644
--- a/OI/CircularDetalle.aspx.vb
+++ b/OI/CircularDetalle.aspx.vb
@@ -75,7 +75,7 @@ Partial Class OI_CircularDetalle
         DdlRolesFiltro.DataBind()
         DdlRolesFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSucursales.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSucursales.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSucursales.DataBind()
         DdlSucursales.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
@@ -129,8 +129,8 @@ Partial Class OI_CircularDetalle
         Dim buscadorQuery As New StringBuilder
         buscadorQuery.Append(If(DdlRolesFiltro.SelectedValue.ToEntero > 0, String.Format("CveRol = {0}", DdlRolesFiltro.SelectedValue), ""))
         buscadorQuery.Append(If(DdlSucursales.SelectedValue.ToEntero > 0, String.Format("{0} CveSubProyecto = {1}", If(buscadorQuery.Length > 0, "AND", ""), DdlSucursales.SelectedValue), ""))
-        GvUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
-        DtUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+        GvUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+        DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
         GvUsuarios.DataBind()
         UpUsuarios.Update()
         RegistraScript("$('#ModalDescuento').modal()")
diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs
index 29e1621d9..c4f6f300e 100644
--- a/OI/ConvocatoriaDetalle.aspx.cs
+++ b/OI/ConvocatoriaDetalle.aspx.cs
@@ -61,7 +61,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
     {
         string FiltroAD = "";
 
-        GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", UsuarioActual.CveEmpresa, FiltroAD), "Rol ASC");
+        GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  Estatus =1 {0}", FiltroAD), "Rol ASC");
         GVUsuarios.DataSource = GVUsuariosB.DataSource;
         DdlModera.DataSource = GVUsuariosB.DataSource;
         DdlModerador.DataSource = GVUsuariosB.DataSource;
@@ -744,7 +744,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
 
 
         ClsSisMail Mail = new ClsSisMail();
-        Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
+        Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
     }
     protected void LnkEnviarCorreo_Click(object sender, EventArgs e)
     {
diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs
index f5a013961..46d2cc97c 100644
--- a/OI/DocumentoDetalle.aspx.cs
+++ b/OI/DocumentoDetalle.aspx.cs
@@ -151,7 +151,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
 
     private void CargarUsuarios()
     {
-        GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
+        GvUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
         GvUsuarios.DataBind();
     }
 
diff --git a/OI/EventoDetalle.aspx.vb b/OI/EventoDetalle.aspx.vb
index a3da3521b..6fba91334 100644
--- a/OI/EventoDetalle.aspx.vb
+++ b/OI/EventoDetalle.aspx.vb
@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
         '    End If
         'End If
 
-        Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", tCveEmpresa, FiltroAD), "Rol ASC")
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC")
 
         GVUsuarios.DataSource = AgregaGrupos(DT)
         DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
 
         'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
 
-        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
         If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
         Dim RutaGuardar = ""
         RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs
index f5febfad4..0123a40b6 100644
--- a/OI/MinutaDetalle.aspx.cs
+++ b/OI/MinutaDetalle.aspx.cs
@@ -33,10 +33,10 @@ public partial class OI_MinutaDetalle : ClsPaginas
             DdlRoles.DataSource = get_GlobalDTRoles(UsuarioActual.CveEmpresa);
             DdlRoles.DataBind();
             DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+            DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
             DdlSucursales.DataBind();
             DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
-            GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+            GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
             GVUsuariosB.DataSource = GVUsuarios.DataSource;
             DdlTareaPara.DataSource = GVUsuarios.DataSource;
             DdlTareaPara.DataBind();
@@ -1015,7 +1015,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
 
 
             ClsSisMail Mail = new ClsSisMail();
-            Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
+            Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1,UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
             //Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion);
             Retorno = true;
         }
diff --git a/OI/Minutas.aspx.vb b/OI/Minutas.aspx.vb
index 4d442258d..1bd888f91 100644
--- a/OI/Minutas.aspx.vb
+++ b/OI/Minutas.aspx.vb
@@ -74,11 +74,11 @@ Partial Class OI_Minutas
 
 
     Private Sub CargaCombos()
-        ddlUsuarioTarea.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        ddlUsuarioTarea.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         ddlUsuarioTarea.DataBind()
         ddlUsuarioTarea.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         ddlUsuarioAgenda.DataBind()
         ddlUsuarioAgenda.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -95,10 +95,10 @@ Partial Class OI_Minutas
     End Sub
 
     Private Sub GetUsuarios()
-        Dim DT As Data.DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Rol ASC")
+        Dim DT As Data.DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
 
         'AGREGA JULIAN Y RENE DE FUERZAS
-        DT.Merge(GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
+        DT.Merge(GlobalDTUsuarios(-1, 70).FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
         DT = DT.FiltraParametros("", "Rol ASC")
 
         GVUsuarios.DataSource = AgregaGrupos(DT)
@@ -187,7 +187,7 @@ Partial Class OI_Minutas
                         ' Dim CorreosCCP As New List(Of String)
                         For Each Row As DataRow In .DtResultados.FiltraParametros("CveEvento is not null").Rows
                             'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
-                            StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+                            StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString)
                         Next
                         ViewState("ArrayCC") = StrCorreos.ToString 'CorreosCCP.ToArray
                     End If
@@ -524,7 +524,7 @@ Partial Class OI_Minutas
 
         Try
             Body = GeneraContenido(CveEvento)
-            ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng)(0)("correo").ToString
+            ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng, UsuarioActual.CveEmpresa)(0)("correo").ToString
             ViewState("Asunto") = String.Format("SIG - Minuta {0}", TxtAsunto.Text)
             ViewState("Body") = Body
             Dim Hilo As New System.Threading.Thread(AddressOf MandaCorreo)
diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb
index 44e371eb3..da424dfe8 100644
--- a/OI/PopUpAgenda.aspx.vb
+++ b/OI/PopUpAgenda.aspx.vb
@@ -550,7 +550,7 @@ Partial Class OI_PopUpAgenda
 
     End Sub
     Private Sub GetUsuarios()
-        Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "Rol ASC")
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
 
         GVUsuarios.DataSource = AgregaGrupos(DT)
         DT.Dispose()
@@ -732,10 +732,9 @@ Partial Class OI_PopUpAgenda
         CveRevision = DdlRevision.SelectedValue.ToEntero
         Fecha = NowADS().ToLongDateString
 
-        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
         If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
 
-
         If CveEvento = -1 Then
             If CveTipoEvento = 1 Then
                 If ObjEventos.AddEventoTarea(Asunto, Descripcion, Prioridad, CveUsuarioDe, CveUsuarioPara, FechaInicio.ToDateTime, FechaFin.ToDateTime, -1, 1, CveRevision, Archivo, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveUsuarioIng, CveUsuario, CveEmpresa) Then
diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs
index cfb70ae41..016cab4bf 100644
--- a/OI/Proyecto.aspx.cs
+++ b/OI/Proyecto.aspx.cs
@@ -334,7 +334,7 @@ public partial class OI_Proyecto : ClsPaginas
 
 
         string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol" };        
-        GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Nombre ASC", FiltroAD);        
+        GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Nombre ASC", FiltroAD);        
         GVUsuariosB.DataBind();
 
         StringBuilder StrPara = new StringBuilder();
diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs
index 3efa822f3..282d5be8a 100644
--- a/OI/RepProyectos.aspx.cs
+++ b/OI/RepProyectos.aspx.cs
@@ -17,7 +17,7 @@ public partial class OI_RepProyectos : ClsPaginas
         if (!IsPostBack)
         {
 
-            DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
+            DdlPara.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
             DdlPara.DataBind();
 
             DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1"));
diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs
index ce6409013..3c2b3bb7b 100644
--- a/OI/RepReuniones.aspx.cs
+++ b/OI/RepReuniones.aspx.cs
@@ -245,7 +245,7 @@ public partial class OI_RepReuniones : ClsPaginas
         ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
 
         ClsSisMail Mail = new ClsSisMail();
-        Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
+        Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
     }
     private string Asuntoconvocatoria;
     private string CorreoExternoconvocatoria;
diff --git a/OI/RepSoporteADS.aspx.vb b/OI/RepSoporteADS.aspx.vb
index 3fa1aaf16..3397c87bc 100644
--- a/OI/RepSoporteADS.aspx.vb
+++ b/OI/RepSoporteADS.aspx.vb
@@ -75,7 +75,7 @@ Partial Class OI_RepSoporteADS
     End Sub
 
     Private Sub CargaUsuarios()
-        DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
+        DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) 'solo empresa 2
         DdlUsuarios.DataBind()
         DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/OI/SoporteADS.aspx.vb b/OI/SoporteADS.aspx.vb
index 8521a99d2..da30b40a8 100644
--- a/OI/SoporteADS.aspx.vb
+++ b/OI/SoporteADS.aspx.vb
@@ -705,7 +705,7 @@ Partial Class OI_SoporteADS
         ObjEventos.Dispose()
     End Sub
     Private Sub CargaUsuarios()
-        DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
+        DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) '.FiltraParametros("CveEmpresa = 2 ")
         DdlUsuarios.DataBind()
         DdlUsuarios.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub
@@ -852,7 +852,7 @@ Partial Class OI_SoporteADS
                     If .CveEmpresaSop > 0 Then
 
                         DdlEmpresaSop.SelectedValueExist(.CveEmpresaSop)
-                        DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
+                        DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero)
                         DdlUsuarioSop.DataBind()
                         DdlUsuarioSop.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -1331,7 +1331,7 @@ Partial Class OI_SoporteADS
 
         'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
 
-        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+        Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
         If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
         Dim RutaGuardar = ""
         RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
@@ -2237,7 +2237,7 @@ Partial Class OI_SoporteADS
             TxtPersona.Enabled = True
 
         Else
-            DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
+            DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero) '.FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
             DdlUsuarioSop.DataBind()
 
             rfvDdlUsuario.Enabled = True
diff --git a/OI/Tablero.aspx.cs b/OI/Tablero.aspx.cs
index 987befccf..268e0c82a 100644
--- a/OI/Tablero.aspx.cs
+++ b/OI/Tablero.aspx.cs
@@ -47,7 +47,7 @@ public partial class OI_Tablero : ClsPaginas
     }
     protected void CargaDDl()
     {
-        DdlTablusuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+        DdlTablusuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
         DdlTablusuario.DataBind();
         UPModalTabl.Update();
     }
diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs
index 52732abc1..b4db91477 100644
--- a/OI/TareaDetalle.aspx.cs
+++ b/OI/TareaDetalle.aspx.cs
@@ -9,7 +9,6 @@ using Extensiones;
 
 public partial class OI_TareaDetalle : ClsPaginas
 {
-
     private class OI_TareaDetalle_Permisos
     {
         public bool EntrarOI;
@@ -288,18 +287,18 @@ public partial class OI_TareaDetalle : ClsPaginas
         DdlRoles.DataBind();
         DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
 
-        DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSucursales.DataBind();
         DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
 
-        GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+        GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
         GVUsuarios.DataBind();
         UpUsuarios.Update();
 
   
 
 
-        GVUsuarios.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
+        GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Rol ASC", FiltroAD);
         GVUsuariosB.DataSource = GVUsuarios.DataSource;
         GVUsuarios.DataBind();
         GVUsuariosB.DataBind();
diff --git a/OI/UnoaUno.aspx.cs b/OI/UnoaUno.aspx.cs
index 689e50025..690ab2c69 100644
--- a/OI/UnoaUno.aspx.cs
+++ b/OI/UnoaUno.aspx.cs
@@ -36,9 +36,7 @@ public partial class OI_UnoaUno : ClsPaginas
             TxtCFecha.Text = NowADS().ToString("dd/MM/yyyy");
             LtlusuarioTitulo.Text = UsuarioActual.Nombre;
 
-
-
-            GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+            GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
             GvUsuarioCuest.DataBind();
             CargarSiguiendoA();
             CargarSeguidoPor();
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index 0b2b99d57..30f26dad3 100644
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -109,17 +109,17 @@ Partial Class OS_Asignaciones
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.SelectedValue = Nothing
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaUsuarios()
-        DdlPersonas.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlPersonas.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlPersonas.DataBind()
         DdlPersonas.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 10142da2e..8e4692e47 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -77,7 +77,7 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Public Sub CargaDatos()
-        DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DTUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
                 DtEstatusOS = ObjEstatusOrdenServicios.DtResultados
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index c00c2b15b..713b9ab26 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -385,10 +385,11 @@
 
                                         <asp:UpdatePanel ID="UpGvUM" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
-                                                <asp:GridView ID="GvMateriales" CssClass="table table-striped  table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" EmptyDataText="Sin Materiales en la Orden de Servicio" ToolTip="Listado de Materiales de Orden de Servicio">
+                                                <asp:GridView ID="GvMateriales" CssClass="table table-striped  table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS" EmptyDataText="Sin Materiales en la Orden de Servicio" OnRowDataBound="GvMateriales_RowDataBound">
                                                     <Columns>
-                                                        <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:N3}"  />
+                                                        <asp:BoundField HeaderText="Cant" DataField="Cantidad" ItemStyle-Width="30px" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"   />
                                                         <asp:BoundField HeaderText="Producto" DataField="PS" />
+                                                        <asp:BoundField HeaderText="Util." DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                                                         <asp:TemplateField Visible="false">
                                                             <ItemTemplate>
                                                                 <asp:Literal ID="LtlSeFacturara" runat="server" Text='<%# If(Eval("SeFacturara").ToString = "True", "Sí", "No")%>'></asp:Literal>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 287c33d28..2454d6adb 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -903,14 +903,15 @@ Partial Class OS_OrdenesServicios
         ObjMateriales.Dispose()
     End Sub
     Private Sub CargaMateriales()
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then GvMateriales.Columns(2).Visible = True
         Dim objOS As New ClsOS
-
         If objOS.GetDetalleMateriales(-1, CveOS) Then
             GvMateriales.DataSource = objOS.DtResultados
         End If
         objOS.Dispose()
         GvMateriales.DataBind()
 
+
         If (GvMateriales.Rows.Count > 0) Then
             GvMateriales.UseAccessibleHeader = True
             GvMateriales.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -3576,4 +3577,12 @@ Partial Class OS_OrdenesServicios
 
         Archivo = Nothing
     End Sub
+
+    Protected Sub GvMateriales_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
+                e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
+            End If
+        End If
+    End Sub
 End Class
\ No newline at end of file
diff --git a/OS/PopUpBuscarOS.aspx.vb b/OS/PopUpBuscarOS.aspx.vb
index 3e288a7f4..b0401dd2c 100644
--- a/OS/PopUpBuscarOS.aspx.vb
+++ b/OS/PopUpBuscarOS.aspx.vb
@@ -91,8 +91,8 @@ Partial Class OS_PopUpBuscarOS
 	
 	Private Sub CargaUsuarioRecibio()
 		DdlUsuarioRecibio.Items.Clear()
-		DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-		DdlUsuarioRecibio.DataBind()
+        DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DdlUsuarioRecibio.DataBind()
         DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 	Private Sub CargaEstatusOrdenServicio()
@@ -105,7 +105,7 @@ Partial Class OS_PopUpBuscarOS
     Private Sub CargaSucursales()
         DdlSubProyecto.Items.Clear()
         DdlSubProyecto.SelectedValue = Nothing
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/OS/RepOrdenesServicios.aspx.vb b/OS/RepOrdenesServicios.aspx.vb
index 0a448ad7f..8af5782bb 100644
--- a/OS/RepOrdenesServicios.aspx.vb
+++ b/OS/RepOrdenesServicios.aspx.vb
@@ -31,11 +31,11 @@ Partial Class OS_RepOrdenesServicios
         DdlClientes.setEsWebService(True)
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
         DdlSubProyecto.DataBind()
 
         'CargaUsuarios
-        DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuarioRecibio.DataBind()
         DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -45,7 +45,7 @@ Partial Class OS_RepOrdenesServicios
         DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargaTecnico
-        DdlTecnico.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb
index 961effd22..df4f87a9e 100644
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -856,7 +856,7 @@ Partial Class OS_RepServicioDomicilio
         Dim CveSubProyectoTecnico As Integer = If(DdlTecnicoAsignar.SelectedValue.ToEntero > 0, GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0 ").ToEntero, -1)
 
         If CveSubProyectoTecnico = 0 And DdlTecnicoAsignar.SelectedValue.ToEntero = 100 Then
-            CveSubProyectoTecnico = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("CveSubProyecto").ToEntero
+            CveSubProyectoTecnico = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
         End If
 
 
@@ -1021,9 +1021,9 @@ Partial Class OS_RepServicioDomicilio
 
         ObjOS.Dispose()
 
-        Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+        Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
         If Not TieneError And CorreoAsignado.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
-            CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+            CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
             MandaCorreOS(CveOS, CorreoAsignado)
         End If
 
diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx
index e6698a695..a48100e0f 100644
--- a/OS/RepServiciosMedicos.aspx
+++ b/OS/RepServiciosMedicos.aspx
@@ -121,9 +121,10 @@
 
   
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-     
-   
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">    
+     <li>
+        <asp:LinkButton ID="LnkColores" runat="server" OnClientClick ="$('#ModalColores').modal('show'); return false;"> <i class="fa fa-list"></i> Código Colores</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte Órdenes Médicas
@@ -179,16 +180,7 @@
            </div>
        </ContentTemplate>
    </asp:UpdatePanel>
-
-     
-    <div class="row">
-        <div class="col-md-9">
-            </div>
-        <div class="col-md-3" style="text-align:right;">                
-             <button type="button" class="btn btn-default" onclick="$('#ModalColores').modal('show');">Código Colores</button>
-        </div>
-    </div>
-
+ 
     <div id="ModalColores" class="modal ADS fade" role="dialog">
     <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
         <ContentTemplate>
@@ -471,19 +463,19 @@
                          
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />                                                
                          
-                        <div class="row"  >
-
-                            <div class="col-md-12">
-                                 <asp:GridView ID="GvPS" CssClass="table table-striped  table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS"  >
+                        <div class="row" >
+                            <div style="max-height: 250px; overflow-y: scroll">
+                            <div class="col-md-12" >
+                                 <asp:GridView ID="GvPS" CssClass="table table-striped  table-hover Widthall mysmallbtn" GridLines="None" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS"  OnRowDataBound="GvPS_RowDataBound" >
                                     <Columns>
                                         <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" ItemStyle-Width="60px" DataFormatString="{0:#,###.##}"  />
-                                        <asp:BoundField HeaderText="Producto" DataField="PS" />                                        
+                                        <asp:BoundField HeaderText="Producto" DataField="PS" /> 
+                                        <asp:BoundField HeaderText="Utilizado" DataField="CantidadRemision" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"  />
                                     </Columns>
                                 </asp:GridView>
                             </div>
-                             
-                        </div>
- 
+                         </div> 
+                        </div> 
                     </div>
                     <div class="modal-footer">
                         
@@ -735,6 +727,7 @@
             $('#calendar').fullCalendar('destroy'); // destroy the calendar
             $('#calendar').fullCalendar({ //re-initialize the calendar
                 header: h,
+                defaultView: 'agendaWeek',
                 monthNames: ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"],
                 monthNamesShort: ['Ene', 'Feb', 'Mar', 'Abr', 'May', 'Jun', 'Jul', 'Ago', 'Sep', 'Oct', 'Nov', 'Dic'],
                 dayNames: ['Domingo', 'Lunes', 'Martes', 'Miércoles', 'Jueves', 'Viernes', 'Sábado'],
@@ -767,7 +760,7 @@
                 eventDrop: eventDropped,
                 eventResize: eventResized
             });
-            clickSemana();
+            //clickSemana();
           }
 
          
diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb
index 13b6520e6..c26877e5e 100644
--- a/OS/RepServiciosMedicos.aspx.vb
+++ b/OS/RepServiciosMedicos.aspx.vb
@@ -609,12 +609,16 @@ Partial Class OS_RepServiciosMedicos
                 Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
                 If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
                 If tCve > 0 Then
-                    Dim objv As New ClsVentas
+                    'Dim objv As New ClsVentas
                     Dim dttps As New DataTable
-                    If objv.GetVentaDetalle(tCve) Then
-                        dttps = objv.DtResultados
+
+                    If ObjOS.GetDetalleMateriales(-1, CveOsConsultar) Then
+                        dttps = ObjOS.DtResultados
                     End If
-                    objv.Dispose()
+                    'If objv.GetVentaDetalle(tCve) Then
+                    '    dttps = objv.DtResultados
+                    'End If
+                    'objv.Dispose()
                     GvPS.DataSource = dttps
                     GvPS.DataBind()
                 End If
@@ -723,4 +727,14 @@ Partial Class OS_RepServiciosMedicos
         ObjOS.Dispose()
 
     End Sub
+
+
+
+    Protected Sub GvPS_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
+                e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
+            End If
+        End If
+    End Sub
 End Class
diff --git a/Planeacion/CatFolios.aspx.vb b/Planeacion/CatFolios.aspx.vb
index acadb8f3a..0bed2e008 100644
--- a/Planeacion/CatFolios.aspx.vb
+++ b/Planeacion/CatFolios.aspx.vb
@@ -83,7 +83,7 @@ Partial Class CatFolios
     End Sub
     Private Sub CargaSubProyectos()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
diff --git a/Planeacion/CatProyectos.aspx.vb b/Planeacion/CatProyectos.aspx.vb
index c72d0a265..86b5e5325 100644
--- a/Planeacion/CatProyectos.aspx.vb
+++ b/Planeacion/CatProyectos.aspx.vb
@@ -87,7 +87,7 @@ Partial Class CatProyectos
     End Sub
 
     Private Sub CargaSuproyectos()
-        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
 
@@ -140,7 +140,7 @@ Partial Class CatProyectos
             'If Not TieneError Then
             '    If UsuarioActual.Empresa.GralSoloProyecto Then
             '        If ObjSubproyectos.GetSubProyectos() Then
-            '            GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
+            '            GlobalDTSubProyectos(usuarioactual.cveempresa) = ObjSubproyectos.DtResultados
             '        Else
             '            TieneError = True
             '        End If
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 05ada195f..296551dc9 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -101,7 +101,7 @@ Partial Class CatSubProyectos
     End Sub
 
     Private Sub RecargaGlobal()
-        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 
diff --git a/Planeacion/Sucursal.aspx.vb b/Planeacion/Sucursal.aspx.vb
index 67d8ef91b..b193cf4c8 100644
--- a/Planeacion/Sucursal.aspx.vb
+++ b/Planeacion/Sucursal.aspx.vb
@@ -157,7 +157,7 @@ Partial Class Sucursal
     '    If Not TieneError Then
     '        If UsuarioActual.Empresa.GralSoloProyecto Then
     '            If ObjSubproyectos.GetSubProyectos() Then
-    '                GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
+    '                GlobalDTSubProyectos(usuarioactual.cveempresa) = ObjSubproyectos.DtResultados
     '            Else
     '                TieneError = True
     '            End If
diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index 52277aec9..a52d8ebde 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -2433,10 +2433,10 @@ Partial Class Ventas_PortalCliente
 
         'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA
         Dim Dr As DataRow = Nothing
-        If GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
-            Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
-        ElseIf GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
-            Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+        If GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
+            Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
+        ElseIf GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+            Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows(0)
         End If
 
         DdlMoneda.DataSource = GlobalDTMonedas
diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb
index e2049c8e2..98632538b 100644
--- a/RH/ActualizacionMasiva.aspx.vb
+++ b/RH/ActualizacionMasiva.aspx.vb
@@ -13,7 +13,7 @@ Partial Class RH_ActualizacionMasiva
 
             'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
             'CargaProyecto()
-            ViewState("gvtsubproyectos") = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+            ViewState("gvtsubproyectos") = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto)
             divddlproyeto.Visible = DdlProyecto.Visible
             GvDatos.Columns(2).Visible = DdlProyecto.Visible
@@ -123,7 +123,7 @@ Partial Class RH_ActualizacionMasiva
         End If
     End Sub
     Private Sub CargaSupervisores()
-        ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND EsSupervisorRH = 1 ", UsuarioActual.CveEmpresa))
+        ViewState("DTUsuarios") = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
 
         Dim Row As DataRow = DirectCast(ViewState("DTUsuarios"), DataTable).NewRow()
         Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb
index 9ac52685b..726a7da59 100644
--- a/RH/Asistencias.aspx.vb
+++ b/RH/Asistencias.aspx.vb
@@ -60,7 +60,7 @@ Partial Class RH_Asistencias
 
     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"))
     End Sub
diff --git a/RH/CatChecadores.aspx.cs b/RH/CatChecadores.aspx.cs
index 7575f4543..7e3ca781d 100644
--- a/RH/CatChecadores.aspx.cs
+++ b/RH/CatChecadores.aspx.cs
@@ -47,7 +47,7 @@ public partial class RH_CatChecadores : ClsPaginas
 
     private void CargaSubProyectos()
     {
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
 
         CargarCentrosDeCosto(null, DdlSubProyecto,null, LblSubProyecto);       
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 5ecad4271..5f0caa47a 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -304,7 +304,7 @@ Partial Class RH_CatPersonal
         DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
         'filtro por usuario subproyecto/sucursal vsh
         'If UsuarioActual.CveEmpresa = 7 Then
-        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
+        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(  UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
         'End If
         UpSubProyecto.Update()
     End Sub
@@ -316,7 +316,7 @@ Partial Class RH_CatPersonal
         DdlMedioTransporte.DataBind()
         'filtro por usuario subproyecto/sucursal vsh
         'If UsuarioActual.CveEmpresa = 7 Then
-        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
+        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
         'End If
         'UpSubProyecto.Update()
     End Sub
@@ -333,7 +333,7 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaSupervisores()
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
     End Sub
 
@@ -1039,7 +1039,7 @@ Partial Class RH_CatPersonal
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "subproyecto"
-        Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
         For Each row As DataRow In dtsubproyecto.Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto"))
diff --git a/RH/CatSubProyectosZonas.aspx.vb b/RH/CatSubProyectosZonas.aspx.vb
index 95913ae04..d4fa4588d 100644
--- a/RH/CatSubProyectosZonas.aspx.vb
+++ b/RH/CatSubProyectosZonas.aspx.vb
@@ -79,7 +79,7 @@ Partial Class RH_CatSubProyectosZonas
     Private Sub RH_CatSubProyectosZonas_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1)
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
             DdlSubproyecto.DataBind()
             DdlSubproyecto.Items.Insert(0, New ListItem("Seleccine un subroyecto", "-1"))
             CargaZonas()
diff --git a/RH/ListaAsistenciaRH.aspx.vb b/RH/ListaAsistenciaRH.aspx.vb
index acf0aa119..e92ce382e 100644
--- a/RH/ListaAsistenciaRH.aspx.vb
+++ b/RH/ListaAsistenciaRH.aspx.vb
@@ -32,7 +32,7 @@ Partial Class RH_ListaAsistenciaRH
 
     Private Sub CargaCombos()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb
index 154b72e44..b46011314 100644
--- a/RH/MiPerfil.aspx.vb
+++ b/RH/MiPerfil.aspx.vb
@@ -1367,7 +1367,7 @@ Partial Class RH_MiPerfil
         If (CveSubProyectoPersonal > 0) Then
             Dim ObjBancos As New ClsBancos()
 
-            Dim Serie As String = GlobalDTSubProyectos(-1, CveSubProyectoPersonal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie")
+            Dim Serie As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPersonal).FiltroPrimeroValor("Serie")
 
             If (ObjBancos.GetNextFolioSolicitudViaticos(UsuarioActual.CveEmpresa, String.Format("{0}-", Serie))) Then
                 TxtFolio.Text = ObjBancos.DtResultados.FiltroPrimeroValor("Folio")
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 00414fc4a..f599d9bc6 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1124,7 +1124,7 @@ Partial Class RH_Personal
         End If
 
         If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-            Dim DTSub As DataTable = GlobalDTSubProyectos(-1, Request("CveSubProyecto").ToEntero()) 'Cambiame
+            Dim DTSub As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Request("CveSubProyecto").ToEntero()) 'Cambiame
             If DTSub.Rows.Count > 0 Then
                 Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString())
                 If DTProy.Rows.Count > 0 Then
@@ -1360,7 +1360,7 @@ Partial Class RH_Personal
     Private Sub CargaSubProyectoAsignado()
         If DivProyectosAsignado.Visible Then
 
-            DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
             DdlSubProyectoAsignado.DataBind()
             DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
             'old
@@ -1382,7 +1382,7 @@ Partial Class RH_Personal
 
     Private Sub CargaSubProyectoAsistenciaA()
         DdlSubProyectoAsistenciasA.Items.Clear()
-        DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaA.SelectedValue.ToEntero())
+        DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlProyectoAsistenciaA.SelectedValue.ToEntero())
         DdlSubProyectoAsistenciasA.DataBind()
 
         DdlSubProyectoAsistenciasA.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -1399,7 +1399,7 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaSupervisores()
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("  EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
     End Sub
 
@@ -1423,7 +1423,7 @@ Partial Class RH_Personal
 
 
 
-        ' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        ' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa)
         'DdlPermisosReemplazo.DataBind()
     End Sub
     Private Sub CargaMetodosPago()
@@ -6533,7 +6533,7 @@ Partial Class RH_Personal
             'End If
 
             Dim SBDomicilioSucursal As New StringBuilder()
-            Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("")
+            Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero(), Estatus:=1).FiltroPrimero("")
 
             If DRSucursal IsNot Nothing Then
                 Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -7829,11 +7829,11 @@ Partial Class RH_Personal
     Private Sub EnviarCorreoBajaReingresoNominista(eTipoMovimientoRH As TipoMovimientoRH)
 
 
-        Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
+        Dim CorreoNominista As String = GlobalDTUsuarios(DDLUsuarioNomina.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
         Dim correo As New ClsSisMail
         Dim Cuerpo As New StringBuilder
 
-        Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
+        Dim CorreoUsuario As String = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
         Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
 
         'Para Pruebas
diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb
index bea4bc3d4..a0ea99a16 100644
--- a/RH/Reclutamiento.aspx.vb
+++ b/RH/Reclutamiento.aspx.vb
@@ -818,10 +818,10 @@ Partial Class RH_Reclutamiento
             DDLEstadoCivil4.DataBind()
 
             If UsuarioActual.CveSubProyecto > 0 Then
-                'DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto={UsuarioActual.CveSubProyecto}")
+                'DdlSubproyecto.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto={UsuarioActual.CveSubProyecto}")
                 DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros($"CveUsuario={UsuarioActual.CveUsuario}")
             Else
-                'DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+                'DdlSubproyecto.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa )
                 DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros($"CveUsuario={UsuarioActual.CveUsuario}")
             End If
 
@@ -5416,12 +5416,12 @@ Partial Class RH_Reclutamiento
         If DdlEmpresaAsiganada.SelectedIndex > 0 Then
             ddlPuesto.DataSource = GlobalDTRHPuestos(DdlEmpresaAsiganada.SelectedValue.ToEntero)
 
-            'If GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows.Count > 0 Then
-               ' CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows(0)("CveSubProyecto").ToString.ToEntero
-               ' DdlCliente.DataSource = GlobalDTCliente(DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"CveSucursal = {CveSubProyecto}")
-				
-				'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
-                    DdlCliente.DataSource = GlobalDTCliente(7)
+            'If GlobalDTSubProyectos( DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows.Count > 0 Then
+            ' CveSubProyecto = GlobalDTSubProyectos( DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"SubProyecto = '{DdlSubproyecto.SelectedItem.Text}'").Rows(0)("CveSubProyecto").ToString.ToEntero
+            ' DdlCliente.DataSource = GlobalDTCliente(DdlEmpresaAsiganada.SelectedValue.ToEntero).FiltraParametros($"CveSucursal = {CveSubProyecto}")
+
+            'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
+            DdlCliente.DataSource = GlobalDTCliente(7)
             'End If
 
             'End If
@@ -5660,7 +5660,7 @@ Partial Class RH_Reclutamiento
     Private Sub EviarCorreoNomista()
 
 
-        Dim CorreoNominista As String = GlobalDTUsuarios(CveUsuario:=DDLUsuarioNomina.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+        Dim CorreoNominista As String = GlobalDTUsuarios(DDLUsuarioNomina.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
         Dim correo As New ClsSisMail
         Dim Cuerpo As New StringBuilder
         'CorreoNominista = "pruebaad@outlook.com"
diff --git a/RH/RepAsistencias.aspx.vb b/RH/RepAsistencias.aspx.vb
index ae6c18679..7caa89596 100644
--- a/RH/RepAsistencias.aspx.vb
+++ b/RH/RepAsistencias.aspx.vb
@@ -71,14 +71,14 @@ Partial Class RH_RepAsistencias
         'DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
 
 
-        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 5db66c296..e530af054 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -307,7 +307,7 @@ Partial Class RH_RepChecadorPreAsistencia
         DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         '   DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb
index 39c63903c..19b0facbc 100644
--- a/RH/RepCursos.aspx.vb
+++ b/RH/RepCursos.aspx.vb
@@ -24,7 +24,7 @@ Partial Class RH_RepCursos
         DdlDepartamentos.DataBind()
         DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
         DdlSupervisor.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/RH/RepDocumentacionVencida.aspx.vb b/RH/RepDocumentacionVencida.aspx.vb
index 60baa89e6..c37bfb306 100644
--- a/RH/RepDocumentacionVencida.aspx.vb
+++ b/RH/RepDocumentacionVencida.aspx.vb
@@ -12,8 +12,6 @@ Imports GemBox.Spreadsheet
 Partial Class RH_RepDocumentacionVencida
     Inherits ClsPaginas
 
-
-
     Private Property DTDatos As DataTable
         Get
             If ViewState("DTDatos") Is Nothing Then
@@ -87,7 +85,7 @@ Partial Class RH_RepDocumentacionVencida
 
 
 
-        DDLSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DDLSucursal.DataBind()
         DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
         If UsuarioActual.CveSucursal > 0 Then
@@ -96,7 +94,7 @@ Partial Class RH_RepDocumentacionVencida
         End If
 
 
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("  EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
 
 
diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb
index eb86c0890..b0e9c0292 100644
--- a/RH/RepUniformes.aspx.vb
+++ b/RH/RepUniformes.aspx.vb
@@ -26,7 +26,7 @@ Partial Class RH_RepUniformes
 
         If Not Page.IsPostBack Then
 
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
             DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb
index 8e280d43f..ccb36fd8d 100644
--- a/RH/RepUniformesResguardo.aspx.vb
+++ b/RH/RepUniformesResguardo.aspx.vb
@@ -26,7 +26,7 @@ Partial Class RH_RepUniformesResguardo
 
         If Not Page.IsPostBack Then
 
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
             DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
diff --git a/RH/RepVacaciones.aspx.vb b/RH/RepVacaciones.aspx.vb
index a04f40808..6b0041fe0 100644
--- a/RH/RepVacaciones.aspx.vb
+++ b/RH/RepVacaciones.aspx.vb
@@ -20,7 +20,7 @@ Partial Class RH_RepVacaciones
     Private Sub CargaCombos()
 
 
-        DDLSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDLSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DDLSubProyecto.DataBind()
         DDLSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -36,7 +36,7 @@ Partial Class RH_RepVacaciones
         'DDLSucursal.DataBind()
         'DDLSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
 
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
 
         DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs
index f800da2b0..f808c7c5f 100644
--- a/RH/SolicitudViaticos.aspx.cs
+++ b/RH/SolicitudViaticos.aspx.cs
@@ -276,7 +276,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
         //{
         //    ClsBancos ObjBancos = new ClsBancos();
 
-        //    String Serie = get_GlobalDTSubProyectos(-1, CveSubProyectoPersonal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie");
+        //    String Serie = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoPersonal).FiltroPrimeroValor("Serie");
 
         //    if (ObjBancos.GetNextFolioSolicitudViaticos(UsuarioActual.CveEmpresa, String.Format("{0}-", Serie)))
         //    {
diff --git a/SCT/Licencias.aspx.vb b/SCT/Licencias.aspx.vb
index fe68b7fc6..791e6a897 100644
--- a/SCT/Licencias.aspx.vb
+++ b/SCT/Licencias.aspx.vb
@@ -76,11 +76,11 @@ Partial Class SCT_Licencias
     Private Sub CargaGrid(ByVal Orden As String)
 
         If Orden <> String.Empty Then
-            Dim DV As New DataView(GlobalDTUsuarios, "", Orden, DataViewRowState.CurrentRows)
+            Dim DV As New DataView(GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa), "", Orden, DataViewRowState.CurrentRows)
             GvDatos.DataSource = DV.ToTable()
             DV.Dispose()
         Else
-            GvDatos.DataSource = GlobalDTUsuarios
+            GvDatos.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         End If
 
         GvDatos.DataBind()
diff --git a/Sistemas/CatContrasenia.aspx.vb b/Sistemas/CatContrasenia.aspx.vb
index 56bbb5b85..de2680b37 100644
--- a/Sistemas/CatContrasenia.aspx.vb
+++ b/Sistemas/CatContrasenia.aspx.vb
@@ -26,7 +26,7 @@ Partial Class CatContrasenia
                     'redirecciona, cuando es el primer cambio de contraseña
                     UsuarioActual.Contraseña = TxtContrasenia1.Text
                     Usuario.Commit()
-                    GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+                    GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
                 Else
                     Usuario.RollBack()
                     Alert("Contraseña Incorrecta.", TipoMensaje.MsgAdvertencia)
diff --git a/Sistemas/CatIndicadoresUsuarios.aspx.vb b/Sistemas/CatIndicadoresUsuarios.aspx.vb
index 2ae8a6088..c6b63bb49 100644
--- a/Sistemas/CatIndicadoresUsuarios.aspx.vb
+++ b/Sistemas/CatIndicadoresUsuarios.aspx.vb
@@ -43,7 +43,7 @@ Partial Class Sistemas_CatIndicadoresUsuarios
     Private Sub CargaCombos()
         Dim ObjIndicador As New ClsIndicadores
         DdlRol.DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
-        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         If ObjIndicador.GetIndicadoresUsuariosEmpresa(UsuarioActual.CveEmpresa) Then
             DdlIndicador.DataSource = ObjIndicador.DtResultados
             DdlIndicadorUsuario.DataSource = ObjIndicador.DtResultados
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 75c6fbe30..e2e34b308 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -433,7 +433,7 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaSubProyectos()
         'Carga SubProyectos
-        GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos Then
         '    Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
@@ -544,9 +544,10 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     Private Sub CargaBancosCuentas()
-        Dim Banc As New ClsBancos
-        If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
-        Banc.Dispose()
+        GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim Banc As New ClsBancos
+        'If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
+        'Banc.Dispose()
     End Sub
 
     Private Sub CargaOCEstatus()
diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx
index ce05e39b7..aa66d171f 100644
--- a/Sistemas/Empresa.aspx
+++ b/Sistemas/Empresa.aspx
@@ -184,9 +184,7 @@
                                                         <tr>
                                                             <td>CURP:</td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtCURP" runat="server" MaxLength="18" Width="350px"></asp:TextBox>
-                                                                <asp:RequiredFieldValidator ID="RFVCurp" runat="server" ControlToValidate="TxtCURP" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''CURP'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVCurp" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                <asp:TextBox ID="TxtCURP" runat="server" MaxLength="18" Width="350px"></asp:TextBox>                                                                
                                                             </td>
                                                         </tr>
                                                         <tr>
diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb
index 5dbb5b03f..7256ff6dd 100644
--- a/Sistemas/PopUpAddUsuario.aspx.vb
+++ b/Sistemas/PopUpAddUsuario.aspx.vb
@@ -132,7 +132,7 @@ Partial Class Sistemas_PopUpAddUsuario
                     BtnDefaultPWD.Visible = True
 
                 End If
-                Dim Dt As Data.DataTable = GlobalDTUsuarios(CveUsuario)
+                Dim Dt As Data.DataTable = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa)
                 Dim empresas As New StringBuilder()
                 If Dt.FiltraParametros("CvePlataforma = 3").Rows.Count > 0 Then
                     empresas.Append($"<div class='text-center'><h3>Empresas</h3></div>")
diff --git a/Sistemas/PopUpPerfil.aspx.vb b/Sistemas/PopUpPerfil.aspx.vb
index d5219c042..235a5a944 100644
--- a/Sistemas/PopUpPerfil.aspx.vb
+++ b/Sistemas/PopUpPerfil.aspx.vb
@@ -57,7 +57,7 @@ Partial Class Sistemas_PopUpPerfil
         Dim Nombre As String = TxtNombre.Text.Trim
         Dim Correo As String = TxtEmail.Text.Trim
         'VALIDA NO ALTERAR DATOS DE OTRO USUARIO
-        Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {UsuarioActual.CveUsuario}")
+        Dim DtUsuarios As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {UsuarioActual.CveUsuario}")
 
         Dim UsuariosExistentes As Integer = DtUsuarios.COUNT("CveUsuario", $"Usuario IN ('{TxtNombre.Text.Trim}','{TxtEmail.Text.Trim}') OR Correo = '{TxtEmail.Text.Trim}'")
 
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index 4996477b7..7a25e1e90 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
     End Sub
 
     Private Sub GetEmpresas()
-        GlobalDTUsuarios(-1, -1) = Nothing
-        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then
@@ -115,7 +115,7 @@ Partial Class PopUpSeleccionarEmpresa
                 'ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
 
                     Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
                     Usuario.ModoSimulacion = ModoSimulacion
@@ -160,7 +160,7 @@ Partial Class PopUpSeleccionarEmpresa
                 'ObjUsuario.Dispose()
 
                 If Usuario IsNot Nothing Then
-                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
 
                     Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
                     Usuario.ModoSimulacion = ModoSimulacion
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index e84d997fe..43a048ad0 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -552,7 +552,7 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
 
     Public Sub CargaUsuarioResponsable()
-        DdlUsuarioResponsable.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {CveUsuario}")
+        DdlUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario <> {CveUsuario}")
         DdlUsuarioResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlUsuarioResponsable.DataBind()
     End Sub
@@ -712,7 +712,7 @@ Partial Class Sistemas_UsuarioDetalle
 
         'If CveSubProyecto > 0 Then
         '    If DdlSubProyectos.SelectedValue.ToEntero <> CveSubProyecto Then
-        '        DdlSubProyectos.Items.Insert(1, New ListItem(GlobalDTSubProyectos(-1, CveEmpresa:=DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {CveSubProyecto}"), CveSubProyecto.ToString))
+        '        DdlSubProyectos.Items.Insert(1, New ListItem(GlobalDTSubProyectos( DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {CveSubProyecto}"), CveSubProyecto.ToString))
         '    End If
         'End If
 
@@ -788,7 +788,7 @@ Partial Class Sistemas_UsuarioDetalle
 #End Region
 
     'Private Sub CargaSucursal()
-    '    DtSubProyectos2 = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
+    '    DtSubProyectos2 = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyectos.SelectedValue.ToEntero)
     '    If DtSubProyectos2.Rows.Count > 0 Then
     '        Dim dr As DataRow
     '        dr = DtSubProyectos2(0)
@@ -1387,11 +1387,11 @@ Partial Class Sistemas_UsuarioDetalle
         'RECARGA GLOBAL EMPRESAS USUARIOS
         GlobalDTAlmacenUsuarios(-1, tCveEmpresa) = Nothing
         GlobalDTUsuarioResponsable(tCveEmpresa) = Nothing
-        GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
-        GlobalDTUsuarios(CveEmpresa:=tCveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, tCveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, tCveEmpresa) = Nothing
 
         'si hay diferencia en la empresa asignada y la asociada.
-        If tCveEmpresa <> DdlEmpresa.SelectedValue.ToEntero Then GlobalDTUsuarios(CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero) = Nothing
+        If tCveEmpresa <> DdlEmpresa.SelectedValue.ToEntero Then GlobalDTUsuarios(-1, DdlEmpresa.SelectedValue.ToEntero) = Nothing
 
         'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
@@ -1563,7 +1563,7 @@ Partial Class Sistemas_UsuarioDetalle
             If UsuarioControlado Then
                 DdlProyecto.DataSource = GetProyectosSinGV(DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}"))
             Else
-                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero))
+                DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero))
             End If
         End If
         DdlProyecto.DataBind()
@@ -1612,7 +1612,7 @@ Partial Class Sistemas_UsuarioDetalle
         If UsuarioControlado Then
             DdlSubProyecto.DataSource = DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
         Else
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         End If
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -1654,7 +1654,7 @@ Partial Class Sistemas_UsuarioDetalle
 
             Else
                 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
-                DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=CveEmpresaRef).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
+                DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveEmpresaRef, CveProyecto:=If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, ""))
                 'NO SE PARA QUE SE USA - COMENTADO IPP 30 AGOSTO 2017
                 'If SubProyectosSinGV.Length > 0 Then
                 '    Dim SubProyectoFiltrado As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero).FiltraParametros(SubProyectosSinGV)
@@ -1897,7 +1897,7 @@ Partial Class Sistemas_UsuarioDetalle
                 For Each item As ListItem In DdlSubProyecto.Items
                     Dim CveSubProyectoNuevo As String = item.Value
                     If CveSubProyectoNuevo.ToEntero > 0 Then
-                        Dim DrS As DataRow = GlobalDTSubProyectos(-1, item.Value.ToEntero)(0)
+                        Dim DrS As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=item.Value.ToEntero)(0)
                         Dim DtValida As DataTable = DtSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyectoNuevo))
                         If DtValida.Rows.Count > 0 Then
                             If DtValida.Rows(0)("Accion").ToString = "2" Then
@@ -1956,7 +1956,7 @@ Partial Class Sistemas_UsuarioDetalle
                 e.Row.FCDropDownList("DdlProyecto").DataBind()
                 e.Row.FCDropDownList("DdlProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
 
-                e.Row.FCDropDownList("DdlSubProyecto").DataSource = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}), GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero))
+                e.Row.FCDropDownList("DdlSubProyecto").DataSource = If(DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66, GlobalDTSubProyectos(DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}), GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero))
                 e.Row.FCDropDownList("DdlSubProyecto").DataBind()
                 e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
             End If
@@ -2406,7 +2406,7 @@ Partial Class Sistemas_UsuarioDetalle
             sb.Append("0")
         End If
 
-        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(-1, -1, ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
+        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
         If Tipo = "OC" Then
             GvEstatusUsuariosOC.DataSource = TmpDtSubProyectos
             GvEstatusUsuariosOC.DataBind()
@@ -2895,7 +2895,7 @@ Partial Class Sistemas_UsuarioDetalle
             sb.Append("0")
         End If
 
-        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(-1, -1, ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
+        Dim TmpDtSubProyectos As DataTable = GlobalDTSubProyectos(ClaveEmpresa).FiltraParametros($"CveSubProyecto In ({sb.ToString})", "Proyecto", {"CveProyecto", "Proyecto", "CveSubProyecto", "SubProyecto"})
 
         GvOS.DataSource = TmpDtSubProyectos
         GvOS.DataBind()
@@ -4214,7 +4214,7 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub SoloSubProyectosAsignar()
         DdlProyecto.Visible = False
 
-        DdlSubProyectoAsignar.DataSource = GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignarPermiso.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        DdlSubProyectoAsignar.DataSource = GlobalDTSubProyectos(DdlEmpresaAsignarPermiso.SelectedValue.ToEntero).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         DdlSubProyectoAsignar.DataBind()
         DdlSubProyectoAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
diff --git a/Sistemas/Usuarios.aspx.vb b/Sistemas/Usuarios.aspx.vb
index becc265ce..f1de1dfc8 100644
--- a/Sistemas/Usuarios.aspx.vb
+++ b/Sistemas/Usuarios.aspx.vb
@@ -61,8 +61,6 @@ Partial Class Sistemas_Usuarios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-
-
             ViewState("Orden") = ""
             ViewState("CveRol") = -1
             CargarEmpresa()
@@ -102,7 +100,7 @@ Partial Class Sistemas_Usuarios
     End Sub
 
     Private Sub CargarEmpresa()
-        Dim ClsUsuarios As New ClsSisUsuarios
+        Dim ClsUsuarios As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
         Dim DtEmpresas As DataTable
 
         'Se cargan las empresas que tenga acceso el Usuario Actual, que son las que el puede dar acceso o no.
@@ -117,8 +115,8 @@ Partial Class Sistemas_Usuarios
         ClsUsuarios.Dispose()
 
         DdlEmpresa.DataSource = DtEmpresas
-        DdlEmpresa.SelectedValue = UsuarioActual.CveEmpresa.ToString
         DdlEmpresa.DataBind()
+        DdlEmpresa.SelectedValueExist(UsuarioActual.CveEmpresa.ToString)
 
     End Sub
 
diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb
index 64171fd7e..9b851c86e 100644
--- a/Transportes/CatRutas.aspx.vb
+++ b/Transportes/CatRutas.aspx.vb
@@ -60,7 +60,7 @@ Partial Class CatRutas
         End If
         ObjDestinos.Dispose()
 
-        DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind()
+        DdlRutas.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind()
         DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
         DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
 
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index a50e74d4c..e09c7ea7e 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -129,7 +129,7 @@ Partial Class RepContratoDetalle
 
         CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index f1b92413e..52520e75c 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -53,7 +53,7 @@ Partial Class ListadoContratos
 
         CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
 
-        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoModal.DataBind()
         DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub
@@ -67,7 +67,7 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
 
         'Generamos Folio - NumeroContrato
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         Dim ObjFolio As New ClsGralFolios
         If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
             If ObjFolio.DtResultados.Rows.Count > 0 Then
@@ -113,7 +113,7 @@ Partial Class ListadoContratos
             Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
 
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 5ff342023..72c07ed71 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -187,13 +187,13 @@ Partial Class RepContratosCalendario
         DdlEstatusContrato.DataBind()
         DdlEstatusContrato.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
         CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
 
-        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectoModal.DataBind()
         DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb
index 0d932929f..d06c0d24e 100644
--- a/Transportes/RepViajes.aspx.vb
+++ b/Transportes/RepViajes.aspx.vb
@@ -36,7 +36,7 @@ Partial Class ListadoViajes
     End Sub
     Private Sub InicializaCombos()
         'Lista Rutas'
-        DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)")
+        DdlRutas.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)")
         DdlRutas.DataBind()
 
         Dim ObjRutas As New ClsTransportes()
@@ -72,7 +72,7 @@ Partial Class ListadoViajes
     End Sub
     Public Sub MostrarModal()
         'Generar Folio
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         Dim ObjFolio As New ClsGralFolios
         If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
             If ObjFolio.DtResultados.Rows.Count > 0 Then
@@ -92,7 +92,7 @@ Partial Class ListadoViajes
     End Sub
     Protected Sub AddViaje(sender As Object, e As EventArgs)
         'Generador de Viajes Masivos
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         If IsMasivo.Checked = True Then
             If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
                 Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb
index 91a685167..06d87da1a 100644
--- a/Ventas/CatClientes.aspx.vb
+++ b/Ventas/CatClientes.aspx.vb
@@ -86,7 +86,7 @@ Partial Class CatClientes
     End Sub
 
     Private Sub CargaSucursales()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
     End Sub
diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb
index 6385cd44b..2d7ec33b3 100644
--- a/Ventas/CatPromociones.aspx.vb
+++ b/Ventas/CatPromociones.aspx.vb
@@ -26,7 +26,7 @@ Partial Class Ventas_CatPromociones
 
             'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
             'CARGA SUCURSALES
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Ventas/CatVendedores.aspx.vb b/Ventas/CatVendedores.aspx.vb
index 0b9743043..ecbbb5930 100644
--- a/Ventas/CatVendedores.aspx.vb
+++ b/Ventas/CatVendedores.aspx.vb
@@ -29,7 +29,7 @@ Partial Class Ventas_CatVendedores
         CargaDatos()
     End Sub
     Public Sub CargaSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
     End Sub
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 4dfcdcd4f..814cd34a5 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1218,7 +1218,7 @@ Partial Class Clientes
     End Sub
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         'DdlSubProyecto.DataBind()
     End Sub
     Private Sub CargaMetodosPago()
@@ -1487,7 +1487,7 @@ Partial Class Clientes
                 TxtRetISR.Text = ObjClientes.RetISR.ToString()
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
                 If ObjClientes.CveSubProyecto > 0 Then
-                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
+                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
                 End If
                 TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
                 DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
@@ -5525,7 +5525,7 @@ Partial Class Clientes
         UpDispositivos.Update()
     End Sub
     Private Sub CargaEmpresasUsuario(CveEmpresa As Integer)
-        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then
@@ -5546,7 +5546,7 @@ Partial Class Clientes
 
     End Sub
     Private Sub CargaClienteDispositivos(CveEmpresa As Integer)
-        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+        Dim Dt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         If Dt IsNot Nothing AndAlso Dt.Rows.Count > 0 Then
             DdlClienteDispositivo.DataSource = Dt.FiltraParametros($"CvePlataforma = 3 AND CveEmpresa = {CveEmpresa}", "Empresa")
@@ -5885,7 +5885,7 @@ Partial Class Clientes
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
                     DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString())
@@ -6531,7 +6531,7 @@ Partial Class Clientes
     End Sub
 
     Public Sub CargaGlobal()
-        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjUsuarios As New ClsSisUsuarios
         'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
@@ -7598,8 +7598,8 @@ Partial Class Clientes
                 cpCliente = ObjClientes.CP
             End If
 
-            Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveLocalidad", "").ToEntero
-            Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstado", "").ToEntero
+            Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("CveLocalidad", "").ToEntero
+            Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("CveEstado", "").ToEntero
 
 
             Dim LocalidadSucursal As String = GlobalDTLocalidad(-1, -1).FiltroPrimeroValor("NombreLocalidad", $"CveLocalidad = {CveLocalidadSucursal}")
@@ -8439,7 +8439,7 @@ Partial Class Clientes
         DdlVendedorFiltro.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Productos
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 111b6df00..78fc60a6d 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1767,7 +1767,7 @@ Partial Class Ventas_ClientesAbonar
 
         DtImpuestos = CargaTotalesImpuestos(DtImpuestos)
 
-        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjFacturaDevolucion.CveSubProyecto).FiltroPrimero("")
         Dim Cantidad As Decimal = 1
         Dim CveProyecto As Integer
         Dim CveSubProyecto As Integer
diff --git a/Ventas/FacturacionGlobal.aspx b/Ventas/FacturacionGlobal.aspx
index 60028d4a4..d781fa8d4 100644
--- a/Ventas/FacturacionGlobal.aspx
+++ b/Ventas/FacturacionGlobal.aspx
@@ -146,7 +146,7 @@
                             </div>
                             <label class="col-md-1 truncate">Cliente:</label>
                             <div class="col-md-2">
-                                PUBLICO GENERAL
+                                PUBLICO EN GENERAL
                             </div>
                         </div>
                     </div>
diff --git a/Ventas/FacturacionGlobal.aspx.vb b/Ventas/FacturacionGlobal.aspx.vb
index 136e80b0f..d8579acc7 100644
--- a/Ventas/FacturacionGlobal.aspx.vb
+++ b/Ventas/FacturacionGlobal.aspx.vb
@@ -177,11 +177,11 @@ Partial Class Ventas_FacturacionGlobal
         Dim DtPagosFacturaGlobal As New DataTable()
 
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
+        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1, UsuarioActual.CveEmpresa) Then
             DtRemisionesPS = ObjClientes.DtResultados.Copy()
         End If
 
-        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
+        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString(), UsuarioActual.CveEmpresa) Then
             DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
         End If
         ObjClientes.Dispose()
@@ -204,8 +204,11 @@ Partial Class Ventas_FacturacionGlobal
 
         Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         If CveCliente <= 0 Then
-            Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
-            Exit Sub
+            CveCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", "Nombre = 'PUBLICO EN GENERAL'").ToEntero
+            If CveCliente <= 0 Then
+                Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
         Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, Me.CveSubProyecto, CveCliente, CveMoneda, "Ing")
@@ -267,7 +270,6 @@ Partial Class Ventas_FacturacionGlobal
             Alert(SbAlert.ToString(), TipoMensaje.MsgError, ShowCloseButton:=False)
         End If
 
-
         If ObjFactura IsNot Nothing Then
             ObjFactura.Dispose()
         End If
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 9d5c24792..d749e5088 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2664,7 +2664,7 @@ Partial Class PV
                     LblEnviarMail.Visible = True
 
                     Dim dr As DataRow = Nothing
-                    dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                    dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("Estatus = 'Activo'   ")
                     If dr IsNot Nothing Then
                         ViewState("MatCalle") = dr("Calle")
                         ViewState("MatNoExt") = dr("NoExt")
@@ -2796,7 +2796,7 @@ Partial Class PV
         UpPS.Update()
     End Sub
     Private Sub CargaFormatoSucursal()
-        Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
         If dr IsNot Nothing Then
             ViewState("SucCalle") = dr("Calle")
             ViewState("SucNoExt") = dr("NoExt")
@@ -4158,10 +4158,10 @@ Partial Class PV
                         If TipoPrecioLista = 10 Then
                             CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                             If CvePrecioListaPS <= 0 Then
-                                CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                                CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                             End If
                         Else
-                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                            CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                             If CvePrecioListaPS <= 0 Then
                                 CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                             End If
@@ -5538,7 +5538,7 @@ Partial Class PV
                 PU = ObjDescuento.PU
             End If
 
-            Dim RowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            Dim RowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).Rows(0)
             Dim CveProyecto As Integer = -1 ' 
             Dim Proyecto As String = ""
 
@@ -5867,7 +5867,7 @@ Partial Class PV
 
     'Protected Sub CargarCodigo()
     '    Dim TipoVenta As Integer = 0
-    '    Dim drSucursal As DataRow = GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
+    '    Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa.FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
 
     '    If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
 
@@ -5880,7 +5880,7 @@ Partial Class PV
     'End Sub
     Protected Sub CargarCodigo()
         Dim TipoVenta As Integer = 0
-        Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
 
         If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
 
@@ -6473,7 +6473,7 @@ Partial Class PV
             CargaComboCFDICliente()
 
             'carga datos particulares de la sucursal
-            Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
+            Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
 
             If dr IsNot Nothing Then
                 TxtCPCliente.Text = dr("CP").ToString
@@ -6609,7 +6609,7 @@ Partial Class PV
 
 
         If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
+            Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
                     CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero()
@@ -7285,10 +7285,10 @@ Partial Class PV
                 If TipoPrecioLista = 10 Then
                     CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     If CvePrecioListaPS <= 0 Then
-                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     End If
                 Else
-                    CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                    CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     If CvePrecioListaPS <= 0 Then
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     End If
@@ -8378,7 +8378,7 @@ Partial Class PV
             ObjUsuario.Dispose()
 
             If Usuario IsNot Nothing Then
-                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
                 ADSSessionConfig.sessionUser = Usuario
                 ADSSessionConfig.sessionUser.CvePlataforma = 1
                 ADSSessionConfig.sessionDpage = False
diff --git a/Ventas/PopUpBuscarClientes.aspx.vb b/Ventas/PopUpBuscarClientes.aspx.vb
index 58141167d..ca4b5894f 100644
--- a/Ventas/PopUpBuscarClientes.aspx.vb
+++ b/Ventas/PopUpBuscarClientes.aspx.vb
@@ -51,7 +51,7 @@ Partial Class PopUpBuscarClientes
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
     End Sub
 
diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb
index d195813ed..3fd06730d 100644
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -47,7 +47,7 @@ Partial Class PopUpBuscarFolio
 
 
     Private Sub CargaUsuarios()
-        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
     End Sub
 
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 73170657e..1103cae83 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -142,7 +142,7 @@ Partial Class Ventas_Promociones
         End If
 
         'CARGA SUBPROYECTOS
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Ventas/RepAnticipo-NC-IXC.aspx.cs b/Ventas/RepAnticipo-NC-IXC.aspx.cs
index 021cee834..fd12af47e 100644
--- a/Ventas/RepAnticipo-NC-IXC.aspx.cs
+++ b/Ventas/RepAnticipo-NC-IXC.aspx.cs
@@ -60,7 +60,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
 
     protected void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
     }
diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
index af42ae3fd..10edaa10d 100644
--- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
+++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs
@@ -88,11 +88,11 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
 
     protected void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlSucursal.SelectedValue = "-1";
-        DdlSubProyectoSaldar.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSubProyectoSaldar.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
         DdlSubProyectoSaldar.DataBind();        
     }
 
diff --git a/Ventas/RepAnticiposEspeciales.aspx.vb b/Ventas/RepAnticiposEspeciales.aspx.vb
index e2ff0b924..0232de6ab 100644
--- a/Ventas/RepAnticiposEspeciales.aspx.vb
+++ b/Ventas/RepAnticiposEspeciales.aspx.vb
@@ -38,7 +38,7 @@ Partial Class Ventas_RepAnticiposEspeciales
         TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
         TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
-        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
         DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb
index d41a3c2e6..d1342f3af 100644
--- a/Ventas/RepComisiones.aspx.vb
+++ b/Ventas/RepComisiones.aspx.vb
@@ -13,7 +13,7 @@ Partial Class Ventas_RepComisiones
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
 
             InicializaValores()
diff --git a/Ventas/RepComisionesDetalle.aspx.vb b/Ventas/RepComisionesDetalle.aspx.vb
index 28042f430..772096019 100644
--- a/Ventas/RepComisionesDetalle.aspx.vb
+++ b/Ventas/RepComisionesDetalle.aspx.vb
@@ -23,7 +23,7 @@ Partial Class Ventas_RepComisionesDetalle
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
     End Sub
 
diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs
index cb31e79dd..961fcc6a9 100644
--- a/Ventas/RepComisionesJAM.aspx.cs
+++ b/Ventas/RepComisionesJAM.aspx.cs
@@ -30,7 +30,7 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
  
         if (UsuarioActual.CveUsuario == 1835) // usuario de alejandra alvarez
         {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+            DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         }
         else
         {
diff --git a/Ventas/RepComisionesJAM2.aspx.cs b/Ventas/RepComisionesJAM2.aspx.cs
index e229ca065..464cb2833 100644
--- a/Ventas/RepComisionesJAM2.aspx.cs
+++ b/Ventas/RepComisionesJAM2.aspx.cs
@@ -23,7 +23,7 @@ public partial class Ventas_RepComisionesJAM2 : ClsPaginas
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
         DdlVendedor.DataBind();
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
 
     }
diff --git a/Ventas/RepComisionesJAM2Detalle.aspx.cs b/Ventas/RepComisionesJAM2Detalle.aspx.cs
index 264d49e2b..f64ca020a 100644
--- a/Ventas/RepComisionesJAM2Detalle.aspx.cs
+++ b/Ventas/RepComisionesJAM2Detalle.aspx.cs
@@ -23,7 +23,7 @@ public partial class Ventas_RepComisionesJAM2Detalle : ClsPaginas
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
         DdlVendedor.DataBind();
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
 
         DdlVendedor.SelectedValueExist(Request["CveVendedor"] == null ? "-1" : Request["CveVendedor"].ToString());
diff --git a/Ventas/RepComisionesServec.aspx.vb b/Ventas/RepComisionesServec.aspx.vb
index 420d5906c..fad39b9b0 100644
--- a/Ventas/RepComisionesServec.aspx.vb
+++ b/Ventas/RepComisionesServec.aspx.vb
@@ -11,7 +11,7 @@ Partial Class Ventas_RepComisionesServec
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
 
             InicializaValores()
diff --git a/Ventas/RepComisionesServecDetalle.aspx.vb b/Ventas/RepComisionesServecDetalle.aspx.vb
index ff1a0aa0d..255329967 100644
--- a/Ventas/RepComisionesServecDetalle.aspx.vb
+++ b/Ventas/RepComisionesServecDetalle.aspx.vb
@@ -11,7 +11,7 @@ Partial Class Ventas_RepComisionesServecDetalle
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DdlSubProyecto.DataBind()
 
             InicializaValores()
diff --git a/Ventas/RepCostoPromedioVenta.aspx.cs b/Ventas/RepCostoPromedioVenta.aspx.cs
index 37b51af12..3cce8a052 100644
--- a/Ventas/RepCostoPromedioVenta.aspx.cs
+++ b/Ventas/RepCostoPromedioVenta.aspx.cs
@@ -25,7 +25,7 @@ public partial class Ventas_RepCostoPromedioVenta : ClsPaginas
         txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
         txtFechaF.Text = NowADS().ToShortDateString();
 
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSubProyecto.DataBind();
         DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
 
diff --git a/Ventas/RepDocumentacionVencidaClientes.aspx.vb b/Ventas/RepDocumentacionVencidaClientes.aspx.vb
index 7d9417d55..da43b78fd 100644
--- a/Ventas/RepDocumentacionVencidaClientes.aspx.vb
+++ b/Ventas/RepDocumentacionVencidaClientes.aspx.vb
@@ -89,7 +89,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
 
 
 
-        DDLSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros("EsSucursal = 1", "", {"CveSubProyecto", "SubProyecto"})
+        DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("EsSucursal = 1", "", {"CveSubProyecto", "SubProyecto"})
         DDLSucursal.DataBind()
         DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
         If UsuarioActual.CveSucursal > 0 Then
diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs
index 09e31362e..a21623282 100644
--- a/Ventas/RepNCxAplicar.aspx.cs
+++ b/Ventas/RepNCxAplicar.aspx.cs
@@ -50,7 +50,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
 
     protected void CargaSucursales()
     {
-        DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+        DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlSucursal.SelectedValue = "-1";
diff --git a/Ventas/RepPUESinPago.aspx.vb b/Ventas/RepPUESinPago.aspx.vb
index 80cb746cf..1cec8dba4 100644
--- a/Ventas/RepPUESinPago.aspx.vb
+++ b/Ventas/RepPUESinPago.aspx.vb
@@ -27,7 +27,7 @@ Partial Class Ventas_RepPUESinPago
         TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
         TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 8a354e5d7..fee97f810 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -126,7 +126,7 @@ Partial Class Ventas_RepProductosServicios
         DdlVendedor.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Productos
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index fc20b38e6..659f412ec 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -148,7 +148,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         End If
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Productos
diff --git a/Ventas/RepProductosServiciosPeriodo.aspx.cs b/Ventas/RepProductosServiciosPeriodo.aspx.cs
index 9d85b7918..e133b8f39 100644
--- a/Ventas/RepProductosServiciosPeriodo.aspx.cs
+++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs
@@ -93,7 +93,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         DdlVendedor.Items.Insert(0, new ListItem("Todos", "-1"));
 
         //CargaUsuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa);
         DdlUsuario.DataBind();
 
         //CargaEstatus
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index 257a7afd7..ce26278dd 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -124,7 +124,7 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         'Carga Usuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Responsable
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index 0e205649b..b073c75a2 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -127,7 +127,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
 
         'Carga Usuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Responsable
diff --git a/Ventas/RepRecuperacionPeriodo.aspx.cs b/Ventas/RepRecuperacionPeriodo.aspx.cs
index ee823c746..955c2d1bb 100644
--- a/Ventas/RepRecuperacionPeriodo.aspx.cs
+++ b/Ventas/RepRecuperacionPeriodo.aspx.cs
@@ -57,7 +57,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
         }
 
         //Carga Usuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa);
         DdlUsuario.DataBind();
 
         //Carga Responsable
diff --git a/Ventas/RepRemisiones2.aspx.vb b/Ventas/RepRemisiones2.aspx.vb
index a1db721f0..97b8b3bab 100644
--- a/Ventas/RepRemisiones2.aspx.vb
+++ b/Ventas/RepRemisiones2.aspx.vb
@@ -87,7 +87,7 @@ Partial Class RepRemisiones
     End Sub
     Private Sub CargaSucursales()
 
-        DdlSubProyectos.DataSource() = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataSource() = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb
index 7f76425b0..6b0bfdd42 100644
--- a/Ventas/RepTopClientesVentas.aspx.vb
+++ b/Ventas/RepTopClientesVentas.aspx.vb
@@ -53,7 +53,7 @@ Partial Class Ventas_RepTopClientesVentas
         DdlAño.DataSource = tablaAños
         DdlAño.DataBind()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 68fe58c67..4d62c3e71 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -213,7 +213,7 @@ Partial Class Ventas_RepVentas
         DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Ventas/RepVentasAutorizaciones.aspx.cs b/Ventas/RepVentasAutorizaciones.aspx.cs
index 1d21164ad..d7c6bd933 100644
--- a/Ventas/RepVentasAutorizaciones.aspx.cs
+++ b/Ventas/RepVentasAutorizaciones.aspx.cs
@@ -60,7 +60,7 @@ public partial class Ventas_RepVentasAutorizaciones : ClsPaginas
         DdlSubProyecto.DataBind();
 
         //Carga Usuarios
-        DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+        DdlUsuario.DataSource = get_GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa);
         DdlUsuario.DataBind();
 
         //Carga Estatus Factura
diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb
index 727b45648..ea4bce6d1 100644
--- a/Ventas/RepVentasDetalle.aspx.vb
+++ b/Ventas/RepVentasDetalle.aspx.vb
@@ -332,7 +332,7 @@ Partial Class RepVentasDetalle
         DdlVendedor.Items.Insert(0, New ListItem("Sin Vendedor", "-2"))
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Ventas/RepVentasPV.aspx.vb b/Ventas/RepVentasPV.aspx.vb
index b9aa4e744..d5da75b39 100644
--- a/Ventas/RepVentasPV.aspx.vb
+++ b/Ventas/RepVentasPV.aspx.vb
@@ -15,7 +15,7 @@ Partial Class Ventas_RepVentasPV
     Private Sub CargaCombos()
 
         'CargaSucursales
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
     End Sub
diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb
index 2a17dd282..b85cdc859 100644
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -125,7 +125,7 @@ Partial Class RepVentasPeriodo
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus
diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb
index c9947773f..687557038 100644
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -49,7 +49,7 @@ Partial Class Ventas_RepVentasUtilidad
         End If
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
         'Carga Vendedor
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb
index dbe693ea9..dda14fbed 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -127,7 +127,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         If CveSubProyecto <> "" Then DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
 
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 1fe681f16..5558b8770 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -56,7 +56,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
         End If
 
         'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
         'Carga Vendedor
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b5a4761a0..7c6209e32 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3667,7 +3667,7 @@ Partial Class Ventas
             ObjUsuario.Dispose()
 
             If Usuario IsNot Nothing Then
-                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
                 ADSSession.ADSSessionConfig.sessionUser = Usuario
                 ADSSession.ADSSessionConfig.sessionUser.CvePlataforma = 1
                 ADSSession.ADSSessionConfig.sessionDpage = False
@@ -5710,12 +5710,12 @@ Partial Class Ventas
                     If DdlSubProyectoCobranza.Items.Count = 0 Then
                         DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1"))
                     End If
-                    DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoCobranza").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
+                    DdlSubProyectoCobranza.SelectedValueExistInsert(DbRowVenta("CveSubProyectoCobranza").ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DbRowVenta("CveSubProyectoCobranza").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
 
                     If DdlSubProyectoEjecucion.Items.Count = 0 Then
                         DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
                     End If
-                    DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString(), GlobalDTSubProyectos(-1, DbRowVenta("CveSubProyectoEjecucion").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
+                    DdlSubProyectoEjecucion.SelectedValueExistInsert(DbRowVenta("CveSubProyectoEjecucion").ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DbRowVenta("CveSubProyectoEjecucion").ToString().ToEntero()).FiltroPrimeroValor("SubProyecto").ToString())
 
                     CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString().ToEntero())
 
@@ -6604,7 +6604,7 @@ Partial Class Ventas
         Dim Retorno As Integer = 0
 
         Dim dr As DataRow = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
-        'Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
+        'Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)}")
 
         'si hay un proyecto relacionado con el subproyecto
         If dr IsNot Nothing AndAlso dr("CveSubProyecto").ToString().ToEntero() > 0 Then
@@ -6673,7 +6673,7 @@ Partial Class Ventas
         'DdlSubProyecto.SelectedValue = Nothing
         'If DdlProyecto.SelectedValue.ToEntero() > 0 Then
         '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        '    'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        '    'DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
         'End If
         'DdlSubProyecto.DataBind()
         'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
@@ -6892,7 +6892,7 @@ Partial Class Ventas
                 ViewState("CargoUsado") = ObjCliente.CargoUsados
 
                 Dim dr As DataRow = Nothing
-                dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' ")
                 If dr IsNot Nothing Then
                     ViewState("MatCalle") = dr("Calle")
                     ViewState("MatNoExt") = dr("NoExt")
@@ -7352,7 +7352,7 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then
             'SI ESTA BLOQUEADO POR AUTORIZACION, HABILITAR LA OPCION DE REMISION PARA PUBLICO EN GENERAL
             If UsuarioActual.Empresa.Funcionalidad(381).Trim() = CveCliente.ToString() Then
-                Dim DeshabilitarAutorizacion As Boolean = CBool(GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("DeshabilitaAutorizacion"))
+                Dim DeshabilitarAutorizacion As Boolean = CBool(GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("DeshabilitaAutorizacion"))
 
                 'SI ESTA BLOQUEADO POR AUTORZACION O QUE TENGA LA OPCION DE AUTORIZACIONES Y NO SEA DEL MODULO DE COTIZACIONES
                 If (DdlTipoComprobante.SelectedValue.Contiene("PA") OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso DdlTipoComprobante.Items.FindByValue("PA") IsNot Nothing AndAlso Not IfNull(Request("Op"), "").ToString() = "Cot")) AndAlso DeshabilitarAutorizacion Then
@@ -12832,7 +12832,7 @@ Partial Class Ventas
 
             If Me.CveVenta > 0 AndAlso TipoDoctoViejo = "Rem" Then
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString()) Then
+                If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), UsuarioActual.CveEmpresa) Then
                     DtRemisionesPagos = ObjClientes.DtResultados.Copy()
                 End If
                 ObjClientes.Dispose()
@@ -12844,7 +12844,7 @@ Partial Class Ventas
                 sb.Remove(sb.Length - 1, 1)
 
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetVentasRemisionesPagos(CveCliente, sb.ToString()) Then
+                If ObjClientes.GetVentasRemisionesPagos(CveCliente, sb.ToString(), UsuarioActual.CveEmpresa) Then
                     DtRemisionesPagos = ObjClientes.DtResultados.Copy()
                 End If
                 ObjClientes.Dispose()
@@ -13440,7 +13440,7 @@ Partial Class Ventas
         Dim AplicaComercioExteriorSubProyecto As Boolean = True
 
         If ChkEmitirComercioExterior.Checked Then
-            'AplicaComercioExteriorSubProyecto = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
+
             Timbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
 
             'DATOS GENERALES
@@ -13465,8 +13465,8 @@ Partial Class Ventas
             'EMISOR
             Dim Dr As DataRow
             Dr = Nothing
-            If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
-                Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
+            If GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows.Count > 0 Then
+                Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
             End If
             Timbre.Complementos.ComercioExterior.Emisor.CURP = UsuarioActual.Empresa.CURP
             Timbre.Complementos.ComercioExterior.Emisor.Calle = Dr("Calle").ToString()
@@ -15545,7 +15545,7 @@ Partial Class Ventas
                                         importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2} AND ISNULL(CveActivoFijo,-1) = {3}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"), If(Row2("CveActivoFijo").ToString().ToEntero() > 0, Row2("CveActivoFijo").ToString().ToEntero(), -1))).ToString().ToDecimal()) * ValorMultiplicador
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
 
                                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -15598,7 +15598,7 @@ Partial Class Ventas
 
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
 
                                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -15631,7 +15631,7 @@ Partial Class Ventas
                                         importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
 
                                         If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -18066,11 +18066,11 @@ Partial Class Ventas
 
                 CvePrecioListaPS = Me.CvePrecioListaCliente
                 If CvePrecioListaPS <= 0 Then
-                    CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                    CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
 
                 End If
             Else
-                CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                 If CvePrecioListaPS <= 0 Then
                     CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                 End If
@@ -18503,7 +18503,7 @@ Partial Class Ventas
         Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
 
         gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
-        gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)
+        gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero())
         gvr.FCDropDownList("DDlSubProyecto").DataBind()
         gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
 
@@ -18549,7 +18549,7 @@ Partial Class Ventas
                     UM = rowPS("UnidadMedida").ToString()
                     CveClasificacion = rowPS("CveClasificacion").ToString().ToEntero()
                     Clasificacion = rowPS("Clasificacion").ToString()
-                    Dim rowSP As DataRow = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", CveSubProyecto))
+                    Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", CveSubProyecto))
                     Proyecto = rowSP("Proyecto").ToString()
                     CveProyecto = rowSP("CveProyecto").ToString().ToEntero()
                     SubProyecto = rowSP("SubProyecto").ToString()
@@ -18733,7 +18733,7 @@ Partial Class Ventas
 
     End Sub
     Private Sub CargaFormatoSucursal(Optional RecalcularIVA As Boolean = True)
-        Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
         If dr IsNot Nothing Then
             ViewState("SucCalle") = dr("Calle")
             ViewState("SucNoExt") = dr("NoExt")
@@ -23410,7 +23410,7 @@ Partial Class Ventas
     End Sub
     Protected Sub CargarCodigo()
         Dim TipoVenta As Integer = 0
-        Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
 
         If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString().ToEntero()
 
@@ -24614,7 +24614,7 @@ Partial Class Ventas
         End If
 
         If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
+            Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
                     CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero()
@@ -26274,7 +26274,7 @@ Partial Class Ventas
 
             dt.TableName = "Datos"
 
-            Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
             DtSubProyecto.CaseSensitive = False
             If Not ErrorArchivo Then
                 NumRow = 1
@@ -29750,7 +29750,7 @@ Partial Class Ventas
                                         PorcentajeIEPS = PorcentajeIEPS
 
 
-            Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1).FiltroPrimero("")
+            Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
 
             If DrSubProyecto Is Nothing Then
                 Alert("Ocurrió un error al cargar la información de centro de costos. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError)
@@ -32787,7 +32787,7 @@ Partial Class Ventas
                         Dim PU As Decimal = dtSeleccionadas.SUM("SubTotal")
                         Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSRemision.SelectedValue.ToEntero())(0)
                         Dim IVA As Decimal = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16D)
-                        Dim rowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
+                        Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
 
                         AgregarProductoServicio(1, PS("CveUM").ToString().ToEntero(), PS("UnidadMedida").ToString(), PS("CveClasificacion").ToString().ToEntero(),
                          PS("Clasificacion").ToString(), PS("CvePS").ToString().ToEntero(), PS("PS").ToString(), "", PU, 0,
@@ -32814,7 +32814,7 @@ Partial Class Ventas
 
                         Next
                         Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSRemision.SelectedValue.ToEntero())(0)
-                        Dim rowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
+                        Dim rowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
                         Dim IVA As Double = If(dtSeleccionadas.SUM("Iva") > 0, dtSeleccionadas.SUM("Iva") / dtSeleccionadas.SUM("SubTotal"), 0.16)
                         For Each gvr As GridViewRow In GvRem.Rows
                             If gvr.FCCheckBox("Chk").Checked Then
@@ -33024,7 +33024,7 @@ Partial Class Ventas
     End Function
     Private Sub CargaConceptosRemisionPorFacturar(CveRemisiones As String, TipoCargas As Integer)
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, TipoCargas) Then
+        If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, TipoCargas, UsuarioActual.CveEmpresa) Then
             DtRemisionesPS = ObjClientes.DtResultados
         End If
         ObjClientes.Dispose()
@@ -33036,7 +33036,7 @@ Partial Class Ventas
         Dim ProyectoVenta As String = ""
 
         If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyectoVenta > 0 Then
-            Dim RowSP = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoVenta, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+            Dim RowSP = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoVenta).FiltroPrimero("")
             If RowSP IsNot Nothing Then
                 CveProyectoVenta = RowSP("CveProyecto").ToString().ToEntero()
                 ProyectoVenta = RowSP("Proyecto").ToString()
@@ -33098,7 +33098,7 @@ Partial Class Ventas
         'End If
 
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString(), 1) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then
+        If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveVenta.ToString(), 1, UsuarioActual.CveEmpresa) AndAlso ObjClientes.DtResultados.Rows.Count > 0 Then
             LnkFacturarRemision.Visible = True
             If ThCantidadFacturadaRem.Visible Then
                 LnkFacturarRemision.ToolTip = "¿Seguro que desea facturar lo pendiente por facturar de la remisión?"
@@ -35944,7 +35944,7 @@ Partial Class Ventas
 
         DtImpuestos = CargaTotalesImpuestosProntoPago(DtImpuestos)
 
-        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
+        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
 
         Dim Cantidad As Decimal = 1
         Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
@@ -37041,7 +37041,7 @@ Partial Class Ventas
             End If
 
             Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-            Dim CveProyecto As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
+            Dim CveProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto", "").ToEntero()
 
             Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
 
@@ -37210,10 +37210,10 @@ Partial Class Ventas
 
                         CvePrecioListaPS = Me.CvePrecioListaCliente
                         If CvePrecioListaPS <= 0 Then
-                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                            CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                         End If
                     Else
-                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                         If CvePrecioListaPS <= 0 Then
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
@@ -37327,7 +37327,7 @@ Partial Class Ventas
         Dim Respuesta As Boolean = False
 
         If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
-            Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
+            Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero)
 
             If (DTSubproyectoActual.Rows(0)("TipoSucursal").ToString.ToEntero = 1) Then
                 Respuesta = True
@@ -37708,7 +37708,7 @@ Partial Class Ventas
         Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
 
         If CveSubProyecto > 0 Then
-            Dim RowSP = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+            Dim RowSP = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
             If RowSP IsNot Nothing Then
                 CveProyecto = RowSP("CveProyecto").ToString().ToEntero()
                 Proyecto = RowSP("Proyecto").ToString()
diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx
index ded6ff040..b297fd758 100644
--- a/asmx/WSApp.asmx
+++ b/asmx/WSApp.asmx
@@ -556,10 +556,10 @@ Public Class WSApp
         If CveSubProyecto <= 0 Then
             'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA
             Dim Dr As DataRow = Nothing
-            If ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
-                Dr = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
-            ElseIf ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
-                Dr = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            If ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
+                Dr = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
+            ElseIf ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+                Dr = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows(0)
             End If
 
             If Dr IsNot Nothing Then
@@ -645,8 +645,8 @@ Public Class WSApp
                 ObjFactura.CveSubProyecto = CveSubProyecto
                 ObjFactura.CveSubProyectoCobranza = CveSubProyecto
                 ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
-                ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
-                ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+                ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
+                ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
 
                 'CLIENTE
                 ObjFactura.CveCliente = CveCliente
@@ -904,7 +904,7 @@ Public Class WSApp
         End If
 
 
-        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0)
+        Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(CveEmpresa, CveSubProyecto).Rows(0)
 
         Row = TmpDT.NewRow()
         Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()
diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx
index f4cfd7090..ef72b62e9 100644
--- a/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -1827,10 +1827,10 @@ Public Class WSSIGApp
         If CveSubProyecto <= 0 Then
             'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA
             Dim Dr As DataRow = Nothing
-            If GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
-                Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
-            ElseIf GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
-                Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            If GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
+                Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
+            ElseIf GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+                Dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows(0)
             End If
 
             If Dr IsNot Nothing Then
@@ -1923,8 +1923,8 @@ Public Class WSSIGApp
             ObjFactura.CveSubProyecto = CveSubProyecto
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
-            ObjFactura.SubProyecto = New SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
-            ObjFactura.SubProyectoMatriz = New SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyecto = New SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
+            ObjFactura.SubProyectoMatriz = New SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
             'DETALLES
             ObjFactura.DtDetalle = CreaDTDetalle(UsuarioActual.CveEmpresa, CveSubProyecto, ListaPS)
             ObjFactura.SubTotal = SubTotal
@@ -2094,7 +2094,7 @@ Public Class WSSIGApp
             End If
         End If
 
-        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0)
+        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(CveEmpresa, CveSubProyecto).Rows(0)
 
         Row = TmpDT.NewRow()
         Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()