From 5441531637fe7baeedb436edfbe7cdbcae562a8d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Jan 2023 09:17:42 -0700
Subject: [PATCH] -- cambios en globalDT

---
 GPS/RepParadas.aspx.cs               |  2 +-
 Inicio.aspx.vb                       | 24 +++++-------------------
 Inventarios/RecepcionAlmacen.aspx.vb |  8 +++-----
 OI/TareaDetalle.aspx.cs              |  2 +-
 4 files changed, 10 insertions(+), 26 deletions(-)

diff --git a/GPS/RepParadas.aspx.cs b/GPS/RepParadas.aspx.cs
index 1be65fd4a..c378183ef 100644
--- a/GPS/RepParadas.aspx.cs
+++ b/GPS/RepParadas.aspx.cs
@@ -197,6 +197,6 @@ public partial class GPS_RepParardas : ClsPaginas
     {
         //var table = new System.Web.UI.HtmlControls.HtmlTable();
         // table.InnerHtml = DivIndicadores.InnerHtml;
-        GvDatos.ExportToExcelx("ReporteRutas");
+        GvDatos.ExportToExcel("ReporteRutas");
     }
 }
\ No newline at end of file
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index d9299387d..835bd7d29 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -1506,26 +1506,14 @@ Partial Class Inicio
 
     Private Sub IniializaDdlsOpcionesAgenda()
         'CLIENTES
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlClientesWS.setEsWebService(True)
-        Else
-            DdlClientesWS.setEsWebService(False)
-            CargaClientes()
-        End If
 
+        DdlClientesWS.setEsWebService(True)
 
         'PROVEEDORES
-        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
-            DdlProveedor.setEsWebService(True)
-            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-            DdlProveedor.SelectedText = "Todos"
-            DdlProveedor.SelectedValue = "-1"
-        Else
-            DdlProveedor.setEsWebService(False)
-            DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedor.ddl.DataBind()
-            DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
 
         DdlProveedor.ddl.AutoPostBack = False
         DdlClientesWS.ddl.AutoPostBack = False
@@ -1579,8 +1567,6 @@ Partial Class Inicio
     Private Sub CargaClientes()
         If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlClientesWS.ddl.Items.Clear()
-            DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientesWS.DataBind()
             DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 20274a117..e13af0eeb 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1069,7 +1069,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             DtRecepcion = ObjInventario.DtResultados.Copy()
 
                             'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS
-                            If ObjCompras.GetCompraDetalle(pCveCompra) Then
+                            If ObjCompras.GetCompraDetalle(pCveCompra, UsuarioActual.CveEmpresa) Then
                                 If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then
                                     SumarImporteUsados = True
                                     ValidarRecepcionUsados = True
@@ -3186,13 +3186,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim DtComprasDetalle As DataTable = Nothing
                     Dim DtTamanios As DataTable = Nothing
 
-                    If ObjCompras.GetCompraDetalle(CveCompraSurtir) Then
+                    If ObjCompras.GetCompraDetalle(CveCompraSurtir, UsuarioActual.CveEmpresa) Then
                         DtComprasDetalle = ObjCompras.DtResultados.Copy()
                     End If
 
-                    If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                        DtTamanios = ObjAcum.DtResultados.Copy()
-                    End If
+                    DtTamanios = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
 
                     For Each GvRow As GridViewRow In GvInv.Rows
                         If GvRow.RowType = DataControlRowType.DataRow Then
diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs
index ea868bc5d..e09084b6d 100644
--- a/OI/TareaDetalle.aspx.cs
+++ b/OI/TareaDetalle.aspx.cs
@@ -253,7 +253,7 @@ public partial class OI_TareaDetalle : ClsPaginas
     private void CargaEstatus()
     {
 
-        DdlEventoEstatus.DataSource = GlobalDTOIEstatusEventos;//get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
+        DdlEventoEstatus.DataSource =  get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
         DDlEstatus.DataSource = DdlEventoEstatus.DataSource;
         DdlEventoEstatus.DataBind();
         DDlEstatus.DataBind();