diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 63911c9ad..9e898f86c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1804,7 +1804,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Using ObjContratos As New ClsContratos
-                    If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing
+                    If ObjContratos.GetContratos(-1, CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing
                 End Using
             End If
 
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 62fc596a4..81398fed4 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1654,7 +1654,7 @@ Partial Class Contratos_Default
     End Sub
     Private Sub CargaContratoPadre()
         DdlContratoPadre.Items.Clear()
-        DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
+        DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ")
         DdlContratoPadre.DataBind()
         DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb
index a2271dff1..43540332c 100644
--- a/Contratos/ContratoAvance.aspx.vb
+++ b/Contratos/ContratoAvance.aspx.vb
@@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance
 #Region "Filtros"
 
     Private Sub CargaContrato()
-        DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo in (30,31) ")
         DdlContratos.DataBind()
 
     End Sub
diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb
index 312288238..ccd33f44e 100644
--- a/Contratos/ContratoObraAutorizacion.aspx.vb
+++ b/Contratos/ContratoObraAutorizacion.aspx.vb
@@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion
 
 
     Private Sub CargaContrato()
-        DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DDlContratosEstimaciones.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ")
         DDlContratosEstimaciones.DataBind()
     End Sub
 
diff --git a/Contratos/Estimaciones.aspx.vb b/Contratos/Estimaciones.aspx.vb
index 1c846d0f6..afd08771d 100644
--- a/Contratos/Estimaciones.aspx.vb
+++ b/Contratos/Estimaciones.aspx.vb
@@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones
 
     End Sub
     Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb
index 5bf22c51f..e7f136f5d 100644
--- a/Contratos/FacturacionMasiva.aspx.vb
+++ b/Contratos/FacturacionMasiva.aspx.vb
@@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva
     Private Sub CargaCombos()
         DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
         DdlCliente.DataBind()
-        DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
         DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
         DdlSucursal.DataBind()
diff --git a/Contratos/RepContratos.aspx.vb b/Contratos/RepContratos.aspx.vb
index 19902c81d..862ba07a6 100644
--- a/Contratos/RepContratos.aspx.vb
+++ b/Contratos/RepContratos.aspx.vb
@@ -55,7 +55,7 @@ Partial Class RepContratos
 
     End Sub
     Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
diff --git a/Contratos/RepContratosAvances.aspx.vb b/Contratos/RepContratosAvances.aspx.vb
index cb5c64c16..efbfb6a52 100644
--- a/Contratos/RepContratosAvances.aspx.vb
+++ b/Contratos/RepContratosAvances.aspx.vb
@@ -42,7 +42,7 @@ Partial Class RepContratosAvances
 
   
     Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb
index 24ec4e969..1f992d9dd 100644
--- a/Contratos/RepContratosCostos.aspx.vb
+++ b/Contratos/RepContratosCostos.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos
 
 #Region "C O M B O S"
     Public Sub CargaContratos()
-        DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContratos.DataBind()
     End Sub
 
diff --git a/Contratos/RepContratosDetalle.aspx.vb b/Contratos/RepContratosDetalle.aspx.vb
index c62f0b3bd..95da1ce79 100644
--- a/Contratos/RepContratosDetalle.aspx.vb
+++ b/Contratos/RepContratosDetalle.aspx.vb
@@ -55,7 +55,7 @@ Partial Class RepContratos
 
     End Sub
     Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs
index 3a4ab2e29..2497b618d 100644
--- a/Contratos/RepContratosFianzas.aspx.cs
+++ b/Contratos/RepContratosFianzas.aspx.cs
@@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
 
     protected void CargaContratos()
     {
-        DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+        DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa);
         DdlContratos.DataBind();
     }
     protected void CargaClientes()
diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb
index 987e7206c..1ee3aa59b 100644
--- a/Contratos/RepContratosObraAvances.aspx.vb
+++ b/Contratos/RepContratosObraAvances.aspx.vb
@@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances
 
 
     Private Sub CargaContratos()
-        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31)	")
+        DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo IN(30,31)	")
         DdlContrato.DataBind()
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb
index 6b22f268c..b05d9970a 100644
--- a/Contratos/RepContratosSuministros.aspx.vb
+++ b/Contratos/RepContratosSuministros.aspx.vb
@@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros
 
 #Region "C O M B O S"
     Public Sub CargaContratos()
-        DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContratos.DataBind()
     End Sub
 
diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
index 0c7ce6161..c47574744 100644
--- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
+++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb
@@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
 
 #Region "C O M B O S"
     Public Sub CargaContratos()
-        DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
         DdlContratos.DataBind()
     End Sub