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

-- limpieza de globalDT

Browse Source
This commit is contained in:
rrene
2023-01-31 09:17:05 -07:00
parent c9f42f0941
commit b868c4a615
5 changed files with 170 additions and 997 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
App_Code/ClsPaginas.vb
View File

@@ -1758,17 +1758,15 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Public Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
If CveEmpresa <> -1 Then
'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then
If Application(AppNombre) Is Nothing Then
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSEquivalencias(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados If ObjPS.GetPSEquivalencias(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjPS.DtResultados
ObjPS.Dispose() ObjPS.Dispose()
End If End If
End If
If CvePS <> -1 OrElse CveUM <> -1 Then If CvePS <> -1 OrElse CveUM <> -1 Then
Dim StrSQL As New StringBuilder Dim StrSQL As New StringBuilder
@@ -1776,16 +1774,16 @@ Public Class ClsPaginas
If CveUM <> -1 Then StrSQL.AppendFormat(" AND CveUM = {0}", CveUM) If CveUM <> -1 Then StrSQL.AppendFormat(" AND CveUM = {0}", CveUM)
If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa) If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
GlobalDTProductosServiciosEquivalencias = Dv.ToTable GlobalDTProductosServiciosEquivalencias = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTProductosServiciosEquivalencias = DirectCast(Application(AppNombre), DataTable) GlobalDTProductosServiciosEquivalencias = 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 = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
@@ -1967,34 +1965,34 @@ Public Class ClsPaginas
' Application("GlobalDTBancosCuentas") = value ' Application("GlobalDTBancosCuentas") = value
' End Set ' End Set
'End Property 'End Property
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 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 Get
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
'sino existe, recarga los datos 'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjBancos As New ClsBancos Using ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
Application(AppNombre) = ObjBancos.DtResultados HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
Else Else
Application(AppNombre) = Nothing HttpContext.Current.Application(AppNombre) = Nothing
End If End If
End Using End Using
End If End If
Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) Dim Str As String = String.Format("CveEmpresa = {0} ", CveEmpresa)
If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario)
If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta) If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta)
If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta)
If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
GlobalDTBancosCuentas = Dv.ToTable GlobalDTBancosCuentas = Dv.ToTable
Dv.Dispose() Dv.Dispose()
'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable) 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTTipoTransacciones() As DataTable Public Shared Property GlobalDTTipoTransacciones() As DataTable
@@ -2324,13 +2322,13 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable Public Shared Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjUsr As New ClsInventarios Dim ObjUsr As New ClsInventarios
If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then Application(AppNombre) = ObjUsr.DtResultados If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
ObjUsr.Dispose() ObjUsr.Dispose()
End If End If
@@ -2341,31 +2339,15 @@ Public Class ClsPaginas
If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus) If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen) If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAlmacen = Dv.ToTable GlobalDTAlmacen = Dv.ToTable
Dv.Dispose() Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
'Get
' Dim Str As New StringBuilder
' Str.Append("1=1 AND ")
' If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
' If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
' If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
' Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
' GlobalDTAlmacen = Dv.ToTable
' Dv.Dispose()
'End Get
'Set(value As DataTable)
' Application("GlobalDTAlmacen") = value
'End Set
End Property End Property
Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
Get Get

1055
App_Code/Modelos.vb
View File

File diff suppressed because it is too large Load Diff

2
RMA/Garantias.aspx.vb
View File

@@ -62,7 +62,7 @@ Partial Class Ventas_Garantias
Private Sub CargaCompra() Private Sub CargaCompra()
Dim objCompras As New ClsCompras Dim objCompras As New ClsCompras
If objCompras.GetCompraDetalle(DdlFolios.SelectedValue.ToEntero) Then If objCompras.GetCompraDetalle(DdlFolios.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
ViewState("DTCompras") = objCompras.DtResultados ViewState("DTCompras") = objCompras.DtResultados
GvPS.Visible = True GvPS.Visible = True
BtnSolicitar.Visible = True BtnSolicitar.Visible = True

15
Sistemas/CatSesiones.aspx.vb
View File

@@ -364,13 +364,14 @@ Partial Class Sistemas_CatSesiones
Private Sub CargaProyectos() Private Sub CargaProyectos()
'Carga Proyectos 'Carga Proyectos
Dim ObjProyectos As New ClsProyectos 'Dim ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos Then 'If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
Application("GlobalDTProyectos") = ObjProyectos.DtResultados ' Application("GlobalDTProyectos") = ObjProyectos.DtResultados
Else 'Else
Application("GlobalDTProyectos") = Nothing ' Application("GlobalDTProyectos") = Nothing
End If 'End If
ObjProyectos.Dispose() 'ObjProyectos.Dispose()
GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
'Fin Carga Proyectos 'Fin Carga Proyectos
End Sub End Sub

21
UserControl/TareaNueva.ascx.cs
View File

@@ -34,23 +34,6 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
{ dt = (System.Data.DataTable)Application["GlobalDTUsuarios"]; } { dt = (System.Data.DataTable)Application["GlobalDTUsuarios"]; }
return dt; return dt;
} }
//public DataTable GlobalDTOIRevision
protected System.Data.DataTable get_GlobalDTOIRevision(int CveEmpresa = -1)
{
System.Data.DataTable dt = null;
System.Text.StringBuilder Str = new System.Text.StringBuilder();
if (CveEmpresa != -1)
{
string StrSQL = string.Format("CveEmpresa = {0}", CveEmpresa);
System.Data.DataView Dv = new System.Data.DataView((System.Data.DataTable)Application["GlobalDTOIRevision"], StrSQL, "", System.Data.DataViewRowState.CurrentRows);
dt = Dv.ToTable();
Dv.Dispose();
}
else { dt = (System.Data.DataTable)Application["GlobalDTOIRevision"]; }
return dt;
}
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
{ {
@@ -80,7 +63,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource; DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
DdlPara.DataBind(); DdlPara.DataBind();
DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); DdlTema.DataSource = ClsPaginas.get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind(); DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
GVUsuarios_TareaNueva.DataBind(); GVUsuarios_TareaNueva.DataBind();
@@ -296,7 +279,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
private void CargaTemas() private void CargaTemas()
{ {
DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario)); DdlTema.DataSource = ClsPaginas.get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind(); DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));