From 8465bda0485b8f60f773b4a04c896d309ee6a0eb Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 10:55:36 -0700 Subject: [PATCH] -- cambios en manejo de GlobalDTs --- Compras/RepComprasG.aspx.vb | 2 +- Compras/RepComprasPeriodo.aspx.vb | 2 +- Compras/RepCxP.aspx.vb | 4 +-- Compras/RepCxPDetalle.aspx.vb | 2 +- Compras/RepCxPPeriodo.aspx.cs | 2 +- Compras/RepProductosServiciosPeriodo.aspx.cs | 2 +- Contabilidad/FisImpuestos.aspx.vb | 6 ++-- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 10 +++--- Contabilidad/RegPrePoliza1.aspx.vb | 2 +- GPS/UsuariosRastreo.aspx.vb | 15 ++++---- General/SaldosIniciales.aspx.vb | 2 +- Nomina/CargaArchivosNomina.aspx.cs | 5 ++- Sistemas/CatSesiones.aspx.vb | 36 ++++++++++--------- Sistemas/PopUpAddUsuario.aspx.vb | 14 ++++---- Sistemas/PopUpPerfil.aspx.vb | 11 +++--- Sistemas/UsuarioDetalle.aspx.vb | 16 +++++---- 16 files changed, 68 insertions(+), 63 deletions(-) diff --git a/Compras/RepComprasG.aspx.vb b/Compras/RepComprasG.aspx.vb index 59578db83..29e787bee 100644 --- a/Compras/RepComprasG.aspx.vb +++ b/Compras/RepComprasG.aspx.vb @@ -30,7 +30,7 @@ Partial Class Compras_RepComprasG 'TxtFechaICaptura.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString 'TxtFechaFCaptura.Text = Now.ToShortDateString - DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataBind() DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1,2)") diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index 7b86e0ed1..6a1d06779 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/Compras/RepComprasPeriodo.aspx.vb @@ -111,7 +111,7 @@ Partial Class Compras_RepComprasPeriodo DdlTipoGasto.DataBind() 'Carga Usuarios Responsable - DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'Carga Usuarios Captura diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index c6aa07c91..ccfa889b5 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -124,9 +124,7 @@ Partial Class Compras_RepCxP DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - - - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0") + DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuarioResponsable.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 10ad64961..c7243644b 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -245,7 +245,7 @@ Partial Class RepCxPDetalle 'CargaUsuarios Dim UsuarioResponsable As Integer = IfNull(Request("CveUsuarioResponsable"), -1).ToString.ToEntero - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0") + DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) DdlUsuarioResponsable.DataBind() DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable) diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs index 27b498718..95766a42b 100644 --- a/Compras/RepCxPPeriodo.aspx.cs +++ b/Compras/RepCxPPeriodo.aspx.cs @@ -67,7 +67,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas - DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltraParametros("ProveedoresResponsables > 0"); + DdlUsuarioResponsable.DataSource = get_GlobalDTUsuarioResponsable ( UsuarioActual.CveEmpresa ); DdlUsuarioResponsable.DataBind(); DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1); diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs index 75d4bcdbe..c14c5b578 100644 --- a/Compras/RepProductosServiciosPeriodo.aspx.cs +++ b/Compras/RepProductosServiciosPeriodo.aspx.cs @@ -129,7 +129,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas DdlTipoGasto.DataBind(); //Carga Usuarios Responsable - DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}"); + DdlUsuario.DataSource = get_GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa); DdlUsuario.DataBind(); //Carga Usuarios Captura diff --git a/Contabilidad/FisImpuestos.aspx.vb b/Contabilidad/FisImpuestos.aspx.vb index 24a0db316..cd147c712 100644 --- a/Contabilidad/FisImpuestos.aspx.vb +++ b/Contabilidad/FisImpuestos.aspx.vb @@ -167,7 +167,7 @@ Partial Class Contabilidad_FisImpuestos Dim objConta As New ClsContabilidad Dim DtTemp As New DataTable Dim _CvePrePoliza As Integer = 0 - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") Dim DtTempDetalle As New DataTable With DtTempDetalle.Columns @@ -247,7 +247,7 @@ Partial Class Contabilidad_FisImpuestos Private Sub CargaDetallesPlantilla() - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 Dim CodigoCuenta As String = "" @@ -343,7 +343,7 @@ Partial Class Contabilidad_FisImpuestos Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden") If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index 3d9238f6f..e9a5d17dd 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -242,14 +242,14 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Public Sub updatatos() Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then + If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) - GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados - End If - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then - GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados + ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados End If + + GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + ObjPlantillaPolizaDetalle.Dispose() End Sub Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb index 2dbc8e945..44afac00d 100644 --- a/Contabilidad/RegPrePoliza1.aspx.vb +++ b/Contabilidad/RegPrePoliza1.aspx.vb @@ -636,7 +636,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 Dim CodigoCuenta As String = "" diff --git a/GPS/UsuariosRastreo.aspx.vb b/GPS/UsuariosRastreo.aspx.vb index 00453084b..88bfd564b 100644 --- a/GPS/UsuariosRastreo.aspx.vb +++ b/GPS/UsuariosRastreo.aspx.vb @@ -51,13 +51,14 @@ Partial Class GPS_UsuariosRastreo End Sub Public Sub CargaGlobal() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados - Else - GlobalDTUsuarios() = Nothing - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados + 'Else + ' GlobalDTUsuarios() = Nothing + 'End If + 'ObjUsuarios.Dispose() End Sub Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index f26103631..114626dde 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1408,7 +1408,7 @@ Partial Class General_SaldosIniciales If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1, "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado, - BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then + BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then ErrorClientes = True RFC.GuardaLog diff --git a/Nomina/CargaArchivosNomina.aspx.cs b/Nomina/CargaArchivosNomina.aspx.cs index eb5c45c67..9065835c4 100644 --- a/Nomina/CargaArchivosNomina.aspx.cs +++ b/Nomina/CargaArchivosNomina.aspx.cs @@ -63,8 +63,7 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page URLFile = fileItem.FileUrl; } using (var workbook = new XLWorkbook(URLFile)) - { - int position = 1; + { foreach (IXLWorksheet wokitem in workbook.Worksheets) { workname = wokitem.Name; @@ -112,7 +111,7 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page { if (objbase.ExcelToBD(xml)) { - Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); + this.Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); } } GVDatos.DataSource = dt; diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index a554bcc80..a8b3bda14 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -300,30 +300,32 @@ Partial Class Sistemas_CatSesiones 'Generales Private Sub CargaUsuarios() 'Carga Usuarios - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados - Else - Application("GlobalDTUsuarios") = Nothing - End If + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados + 'Else + ' Application("GlobalDTUsuarios") = Nothing + 'End If + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - ObjUsuarios.Dispose() + 'ObjUsuarios.Dispose() 'Fin Carga Usuarios End Sub Private Sub CargaUsuariosResponsable() 'Carga Usuarios - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Alert(ObjUsuarios.DtResultados.Rows.Count.ToString) - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados - Else - Application("GlobalDTUsuarioResponsable") = Nothing - End If - ObjUsuarios.Dispose() - 'Fin Carga Usuarios + GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Alert(ObjUsuarios.DtResultados.Rows.Count.ToString) + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados + 'Else + ' Application("GlobalDTUsuarioResponsable") = Nothing + 'End If + 'ObjUsuarios.Dispose() + ''Fin Carga Usuarios End Sub diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 3e75ae980..64fc0dce6 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -563,12 +563,14 @@ Partial Class Sistemas_PopUpAddUsuario GPS.Dispose() End Sub Private Sub RecargarGlobalUsuarios() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If + 'ObjUsuarios.Dispose() End Sub #Region "MANDAR CORREOS" diff --git a/Sistemas/PopUpPerfil.aspx.vb b/Sistemas/PopUpPerfil.aspx.vb index 59ae31f2b..d5219c042 100644 --- a/Sistemas/PopUpPerfil.aspx.vb +++ b/Sistemas/PopUpPerfil.aspx.vb @@ -126,10 +126,11 @@ Partial Class Sistemas_PopUpPerfil CargaGlobal() End Sub Private Sub CargaGlobal() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - End If - ObjUsuarios.Dispose() + GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjUsuarios As New ClsSisUsuarios + 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + 'End If + 'ObjUsuarios.Dispose() End Sub End Class diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 10c2f7692..9d31e213c 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,13 +1383,15 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL ALMACEN 'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing - - 'RECARGA GLOBAL EMPRESAS USUARIOS - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - End If + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + + 'RECARGA GLOBAL EMPRESAS USUARIOS + GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing + GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing + 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If End Sub Private Sub EnviaCorreo()