AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras en globalDT

Browse Source
This commit is contained in:
rrene
2023-02-19 20:13:24 -07:00
parent 5f7d3d4c4b
commit 1afd8aa281
13 changed files with 145 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

192
App_Code/ClsPaginas.vb
View File

@@ -187,7 +187,7 @@ Public Class ClsPaginas
If CveCliente <> -1 Then filtros.Add($"CveCliente = {CveCliente}") If CveCliente <> -1 Then filtros.Add($"CveCliente = {CveCliente}")
If CveProveedor <> -1 Then filtros.Add($"CveProveedor = {CveProveedor}") If CveProveedor <> -1 Then filtros.Add($"CveProveedor = {CveProveedor}")
If filtros.Count > 0 Then If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTUsuarios = Dv.ToTable GlobalDTUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
@@ -572,21 +572,37 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTProveedoresCuentas(CveProveedor As Integer, Estatus As Boolean) As DataTable Property GlobalDTProveedoresCuentas(CveEmpresa As Integer, CveProveedor As Integer, Optional CveCuentaDeposito As Integer = -1) As DataTable
Get Get
GlobalDTProveedoresCuentas = DirectCast(Application("GlobalDTProveedoresCuentas"), DataTable) Dim AppNombre As String = $"GlobalDTProveedoresCuentas-{CveEmpresa}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjProveedoresBancos As New ClsGenerales
If ObjProveedoresBancos.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveProveedor:=-1, CveCliente:=-2, CvePersonal:=-2) Then Application(AppNombre) = ObjProveedoresBancos.DtResultados
End Using
End If
Dim filtros As New List(Of String)
If CveProveedor <> -1 Then filtros.Add($"CveProveedor = {CveProveedor}")
If CveCuentaDeposito <> -1 Then filtros.Add($"CveCuentaDeposito = {CveCuentaDeposito}")
If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTProveedoresCuentas = Dv.ToTable
Dv.Dispose()
Else
GlobalDTProveedoresCuentas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTProveedoresCuentas") = value Dim AppNombre As String = $"GlobalDTProveedoresCuentas-{CveEmpresa}"
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}"
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim P As New ClsGenerales Dim P As New ClsGenerales
If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-1, CveProveedor:=-2, CvePersonal:=-2) Then Application(AppNombre) = P.DtResultados
P.Dispose() P.Dispose()
End If End If
Dim Str As New StringBuilder Dim Str As New StringBuilder
@@ -622,7 +638,6 @@ Public Class ClsPaginas
Property GlobalDTProveedorSucursales(CveProveedor As Integer, CveEmpresa As Integer) As DataTable Property GlobalDTProveedorSucursales(CveProveedor As Integer, CveEmpresa As Integer) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}"
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim P As New ClsCompProveedores Dim P As New ClsCompProveedores
If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados
@@ -643,16 +658,19 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTRoles(CveEmpresa As Integer) As DataTable Property GlobalDTRoles(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTRoles-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTRoles"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) If Application(AppNombre) Is Nothing Then
GlobalDTRoles = Dv.ToTable Using ObjRoles As New ClsSisRoles
Dv.Dispose() If ObjRoles.GetRoles(-1, CveEmpresa) Then Application(AppNombre) = ObjRoles.DtResultados
Else End Using
GlobalDTRoles = DirectCast(Application("GlobalDTRoles"), DataTable)
End If End If
GlobalDTRoles = DirectCast(Application(AppNombre), DataTable)
End Get End Get
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
Application("GlobalDTRoles") = value Dim AppNombre As String = $"GlobalDTRoles-{CveEmpresa}"
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTNomSatBancos() As DataTable Property GlobalDTNomSatBancos() As DataTable
@@ -809,7 +827,6 @@ Public Class ClsPaginas
Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTClasificaciones-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjClasificaciones As New ClsClasificaciones Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados
@@ -872,35 +889,48 @@ Public Class ClsPaginas
End Property End Property
Property GlobalDTClasificacionesSubProyectos(Optional CveClasificacion As Integer = -1, Optional CveEmpresa As Integer = -1) As DataTable Property GlobalDTClasificacionesSubProyectos(Optional CveClasificacion As Integer = -1, Optional CveEmpresa As Integer = -1) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTClasificacionesSubProyectos-{CveEmpresa}"
Dim Str As New StringBuilder If HttpContext.Current.Application(AppNombre) Is Nothing Then
Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) Dim ObjClasificaciones As New ClsClasificaciones
Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificacionesSubProyecto"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) If ObjClasificaciones.GetDTClasificacionesSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
ObjClasificaciones.Dispose()
End If
Dim filtros As New List(Of String)
If CveClasificacion <> -1 Then filtros.Add($"CveCategoria = {CveClasificacion}")
If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTClasificacionesSubProyectos = Dv.ToTable GlobalDTClasificacionesSubProyectos = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTClasificacionesSubProyectos = DirectCast(Application("GlobalDTClasificacionesSubProyecto"), DataTable) GlobalDTClasificacionesSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTClasificacionesSubProyecto") = value Dim AppNombre As String = $"GlobalDTClasificacionesSubProyectos-{CveEmpresa}"
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTACClasificadorObjetoGasto(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable Property GlobalDTACClasificadorObjetoGasto(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTACClasificadorObjetoGasto-{CveEmpresa}"
Dim Str As New StringBuilder If HttpContext.Current.Application(AppNombre) Is Nothing Then
Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) Dim ObjClasificaciones As New ClsClasificaciones
If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria) If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
Dim Dv As New DataView(DirectCast(Application("GlobalDTACClasificadorObjetoGasto"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) ObjClasificaciones.Dispose()
End If
Dim filtros As New List(Of String)
If CveCategoria <> -1 Then filtros.Add($"CveCategoria = {CveCategoria}")
If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTACClasificadorObjetoGasto = Dv.ToTable GlobalDTACClasificadorObjetoGasto = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTACClasificadorObjetoGasto = DirectCast(Application("GlobalDTACClasificadorObjetoGasto"), DataTable) GlobalDTACClasificadorObjetoGasto = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTACClasificadorObjetoGasto") = value Dim AppNombre As String = $"GlobalDTACClasificadorObjetoGasto-{CveEmpresa}"
Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
@@ -960,7 +990,6 @@ Public Class ClsPaginas
Property GlobalDTCategoriasPresupuestos(Optional CveEmpresa As Integer = -1) As DataTable Property GlobalDTCategoriasPresupuestos(Optional CveEmpresa As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}"
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjGenerales As New ClsGenerales Dim ObjGenerales As New ClsGenerales
If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados
@@ -976,7 +1005,6 @@ Public Class ClsPaginas
Property GlobalDTChoferes(CveEmpresa As Integer, Optional CveChofer As Integer = -1) As DataTable Property GlobalDTChoferes(CveEmpresa As Integer, Optional CveChofer As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTChoferes-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTChoferes-{CveEmpresa}"
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjAcar As New ClsAcarreos() Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetChofer(-1, CveEmpresa, 1, -1) Then If ObjAcar.GetChofer(-1, CveEmpresa, 1, -1) Then
@@ -1024,12 +1052,29 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTModulos() As DataTable Property GlobalDTModulos(Optional CveModulo As Integer = -1) As DataTable
Get Get
GlobalDTModulos = DirectCast(Application("GlobalDTModulos"), DataTable) Dim AppNombre As String = "GlobalDTModulos"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Using ObjModulos As New ClsModulos
If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application(AppNombre) = ObjModulos.DtResultados
End Using
End If
Dim filtros As New List(Of String)
If CveModulo <> -1 Then filtros.Add($"CveModulo = {CveModulo}")
If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTModulos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTModulos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get End Get
Set(ByVal value As DataTable) Set(ByVal value As DataTable)
Application("GlobalDTModulos") = value Dim AppNombre As String = "GlobalDTModulos"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTMonedas() As DataTable Public Shared Property GlobalDTMonedas() As DataTable
@@ -1932,43 +1977,44 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
'Variables para Ventas 'Variables para Ventas
Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional VendedorTipo As Integer = 1) As DataTable Public Shared Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional VendedorTipo As Integer = 1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}"
'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then
If Application(AppNombre) Is Nothing Then
Dim ObjVendedores As New ClsVtaVendedores Dim ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(CveEmpresa) Then Application(AppNombre) = ObjVendedores.DtResultados If ObjVendedores.GetVendedores(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVendedores.DtResultados
ObjVendedores.Dispose() ObjVendedores.Dispose()
End If End If
Dim filtros As New List(Of String) Dim filtros As New List(Of String)
If VendedorTipo >= 0 Then filtros.Add($"VendedorTipo = {VendedorTipo}") If VendedorTipo >= 0 Then filtros.Add($"VendedorTipo = {VendedorTipo}")
If Estatus >= 0 Then filtros.Add($"CveEstatus = {Estatus}") If Estatus >= 0 Then filtros.Add($"CveEstatus = {Estatus}")
If filtros.Count > 0 Then If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTVendedores = Dv.ToTable GlobalDTVendedores = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTVendedores = DirectCast(Application(AppNombre), DataTable) GlobalDTVendedores = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTVendedores-{CveEmpresa}"
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTClientesCorporativo(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTClientesCorporativo(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTClientesCorporativo-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTClientesCorporativo"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) If HttpContext.Current.Application(AppNombre) Is Nothing Then
GlobalDTClientesCorporativo = Dv.ToTable Using ObjCorporativo As New ClsClientes
Dv.Dispose() If ObjCorporativo.GetCorporativo(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjCorporativo.DtResultados
Else End Using
GlobalDTClientesCorporativo = DirectCast(Application("GlobalDTClientesCorporativo"), DataTable)
End If End If
GlobalDTClientesCorporativo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTClientesCorporativo") = value Dim AppNombre As String = $"GlobalDTClientesCorporativo-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1, Optional RFC As String = "-1") As DataTable Public Shared Property GlobalDTCompProveedores(CveEmpresa As Integer, Optional CveProveedor As Integer = -1, Optional RFC As String = "-1") As DataTable
@@ -1997,12 +2043,20 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
'EstatusFactura 'EstatusFactura
Property GlobalDTCompEstatusFactura() As DataTable Public Shared Property GlobalDTCompEstatusFactura() As DataTable
Get Get
GlobalDTCompEstatusFactura = DirectCast(Application("GlobalDTCompEstatusFactura"), DataTable).FiltraParametros("Estatus = 'Activo'") Dim AppNombre As String = "GlobalDTCompEstatusFactura"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjEstatusFacturaCompra As New ClsCompEstatusFactura
If ObjEstatusFacturaCompra.GetEstatusFactura Then HttpContext.Current.Application(AppNombre) = ObjEstatusFacturaCompra.DtResultados
End Using
End If
GlobalDTCompEstatusFactura = DirectCast(HttpContext.Current.Application(AppNombre), DataTable).FiltraParametros("Estatus = 'Activo'")
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTCompEstatusFactura") = value Dim AppNombre As String = "GlobalDTCompEstatusFactura"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTContratosSecciones() As DataTable Property GlobalDTContratosSecciones() As DataTable
@@ -2282,17 +2336,17 @@ Public Class ClsPaginas
#Region "***********************************************************************DT EVENTOS****************************************************************************************" #Region "***********************************************************************DT EVENTOS****************************************************************************************"
Property GlobalDTTiposEventos() As DataTable Property GlobalDTTiposEventos() As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTTiposEventos" Dim AppNombre As String = "GlobalDTTiposEventos"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjTiposEventos As New ClsTiposEventos Using ObjTiposEventos As New ClsTiposEventos
If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados
ObjTiposEventos.Dispose() End Using
End If End If
GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTTiposEventos" Dim AppNombre As String = "GlobalDTTiposEventos"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
@@ -3218,7 +3272,7 @@ Public Class ClsPaginas
End If End If
Dim filtros As New List(Of String) Dim filtros As New List(Of String)
If CveUsuario > 0 Then filtros.Add($"CveUsuario = {CveUsuario}") If CveUsuario > 0 Then filtros.Add($"CveUsuario = {CveUsuario}")
If Tipo <> "" Then filtros.Add($"Tipo = {Tipo}") If Tipo <> "" Then filtros.Add($"Tipo = '{Tipo}'")
If filtros.Count > 0 Then If filtros.Count > 0 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTOCEstatusUsuarios = Dv.ToTable GlobalDTOCEstatusUsuarios = Dv.ToTable
@@ -6599,18 +6653,18 @@ Public Class ClsPaginas
params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
End If End If
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
Dim ObjCuentasBancos As New ClsGenerales() 'Dim ObjCuentasBancos As New ClsGenerales()
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then 'If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then
Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'") Dim CuentasActivas As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=ObjOC.CveProveedor).FiltraParametros("EstatusTexto = 'Activo'")
Dim CuentasStr As New StringBuilder("") Dim CuentasStr As New StringBuilder("")
For Each CuentasBancarios As DataRow In CuentasActivas.Rows For Each CuentasBancarios As DataRow In CuentasActivas.Rows
Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString) Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString)
Dim infoCuenta As String = String.Format("<br>{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe) Dim infoCuenta As String = String.Format("<br>{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe)
CuentasStr.AppendFormat(infoCuenta) CuentasStr.AppendFormat(infoCuenta)
Next Next
params.Add(New ReportParameter("Cuentas", CuentasStr.ToString)) params.Add(New ReportParameter("Cuentas", CuentasStr.ToString))
End If 'End If
ObjCuentasBancos.Dispose() 'ObjCuentasBancos.Dispose()
End If End If
'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)

11
Bancos/PopUpBuscarCuentasProveedor.aspx.vb
View File

@@ -83,18 +83,7 @@ Partial Class Bancos_PopUpBuscarCuentasProveedor
ObjCuentasBancos.Dispose() ObjCuentasBancos.Dispose()
CargaPSGridCuentasBancos() CargaPSGridCuentasBancos()
RecargaGlobalCuentasBancarias()
End Sub
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
End If
End Sub End Sub
Private Sub CargaPSGridCuentasBancos() Private Sub CargaPSGridCuentasBancos()

29
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1472,19 +1472,6 @@ Partial Class Bancos_ProveedoresAbonar
End Sub End Sub
#End Region #End Region
'ESTO NO DEBERIA ESTAR AQUI
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
End If
End Sub
Protected Sub DdllOtrosPagos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlOtrosPagos.SelectedIndexChanged Protected Sub DdllOtrosPagos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlOtrosPagos.SelectedIndexChanged
If DdlOtrosPagos.SelectedValue <> "-1" Then If DdlOtrosPagos.SelectedValue <> "-1" Then
@@ -2047,17 +2034,15 @@ Partial Class Bancos_ProveedoresAbonar
Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = "" Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = ""
If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No" If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No"
If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
Dim ObjGral As New ClsGenerales Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)
If ObjGral.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) Then If dtt.Rows.Count > 0 Then
If ObjGral.DtResultados.Rows.Count > 0 Then Banco = dtt.Rows(0)("BancoNombre").ToString
Banco = ObjGral.DtResultados.Rows(0)("BancoNombre").ToString CLABE = dtt.Rows(0)("CLABE").ToString
CLABE = ObjGral.DtResultados.Rows(0)("CLABE").ToString Cuenta = dtt.Rows(0)("Cuenta").ToString
Cuenta = ObjGral.DtResultados.Rows(0)("Cuenta").ToString Correo = dtt.Rows(0)("Correo").ToString
Correo = ObjGral.DtResultados.Rows(0)("Correo").ToString
End If
End If End If
ObjGral.Dispose()
End If End If
params.Add(New ReportParameter("Transferencia", Transferencia)) params.Add(New ReportParameter("Transferencia", Transferencia))
params.Add(New ReportParameter("Banco", Banco)) params.Add(New ReportParameter("Banco", Banco))
params.Add(New ReportParameter("CLABE", CLABE)) params.Add(New ReportParameter("CLABE", CLABE))

18
Bancos/ProveedoresCreditos.aspx.vb
View File

@@ -690,11 +690,7 @@ Partial Class Bancos_ProveedoresCreditos
LblPagueseA.Text = "Beneficiario" LblPagueseA.Text = "Beneficiario"
End Select End Select
'RecargaCuentas
CargaCuenta() CargaCuenta()
RecargaCuentasDepositos()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
@@ -1369,7 +1365,6 @@ Partial Class Bancos_ProveedoresCreditos
Alert(Msg.ToString, TipoMensaje.MsgInformacion, String.Format("document.location.href=""{0}"";", HttpContext.Current.Request.Url.PathAndQuery)) Alert(Msg.ToString, TipoMensaje.MsgInformacion, String.Format("document.location.href=""{0}"";", HttpContext.Current.Request.Url.PathAndQuery))
End If End If
RecargaGlobalCuentasBancarias()
ObjIE.Dispose() ObjIE.Dispose()
ObjMov.Dispose() ObjMov.Dispose()
ObjComp.Dispose() ObjComp.Dispose()
@@ -1555,7 +1550,6 @@ Partial Class Bancos_ProveedoresCreditos
trCuentaDeposito.Visible = False trCuentaDeposito.Visible = False
DdlCuentaDeposito.Items.Clear() DdlCuentaDeposito.Items.Clear()
End If End If
RecargaGlobalCuentasBancarias()
UpCuentaDeposito.Update() UpCuentaDeposito.Update()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
@@ -1573,18 +1567,6 @@ Partial Class Bancos_ProveedoresCreditos
End If End If
End Sub End Sub
'Recaga CuentasBancarias de Proveedor
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
End If
End Sub
Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim Dep As New ClsGenerales Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then

15
Compras/Proveedores.aspx.vb
View File

@@ -3560,22 +3560,19 @@ Partial Class Compras_Proveedores
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If End If
If ObjCuentasBancos.GetCuentasDepositos Then
GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
End If
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
ObjCuentasBancos.Dispose() ObjCuentasBancos.Dispose()
RecargaGlobalCuentasBancarias() RecargaGlobalCuentasBancarias()
End Sub End Sub
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
'Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then 'If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados ' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1, True) = ObjCuentasBancos.DtResultados
End If 'End If
ObjCuentasBancos.Dispose() 'ObjCuentasBancos.Dispose()
End If End If
End Sub End Sub

97
Global.asax
View File

@@ -128,42 +128,11 @@
End Using End Using
GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 11:{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
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L A S I F I C A C I O N E S 'C L A S I F I C A C I O N E S
Using ObjClasificaciones As New ClsClasificaciones() Using ObjClasificaciones As New ClsClasificaciones()
If ObjClasificaciones.GetClasificaciones() Then
Application("GlobalDTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo is null OR Codigo = '' ")
Application("GlobalDTACClasificadorObjetoGasto") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
Else
Application("GlobalDTClasificaciones") = Nothing
Application("GlobalDTACClasificadorObjetoGasto") = Nothing
End If
If ObjClasificaciones.GetDTClasificacionesSubProyectos() Then
Application("GlobalDTClasificacionesSubProyecto") = ObjClasificaciones.DtResultados
Else
Application("GlobalDTClasificacionesSubProyecto") = Nothing
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A M I L I A S 'F A M I L I A S
@@ -179,55 +148,6 @@
End Using End Using
GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) 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))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'T I P O S - D E - E V E N T O S
Using ObjTiposEventos As New ClsTiposEventos
If ObjTiposEventos.GetTiposEventos() Then Application("GlobalDTTiposEventos") = ObjTiposEventos.DtResultados Else Application("GlobalDTTiposEventos") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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 30:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'V E N D E D O R E S
Using ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(-1) Then Application("GlobalDTVendedores") = ObjVendedores.DtResultados Else Application("GlobalDTVendedores") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 31:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O R P O R A T I V O
Using ObjCorporativo As New ClsClientes
If ObjCorporativo.GetCorporativo(-1, -1) Then Application("GlobalDTClientesCorporativo") = ObjCorporativo.DtResultados Else Application("GlobalDTClientesCorporativo") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 32:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'E S T A T U S - F A C T U R A
Using ObjEstatusFacturaCompra As New ClsCompEstatusFactura
If ObjEstatusFacturaCompra.GetEstatusFactura Then Application("GlobalDTCompEstatusFactura") = ObjEstatusFacturaCompra.DtResultados Else Application("GlobalDTCompEstatusFactura") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -239,23 +159,6 @@
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'R O L E S
Using ObjRoles As New ClsSisRoles
If ObjRoles.GetRoles(-1, -1) Then Application("GlobalDTRoles") = ObjRoles.DtResultados Else Application("GlobalDTRoles") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 37:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'M O D U L O S
Using ObjModulos As New ClsModulos
If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then Application("GlobalDTModulos") = ObjModulos.DtResultados Else Application("GlobalDTModulos") = Nothing
End Using
GuardaLogAsax(String.Format("Globalasax 38:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O M B U S T I B L E S 'C O M B U S T I B L E S

2
Inicio.aspx.vb
View File

@@ -136,7 +136,7 @@ Partial Class Inicio
Dim Codigo As String = Decripta(Request("ADCod")) Dim Codigo As String = Decripta(Request("ADCod"))
Dim Msg As String = "" Dim Msg As String = ""
If Codigo.Substring(0, 10) = "CveModulo=" Then If Codigo.Substring(0, 10) = "CveModulo=" Then
Msg = "No tiene permisos de acceso al módulo:" & GlobalDTModulos().FiltroPrimeroValor("Modulo", Codigo) Msg = "No tiene permisos de acceso al módulo: " & GlobalDTModulos(Codigo.Substring(10).ToEntero).FiltroPrimeroValor("Modulo")
End If End If
Alert(Msg, TipoMensaje.MsgAdvertencia) Alert(Msg, TipoMensaje.MsgAdvertencia)
End If End If

2
OI/Desarrollo.aspx.vb
View File

@@ -349,7 +349,7 @@ Partial Class OI_Desarrollo
DdlUsuarioPruebas.DataBind() DdlUsuarioPruebas.DataBind()
DdlUsuarioPruebas.Items.Insert(0, New ListItem("Selecione uno", "-1")) DdlUsuarioPruebas.Items.Insert(0, New ListItem("Selecione uno", "-1"))
DdlModulo.DataSource = GlobalDTModulos() DdlModulo.DataSource = GlobalDTModulos(-1)
DdlModulo.DataBind() DdlModulo.DataBind()
DdlModulo.Items.Insert(0, New ListItem("Selecione uno", "-1")) DdlModulo.Items.Insert(0, New ListItem("Selecione uno", "-1"))

2
OI/RepDesarrollo.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class OI_RepDesarrollo
'DdlResponsable.DataBind() 'DdlResponsable.DataBind()
'DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))
DdlModulo.DataSource = GlobalDTModulos() DdlModulo.DataSource = GlobalDTModulos(-1)
DdlModulo.DataBind() DdlModulo.DataBind()
DdlModulo.Items.Insert(0, New ListItem("Todos", "-1")) DdlModulo.Items.Insert(0, New ListItem("Todos", "-1"))

2
OI/SoporteADS.aspx.vb
View File

@@ -2178,7 +2178,7 @@ Partial Class OI_SoporteADS
DdlModulo.DataSource = GlobalDTModulos DdlModulo.DataSource = GlobalDTModulos(-1)
DdlModulo.DataBind() DdlModulo.DataBind()
DdlModulo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlModulo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

2
Sistemas/EmpresasModulos.aspx.vb
View File

@@ -70,7 +70,7 @@ Partial Class Sistemas_EmpresasModulos
End Sub End Sub
Private Sub CargaModulosDisponible() Private Sub CargaModulosDisponible()
Dim DtModulosDisponible = GlobalDTModulos.FiltraParametros("Liga <> ''") Dim DtModulosDisponible = GlobalDTModulos().FiltraParametros("Liga <> ''")
Dim rowsToDelete = From r1 In DtModulosDisponible.AsEnumerable() Dim rowsToDelete = From r1 In DtModulosDisponible.AsEnumerable()
Join r2 In DtModulosEmpresa.AsEnumerable() On r1.Field(Of Integer)("CveModulo") Equals r2.Field(Of Integer)("CveModulo") Join r2 In DtModulosEmpresa.AsEnumerable() On r1.Field(Of Integer)("CveModulo") Equals r2.Field(Of Integer)("CveModulo")

8
Ventas/Clientes.aspx.vb
View File

@@ -6737,12 +6737,8 @@ Partial Class Clientes
Dim index = GvRow.RowIndex Dim index = GvRow.RowIndex
TempDTCuentasBancos.Rows.RemoveAt(index) TempDTCuentasBancos.Rows.RemoveAt(index)
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If End If
'If ObjCuentasBancos.GetCuentasDepositos Then
' GlobalDTProveedoresCuentas(CveCliente, True) = ObjCuentasBancos.DtResultados
'End If
CargaPSGridCuentasBancos() CargaPSGridCuentasBancos()
ObjCuentasBancos.Dispose() ObjCuentasBancos.Dispose()
RecargaGlobalCuentasBancarias() RecargaGlobalCuentasBancarias()

5
ZDG/MensajeAutomatico.aspx.vb
View File

@@ -48,9 +48,8 @@ Partial Class ZDG_MensajeAutomatico
Private Sub MandaMensajeAutomatico() Private Sub MandaMensajeAutomatico()
Dim pag As New ClsPaginas Alert("TODO FRENADO!!", TipoMensaje.MsgAdvertencia)
pag.Alert("TODO FRENADO!!", TipoMensaje.MsgAdvertencia)
pag.Dispose()
Exit Sub Exit Sub