diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 6045b7c57..62dd6a604 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -197,32 +197,34 @@ Public Class ClsPaginas
End Set
End Property
- 'Property GlobalValidarCFDI As Boolean
- ' Get
- ' GlobalValidarCFDI = CBool(Application("GlobalValidarCFDI"))
- ' End Get
- ' Set(value As Boolean)
- ' Application("GlobalValidarCFDI") = value
- ' End Set
- 'End Property
+
Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable
Get
+ Dim AppNombre As String = String.Format("GlobalDTUsuarios-{0}", CveEmpresa)
+ If Application(AppNombre) Is Nothing Then
+ Using ObjUsuarios As New ClsSisUsuarios
+ If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then Application(AppNombre) = ObjUsuarios.DtResultados
+ End Using
+ End If
+
Dim Str As New StringBuilder
If CveUsuario <> -1 Then Str.AppendFormat("CveUsuario = {0}", CveUsuario)
- If CveEmpresa <> -1 Then Str.AppendFormat(" {0} CveEmpresa = {1}", If(Str.Length > 0, "AND", ""), CveEmpresa)
+ 'If CveEmpresa <> -1 Then Str.AppendFormat(" {0} CveEmpresa = {1}", If(Str.Length > 0, "AND", ""), CveEmpresa)
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveProveedor <> -1 Then Str.AppendFormat(" {0} CveProveedor = {1}", If(Str.Length > 0, "AND", ""), CveProveedor)
If CveUsuario <> -1 OrElse CveEmpresa <> -1 Then
- Dim Dv As New DataView(DirectCast(Application("GlobalDTUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+ Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTUsuarios = Dv.ToTable
Dv.Dispose()
Else
- GlobalDTUsuarios = DirectCast(Application("GlobalDTUsuarios"), DataTable)
+ GlobalDTUsuarios = DirectCast(Application(AppNombre), DataTable)
End If
+
End Get
Set(value As DataTable)
- Application("GlobalDTUsuarios") = value
+ Dim AppNombre As String = String.Format("GlobalDTUsuarios-{0}", CveEmpresa)
+ Application(AppNombre) = value
End Set
End Property
Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable
@@ -630,12 +632,32 @@ Public Class ClsPaginas
Application("GlobalDTNomConceptosFunciones") = value
End Set
End Property
- Property GlobalDTUsuarioResponsable() As DataTable
+ Property GlobalDTUsuarioResponsable(CveEmpresa As Integer) As DataTable
Get
- GlobalDTUsuarioResponsable = DirectCast(Application("GlobalDTUsuarioResponsable"), DataTable)
+ Dim AppNombre As String = String.Format("GlobalDTUsuarioResponsable-{0}", CveEmpresa)
+ If Application(AppNombre) Is Nothing Then
+ Using ObjUsuarios As New ClsSisUsuarios
+ If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then Application(AppNombre) = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+ End Using
+ End If
+
+ 'Dim Str As New StringBuilder
+ ''If CveEmpresa <> -1 Then Str.AppendFormat(" {0} CveEmpresa = {1}", If(Str.Length > 0, "AND", ""), CveEmpresa)
+ 'If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
+ 'If CveProveedor <> -1 Then Str.AppendFormat(" {0} CveProveedor = {1}", If(Str.Length > 0, "AND", ""), CveProveedor)
+
+ 'If CveUsuario <> -1 OrElse CveEmpresa <> -1 Then
+ ' Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+ ' GlobalDTUsuarios = Dv.ToTable
+ ' Dv.Dispose()
+ 'Else
+ GlobalDTUsuarioResponsable = DirectCast(Application(AppNombre), DataTable)
+ ' End If
+
End Get
Set(value As DataTable)
- Application("GlobalDTUsuarioResponsable") = value
+ Dim AppNombre As String = String.Format("GlobalDTUsuarioResponsable-{0}", CveEmpresa)
+ Application(AppNombre) = value
End Set
End Property
Property GlobalDTProveedoresCuentas(CveProveedor As Integer, Estatus As Boolean) As DataTable
@@ -807,19 +829,37 @@ Public Class ClsPaginas
Application("GlobalDTNomSatTipoIncapacidad") = value
End Set
End Property
- Property GlobalDTEmpresas(Optional CveEmpresa As Integer = -1) As DataTable
+ Public Shared Property GlobalDTEmpresas(Optional CveEmpresa As Integer = -1) As DataTable
Get
+ Dim AppNombre As String = "GlobalDTEmpresas"
+ If HttpContext.Current.Application(AppNombre) Is Nothing Then
+ Using ObjEmpresas As New ClsSisEmpresas()
+ If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
+ HttpContext.Current.Application(AppNombre) = 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
+ End If
+ End Using
+ End If
If CveEmpresa <> -1 Then
- Dim Dv As New DataView(DirectCast(Application("GlobalDTEmpresas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+ Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
GlobalDTEmpresas = Dv.ToTable
Dv.Dispose()
Else
- GlobalDTEmpresas = DirectCast(Application("GlobalDTEmpresas"), DataTable)
+ GlobalDTEmpresas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
+
End Get
Set(ByVal value As DataTable)
- Application("GlobalDTEmpresas") = value
+ Dim AppNombre As String = "GlobalDTEmpresas"
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
@@ -1412,43 +1452,41 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
- Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+ Public Shared Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
'sino existe, recarga los datos
- If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
+ If HttpContext.Current.Application(AppNombre) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim P As New ClsSubProyectos
- If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
+ If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados
P.Dispose()
End If
- If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+ If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse Estatus <> -1 Then
Dim StrSQL As New StringBuilder
If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
- 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)
GlobalDTSubProyectos = Dv.ToTable
Dv.Dispose()
-
Else
- GlobalDTSubProyectos = DirectCast(Application(AppNombre), DataTable)
+ GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
- Application(AppNombre) = value
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
- Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
+ Public Shared Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
- If Application(AppNombre) Is Nothing Then
+ If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjSubProyectos As New ClsSubProyectos()
- If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados Else Alert("Ocurrió un error al cargar los SubProyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+ If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
ObjSubProyectos.Dispose()
End If
@@ -1460,34 +1498,26 @@ Public Class ClsPaginas
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
- 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)
GlobalDTSubProyectosUsuarios = Dv.ToTable
Dv.Dispose()
- 'Dim ObjSubProyectos As New ClsSubProyectos()
- 'If ObjSubProyectos.GetSubProyectosUsuarios(CveUsuario:=CveUsuario, CveProyecto:=CveProyecto, CveSubProyecto:=CveSubProyecto, CveEstatus:=CveEstatus, CveEmpresa:=CveEmpresa) Then
- ' GlobalDTSubProyectosUsuarios = ObjSubProyectos.DtResultados
- 'Else
- ' GlobalDTSubProyectosUsuarios = Nothing
- 'End If
- 'ObjSubProyectos.Dispose()
-
Else
- GlobalDTSubProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
+ GlobalDTSubProyectosUsuarios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
- Application(AppNombre) = value
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
- Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
+ Public Shared Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
- If Application(AppNombre) Is Nothing Then
+ If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjSubProyectos As New ClsSubProyectos()
- If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+ If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
ObjSubProyectos.Dispose()
End If
@@ -1498,18 +1528,18 @@ Public Class ClsPaginas
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
- 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)
GlobalDTProyectosUsuarios = Dv.ToTable
Dv.Dispose()
Else
- GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
+ GlobalDTProyectosUsuarios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(ByVal value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
- Application(AppNombre) = value
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable
@@ -3572,69 +3602,55 @@ Public Class ClsPaginas
#Region "***********************************************************************GLOBAL DT CONTABILIDAD****************************************************************************"
- Property GlobalDTContaPlantillasPolizas(CveEmpresa As Integer, Optional TipoPlantilla As Integer = -1) As DataTable
+ Public Shared Property GlobalDTContaPlantillasPolizas(CveEmpresa As Integer, Optional TipoPlantilla As Integer = -1) As DataTable
Get
- If CveEmpresa <> -1 Or TipoPlantilla <> -1 Then
- Dim Str As New StringBuilder
- If CveEmpresa <> -1 Then Str.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
- If TipoPlantilla <> -1 Then Str.AppendFormat(" AND TipoPlantilla = {0}", TipoPlantilla)
-
- Dim Dv As New DataView(DirectCast(Application("GlobalDTContaPlantillasPolizas"), DataTable), Str.ToString.Substring(5), "", DataViewRowState.CurrentRows)
- GlobalDTContaPlantillasPolizas = Dv.ToTable
- Dv.Dispose()
- Else
- GlobalDTContaPlantillasPolizas = DirectCast(Application("GlobalDTContaPlantillasPolizas"), DataTable)
+ Dim AppNombre As String = $"GlobalDTContaPlantillasPolizas-{CveEmpresa}"
+ If HttpContext.Current.Application(AppNombre) Is Nothing Then
+ Dim ObjContabilidad As New ClsContabilidad
+ If ObjContabilidad.GetConta_PlantillasPolizas(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjContabilidad.DtResultados
+ ObjContabilidad.Dispose()
End If
+ Dim Str As New StringBuilder
+
+ If TipoPlantilla <> -1 Then Str.AppendFormat(" TipoPlantilla = {0}", TipoPlantilla)
+
+ Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+ GlobalDTContaPlantillasPolizas = Dv.ToTable
+ Dv.Dispose()
End Get
Set(value As DataTable)
- Application("GlobalDTContaPlantillasPolizas") = value
+ Dim AppNombre As String = $"GlobalDTContaPlantillasPolizas-{CveEmpresa}"
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
- Property GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza As Integer) As DataTable
+ Public Shared Property GlobalDTContaPlantillasPolizasDetalle(CveEmpresa As Integer, CvePlantillaPoliza As Integer) As DataTable
Get
- If CvePlantillaPoliza <> -1 Then
- Dim Dv As New DataView(DirectCast(Application("GlobalDTContaPlantillasPolizasDetalle"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows)
- GlobalDTContaPlantillasPolizasDetalle = Dv.ToTable
- Dv.Dispose()
- Else
- GlobalDTContaPlantillasPolizasDetalle = DirectCast(Application("GlobalDTContaPlantillasPolizasDetalle"), DataTable)
+ Dim AppNombre As String = $"GlobalDTContaPlantillasPolizasDetalle-{CveEmpresa}"
+ If HttpContext.Current.Application(AppNombre) Is Nothing Then
+ Dim ObjContabilidad As New ClsContabilidad
+ If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjContabilidad.DtResultados
+ ObjContabilidad.Dispose()
End If
+ Dim Str As New StringBuilder
+
+ If CvePlantillaPoliza <> -1 Then Str.AppendFormat(" CvePlantillaPoliza = {0}", CvePlantillaPoliza)
+
+ Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+ GlobalDTContaPlantillasPolizasDetalle = Dv.ToTable
+ Dv.Dispose()
End Get
Set(value As DataTable)
- Application("GlobalDTContaPlantillasPolizasDetalle") = value
+ Dim AppNombre As String = $"GlobalDTContaPlantillasPolizasDetalle-{CveEmpresa}"
+ HttpContext.Current.Application(AppNombre) = value
End Set
End Property
- 'Property GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza As Integer, CveEmpresa As Integer) As DataTable
- ' Get
- ' Dim AppNombre As String = String.Format("GlobalDTContaPlantillasPolizas-{0}", CveEmpresa)
- ' 'sino existe, recarga los datos
- ' If Application(AppNombre) Is Nothing Then
- ' Using ObjContabilidad As New ClsContabilidad
- ' If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, CveEmpresa) Then Application(AppNombre) = ObjContabilidad.DtResultados Else Application(AppNombre) = Nothing
- ' End Using
- ' End If
-
- ' Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "Orden", DataViewRowState.CurrentRows)
- ' GlobalDTContaPlantillasPolizasDetalle = Dv.ToTable
- ' Dv.Dispose()
-
-
- ' End Get
- ' Set(value As DataTable)
- ' Dim AppNombre As String = String.Format("GlobalDTContaPlantillasPolizas-{0}", CveEmpresa)
- ' Application(AppNombre) = value
- ' End Set
- 'End Property
-
-
Public Shared Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTContaConceptosContables")
- 'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjContabilidad As New ClsContabilidad
If ObjContabilidad.GetConta_ConceptosContables() Then HttpContext.Current.Application(AppNombre) = ObjContabilidad.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 115bacd73..46296e77d 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -657,7 +657,7 @@ Public Class ClsSisUsuarios
Return Retorno
End Function
- Public Function GetUsuariosEmpresas(CveUsuario As Integer) As Boolean
+ Public Function GetUsuariosEmpresas(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -665,6 +665,7 @@ Public Class ClsSisUsuarios
DataAdapter("PA_Sis_UsuariosEmpresasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 93bb76a17..ca48d9f8c 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -326,47 +326,47 @@ Namespace Modelos
IniciaValores()
End Sub
- Public Sub New(ObjsClsPaginas As ClsPaginas, Optional Row As Data.DataRow = Nothing)
- If Row IsNot Nothing Then
- setValues(Row)
- Else
- IniciaValores()
- End If
- SetMetodoPago()
- Timbre = New CFDITimbre
- DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
- End Sub
+ 'Public Sub New(ObjsClsPaginas As ClsPaginas, Optional Row As Data.DataRow = Nothing)
+ ' If Row IsNot Nothing Then
+ ' setValues(Row)
+ ' Else
+ ' IniciaValores()
+ ' End If
+ ' SetMetodoPago()
+ ' Timbre = New CFDITimbre
+ ' DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
+ 'End Sub
- Public Sub New(ObjsClsPaginas As ClsPaginas, CveVenta As Integer, CveEmpresa As Integer)
- Me.CveEmpresa = CveEmpresa
- Dim ObjVentas As New ClsVentas()
- If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
- If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
- setValues(ObjVentas.DtResultados.Rows(0))
- SetMetodoPago(ObjsClsPaginas)
- SetMoneda(ObjsClsPaginas)
- End If
- End If
- ObjVentas.Dispose()
- DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
- End Sub
- Public Sub New(ObjsClsPaginas As ClsPaginas, UsuarioActual As Usuario, Optional Row As Data.DataRow = Nothing)
- Me.UsuarioActual = UsuarioActual
- Me.ErrorList = New List(Of String)
- Me.RemisionesLista = New List(Of Integer)
- Me.ListaMensajes = New List(Of String)
- If Row IsNot Nothing Then
- setValues(Row)
- Else
- IniciaValores()
- End If
- SetMetodoPago(ObjsClsPaginas)
- SetMoneda(ObjsClsPaginas)
- SetSubProyecto(ObjsClsPaginas)
- SetSubProyectoMatriz(ObjsClsPaginas)
- Timbre = New CFDITimbre
- DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
- End Sub
+ 'Public Sub New(ObjsClsPaginas As ClsPaginas, CveVenta As Integer, CveEmpresa As Integer)
+ ' Me.CveEmpresa = CveEmpresa
+ ' Dim ObjVentas As New ClsVentas()
+ ' If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
+ ' If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+ ' setValues(ObjVentas.DtResultados.Rows(0))
+ ' SetMetodoPago()
+ ' SetMoneda()
+ ' End If
+ ' End If
+ ' ObjVentas.Dispose()
+ ' DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
+ 'End Sub
+ 'Public Sub New(ObjsClsPaginas As ClsPaginas, UsuarioActual As Usuario, Optional Row As Data.DataRow = Nothing)
+ ' Me.UsuarioActual = UsuarioActual
+ ' Me.ErrorList = New List(Of String)
+ ' Me.RemisionesLista = New List(Of Integer)
+ ' Me.ListaMensajes = New List(Of String)
+ ' If Row IsNot Nothing Then
+ ' setValues(Row)
+ ' Else
+ ' IniciaValores()
+ ' End If
+ ' SetMetodoPago()
+ ' SetMoneda()
+ ' SetSubProyecto(ObjsClsPaginas)
+ ' SetSubProyectoMatriz(ObjsClsPaginas)
+ ' Timbre = New CFDITimbre
+ ' DirectorioServidor = ModExtensiones.DirectorioBaseEmpresas
+ 'End Sub
Public Sub New(UsuarioActual As Usuario, Optional Row As Data.DataRow = Nothing)
Me.UsuarioActual = UsuarioActual
Me.ErrorList = New List(Of String)
@@ -3332,7 +3332,7 @@ Namespace Modelos
importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador)
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
- Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+ Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3407,7 +3407,7 @@ Namespace Modelos
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
- Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
+ Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -3463,7 +3463,7 @@ Namespace Modelos
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
- Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+ Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -7194,12 +7194,12 @@ Namespace Modelos
Public Sub SetSubProyecto()
If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then
- SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(""))
+ SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(""))
End If
End Sub
Public Sub SetSubProyectoMatriz()
If UsuarioActual IsNot Nothing Then
- Dim Row As Data.DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
+ Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
If Not IsNothing(Row) Then
SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
End If
@@ -7236,7 +7236,7 @@ Namespace Modelos
End Sub
Public Sub SetMoneda()
If CveMoneda > 0 Then
- Dim dr As DataRow = ClsPaginas.GlobalDTMonedas.FiltroPrimero(String.Format("CveMoneda ={0}", CveMoneda))
+ Dim dr As DataRow = ClsPaginas.GlobalDTMonedas.FiltroPrimero(String.Format("CveMoneda = {0}", CveMoneda))
If Not IsNothing(dr) Then
Moneda = dr("Moneda").ToString()
MonedaSAT = dr("AbreviaturaSAT").ToString()
@@ -7245,37 +7245,23 @@ Namespace Modelos
End If
End Sub
Public Sub SetMetodoPago()
- If CveMetodoPago > 0 AndAlso Not IsNothing(ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))) Then
- MetodoPago = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))("MetodoPago").ToString()
- ClaveMetodoPagoSAT = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))("ClaveSAT").ToString()
- End If
- End Sub
- Public Sub SetMoneda(ObjClsPaginas As ClsPaginas)
- If Not IsNothing(ObjClsPaginas) Then
- Dim dr As DataRow = ClsPaginas.GlobalDTMonedas.FiltroPrimero(String.Format("CveMoneda ={0}", CveMoneda))
+ If CveMetodoPago > 0 Then
+ Dim dr As DataRow = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago = {0}", CveMetodoPago))
If Not IsNothing(dr) Then
- Moneda = dr("Moneda").ToString()
- MonedaSAT = dr("AbreviaturaSAT").ToString()
- MonedaAbreviatura = dr("Abreviatura").ToString()
- End If
- End If
- End Sub
- Public Sub SetMetodoPago(ObjClsPaginas As ClsPaginas)
- If Not IsNothing(ObjClsPaginas) Then
- If Not IsNothing(ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))) Then
- MetodoPago = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))("MetodoPago").ToString()
- ClaveMetodoPagoSAT = ClsPaginas.GlobalDTMetodosPago.FiltroPrimero(String.Format(" CveMetodoPago ={0}", CveMetodoPago))("ClaveSAT").ToString()
+ MetodoPago = dr("MetodoPago").ToString()
+ ClaveMetodoPagoSAT = dr("ClaveSAT").ToString()
End If
End If
End Sub
+
Public Sub SetSubProyecto(obj As ClsPaginas)
If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then
- SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
+ SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
End If
End Sub
Public Sub SetSubProyectoMatriz(obj As ClsPaginas)
If Not IsNothing(obj) Then
- Dim Row As Data.DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
+ Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")
If Not IsNothing(Row) Then
SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
End If
@@ -7479,137 +7465,137 @@ Namespace Modelos
End Property
- Property GlobalDTEmpresas(Optional CveEmpresa As Integer = -1) As DataTable
- Get
+ 'Property GlobalDTEmpresas(Optional CveEmpresa As Integer = -1) As DataTable
+ ' Get
- If CveEmpresa <> -1 Then
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTEmpresas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
- GlobalDTEmpresas = Dv.ToTable
- Dv.Dispose()
- Else
- GlobalDTEmpresas = DirectCast(HttpContext.Current.Application("GlobalDTEmpresas"), DataTable)
- End If
- End Get
- Set(ByVal value As DataTable)
- HttpContext.Current.Application("GlobalDTEmpresas") = value
- End Set
- End Property
+ ' If CveEmpresa <> -1 Then
+ ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTEmpresas"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+ ' GlobalDTEmpresas = Dv.ToTable
+ ' Dv.Dispose()
+ ' Else
+ ' GlobalDTEmpresas = DirectCast(HttpContext.Current.Application("GlobalDTEmpresas"), DataTable)
+ ' End If
+ ' End Get
+ ' Set(ByVal value As DataTable)
+ ' HttpContext.Current.Application("GlobalDTEmpresas") = value
+ ' End Set
+ 'End Property
- Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
- Get
- Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
- 'sino existe, recarga los datos
- If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
- Dim P As New ClsSubProyectos
- If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados
- P.Dispose()
+ 'Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+ ' Get
+ ' Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
+ ' 'sino existe, recarga los datos
+ ' If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
+ ' Dim P As New ClsSubProyectos
+ ' If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados
+ ' P.Dispose()
- Dim msg As String = "aqui no se carga subproyectos"
- If HttpContext.Current.Request IsNot Nothing Then
- msg = msg & HttpContext.Current.Request.ServerVariables("URL")
- End If
- msg.GuardaLog()
+ ' Dim msg As String = "aqui no se carga subproyectos"
+ ' If HttpContext.Current.Request IsNot Nothing Then
+ ' msg = msg & HttpContext.Current.Request.ServerVariables("URL")
+ ' End If
+ ' msg.GuardaLog()
- End If
+ ' End If
- If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
- Dim StrSQL As New StringBuilder
- If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
- If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
- If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
- If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+ ' If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+ ' Dim StrSQL As New StringBuilder
+ ' If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+ ' If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+ ' If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
+ ' If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
- GlobalDTSubProyectos = Dv.ToTable
- Dv.Dispose()
+ ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+ ' GlobalDTSubProyectos = Dv.ToTable
+ ' Dv.Dispose()
- Else
- GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
- End If
+ ' Else
+ ' GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+ ' End If
- End Get
- Set(ByVal value As DataTable)
- Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
- HttpContext.Current.Application(AppNombre) = value
- End Set
- End Property
+ ' End Get
+ ' Set(ByVal value As DataTable)
+ ' Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
+ ' HttpContext.Current.Application(AppNombre) = value
+ ' End Set
+ 'End Property
- Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
- Get
+ 'Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
+ ' Get
- If HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") Is Nothing Then
- Dim ObjSubProyectos As New ClsSubProyectos()
- If ObjSubProyectos.GetSubProyectosUsuarios Then HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados Else Alert("Ocurrió un error al cargar los SubProyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
- ObjSubProyectos.Dispose()
- End If
+ ' If HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") Is Nothing Then
+ ' Dim ObjSubProyectos As New ClsSubProyectos()
+ ' If ObjSubProyectos.GetSubProyectosUsuarios Then HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados Else Alert("Ocurrió un error al cargar los SubProyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+ ' ObjSubProyectos.Dispose()
+ ' End If
- If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
- Dim StrSQL As New StringBuilder
- If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
- If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
- If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
- If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
- If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
+ ' If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+ ' Dim StrSQL As New StringBuilder
+ ' If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+ ' If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+ ' If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+ ' If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
+ ' If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTSubProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
- GlobalDTSubProyectosUsuarios = Dv.ToTable
- Dv.Dispose()
+ ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTSubProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+ ' GlobalDTSubProyectosUsuarios = Dv.ToTable
+ ' Dv.Dispose()
- Dim ObjSubProyectos As New ClsSubProyectos()
- If ObjSubProyectos.GetSubProyectosUsuarios(CveUsuario:=CveUsuario, CveProyecto:=CveProyecto, CveSubProyecto:=CveSubProyecto, CveEstatus:=CveEstatus, CveEmpresa:=CveEmpresa) Then
- GlobalDTSubProyectosUsuarios = ObjSubProyectos.DtResultados
- Else
- GlobalDTSubProyectosUsuarios = Nothing
- End If
- ObjSubProyectos.Dispose()
+ ' Dim ObjSubProyectos As New ClsSubProyectos()
+ ' If ObjSubProyectos.GetSubProyectosUsuarios(CveUsuario:=CveUsuario, CveProyecto:=CveProyecto, CveSubProyecto:=CveSubProyecto, CveEstatus:=CveEstatus, CveEmpresa:=CveEmpresa) Then
+ ' GlobalDTSubProyectosUsuarios = ObjSubProyectos.DtResultados
+ ' Else
+ ' GlobalDTSubProyectosUsuarios = Nothing
+ ' End If
+ ' ObjSubProyectos.Dispose()
- Else
- GlobalDTSubProyectosUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTSubProyectosUsuarios"), DataTable)
- End If
+ ' Else
+ ' GlobalDTSubProyectosUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTSubProyectosUsuarios"), DataTable)
+ ' End If
- End Get
- Set(ByVal value As DataTable)
- If value Is Nothing OrElse value.Rows.Count = 0 Then
+ ' End Get
+ ' Set(ByVal value As DataTable)
+ ' If value Is Nothing OrElse value.Rows.Count = 0 Then
- End If
- HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") = value
- End Set
- End Property
- Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
- Get
+ ' End If
+ ' HttpContext.Current.Application("GlobalDTSubProyectosUsuarios") = value
+ ' End Set
+ 'End Property
+ 'Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
+ ' Get
- If HttpContext.Current.Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then
- Dim ObjSubProyectos As New ClsSubProyectos()
- If ObjSubProyectos.GetSubProyectosUsuarios Then HttpContext.Current.Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
- ObjSubProyectos.Dispose()
- GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
- End If
+ ' If HttpContext.Current.Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then
+ ' Dim ObjSubProyectos As New ClsSubProyectos()
+ ' If ObjSubProyectos.GetSubProyectosUsuarios Then HttpContext.Current.Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+ ' ObjSubProyectos.Dispose()
+ ' GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
+ ' End If
- If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
- Dim StrSQL As New StringBuilder
- If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
- If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
- If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
- If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
+ ' If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+ ' Dim StrSQL As New StringBuilder
+ ' If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+ ' If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+ ' If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
+ ' If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
- GlobalDTProyectosUsuarios = Dv.ToTable
- Dv.Dispose()
+ ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+ ' GlobalDTProyectosUsuarios = Dv.ToTable
+ ' Dv.Dispose()
- Else
- GlobalDTProyectosUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable)
- End If
+ ' Else
+ ' GlobalDTProyectosUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTProyectosUsuarios"), DataTable)
+ ' End If
- End Get
- Set(ByVal value As DataTable)
- If value Is Nothing OrElse value.Rows.Count = 0 Then
+ ' End Get
+ ' Set(ByVal value As DataTable)
+ ' If value Is Nothing OrElse value.Rows.Count = 0 Then
- End If
- HttpContext.Current.Application("GlobalDTProyectosUsuarios") = value
- End Set
- End Property
+ ' End If
+ ' HttpContext.Current.Application("GlobalDTProyectosUsuarios") = value
+ ' End Set
+ 'End Property
ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1) As DataTable
Get
@@ -7626,133 +7612,6 @@ Namespace Modelos
End Property
-
- 'Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
- ' Get
- ' Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
- ' 'sino existe, recarga los datos
- ' If HttpContext.Current.Application(AppNombre) Is Nothing Then
- ' Dim ObjClientes As New ClsClientes
- ' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados
- ' ObjClientes.Dispose()
- ' End If
-
-
- ' If CveEmpresa <> -1 Then
-
- ' Dim StrSQL As New StringBuilder
- ' StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
- ' If Estatus >= 0 Then StrSQL.AppendFormat(" AND EstatusBool = {0} ", Estatus)
-
- ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
- ' GlobalDTCliente = Dv.ToTable
- ' Dv.Dispose()
-
- ' Else
- ' GlobalDTCliente = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
- ' End If
- ' End Get
- ' Set(value As DataTable)
- ' Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
- ' HttpContext.Current.Application(AppNombre) = value
- ' 'Dim ObjClientes As New ClsClientes
- ' 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
- ' 'ObjClientes.Dispose()
- ' End Set
- 'End Property
- 'Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable
- ' Get
- ' Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
- ' 'sino existe, recarga los datos
- ' If HttpContext.Current.Application(AppNombre) Is Nothing Then
- ' Dim ObjClientes As New ClsClientes
- ' If ObjClientes.GetClienteClasificacion(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados
- ' ObjClientes.Dispose()
- ' End If
- ' If CveEmpresa <> -1 Then
-
- ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
- ' GlobalDTClienteClasificaciones = Dv.ToTable
- ' Dv.Dispose()
- ' Else
- ' GlobalDTClienteClasificaciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
- ' End If
- ' End Get
- ' Set(value As DataTable)
- ' Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
- ' HttpContext.Current.Application(AppNombre) = value
- ' 'Dim ObjClientes As New ClsClientes
- ' 'If ObjClientes.GetClienteClasificacion(CveEmpresa) Then Application(AppNombre) = ObjClientes.DtResultados
- ' 'ObjClientes.Dispose()
- ' 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
- ' Get
- ' Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
- ' 'sino existe, recarga los datos
- ' If HttpContext.Current.Application(AppNombre) Is Nothing Then
- ' Dim ObjUsr As New ClsInventarios
- ' If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
- ' ObjUsr.Dispose()
- ' End If
-
- ' 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(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)
- ' 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) As DataTable
- ' Get
- ' Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
- ' 'sino existe, recarga los datos
- ' If HttpContext.Current.Application(AppNombre) Is Nothing Then
- ' Dim ObjUsr As New ClsSisUsuarios
- ' If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
- ' ObjUsr.Dispose()
- ' End If
- ' Dim Str As New StringBuilder
- ' Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
- ' If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
-
- ' Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
- ' GlobalDTAlmacenUsuarios = Dv.ToTable
- ' Dv.Dispose()
- ' End Get
- ' Set(value As DataTable)
- ' Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
- ' HttpContext.Current.Application(AppNombre) = value
- ' End Set
- 'End Property
-
Public ReadOnly Property GlobalTipoCambioUltimaFluctuacion(Optional Fecha As Date = MinFecha) As ClsPaginas.MTipoCambioFluctuacion
Get
@@ -7790,47 +7649,6 @@ Namespace Modelos
End Get
End Property
-
-#Region "***********************************************************************GLOBAL DT CONTABILIDAD****************************************************************************"
- Property GlobalDTContaPlantillasPolizas(CveEmpresa As Integer, Optional TipoPlantilla As Integer = -1) As DataTable
- Get
- If CveEmpresa <> -1 Or TipoPlantilla <> -1 Then
- Dim Str As New StringBuilder
- If CveEmpresa <> -1 Then Str.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
- If TipoPlantilla <> -1 Then Str.AppendFormat(" AND TipoPlantilla = {0}", TipoPlantilla)
-
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTContaPlantillasPolizas"), DataTable), Str.ToString.Substring(5), "", DataViewRowState.CurrentRows)
- GlobalDTContaPlantillasPolizas = Dv.ToTable
- Dv.Dispose()
- Else
- GlobalDTContaPlantillasPolizas = DirectCast(HttpContext.Current.Application("GlobalDTContaPlantillasPolizas"), DataTable)
- End If
-
- End Get
- Set(value As DataTable)
- HttpContext.Current.Application("GlobalDTContaPlantillasPolizas") = value
- End Set
- End Property
-
- Property GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza As Integer) As DataTable
- Get
- If CvePlantillaPoliza <> -1 Then
- Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTContaPlantillasPolizasDetalle"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows)
- GlobalDTContaPlantillasPolizasDetalle = Dv.ToTable
- Dv.Dispose()
- Else
- GlobalDTContaPlantillasPolizasDetalle = DirectCast(HttpContext.Current.Application("GlobalDTContaPlantillasPolizasDetalle"), DataTable)
- End If
-
- End Get
- Set(value As DataTable)
- HttpContext.Current.Application("GlobalDTContaPlantillasPolizasDetalle") = value
- End Set
- End Property
-
-#End Region
-
-
Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1,
Optional PorcentajeIVA As Double = -1) As DataTable
diff --git a/Bancos/OtrosIE.aspx.vb b/Bancos/OtrosIE.aspx.vb
index cb99507d6..09a79ba60 100644
--- a/Bancos/OtrosIE.aspx.vb
+++ b/Bancos/OtrosIE.aspx.vb
@@ -201,7 +201,7 @@ Partial Class Bancos_OtrosIE
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
- Dim DT As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros("", "Orden")
+ Dim DT As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = ""
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index cbfc816d9..25d3d9559 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -387,7 +387,7 @@ Partial Class Bancos_PolizaCheque
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
- Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
+ Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = ""
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index d0fc990bf..411c89859 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -31,11 +31,11 @@ Partial Class Bancos_RepEgresosSinComprobante
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "Nombre")
+ DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioResponsable.DataBind()
If UsuarioActual.TienePermisoProceso(91) Then
- DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
+ DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index 7e53e652a..f0720faa8 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -109,9 +109,9 @@ Partial Class Bancos_RepProgramarRecursos
DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.ddl.DataBind()
DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
- End If
-
- DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+ End If
+
+ DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuarioResponsable.DataBind()
DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
@@ -644,14 +644,14 @@ Partial Class Bancos_RepProgramarRecursos
CargaUsuariosProgramaron()
UPPFiltros.Update()
- Dim ObjUsuarios As New ClsSisUsuarios
- If ObjUsuarios.GetUsuariosEmpresas(-1) Then
- Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
- Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
- Else
- Application("GlobalDTUsuarios") = Nothing
- End If
- ObjUsuarios.Dispose()
+ 'Dim ObjUsuarios As New ClsSisUsuarios
+ 'If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then
+ ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+ ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+ 'Else
+ ' Application("GlobalDTUsuarios") = Nothing
+ 'End If
+ 'ObjUsuarios.Dispose()
End Sub
Private Sub EnviaCorreoNotificacion()
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb
index 14f731d5c..b4494650f 100644
--- a/Bancos/RepProveedoresPagos.aspx.vb
+++ b/Bancos/RepProveedoresPagos.aspx.vb
@@ -42,7 +42,7 @@ Partial Class Bancos_RepProveedoresPagos
DdlProveedores.SelectedValue = "-1"
- DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
+ DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioResponsable.DataBind()
DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 55f0f7705..0e422a31f 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -5147,11 +5147,12 @@ Partial Class Compras_Proveedores
objUsuario.Dispose()
End Sub
Public Sub CargaGlobal()
- Dim ObjUsuarios As New ClsSisUsuarios
- If ObjUsuarios.GetUsuariosEmpresas(-1) Then
- Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
- End If
- ObjUsuarios.Dispose()
+ 'Dim ObjUsuarios As New ClsSisUsuarios
+ 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+ ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+ 'End If
+ 'ObjUsuarios.Dispose()
+ GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 07fcbdc6d..eab095e7d 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -751,7 +751,7 @@ Partial Class Compras_eFacturas
Ejecutable = "C:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
Form.DefaultButton = BtnConsultar.UniqueID
- DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+ DdlResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlResponsable.DataBind()
DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/Global.asax b/Global.asax
index 4590b7858..382eb57a2 100644
--- a/Global.asax
+++ b/Global.asax
@@ -220,11 +220,11 @@
'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
+ '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))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -536,16 +536,16 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'U S U A R I O S
- Using ObjUsuarios As New ClsSisUsuarios
- If ObjUsuarios.GetUsuariosEmpresas(-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))
+ '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
@@ -576,22 +576,22 @@
'----------------------------------------------------------------------------------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))
+ '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))
+ ' Next
+ ' Else
+ ' Application("GlobalDTEmpresas") = Nothing
+ ' End If
+ 'End Using
+ 'GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index ac31e4b1a..3a46151ae 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -252,7 +252,7 @@ Partial Class LogIn
'PLATAFORMA SIG
CType(Session("UsuarioSIG"), Usuario).CvePlataforma = 1
Using ObjUsuarios As New ClsSisUsuarios
- If ObjUsuarios.GetUsuariosEmpresas(Usuario.CveUsuario) Then
+ If ObjUsuarios.GetUsuariosEmpresas(Usuario.CveUsuario, Usuario.CveEmpresa) Then
Dim dt As Data.DataTable = ObjUsuarios.DtResultados
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index f23ebb96f..48c102697 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1104,10 +1104,8 @@
- CFDI Versión 3.3
+ CFDI Versión
-
-