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

58
App_Code/ClsPaginas.vb
View File

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

1069
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()
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
GvPS.Visible = True
BtnSolicitar.Visible = True

15
Sistemas/CatSesiones.aspx.vb
View File

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

23
UserControl/TareaNueva.ascx.cs
View File

@@ -34,24 +34,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
{ dt = (System.Data.DataTable)Application["GlobalDTUsuarios"]; }
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)
{
if (!IsPostBack)
@@ -80,7 +63,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
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.Items.Insert(0, new ListItem("Seleccione", "-1"));
GVUsuarios_TareaNueva.DataBind();
@@ -296,7 +279,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
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.Items.Insert(0, new ListItem("Seleccione", "-1"));