From 1e205891be97d228299b9dac61d3df9a0135de08 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 14 Feb 2023 17:52:07 -0700 Subject: [PATCH 1/8] Correcion en descarga de evaluacion de proveedores --- Compras/Proveedores.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 975465cb7..ebc6772bf 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "CartaProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) @@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "FormatoEvaluacionProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) From 2e1d4fb117ae4605bd974ff8350b75185bb111f0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 07:30:55 -0700 Subject: [PATCH 2/8] -- cambio Globaldt --- App_Code/ClsPaginas.vb | 202 +++++++++++---------- App_Code/ClsRH.vb | 28 ++- Global.asax | 379 ++------------------------------------- Nomina/Finiquito.aspx.cs | 2 +- 4 files changed, 142 insertions(+), 469 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e28a517c6..04bc82dd4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -366,7 +366,7 @@ Public Class ClsPaginas Property GlobalDTTipoOperacion() As DataTable Get Dim AppNombre As String = "GlobalDTTipoOperacion" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -381,7 +381,7 @@ Public Class ClsPaginas Property GlobalDTSATMotivoTraslado() As DataTable Get Dim AppNombre As String = "GlobalDTSATMotivoTraslado" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATMotivoTraslado() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -396,7 +396,7 @@ Public Class ClsPaginas Property GlobalDTUnidadAduana() As DataTable Get Dim AppNombre As String = "GlobalDTUnidadAduana" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATUnidadesAduana() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -411,7 +411,7 @@ Public Class ClsPaginas Property GlobalDTGralPaises() As DataTable Get Dim AppNombre As String = "GlobalDTGralPaises" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATPais() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -589,7 +589,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsGenerales If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -612,7 +612,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsCompProveedores If P.GetProveedorClasificacion(CveEmpresa) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -634,7 +634,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsCompProveedores If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -922,19 +922,23 @@ Public Class ClsPaginas End Property Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Get - If CveEmpresa <> -1 Then - Dim Str As New StringBuilder - Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion) - Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) - GlobalDTClasificacionesDetalle = Dv.ToTable - Dv.Dispose() - Else - GlobalDTClasificacionesDetalle = DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable) + Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then + Using ObjVenta As New ClsVentas + If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then Application(AppNombre) = ObjVenta.DtResultados + End Using End If + + Dim Str As New StringBuilder + If CveClasificacion <> -1 Then Str.AppendFormat(" CveClasificacion = {0}", CveClasificacion) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) + GlobalDTClasificacionesDetalle = Dv.ToTable + Dv.Dispose() + End Get Set(value As DataTable) - Application("GlobalDTClasificacionesDetalle") = value + Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}" + Application(AppNombre) = value End Set End Property Property GlobalDTSubFamilias(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable @@ -958,7 +962,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -974,7 +978,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -1676,21 +1680,25 @@ Public Class ClsPaginas End Property Property GlobalDTInvMetodosInventario() As DataTable Get - GlobalDTInvMetodosInventario = DirectCast(Application("GlobalDTInvMetodosInventario"), DataTable) + Dim AppNombre As String = $"GlobalDTInvMetodosInventario" + If Application(AppNombre) Is Nothing Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetMetodosInv() Then Application(AppNombre) = ObjPS.DtResultados + ObjPS.Dispose() + End If + GlobalDTInvMetodosInventario = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Application("GlobalDTInvMetodosInventario") = value + Dim AppNombre As String = $"GlobalDTInvMetodosInventario" + Application(AppNombre) = value End Set End Property Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}" - 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then - Application(AppNombre) = ObjInventarios.DtResultados - End If + If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then Application(AppNombre) = ObjInventarios.DtResultados ObjInventarios.Dispose() End If Dim Str As New StringBuilder @@ -1715,7 +1723,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados @@ -1731,7 +1738,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados @@ -1747,7 +1753,6 @@ Public Class ClsPaginas Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" - 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados @@ -1767,9 +1772,6 @@ Public Class ClsPaginas Set(value As DataTable) Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" Application(AppNombre) = value - 'Dim ObjPS As New ClsProductosServicios - 'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados - 'ObjPS.Dispose() End Set End Property 'Bancos @@ -1803,7 +1805,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Using ObjBancos As New ClsBancos If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then @@ -1821,7 +1822,6 @@ Public Class ClsPaginas Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows) GlobalDTBancosCuentas = Dv.ToTable Dv.Dispose() - 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable) End Get Set(value As DataTable) Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" @@ -2336,10 +2336,18 @@ Public Class ClsPaginas #Region "***********************************************************************DT EVENTOS****************************************************************************************" Property GlobalDTTiposEventos() As DataTable Get - GlobalDTTiposEventos = DirectCast(Application("GlobalDTTiposEventos"), DataTable) + Dim AppNombre As String = $"GlobalDTTiposEventos" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjTiposEventos As New ClsTiposEventos + If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados + ObjTiposEventos.Dispose() + End If + GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End Get Set(value As DataTable) - Application("GlobalDTTiposEventos") = value + Dim AppNombre As String = $"GlobalDTTiposEventos" + Application(AppNombre) = value End Set End Property Property GlobalDTEventos() As DataTable @@ -2548,7 +2556,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralCategorias-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2570,7 +2578,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralCategorias2-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 4) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2591,7 +2599,7 @@ Public Class ClsPaginas Property GlobalDTGralEscolaridades() As DataTable Get Dim AppNombre As String = "GlobalDTGralEscolaridades" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetEscolaridades() Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2606,7 +2614,7 @@ Public Class ClsPaginas Property GlobalDTGralColectivas(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTGralColectivas-{CveEmpresa}" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetColectivas(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2622,7 +2630,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralMarcas-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjMarcas As New ClsProductosServicios If ObjMarcas.GetMarcas(CveEmpresa) Then Application(AppNombre) = ObjMarcas.DtResultados Else Application(AppNombre) = Nothing ObjMarcas.Dispose() @@ -3253,7 +3261,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjOC As New ClsOC If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjOC.DtResultados @@ -3361,7 +3369,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTAsistenciaDetalle" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetAsistenciasDetalle() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3377,7 +3385,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3393,7 +3401,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEstatusPersonal" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEstatusPersonal() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3409,7 +3417,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3421,27 +3429,25 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTDepartamentos() As DataTable + Property GlobalDTDepartamentos(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTDepartamentos" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetDepartamentos() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetDepartamentos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTDepartamentos = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTDepartamentos" + Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTRHPuestos(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTRHPuestos-{CveEmpresa}" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetPuestos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3457,7 +3463,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEscolaridad" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEscolaridades() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3473,7 +3479,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEstadoCivil" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEstadoCivil() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3489,7 +3495,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTDocumentos" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetDocumentos() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3505,7 +3511,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTGenero" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetGeneros() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3517,19 +3523,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTMotivoBaja() As DataTable + Property GlobalDTMotivoBaja(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTMotivoBaja" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetMotivoBaja() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetMotivoBaja(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTMotivoBaja = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTMotivoBaja" + Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3537,7 +3542,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTTiposContrato" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetTiposContrato() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3549,35 +3554,33 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTRutas() As DataTable + Property GlobalDTRutas(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTRutas" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetRutas() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetRutas(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTRutas = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTRutas" + Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}" Application(AppNombre) = value End Set End Property - Property GlobalDTTurno() As DataTable + Property GlobalDTTurno(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTTurno" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetTurnos() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetTurnos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTTurno = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTTurno" + Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3585,7 +3588,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTJornadas" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetJornadas() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3597,19 +3600,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTMotivosHorasExtras() As DataTable + Property GlobalDTMotivosHorasExtras(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTMotivosHorasExtras" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetMotivoHorasExtras() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetMotivoHorasExtras(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTMotivosHorasExtras = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTMotivosHorasExtras" + Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3617,7 +3619,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTTipoBuzon" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetTipoBuzon() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3818,7 +3820,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTPaqueteriaGuiaTipos-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetGralPaqueteriasGuiasTipo(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -3830,24 +3832,26 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, - Optional PorcentajeIVA As Double = -1) As DataTable + Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable Get - Dim Str As StringBuilder = New StringBuilder() - If CveEmpresa <> -1 Or CveClasicacionPorcentaje <> -1 Or CveClasicacion <> -1 Or PorcentajeIVA <> -1 Then - If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) - If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) - If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTClasificacionPorcentaje = Dv.ToTable - Dv.Dispose() - Else - GlobalDTClasificacionPorcentaje = DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable) + Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Using ObjVenta As New ClsVentas + If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados + End Using End If + + Dim Str As StringBuilder = New StringBuilder() + If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) + If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) + If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTClasificacionPorcentaje = Dv.ToTable + Dv.Dispose() End Get Set(value As DataTable) - HttpContext.Current.Application("GlobalDTClasificacionPorcentaje") = value + Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 9e98ac57a..49613218c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -448,9 +448,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHDepartamentos" - Public Function GetDepartamentos() As Boolean + Public Function GetDepartamentos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_DepartamentosGet") + DataAdapter("PA_RH_DepartamentosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try SqlAdapter.Fill(Data) Retorno = True @@ -982,7 +986,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo SqlAdapter.SelectCommand.Parameters.Add("@CveGenero", SqlDbType.Int).Value = CveGenero - Try SqlAdapter.Fill(Data) Retorno = True @@ -1074,9 +1077,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHMotivoBaja" - Public Function GetMotivoBaja() As Boolean + Public Function GetMotivoBaja(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_MotivoBajaGet") + DataAdapter("PA_RH_MotivoBajaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -1164,9 +1170,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHMotivosHorasExtras" - Public Function GetMotivoHorasExtras() As Boolean + Public Function GetMotivoHorasExtras(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_MotivosHorasExtrasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -3249,9 +3258,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHRuta" - Public Function GetRutas() As Boolean + Public Function GetRutas(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_RutaGet") + DataAdapter("PA_RH_RutaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True diff --git a/Global.asax b/Global.asax index f2ce1c56b..c391efa77 100644 --- a/Global.asax +++ b/Global.asax @@ -37,60 +37,6 @@ 'BANDERA PARA VALIDACION DE CFDI Application("GlobalValidarCFDI") = True - '---------------------------------------------------------------------------------------------------------------------- - 'C A R G A - R H -#If False Then - GuardaLogAsax(String.Format("Globalasax 1:{0}", DateTime.Now)) - Using ObjRH As New ClsRH - - If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing - If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing - If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing - If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing - If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing - If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing - If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing - If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing - If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing - If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing - If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing - If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing - If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing - If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing - If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing - If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing - End Using -#End If - '---------------------------------------------------------------------------------------------------------------------- - 'C A R G A - O S - 'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now)) - - 'Using ObjOS As New ClsOS - ' If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing - ' If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing - 'End Using - '------------------------------------------------------------------------------------------------------------------------- - 'A C T I V O S - F I J O S - 'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now)) - - 'Using ObjActivosFijos As New ClsAF - 'If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing - 'If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing - 'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing - 'If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing - 'If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing - 'If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing - 'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing - 'End Using - '------------------------------------------------------------------------------------------------------------------------- - 'C A R G A - O R D E N E S - D E - C O M P R A S - - 'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now)) - 'Using ObjOC As New ClsOC - 'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing - 'End Using - '------------------------------------------------------------------------------------------------------------------------- 'A M O R T I Z A C I O N - C O N T A B L E @@ -139,13 +85,6 @@ GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - ''C A R G A - T I P O G A S T O S - 'Using ObjCompra As New ClsCompras() - ' If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing - 'End Using - - GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C A R G A - N O M Using ObjNom As New ClsNominas() @@ -190,115 +129,24 @@ GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - - 'B A N C O S - - 'GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now)) - 'Using ObjBancos As New ClsBancos - 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing - 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing - 'If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing - 'If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing - 'If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing - 'If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing - 'End Using - - 'GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - - 'I N V E N T A R I O S - - 'Using Objinventarios As New ClsInventarios - 'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing - 'If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing - 'If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing - 'If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing - 'End Using - - GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C O N T A B I L I D A D - P L A N T I L L A S - - - 'Using ObjContabilidad As New ClsContabilidad - 'If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing - 'If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing - 'If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing - 'End Using - - GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'G E N E R A L E S - Using ObjGenerales As New ClsGenerales - 'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing - 'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing - 'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing - 'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing - 'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing - 'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing - 'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing - 'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing - 'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing - 'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing - 'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing - 'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing - If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing - End Using -#If False Then - 'SAT - Using ObjGrales As New ClsGenerales - 'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing - 'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing - If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing - If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing - If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing - If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing - If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing - If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing - If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing - 'If ObjGrales.GetSATPais Then Application("GlobalDTGralPaises") = ObjGrales.DtResultados Else Application("GlobalDTGralPaises") = Nothing - 'If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing - 'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing - 'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing - End Using - 'GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'E V E N T O S - - 'Using ObjEventos As New ClsOIEventos - 'If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing - 'If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing - 'If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing - 'If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing + 'Using ObjGenerales As New ClsGenerales + ' 'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing + ' 'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing + ' 'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing + ' 'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing + ' 'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing + ' 'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing + ' 'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing + ' 'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing + ' 'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing + ' 'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing + ' 'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing + ' 'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing + ' 'If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing 'End Using - GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'V E N T A S - Using ObjVentas As New ClsVentas - 'If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing - If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing - If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing - If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing - If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing - If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing - If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing - If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing - - End Using - 'GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - ''MF - - 'Dim ObjMF As New ClsMF - 'If ObjMF.GetActividad(-1, -1, -1) Then Application("GlobalDTActividad") = ObjMF.DtResultados Else Application("GlobalDTActividad") = Nothing - 'If ObjMF.GetOperador(-1, -1, -1) Then Application("GlobalDTOperador") = ObjMF.DtResultados Else Application("GlobalDTOperador") = Nothing - 'If ObjMF.GetEstatus(-1, -1, -1) Then Application("GlobalDTEstatus") = ObjMF.DtResultados Else Application("GlobalDTEstatus") = Nothing - - - 'ObjMF.Dispose() -#End If '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C L A S I F I C A C I O N E S @@ -332,92 +180,14 @@ GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) - Using ObjVenta As New ClsVentas - If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then - Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados - End If - End Using - GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now)) - - - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'S U C U R S A L E S - - 'Dim ObjSucursales As New ClsSucursales() - 'If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing - 'ObjSucursales.Dispose() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'U N I D A D E S - D E - M E D I D A - - 'Dim ObjUnidadesMedida As New ClsUnidadesMedida() - 'If ObjUnidadesMedida.GetUnidadesMedida(-1) Then Application("GlobalDTUnidadesMedida") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedida") = Nothing - 'If ObjUnidadesMedida.GetUnidadesMedidaAlias() Then Application("GlobalDTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedidaAlias") = Nothing - 'ObjUnidadesMedida.Dispose() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'M E T O D O S - D E - P A G O - - 'Using ObjMetodoPago As New ClsMetodosPagos() - ' If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing + 'Using ObjVenta As New ClsVentas + ' If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then + ' Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados + ' End If 'End Using 'GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'M O N E D A S - - 'Using ObjMonedas As New ClsMonedas() - ' 'If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing - ' If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing - - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'L E Y E N D A S - F I S C A L E S - - 'Using ObjLeyendasFiscales As New ClsLeyendasFiscales() - ' If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'F A C T U R A S - - 'Using ObjEstatusFactura As New ClsEstatusFactura() - ' If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing - - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O Y E C T O S - - 'Using ObjProyectos As New ClsProyectos - ' If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'S U B P R O Y E C T O S - - 'Using ObjSubProyectos As New ClsSubProyectos - ' 'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing - ' If ObjSubProyectos.GetSubProyectosUsuarios Then - ' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) - ' Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados - ' Else - ' Application("GlobalDTProyectosUsuarios") = Nothing - ' Application("GlobalDTSubProyectosUsuarios") = Nothing - ' End If - ' 'Else Application("GlobalDTProyectosUsuarios") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 26:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'T I P O S - D E - E V E N T O S Using ObjTiposEventos As New ClsTiposEventos @@ -425,66 +195,14 @@ End Using GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O D U C T O S Y S E R V I C I O S - C A R A C T E R I S T I C A S - - 'Se comentan porque ya no se estan cargando con Global. - - 'Dim ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas - 'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicas() Then Application("GlobalDTProductosServiciosCaracteristicas") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicas") = Nothing - 'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicasOpciones() Then Application("GlobalDTProductosServiciosCaracteristicasOpciones") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicasOpciones") = Nothing - 'ObjProductosServiciosCaracteristicas.Dispose() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O D U C T O S S E R V I C I O S - - Using ObjPS As New ClsProductosServicios - 'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing - 'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing - 'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing - If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing - 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing - 'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing - End Using - - GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O V E E D O R E S - - 'Dim ObjProveedores As New ClsCompProveedores - 'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing - 'If ObjProveedores.GetProveedorClasificacion(-1) Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing - 'If ObjProveedores.GetSucursales(-1, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing - 'ObjProveedores.Dispose() - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'P R O V E E D O R E S C U E N T A S Using ObjProveedoresBancos As New ClsGenerales If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing End Using - - GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L I E N T E S - - 'Dim ObjClientes As New ClsClientes - 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados Else Application("GlobalDTCliente") = Nothing - 'If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing - 'ObjClientes.Dispose() - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C O N T R A T O S - - 'Using ObjContratos As New ClsContratos - ' If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing - ' If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing - ' 'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing - 'End Using - GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'V E N D E D O R E S @@ -510,18 +228,6 @@ End Using GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'A C U M U L A D O R E S - - 'Using ObjAcumuladores As New ClsAcumuladores() - ' If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing - ' If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing - ' If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing - ' 'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -533,20 +239,6 @@ GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'U S U A R I O S - - 'Using ObjUsuarios As New ClsSisUsuarios - ' If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then - ' 'Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados - ' Else - ' Application("GlobalDTUsuarios") = Nothing - ' End If - ' 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'R O L E S @@ -573,27 +265,6 @@ End Using GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now)) - '----------------------------------------------------------------------------------7-------------------------------------------------------------------------------------------- - 'E M P R E S A S - - 'Using ObjEmpresas As New ClsSisEmpresas() - ' If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then - ' Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados - ' 'verifico si existe la carpeta de la empresa, sino la crea - ' For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows - ' Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa")) - ' If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta) - ' If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta)) - ' If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta)) - - ' Next - ' Else - ' Application("GlobalDTEmpresas") = Nothing - ' End If - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'G L O B A L E S A P L I C A C I Ó N @@ -620,20 +291,6 @@ ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'I M P U E S T O S L O C A L E S - - 'Using ObjPSImpuestos As New ClsProductosServicios - 'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then - ' If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then - ' Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados - ' Else - ' Application("GlobalDTImpuestosLocales") = Nothing - ' End If - 'End If - 'End Using - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ' R A S T R E O diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 734f9571c..5091cc40f 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -115,7 +115,7 @@ public partial class Nomina_Finiquito : ClsPaginas } private void CargaMotivoBaja() { - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); + DdlMotivoBaja.DataSource = get_GlobalDTMotivoBaja(UsuarioActual.CveEmpresa); DdlMotivoBaja.DataBind(); } private void CargaDdlPersonal() From 0e566d540c7f12d1c9a7aaaabfd02779279642b3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 07:36:22 -0700 Subject: [PATCH 3/8] =?UTF-8?q?--=20proceso=20para=20visualizar=20la=20p?= =?UTF-8?q?=C3=B3liza=20al=20registrar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 5710ba58f..aa2a73f8c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1582,8 +1582,6 @@ Partial Class Compras_Compras CargaFletesAgregados() End If - - InicializaOC() 'Valida si el IVA del XML es está bien calculado @@ -3210,6 +3208,10 @@ Partial Class Compras_Compras InventarioMov() HabilitaNCInv() + If Request("RG") IsNot Nothing Then + BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing) + End If + Else Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) End If @@ -8108,6 +8110,10 @@ Partial Class Compras_Compras Msg.AppendFormat("

Ver Póliza", IdPoliza) End If + If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros + Msg.AppendFormat("

Ver Póliza", CvePrePoliza) + End If + If CveMovimientoInventario > 0 Then Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) Msg.AppendFormat("
Ver Movimiento de Almacen", CveMovimientoInventario) From 37a83219e8761366be9665774d4f78b42d820a3c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 07:36:36 -0700 Subject: [PATCH 4/8] -- mejora en globaldt --- General/SaldosIniciales.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 114626dde..d237ade56 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -3273,8 +3273,8 @@ Partial Class General_SaldosIniciales dtregistrospatronales = ObjRH.DtResultados dtregistrospatronales.CaseSensitive = False dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) - dTDepartamentos = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") - dTTurno = GlobalDTTurno().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + dTDepartamentos = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) + dTTurno = GlobalDTTurno(UsuarioActual.CveEmpresa) dTSubProyectos.CaseSensitive = False dTDepartamentos.CaseSensitive = False dTTurno.CaseSensitive = False @@ -3774,7 +3774,7 @@ Partial Class General_SaldosIniciales crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Departamento" - For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento")) Next @@ -3788,7 +3788,7 @@ Partial Class General_SaldosIniciales crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Turno" - For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno")) Next From 170ba0364d59ede1e15aabcf6a7ed3a83b6f2177 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 07:39:44 -0700 Subject: [PATCH 5/8] -- cambio globalDT --- Nomina/ChecadorAsistencia.aspx.cs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Nomina/ChecadorAsistencia.aspx.cs b/Nomina/ChecadorAsistencia.aspx.cs index 276026119..aabb4eaa7 100644 --- a/Nomina/ChecadorAsistencia.aspx.cs +++ b/Nomina/ChecadorAsistencia.aspx.cs @@ -23,7 +23,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas { if (!IsPostBack) { - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); + DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa); DdlTurno.DataBind(); CargaTiposPeriodo(); @@ -47,7 +47,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas DdlmcPersonal.DataBind(); } } - DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DdlMotivoHoraExtra.DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa); DdlMotivoHoraExtra.DataBind(); cargaChecadores(); CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto); @@ -351,7 +351,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas DdlTurno.SelectedValueExist(drow["CveTurno"].ToString()); } TxtFechalabel.Text = string.Format("{0:dd/MM/yyyy}", fechai); - DataTable dtTurno = GlobalDTTurno.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DataTable dtTurno = get_GlobalDTTurno(UsuarioActual.CveEmpresa); using (ClsNominas objnom = new ClsNominas()) { From d8cf1662f371094eee2ee6211663631739cce9ed Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 09:34:52 -0700 Subject: [PATCH 6/8] -- cambios de globaldt RH --- Nomina/CatPeriodos.aspx.vb | 2 +- Nomina/ListaAsistencias.aspx.vb | 2 +- Nomina/Nomina.aspx.cs | 2 +- Nomina/PreNomina.aspx.vb | 2 +- Nomina/PreNominaHistorial.aspx.vb | 2 +- Nomina/RepConceptosAcumulados.aspx.vb | 10 +++++----- Nomina/RepInversiondeNomina.aspx.cs | 2 +- RH/ActualizacionMasiva.aspx.vb | 2 +- RH/Asistencias.aspx.vb | 4 ++-- RH/CatDepartamentos.aspx.vb | 11 +++++------ RH/CatMotivoBaja.aspx.vb | 11 +++++------ RH/CatMotivosHorasExtras.aspx.vb | 13 ++++++------- RH/CatPersonal.aspx.vb | 14 +++++++------- RH/CatPersonalRequerido.aspx.vb | 4 ++-- RH/CatRuta.aspx.vb | 11 +++++------ RH/ListaAsistenciaRH.aspx.vb | 2 +- RH/MiPerfil.aspx.vb | 2 +- RH/Personal.aspx.vb | 14 +++++++------- RH/PopUpBuscarPersonal.aspx.vb | 6 +++--- RH/Reclutamiento.aspx.vb | 6 +++--- RH/RepAusentismoLaboral.aspx.vb | 2 +- RH/RepChecadorPreAsistencia.aspx.vb | 4 ++-- RH/RepCursos.aspx.vb | 2 +- RH/RepDocumentacionVencida.aspx.vb | 2 +- RH/RepIndiceRotacionPersonal.aspx.vb | 2 +- RH/RepPersonalNecesidades.aspx.vb | 4 ++-- RH/RepUniformes.aspx.vb | 2 +- RH/RepUniformesResguardo.aspx.vb | 2 +- RH/RepVacaciones.aspx.vb | 4 ++-- RH/ReporteViaticos.aspx.cs | 2 +- RH/SolicitudViaticos.aspx.cs | 2 +- Sistemas/CatSesiones.aspx.vb | 8 ++++---- 32 files changed, 77 insertions(+), 81 deletions(-) diff --git a/Nomina/CatPeriodos.aspx.vb b/Nomina/CatPeriodos.aspx.vb index a5bda4d05..bef041ae4 100644 --- a/Nomina/CatPeriodos.aspx.vb +++ b/Nomina/CatPeriodos.aspx.vb @@ -82,7 +82,7 @@ Partial Class Nomina_CatPeriodos End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End Sub diff --git a/Nomina/ListaAsistencias.aspx.vb b/Nomina/ListaAsistencias.aspx.vb index 4ca1e8bfc..e8073a4d8 100644 --- a/Nomina/ListaAsistencias.aspx.vb +++ b/Nomina/ListaAsistencias.aspx.vb @@ -45,7 +45,7 @@ Partial Class Nomina_ListaAsistencias End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 2ebfaa684..c61970803 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -312,7 +312,7 @@ public partial class Nomina_Nomina2 : ClsPaginas cargaEjercicios(); CargaTiposPeriodo(); cargaPeriodos(); - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}"); + DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa); DdlTurno.DataBind(); DdlMetodoPago.DataSource = GlobalDTMetodosPago; diff --git a/Nomina/PreNomina.aspx.vb b/Nomina/PreNomina.aspx.vb index 951845083..e4ac0958c 100644 --- a/Nomina/PreNomina.aspx.vb +++ b/Nomina/PreNomina.aspx.vb @@ -77,7 +77,7 @@ Partial Class Nomina_PreNomina End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub diff --git a/Nomina/PreNominaHistorial.aspx.vb b/Nomina/PreNominaHistorial.aspx.vb index a6bd7c8b7..975a2f610 100644 --- a/Nomina/PreNominaHistorial.aspx.vb +++ b/Nomina/PreNominaHistorial.aspx.vb @@ -57,7 +57,7 @@ Partial Class Nomina_PreNominaHistorial End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub diff --git a/Nomina/RepConceptosAcumulados.aspx.vb b/Nomina/RepConceptosAcumulados.aspx.vb index 83680fe73..972345d63 100644 --- a/Nomina/RepConceptosAcumulados.aspx.vb +++ b/Nomina/RepConceptosAcumulados.aspx.vb @@ -66,11 +66,11 @@ Partial Class Nomina_RepConceptosAcumulados If CveConcepto > 0 And CveTipoPeriodo > 0 Then Dim ObjNomina As New ClsNominas() - If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjNomina.DtResultados - Else - GvDatos.DataSource = Nothing - End If + 'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + ' GvDatos.DataSource = ObjNomina.DtResultados + 'Else + ' GvDatos.DataSource = Nothing + 'End If ObjNomina.Dispose() GvDatos.DataBind() diff --git a/Nomina/RepInversiondeNomina.aspx.cs b/Nomina/RepInversiondeNomina.aspx.cs index 61569ef53..dbe7625aa 100644 --- a/Nomina/RepInversiondeNomina.aspx.cs +++ b/Nomina/RepInversiondeNomina.aspx.cs @@ -96,7 +96,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1")); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(string.Format("CveEmpresa ={0} AND Departamento <> 'Seleccione' ", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " ); DdlDepartamento.DataBind(); DdlDepartamento.Items.Insert(0, new ListItem("Todos", "-1")); diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb index 07ea75a6a..31871c530 100644 --- a/RH/ActualizacionMasiva.aspx.vb +++ b/RH/ActualizacionMasiva.aspx.vb @@ -90,7 +90,7 @@ Partial Class RH_ActualizacionMasiva End Sub Private Sub CargaTurnos() - Dim dt = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + Dim dt = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataSource = dt DdlTurno.DataBind() Dim row = dt.NewRow diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 3a5c22951..efea4804b 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_Asistencias End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub @@ -201,7 +201,7 @@ Partial Class RH_Asistencias If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias") 'Carga Motivos Horas Extras - e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind() If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra") diff --git a/RH/CatDepartamentos.aspx.vb b/RH/CatDepartamentos.aspx.vb index 7f1ac0b2a..9d3bb40fc 100644 --- a/RH/CatDepartamentos.aspx.vb +++ b/RH/CatDepartamentos.aspx.vb @@ -43,9 +43,8 @@ Partial Class RH_CatDepartamentos Public Sub CargaDatos() Dim ObjDepartamentos As New ClsRH - If ObjDepartamentos.GetDepartamentos() Then - ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + If ObjDepartamentos.GetDepartamentos(UsuarioActual.CveEmpresa) Then + ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -75,7 +74,7 @@ Partial Class RH_CatDepartamentos Alert("El nuevo Departamento se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -106,7 +105,7 @@ Partial Class RH_CatDepartamentos If ObjDepartamentos.RemoveDepartamento(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing Alert("El Departamento se eliminó correctamente.", TipoMensaje.MsgInformacion) End If ObjDepartamentos.Dispose() @@ -136,7 +135,7 @@ Partial Class RH_CatDepartamentos If ObjDepartamentos.UpdateDepartamento(Departamento, Estatus, CveDepartamento) Then GvDatos.EditIndex = -1 ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If ObjDepartamentos.Dispose() diff --git a/RH/CatMotivoBaja.aspx.vb b/RH/CatMotivoBaja.aspx.vb index a199cec61..f8819100a 100644 --- a/RH/CatMotivoBaja.aspx.vb +++ b/RH/CatMotivoBaja.aspx.vb @@ -57,9 +57,8 @@ Partial Class RH_CatMotivoBaja Public Sub CargaDatos() Dim ObjMotivoBaja As New ClsRH - If ObjMotivoBaja.GetMotivoBaja() Then - ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + If ObjMotivoBaja.GetMotivoBaja(UsuarioActual.CveEmpresa) Then + ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -79,7 +78,7 @@ Partial Class RH_CatMotivoBaja MotivoTxt.Text = "" Alert("El nuevo Motivo de Baja se guardó correctamente.", TipoMensaje.MsgInformacion) ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -110,7 +109,7 @@ Partial Class RH_CatMotivoBaja If ObjMotivoBaja.RemoveMotivoBaja(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing Alert("El Motivo de Baja se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -145,7 +144,7 @@ Partial Class RH_CatMotivoBaja If ObjMotivoBaja.UpdateMotivoBaja(MotivoBaja, Estatus, CveMotivoBaja) Then GvDatos.EditIndex = -1 ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/CatMotivosHorasExtras.aspx.vb b/RH/CatMotivosHorasExtras.aspx.vb index cf1091d8d..fbd6ecfb5 100644 --- a/RH/CatMotivosHorasExtras.aspx.vb +++ b/RH/CatMotivosHorasExtras.aspx.vb @@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras Public Sub CargaDatos() Dim ObjMotivosHorasExtras As New ClsRH - If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then - ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then + ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -77,7 +76,7 @@ Partial Class RH_CatMotivosHorasExtras Alert("El nuevo Motivo de Horas Extras se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -108,7 +107,7 @@ Partial Class RH_CatMotivosHorasExtras If ObjMotivosHorasExtras.RemoveMotivoHoraExtra(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing Alert("El MotivoHoraExtra se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -138,8 +137,8 @@ Partial Class RH_CatMotivosHorasExtras If ObjMotivosHorasExtras.UpdateMotivoHoraExtra(MotivoHoraExtra, Estatus, CveMotivoHoraExtra) Then GvDatos.EditIndex = -1 - ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index bd9b83708..a7c1e2095 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -246,14 +246,14 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaTurno() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlTurno2.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) + DdlTurno2.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno2.DataBind() DdlTurno.DataBind() End Sub Private Sub CargaDepartamento() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource DdlDepartamentoAdd.DataBind() DdlDepartamento.DataBind() @@ -267,12 +267,12 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) DdlMotivoBaja.DataBind() End Sub @@ -901,7 +901,7 @@ Partial Class RH_CatPersonal crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Departamento" - For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento")) Next @@ -915,7 +915,7 @@ Partial Class RH_CatPersonal crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Turno" - For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno")) Next diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index f7c42d6bf..1d99a4bae 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -94,13 +94,13 @@ Partial Class RH_CatPersonalRequerido End Sub Private Sub CargaTurno() - ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + ReqTurnoDdl.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) ReqTurnoDdl.DataBind() End Sub Private Sub CargaDepartamento() DdlDepartamento.Items.Clear() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() End Sub diff --git a/RH/CatRuta.aspx.vb b/RH/CatRuta.aspx.vb index 526853e57..fc3da8787 100644 --- a/RH/CatRuta.aspx.vb +++ b/RH/CatRuta.aspx.vb @@ -42,9 +42,8 @@ Partial Class RH_CatRuta Public Sub CargaDatos() Dim ObjRuta As New ClsRH - If ObjRuta.GetRutas() Then - ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + If ObjRuta.GetRutas(UsuarioActual.CveEmpresa) Then + ViewState("DTRuta") = ObjRuta.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -85,7 +84,7 @@ Partial Class RH_CatRuta Alert("La nueva Ruta se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -116,7 +115,7 @@ Partial Class RH_CatRuta If ObjRuta.RemoveRuta(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing Alert("La Ruta se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -147,7 +146,7 @@ Partial Class RH_CatRuta If ObjRuta.UpdateRuta(Ruta, Estatus, CveRuta) Then GvDatos.EditIndex = -1 ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/ListaAsistenciaRH.aspx.vb b/RH/ListaAsistenciaRH.aspx.vb index fcc4debf5..19655741b 100644 --- a/RH/ListaAsistenciaRH.aspx.vb +++ b/RH/ListaAsistenciaRH.aspx.vb @@ -40,7 +40,7 @@ Partial Class RH_ListaAsistenciaRH DdlClientes.DataBind() DdlClientes.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index a4715bbc4..bc0b91c37 100644 --- a/RH/MiPerfil.aspx.vb +++ b/RH/MiPerfil.aspx.vb @@ -1216,7 +1216,7 @@ Partial Class RH_MiPerfil DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlPersonal.DataBind() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlSupervisor.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9f77fa72f..f44258e3d 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1177,7 +1177,7 @@ Partial Class RH_Personal End Sub Private Sub CargaTurno() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub @@ -1187,12 +1187,12 @@ Partial Class RH_Personal End Sub Private Sub CargaMotivoHoraExtra() - DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) DdlMotivoHoraExtra.DataBind() End Sub Private Sub CargaDepartamento() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() End Sub @@ -1202,12 +1202,12 @@ Partial Class RH_Personal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) DdlMotivoBaja.DataBind() End Sub @@ -1318,7 +1318,7 @@ Partial Class RH_Personal End Sub Private Sub CargaMotivosHorasExtras() - DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) DdlMotivoHoraExtra.DataBind() End Sub @@ -1543,7 +1543,7 @@ Partial Class RH_Personal If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias") 'Carga Motivos Horas Extras - e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind() If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra") diff --git a/RH/PopUpBuscarPersonal.aspx.vb b/RH/PopUpBuscarPersonal.aspx.vb index 3e59a99ec..d52e5f3a4 100644 --- a/RH/PopUpBuscarPersonal.aspx.vb +++ b/RH/PopUpBuscarPersonal.aspx.vb @@ -64,7 +64,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaTurno() - DdlTurnos.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurnos.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurnos.DataBind() End Sub @@ -98,7 +98,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaDepartamento() - DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentos.DataBind() End Sub @@ -128,7 +128,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb index 2a4efd573..aa802fcca 100644 --- a/RH/Reclutamiento.aspx.vb +++ b/RH/Reclutamiento.aspx.vb @@ -5418,11 +5418,11 @@ Partial Class RH_Reclutamiento 'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then DdlCliente.DataSource = GlobalDTCliente(7) - 'End If - 'End If - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & DdlEmpresaAsiganada.SelectedValue) + 'End If + + DdlRuta.DataSource = GlobalDTRutas(DdlEmpresaAsiganada.SelectedValue.ToEntero) If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, DdlEmpresaAsiganada.SelectedValue.ToEntero) diff --git a/RH/RepAusentismoLaboral.aspx.vb b/RH/RepAusentismoLaboral.aspx.vb index 290053c49..3bdb52e05 100644 --- a/RH/RepAusentismoLaboral.aspx.vb +++ b/RH/RepAusentismoLaboral.aspx.vb @@ -21,7 +21,7 @@ Partial Class RH_RepAusentismoLaboral Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 8cbbadcc3..c032b790e 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -156,7 +156,7 @@ Partial Class RH_RepChecadorPreAsistencia DdlTipoPeriodo.DataBind() DdlTipoPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() ' DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) @@ -365,7 +365,7 @@ Partial Class RH_RepChecadorPreAsistencia DTHorarios = objRH.DtResultados If DdlTurno.SelectedIndex > 0 Then - Dim DTTemp As DataTable = GlobalDTTurno.FiltraParametros("CveTurno = " & DdlTurno.SelectedValue) + Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & DdlTurno.SelectedValue) Dim TMCveChecadorHorario As Integer = -1 If DTTemp.Rows.Count > 0 Then diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb index 1ee537f4c..a004e13e6 100644 --- a/RH/RepCursos.aspx.vb +++ b/RH/RepCursos.aspx.vb @@ -20,7 +20,7 @@ Partial Class RH_RepCursos Private Sub CargaCombos() - DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentos.DataBind() DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepDocumentacionVencida.aspx.vb b/RH/RepDocumentacionVencida.aspx.vb index 6bd981f64..203178fa7 100644 --- a/RH/RepDocumentacionVencida.aspx.vb +++ b/RH/RepDocumentacionVencida.aspx.vb @@ -100,7 +100,7 @@ Partial Class RH_RepDocumentacionVencida DdlSupervisor.DataBind() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index 950bf76b8..edf2ac6fc 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -35,7 +35,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepPersonalNecesidades.aspx.vb b/RH/RepPersonalNecesidades.aspx.vb index a591c9271..6d8a86f5d 100644 --- a/RH/RepPersonalNecesidades.aspx.vb +++ b/RH/RepPersonalNecesidades.aspx.vb @@ -27,7 +27,7 @@ Partial Class RH_RepPersonalNecesidades End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -52,7 +52,7 @@ Partial Class RH_RepPersonalNecesidades Private Sub CargaDepartamento() DdlDepartamento.Items.Clear() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb index 95f9d9283..33003e1ca 100644 --- a/RH/RepUniformes.aspx.vb +++ b/RH/RepUniformes.aspx.vb @@ -29,7 +29,7 @@ Partial Class RH_RepUniformes DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ") DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index f2d8f10c5..ebca77f58 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -29,7 +29,7 @@ Partial Class RH_RepUniformesResguardo DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ") DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepVacaciones.aspx.vb b/RH/RepVacaciones.aspx.vb index 0c034ddd7..dfcc245a5 100644 --- a/RH/RepVacaciones.aspx.vb +++ b/RH/RepVacaciones.aspx.vb @@ -39,10 +39,10 @@ Partial Class RH_RepVacaciones DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ") DdlSupervisor.DataBind() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/ReporteViaticos.aspx.cs b/RH/ReporteViaticos.aspx.cs index 056cb5308..380f367d0 100644 --- a/RH/ReporteViaticos.aspx.cs +++ b/RH/ReporteViaticos.aspx.cs @@ -25,7 +25,7 @@ public partial class RH_ReporteViaticos : ClsPaginas DdlPersonal.DataBind(); DdlPersonal.Items.Insert(0, new ListItem("Todos ", "-1")); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa); DdlDepartamento.DataBind(); DdlDepartamento.Items.Insert(0, new ListItem("Todos ", "-1")); } diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs index 912959049..39f049ba5 100644 --- a/RH/SolicitudViaticos.aspx.cs +++ b/RH/SolicitudViaticos.aspx.cs @@ -111,7 +111,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); DdlPersonal.DataBind(); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa); DdlDepartamento.DataBind(); DdlSupervisor.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index e2d5886d9..85a382108 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -216,20 +216,20 @@ Partial Class Sistemas_CatSesiones Private Sub CargaRH() Dim ObjRH As New ClsRH If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing - If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing + If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing - If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing + If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing - If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing + If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing - If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing + If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing ObjRH.Dispose() From 97c4ba497a848fe670b61acd62245373ef1c4d2d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Feb 2023 09:35:02 -0700 Subject: [PATCH 7/8] --globadlclasifporcentajes --- App_Code/ClsPaginas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 04bc82dd4..bf0830527 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3836,8 +3836,8 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then - Using ObjVenta As New ClsVentas - If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados + Using ObjVenta As New ClsGenerales + If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados End Using End If @@ -3845,7 +3845,7 @@ Public Class ClsPaginas If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) GlobalDTClasificacionPorcentaje = Dv.ToTable Dv.Dispose() End Get From 6a78ed35deea3f2324da3957be241cc0a124bb85 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 15 Feb 2023 09:48:04 -0700 Subject: [PATCH 8/8] EMD. cambios en contratos --- Contratos/Contrato.aspx.vb | 102 +++++++++++++++++++++++++++++++------ Ventas/Ventas.aspx | 4 +- 2 files changed, 88 insertions(+), 18 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index d2c3340ef..50d451713 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -487,6 +487,10 @@ Partial Class Contratos_Default End If If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False + If UsuarioActual.CveEmpresa = 13 Then + rpCompra.Visible = False + End If + End Sub Public Sub CargaDireccionesEnvios(CveCliente As Integer) @@ -728,11 +732,11 @@ Partial Class Contratos_Default DvTotal.Visible = True - If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then + If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then TableDatosCabecera.Visible = True End If - If CveContratoTipo = 25 Then + If CveContratoTipo.Contiene(25, 33) Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -749,11 +753,11 @@ Partial Class Contratos_Default DvTotal.Visible = True 'TxtCantidad.Visible = False - If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then + If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then TableDatosCabecera.Visible = True End If - If CveContratoTipo = 25 Then + If CveContratoTipo.Contiene(25, 33) Then DvMax.Visible = False DvMin.Visible = False DvTotal.Visible = False @@ -835,6 +839,48 @@ Partial Class Contratos_Default CargaPlantillas() TrContratoPlantilla.Visible = True TabPres.HeaderText = "Partidas" + End If + + + If CveContratoTipo = 33 Then + TabContratosGastos.Visible = False + TabAF.Visible = False + TabReporteAvance.Visible = False + TabAvanveDocumento.Visible = False + TabContratosGastos.Visible = False + TabAF.Visible = False + TabPed.Visible = False + TabAddendum.Visible = False + TabFacCiclica.Visible = False + + TabPVInsumos.Visible = False + + thOcCliente.Visible = False + tdOcCliente.Visible = False + + thLimitar.Visible = False + tdLimitar2.Visible = False + + trLicitacion.Visible = False + divResponsable.Visible = False + 'TrPeriodo.Visible = True + trIva.Visible = False + trAnticipo.Visible = False + trAmortizacion.Visible = False + trPorGarantia.Visible = False + DvMin.Visible = False + RowFlexible.Visible = False + RowPorcentajeComision.Visible = False + DvMax.Visible = False + DvTotal.Visible = False + 'RowEstatus.Visible = False + DdlSubProyectoContrato.AutoPostBack = False + + dvAddendum.Visible = False + + DivFianzas.Visible = False + Div4.Visible = False + DivImpuestosLocales.Visible = False End If @@ -938,6 +984,27 @@ Partial Class Contratos_Default thLimitar.Visible = False tdLimitar2.Visible = False + + trLicitacion.Visible = False + divResponsable.Visible = False + 'TrPeriodo.Visible = True + trIva.Visible = False + trAnticipo.Visible = False + trAmortizacion.Visible = False + trPorGarantia.Visible = False + DvMin.Visible = False + RowFlexible.Visible = False + RowPorcentajeComision.Visible = False + DvMax.Visible = False + DvTotal.Visible = False + RowEstatus.Visible = False + DdlSubProyectoContrato.AutoPostBack = False + + dvAddendum.Visible = False + + DivFianzas.Visible = False + Div4.Visible = False + DivImpuestosLocales.Visible = False End If If ObjContratos.CveProveedor > 0 Then @@ -1232,20 +1299,23 @@ Partial Class Contratos_Default Private Sub CargarFianzas() - DivFianzas.Visible = True - - Dim ObjContrato As ClsContratos = New ClsContratos() - - If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then - DtTmpFianzas = ObjContrato.DtResultados - GvFianzas.DataSource = ObjContrato.DtResultados - - DtTmpFianzasInicial = DtTmpFianzas.Copy() - + If CveContratoTipo <> 33 Then + DivFianzas.Visible = True + + Dim ObjContrato As ClsContratos = New ClsContratos() + + If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then + DtTmpFianzas = ObjContrato.DtResultados + GvFianzas.DataSource = ObjContrato.DtResultados + + DtTmpFianzasInicial = DtTmpFianzas.Copy() + + End If + + ObjContrato.Dispose() + GvFianzas.DataBind() End If - ObjContrato.Dispose() - GvFianzas.DataBind() UpGvFianzas.Update() End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3fb93897b..e654fa7f1 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -555,7 +555,7 @@ - Descripción de factura: + Descripción: @@ -3226,7 +3226,7 @@ - + OC Cliente