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

.

Browse Source
This commit is contained in:
rrene
2023-01-30 21:47:04 -07:00
parent 5ce2554eab 7eafa12479
commit 6fe17b78f9
18 changed files with 343 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

397
App_Code/ClsPaginas.vb
View File

@@ -1113,12 +1113,19 @@ Public Class ClsPaginas
Application("GlobalDTClasificacionesPresupuestos") = value Application("GlobalDTClasificacionesPresupuestos") = value
End Set End Set
End Property End Property
Property GlobalDTMetodosPago() As DataTable Public Shared Property GlobalDTMetodosPago() As DataTable
Get Get
GlobalDTMetodosPago = DirectCast(Application("GlobalDTMetodosPago"), DataTable) Dim AppNombre As String = "GlobalDTMetodosPago"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjMetodoPago As New ClsMetodosPagos
If ObjMetodoPago.GetMetodosPago() Then HttpContext.Current.Application(AppNombre) = ObjMetodoPago.DtResultados
ObjMetodoPago.Dispose()
End If
GlobalDTMetodosPago = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTMetodosPago") = value Dim AppNombre As String = "GlobalDTMetodosPago"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTModulos() As DataTable Property GlobalDTModulos() As DataTable
@@ -1337,67 +1344,72 @@ Public Class ClsPaginas
Application("GlobalDTEstatusOrdenCompra") = value Application("GlobalDTEstatusOrdenCompra") = value
End Set End Set
End Property End Property
Property GlobalDTLeyendasFiscales() As DataTable Public Shared Property GlobalDTLeyendasFiscales() As DataTable
Get Get
GlobalDTLeyendasFiscales = DirectCast(Application("GlobalDTLeyendasFiscales"), DataTable) Dim AppNombre As String = "GlobalDTLeyendasFiscales"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjLeyendasFiscales As New ClsLeyendasFiscales
If ObjLeyendasFiscales.GetLeyendasFiscales() Then HttpContext.Current.Application(AppNombre) = ObjLeyendasFiscales.DtResultados
ObjLeyendasFiscales.Dispose()
End If
GlobalDTLeyendasFiscales = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTLeyendasFiscales") = value Dim AppNombre As String = "GlobalDTLeyendasFiscales"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTEstatusFactura() As DataTable
Property GlobalDTEstatusFactura() As DataTable
Get Get
GlobalDTEstatusFactura = DirectCast(Application("GlobalDTEstatusFactura"), DataTable) Dim AppNombre As String = "GlobalDTEstatusFactura"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjEstatusFactura As New ClsEstatusFactura
If ObjEstatusFactura.GetEstatusFactura() Then HttpContext.Current.Application(AppNombre) = ObjEstatusFactura.DtResultados
ObjEstatusFactura.Dispose()
End If
GlobalDTEstatusFactura = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTEstatusFactura") = value Dim AppNombre As String = "GlobalDTEstatusFactura"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
If DirectCast(Application("GlobalDTProyectos"), DataTable) Is Nothing Or (DirectCast(Application("GlobalDTProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(Application("GlobalDTProyectos"), DataTable).Rows.Count = 0) Then 'sino existe, recarga los datos
Dim P As New ClsProyectos If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then
If P.GetProyectos Then Dim ObjProyectos As New ClsProyectos
Application("GlobalDTProyectos") = P.DtResultados If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados
End If ObjProyectos.Dispose()
P.Dispose()
Dim msg As String = "aqui no se carga proyectos" Dim msg As String = "aqui no se carga proyectos"
If Request IsNot Nothing Then If HttpContext.Current.Request IsNot Nothing Then
msg = msg & Request.ServerVariables("URL") msg += HttpContext.Current.Request.ServerVariables("URL")
End If End If
msg.GuardaLog() msg.GuardaLog()
End If End If
If Estatus <> -1 Then 'OrElse CveProyecto <> -1
If CveEmpresa <> -1 OrElse Estatus <> -1 Then 'OrElse CveProyecto <> -1 'Dim StrSQL As New StringBuilder
'If Estatus <> -1 Then StrSQL.Append($"Estatus = {Estatus}")
Dim StrSQL As New StringBuilder 'If CveProyecto <> -1 Then StrSQL.Append(" {If(StrSQL.Length > 0, "AND", "")} CveProyecto = {CveProyecto}")
If CveEmpresa <> -1 Then StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEstatus = {Estatus}", "", DataViewRowState.CurrentRows)
' If CveProyecto <> -1 Then StrSQL.AppendFormat(" {0} CveProyecto = {1}", If(StrSQL.Length > 0, "AND", ""), CveProyecto)
If Estatus <> -1 Then StrSQL.AppendFormat(" {0} CveEstatus = {1}", If(StrSQL.Length > 0, "AND", ""), Estatus)
Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectos"), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
GlobalDTProyectos = Dv.ToTable GlobalDTProyectos = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTProyectos = DirectCast(Application("GlobalDTProyectos"), DataTable) GlobalDTProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(ByVal value As DataTable) Set(value As DataTable)
If value Is Nothing OrElse value.Rows.Count = 0 Then If value Is Nothing OrElse value.Rows.Count = 0 Then
Dim msg As String = "aqui no se carga proyectos" Dim msg As String = "aqui no se carga proyectos"
If Request IsNot Nothing Then If HttpContext.Current.Request IsNot Nothing Then
msg = msg & Request.ServerVariables("URL") msg += HttpContext.Current.Request.ServerVariables("URL")
End If End If
msg.GuardaLog() msg.GuardaLog()
End If End If
Application("GlobalDTProyectos") = value Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property 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 Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
@@ -1500,12 +1512,20 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable
Get Get
GlobalDTPrecioListas = DirectCast(Application("GlobalDTPrecioListas"), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) Dim AppNombre As String = $"GlobalDTPrecioListas-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPrecioListas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTPrecioListas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTPrecioListas") = value Dim AppNombre As String = $"GlobalDTPrecioListas-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Property GlobalDTMesas() As DataTable 'Property GlobalDTMesas() As DataTable
@@ -1918,12 +1938,19 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
'Bancos 'Bancos
Property GlobalDTBancos() As DataTable Public Shared Property GlobalDTBancos() As DataTable
Get Get
GlobalDTBancos = DirectCast(Application("GlobalDTBancos"), DataTable) Dim AppNombre As String = "GlobalDTBancos"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancos() Then HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
ObjBancos.Dispose()
End If
GlobalDTBancos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTBancos") = value Dim AppNombre As String = "GlobalDTBancos"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Property GlobalDTBancosCuentas(CveUsuario As Integer) As DataTable 'Property GlobalDTBancosCuentas(CveUsuario As Integer) As DataTable
@@ -1970,24 +1997,34 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTipoTransacciones() As DataTable Public Shared Property GlobalDTTipoTransacciones() As DataTable
Get Get
If UsuarioActual.CveEmpresa = 66 Then Dim AppNombre As String = "GlobalDTTipoTransacciones"
GlobalDTTipoTransacciones = DirectCast(Application("GlobalDTTipoTransacciones"), DataTable).FiltraParametros("Estatus = 1") If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Else Dim ObjBancos As New ClsBancos
GlobalDTTipoTransacciones = DirectCast(Application("GlobalDTTipoTransacciones"), DataTable) If ObjBancos.GetBancos_TiposTransaccion(-1) Then HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
ObjBancos.Dispose()
End If End If
GlobalDTTipoTransacciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTipoTransacciones") = value Dim AppNombre As String = "GlobalDTTipoTransacciones"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTBancosEstatusIE() As DataTable Public Shared Property GlobalDTBancosEstatusIE() As DataTable
Get Get
GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable) Dim AppNombre As String = "GlobalDTBancosEstatusIE"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancos_EstatusIE() Then HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
ObjBancos.Dispose()
End If
GlobalDTBancosEstatusIE = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTBancosEstatusIE") = value Dim AppNombre As String = "GlobalDTBancosEstatusIE"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTBancosIE() As DataTable Property GlobalDTBancosIE() As DataTable
@@ -1998,12 +2035,19 @@ Public Class ClsPaginas
Application("GlobalDTBancosIE") = value Application("GlobalDTBancosIE") = value
End Set End Set
End Property End Property
Property GlobalDTTipoCuenta() As DataTable Public Shared Property GlobalDTTipoCuenta() As DataTable
Get Get
GlobalDTTipoCuenta = DirectCast(Application("GlobalDTTipoCuenta"), DataTable) Dim AppNombre As String = "GlobalDTTipoCuenta"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancos_TiposCuenta() Then HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
ObjBancos.Dispose()
End If
GlobalDTTipoCuenta = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTipoCuenta") = value Dim AppNombre As String = "GlobalDTTipoCuenta"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
'Fin Bancos 'Fin Bancos
@@ -2249,32 +2293,37 @@ Public Class ClsPaginas
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTipoAlmacen(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTTipoAlmacen(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTTipoAlmacen-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTTipoAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTTipoAlmacen = Dv.ToTable If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dv.Dispose() Dim Objinventarios As New ClsInventarios
Else If Objinventarios.GetTiposAlmacenes() Then HttpContext.Current.Application(AppNombre) = Objinventarios.DtResultados
GlobalDTTipoAlmacen = DirectCast(Application("GlobalDTTipoAlmacen"), DataTable) Objinventarios.Dispose()
End If End If
GlobalDTTipoAlmacen = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTipoAlmacen") = value Dim AppNombre As String = $"GlobalDTTipoAlmacen-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTInvConceptos() As DataTable Public Shared Property GlobalDTInvConceptos() As DataTable
Get Get
Dim AppNombre As String = "GlobalDTInvConceptos"
Return DirectCast(Application("GlobalDTInvConceptos"), DataTable) If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim Objinventarios As New ClsInventarios
If Objinventarios.GetConceptos() Then HttpContext.Current.Application(AppNombre) = Objinventarios.DtResultados
Objinventarios.Dispose()
End If
GlobalDTInvConceptos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTInvConceptos") = value Dim AppNombre As String = "GlobalDTInvConceptos"
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 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)
@@ -2343,31 +2392,26 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable Public Shared Property GlobalDTSeccionAlmacen(CveEmpresa As Integer, CveAlmacen As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTSeccionAlmacen-{0}", CveEmpresa) Dim AppNombre As String = $"GlobalDTSeccionAlmacen-{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 ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then Application(AppNombre) = ObjInv.DtResultados If ObjInv.GetSeccionesAlmacenes(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjInv.DtResultados
ObjInv.Dispose() ObjInv.Dispose()
End If End If
If CveEmpresa <> -1 Then If CveAlmacen > 0 Then
Dim Str As New StringBuilder Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveAlmacen = {CveAlmacen}", "", DataViewRowState.CurrentRows)
If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTSeccionAlmacen = Dv.ToTable GlobalDTSeccionAlmacen = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTSeccionAlmacen = DirectCast(Application("GlobalDTSeccionAlmacen"), DataTable) GlobalDTSeccionAlmacen = 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("GlobalDTSeccionAlmacen-{0}", CveEmpresa) Dim AppNombre As String = $"GlobalDTSeccionAlmacen-{CveEmpresa}"
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
@@ -2425,54 +2469,89 @@ Public Class ClsPaginas
Application("GlobalDTNom_Periodos") = value Application("GlobalDTNom_Periodos") = value
End Set End Set
End Property End Property
Public Property GlobalDTVtaFormaPago() As DataTable Public Shared Property GlobalDTVtaFormaPago() As DataTable
Get Get
GlobalDTVtaFormaPago = DirectCast(Application("GlobalDTVtaFormaPago"), DataTable) Dim AppNombre As String = "GlobalDTVtaFormaPago"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetFormaPago() Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTVtaFormaPago = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTVtaFormaPago") = value Dim AppNombre As String = "GlobalDTVtaFormaPago"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTVtaMetodoPago() As DataTable Public Shared Property GlobalDTVtaMetodoPago() As DataTable
Get Get
GlobalDTVtaMetodoPago = DirectCast(Application("GlobalDTVtaMetodoPago"), DataTable) Dim AppNombre As String = "GlobalDTVtaMetodoPago"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMetodoPago() Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTVtaMetodoPago = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTVtaMetodoPago") = value Dim AppNombre As String = "GlobalDTVtaMetodoPago"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTVtaTiposRelacion() As DataTable Public Shared Property GlobalDTVtaTiposRelacion() As DataTable
Get Get
GlobalDTVtaTiposRelacion = DirectCast(Application("GlobalDTVtaTiposRelacion"), DataTable) Dim AppNombre As String = "GlobalDTVtaTiposRelacion"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetTiposRelacion() Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTVtaTiposRelacion = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTVtaTiposRelacion") = value Dim AppNombre As String = "GlobalDTVtaTiposRelacion"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTTiposDocumentos() As DataTable Public Shared Property GlobalDTTiposDocumentos() As DataTable
Get Get
GlobalDTTiposDocumentos = DirectCast(Application("GlobalDTTiposDocumentos"), DataTable) Dim AppNombre As String = "GlobalDTTiposDocumentos"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetTiposDocumentos() Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTTiposDocumentos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTTiposDocumentos") = value Dim AppNombre As String = "GlobalDTTiposDocumentos"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTCobranzaEstatus(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTVtaCobranzaEstatus(CveEmpresa As Integer, Optional CveCobranzaEstatus As Integer = -1) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTVtaCobranzaEstatus-{CveEmpresa}"
Dim Dv As New DataView(DirectCast(Application("GlobalDTVtaCobranzaEstatus"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows) 'sino existe, recarga los datos
GlobalDTCobranzaEstatus = Dv.ToTable If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetCobranzaEstatus(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
If CveCobranzaEstatus <> -1 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveCobranzaEstatus = {CveCobranzaEstatus}", "", DataViewRowState.CurrentRows)
GlobalDTVtaCobranzaEstatus = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTCobranzaEstatus = DirectCast(Application("GlobalDTVtaCobranzaEstatus"), DataTable) GlobalDTVtaCobranzaEstatus = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTVtaCobranzaEstatus") = value Dim AppNombre As String = $"GlobalDTVtaCobranzaEstatus-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
#Region "***********************************************************************DT EVENTOS****************************************************************************************" #Region "***********************************************************************DT EVENTOS****************************************************************************************"
Property GlobalDTTiposEventos() As DataTable Property GlobalDTTiposEventos() As DataTable
Get Get
@@ -2492,21 +2571,48 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Property GlobalDTOIEventoTarea() As DataTable Public Shared Property GlobalDTOIEventoTarea(CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As DataTable
Get Get
GlobalDTOIEventoTarea = DirectCast(Application("GlobalDTOIEventoTarea"), DataTable) Dim AppNombre As String = $"GlobalDTOIEventoTarea-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjEventos As New ClsOIEventos
If ObjEventos.GetEventoTarea(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjEventos.DtResultados
ObjEventos.Dispose()
End If
If CveUsuario <> -1 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveUsuario = {CveUsuario}", "", DataViewRowState.CurrentRows)
GlobalDTOIEventoTarea = Dv.ToTable
Dv.Dispose()
Else
GlobalDTOIEventoTarea = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOIEventoTarea") = value Dim AppNombre As String = $"GlobalDTOIEventoTarea-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTOIEstatusEventos() As DataTable Public Shared Property GlobalDTOIEstatusEventos(Optional CveEventoEstatus As Integer = -1) As DataTable
Get Get
GlobalDTOIEstatusEventos = DirectCast(Application("GlobalDTOIEstatusEventos"), DataTable) Dim AppNombre As String = "GlobalDTOIEstatusEventos"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjEventos As New ClsOIEventos
If ObjEventos.GetEstatusEventos(-1) Then HttpContext.Current.Application(AppNombre) = ObjEventos.DtResultados
ObjEventos.Dispose()
End If
If CveEventoEstatus > 0 Then
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEventoEstatus = {CveEventoEstatus}", "", DataViewRowState.CurrentRows)
GlobalDTOIEstatusEventos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTOIEstatusEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOIEstatusEventos") = value Dim AppNombre As String = "GlobalDTOIEstatusEventos"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
#End Region #End Region
@@ -4030,50 +4136,53 @@ Public Class ClsPaginas
End Get End Get
End Property End Property
Property GlobalDTOIRevision(CveEmpresa As Integer) As DataTable Public Shared Property GlobalDTOIRevision(CveEmpresa As Integer) As DataTable
Get Get
If CveEmpresa <> -1 Then Dim AppNombre As String = $"GlobalDTOIRevision-{CveEmpresa}"
Dim StrSQL As String = String.Format("CveEmpresa = {0}", CveEmpresa) 'sino existe, recarga los datos
Dim Dv As New DataView(DirectCast(Application("GlobalDTOIRevision"), DataTable), StrSQL, "", DataViewRowState.CurrentRows) If HttpContext.Current.Application(AppNombre) Is Nothing Then
GlobalDTOIRevision = Dv.ToTable Dim ObjEventos As New ClsOIEventos
Dv.Dispose() If ObjEventos.GetRevisionesEventos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjEventos.DtResultados
Else ObjEventos.Dispose()
GlobalDTOIRevision = DirectCast(Application("GlobalDTOIRevision"), DataTable)
End If End If
GlobalDTOIRevision = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTOIRevision") = value Dim AppNombre As String = $"GlobalDTOIRevision-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTOIAgendaTipo() As DataTable
Public Shared Property GlobalDTOIAgendaTipo() As DataTable
Get Get
GlobalDTOIAgendaTipo = DirectCast(Application("GlobalDTOIAgendaTipo"), DataTable) Dim AppNombre As String = "GlobalDTOIAgendaTipo"
End Get If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Set(value As DataTable) Dim ObjEventos As New ClsOIEventos
Application("GlobalDTOIAgendaTipo") = value If ObjEventos.GetAgendaTipo() Then HttpContext.Current.Application(AppNombre) = ObjEventos.DtResultados
End Set ObjEventos.Dispose()
End Property
Property GlobalDTOIAgenda() As DataTable
Get
GlobalDTOIAgenda = DirectCast(Application("GlobalDTOIAgenda"), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTOIAgenda") = value
End Set
End Property
Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable
Get
If CveEmpresa <> -1 Then
Dim StrSQL As String = String.Format("CveEmpresa = {0}", CveEmpresa)
Dim Dv As New DataView(DirectCast(Application("GlobalDTVtaCondicionesEntrega"), DataTable), StrSQL, "", DataViewRowState.CurrentRows)
GlobalDTVtaCondicionesEntrega = Dv.ToTable
Dv.Dispose()
Else
GlobalDTVtaCondicionesEntrega = DirectCast(Application("GlobalDTVtaCondicionesEntrega"), DataTable)
End If End If
GlobalDTOIAgendaTipo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTVtaCondicionesEntrega") = value Dim AppNombre As String = "GlobalDTOIAgendaTipo"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable
Get
Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjVentas As New ClsVentas
If ObjVentas.GetCondicionesEntrega(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados
ObjVentas.Dispose()
End If
GlobalDTVtaCondicionesEntrega = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTPaqueteriaGuiaTipos(CveEmpresa As Integer) As DataTable Property GlobalDTPaqueteriaGuiaTipos(CveEmpresa As Integer) As DataTable

3
App_Code/ClsProyectos.vb
View File

@@ -128,11 +128,12 @@ Public Class ClsProyectos
SqlTransacc = Nothing SqlTransacc = Nothing
End Sub End Sub
Public Function GetProyectos(Optional Opcion As Integer = -1) As Boolean Public Function GetProyectos(CveEmpresa As Integer, Optional Opcion As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ProyectosGet") DataAdapter("PA_ProyectosGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
End With End With
Try Try

2
App_Code/ClsVentas.vb
View File

@@ -5725,7 +5725,7 @@ Public Class ClsVentas
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ClientesVendedorCambio") DataAdapter("PA_Vta_ClientesVendedorCambio")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCliente", SqlDbType.VarChar).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With

2
App_Code/Modelos.vb
View File

@@ -7797,7 +7797,7 @@ Namespace Modelos
If DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable).Rows.Count = 0) Then If DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable).Rows.Count = 0) Then
Dim P As New ClsProyectos Dim P As New ClsProyectos
If P.GetProyectos Then If P.GetProyectos(-1) Then
HttpContext.Current.Application("GlobalDTProyectos") = P.DtResultados HttpContext.Current.Application("GlobalDTProyectos") = P.DtResultados
End If End If
P.Dispose() P.Dispose()

2
Ashx/SIGFacturacion.ashx
View File

@@ -1650,7 +1650,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
If DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable).Rows.Count = 0) Then If DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application("GlobalDTProyectos"), DataTable).Rows.Count = 0) Then
Dim P As New ClsProyectos Dim P As New ClsProyectos
If P.GetProyectos Then If P.GetProyectos(-1) Then
HttpContext.Current.Application("GlobalDTProyectos") = P.DtResultados HttpContext.Current.Application("GlobalDTProyectos") = P.DtResultados
End If End If
P.Dispose() P.Dispose()

2
CRM/RepAgendasBitacoras.aspx.cs
View File

@@ -103,6 +103,6 @@ public partial class CRM_AgendasBitacoras : ClsPaginas
protected void LnkExcel_Click(object sender, EventArgs e) protected void LnkExcel_Click(object sender, EventArgs e)
{ {
GVDatos.ExportToExcel ("RepAgendaBiracora.xls"); GVDatos.ExportToExcelX("RepAgendaBiracora");
} }
} }

2
Compras/EvaluacionProveedor.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class Compras_EvaluacionProveedor
TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString() TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
End If End If
End If End If
If ObjCompras.GetCompraDetalle(CveCompra) Then If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
Dim StrPS As New StringBuilder() Dim StrPS As New StringBuilder()
For Each Row As DataRow In ObjCompras.DtResultados.Rows For Each Row As DataRow In ObjCompras.DtResultados.Rows
If ObjCompras.DtResultados.Rows.Count > 1 Then If ObjCompras.DtResultados.Rows.Count > 1 Then

10
Compras/Proveedores.aspx.vb
View File

@@ -717,7 +717,15 @@ Partial Class Compras_Proveedores
Try Try
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0)
XMLDoc.Load(UsuarioActual.Empresa.Ruta & "Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
Dim SXML As String = File.ReadAllText(UsuarioActual.Empresa.Ruta & "Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
'SXML = SXML.TrimStart(vbCr, vbLf, vbNullChar)
'SXML = SXML.TrimEnd(vbCr, vbLf, vbNullChar)
SXML = SXML.Trim(New Char() {""c})
SXML = SXML.Replace("o;?", "")
XMLDoc.LoadXml(SXML)
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)

16
Contabilidad2/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -3035,32 +3035,36 @@
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<Variables> <Variables>
<Variable Name="TotalActivoActual"> <Variable Name="TotalActivoActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value> <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalActivoAnterior"> <Variable Name="TotalActivoAnterior">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteAnterior.Value, 0) , "DataSet1")</Value> <Value>=Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Fields!ImporteAnterior.Value, 0), "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPasivoActual"> <Variable Name="TotalPasivoActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "D" AND Cint(Fields!TipoCuenta.Value) = 3 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value> <Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo",
Fields!ImporteActual.Value, 0), "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPasivoAnterior"> <Variable Name="TotalPasivoAnterior">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "D" AND Cint(Fields!TipoCuenta.Value) = 3 , Fields!ImporteAnterior.Value, 0) , "DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
<Writable>true</Writable> <Writable>true</Writable>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCActual"> <Variable Name="TotalPatrimonioCActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHActual"> <Variable Name="TotalPatrimonioHActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "F" AND (Cint(Fields!TipoCuenta.Value) = 5 OR Cint(Fields!TipoCuenta.Value) = 6 OR Cint(Fields!TipoCuenta.Value) = 7 OR Cint(Fields!TipoCuenta.Value) = 8) , Fields!ImporteActual.Value, 0) , "DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL"
OR Fields!Sup.Value = "CAPITAL CONTABLE"
OR Fields!Sup.Value = "Capital Social"
OR Fields!Sup.Value = "Capital",
Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCAnterior"> <Variable Name="TotalPatrimonioCAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHAnterior"> <Variable Name="TotalPatrimonioHAnterior">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "F" AND (Cint(Fields!TipoCuenta.Value) = 5 OR Cint(Fields!TipoCuenta.Value) = 6 OR Cint(Fields!TipoCuenta.Value) = 7 OR Cint(Fields!TipoCuenta.Value) = 8) , Fields!ImporteAnterior.Value, 0) , "DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalpasivoYHaciendaActual"> <Variable Name="TotalpasivoYHaciendaActual">
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value> <Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>

4
CxC/GestionCobranza.aspx.vb
View File

@@ -57,11 +57,11 @@ Partial Class Ventas_GestionCobranza
DdlResponsableCobranza.DataBind() DdlResponsableCobranza.DataBind()
DdlResponsableCobranza.Items.Insert(0, New ListItem("Todos", "-1")) DdlResponsableCobranza.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCobranzaEstatus.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa) DdlCobranzaEstatus.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
DdlCobranzaEstatus.DataBind() DdlCobranzaEstatus.DataBind()
DdlCobranzaEstatus.Items.Insert(0, New ListItem("Todos", "-1")) DdlCobranzaEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCobranzaEstatusEdit.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa) DdlCobranzaEstatusEdit.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
DdlCobranzaEstatusEdit.DataBind() DdlCobranzaEstatusEdit.DataBind()
If ObjVentas.GetCobranzaTurnoEstatus(-1, UsuarioActual.CveEmpresa) Then If ObjVentas.GetCobranzaTurnoEstatus(-1, UsuarioActual.CveEmpresa) Then

2
CxC/RepCxC.aspx.vb
View File

@@ -152,7 +152,7 @@ Partial Class RepCxC
txtCorteA.Text = $"31/12/{Now.Year}" txtCorteA.Text = $"31/12/{Now.Year}"
'Carga Cobranza Estatus 'Carga Cobranza Estatus
DdlCobranzaEstatus.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa) DdlCobranzaEstatus.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
DdlCobranzaEstatus.DataBind() DdlCobranzaEstatus.DataBind()
DdlCobranzaEstatus.Items.Insert(0, New ListItem("Todos", "-1")) DdlCobranzaEstatus.Items.Insert(0, New ListItem("Todos", "-1"))

4
CxC/RepCxCDetalle.aspx.vb
View File

@@ -280,7 +280,7 @@ Partial Class RepCxCDetalle
DdlTipoDocto.Items.Add(New ListItem("Ing X Comp", "IxC")) DdlTipoDocto.Items.Add(New ListItem("Ing X Comp", "IxC"))
'Carga Cobranza Estatus 'Carga Cobranza Estatus
DdlCobranzaEstatusFiltro.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa) DdlCobranzaEstatusFiltro.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
DdlCobranzaEstatusFiltro.DataBind() DdlCobranzaEstatusFiltro.DataBind()
DdlCobranzaEstatusFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlCobranzaEstatusFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -1062,7 +1062,7 @@ Partial Class RepCxCDetalle
DdlUsuarioCobranza.DataBind() DdlUsuarioCobranza.DataBind()
DdlUsuarioCobranza.Items.Insert(0, New ListItem("Sin Cobrador", "-1")) DdlUsuarioCobranza.Items.Insert(0, New ListItem("Sin Cobrador", "-1"))
DdlCobranzaEstatus.DataSource = GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa) DdlCobranzaEstatus.DataSource = GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa)
DdlCobranzaEstatus.DataBind() DdlCobranzaEstatus.DataBind()
DdlCobranzaEstatus.Items.Insert(0, New ListItem("Sin Estatus", "-1")) DdlCobranzaEstatus.Items.Insert(0, New ListItem("Sin Estatus", "-1"))

2
CxC/RepCxCPeriodo.aspx.cs
View File

@@ -81,7 +81,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas
txtCorteA.Text = $"31/12/{DateTime.Now.Year}"; txtCorteA.Text = $"31/12/{DateTime.Now.Year}";
//Carga Cobranza Estatus //Carga Cobranza Estatus
DdlCobranzaEstatus.DataSource = get_GlobalDTCobranzaEstatus(UsuarioActual.CveEmpresa); DdlCobranzaEstatus.DataSource = get_GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa);
DdlCobranzaEstatus.DataBind(); DdlCobranzaEstatus.DataBind();
DdlCobranzaEstatus.Items.Insert(0, new ListItem("Todos", "-1")); DdlCobranzaEstatus.Items.Insert(0, new ListItem("Todos", "-1"));

90
Global.asax
View File

@@ -193,27 +193,27 @@
'B A N C O S 'B A N C O S
GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now))
Using ObjBancos As New ClsBancos 'Using ObjBancos As New ClsBancos
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing 'If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing 'If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing 'If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing 'If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'I N V E N T A R I O S 'I N V E N T A R I O S
Using Objinventarios As New ClsInventarios 'Using Objinventarios As New ClsInventarios
'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing 'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing 'If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing 'If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing 'If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -262,18 +262,16 @@
'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing 'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing 'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
End Using End Using
#End If 'GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'E V E N T O S 'E V E N T O S
Using ObjEventos As New ClsOIEventos 'Using ObjEventos As New ClsOIEventos
If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing 'If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing 'If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing 'If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing 'If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'V E N T A S 'V E N T A S
@@ -289,11 +287,7 @@
If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
End Using End Using
GuardaLogAsax(String.Format("Globalasax 18:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
''MF ''MF
@@ -304,7 +298,7 @@
'ObjMF.Dispose() 'ObjMF.Dispose()
#End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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
@@ -365,10 +359,10 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'M E T O D O S - D E - P A G O 'M E T O D O S - D E - P A G O
Using ObjMetodoPago As New ClsMetodosPagos() 'Using ObjMetodoPago As New ClsMetodosPagos()
If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing ' If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -379,34 +373,34 @@
' If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing ' If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
'End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'L E Y E N D A S - F I S C A L E S 'L E Y E N D A S - F I S C A L E S
Using ObjLeyendasFiscales As New ClsLeyendasFiscales() 'Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing ' If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A C T U R A S 'F A C T U R A S
Using ObjEstatusFactura As New ClsEstatusFactura() 'Using ObjEstatusFactura As New ClsEstatusFactura()
If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing ' If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O Y E C T O S 'P R O Y E C T O S
Using ObjProyectos As New ClsProyectos 'Using ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing ' If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'S U B P R O Y E C T O S 'S U B P R O Y E C T O S

6
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -3133,13 +3133,15 @@ Partial Class Inventarios_RecepcionUsados
Private Sub CargaFolioAjuste() Private Sub CargaFolioAjuste()
DdlFolioGarantia.Items.Clear() DdlFolioGarantia.Items.Clear()
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=2) Then If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
DdlFolioGarantia.DataSource = ObjAcum.DtResultados DdlFolioGarantia.DataSource = ObjAcum.DtResultados
DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If End If
ObjAcum.Dispose() ObjAcum.Dispose()
DdlFolioGarantia.DataBind() DdlFolioGarantia.DataBind()
DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged

4
Ventas/Clientes.aspx
View File

@@ -677,7 +677,9 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright col-md-2" id="DVLnkCambiarVendedor" runat="server" visible="false"> <div class="form-group form-md-line-input input-iconright col-md-2" id="DVLnkCambiarVendedor" runat="server" visible="false">
<asp:LinkButton runat="server" ID="LnkCambiarVendedor" CssClass="Texto" Text="Actualziar" OnClick="LnkCambiarVendedor_Click">Actualziar</asp:LinkButton> <asp:LinkButton runat="server" ID="LnkCambiarVendedor" CssClass="btn btn-default btn-circle btn-xs" Text="<i class='fa fa-check' style='color:green'></i>"
data-toggle="confirmation" data-popout="true" data-original-title="¿Actualizar Vendedor?" data-btn-ok-label="si"
OnClick="LnkCambiarVendedor_Click"></asp:LinkButton>
</div> </div>
</div> </div>

9
Ventas/PV.aspx.vb
View File

@@ -7038,14 +7038,7 @@ Partial Class PV
End Sub End Sub
Private Sub CargaAjuste() Private Sub CargaAjuste()
Dim ObjAcum As New ClsAcumuladores CargaFoliosGarantia()
If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
DdlFolioGarantia.DataSource = ObjAcum.DtResultados.Copy().FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
End If
ObjAcum.Dispose()
DdlFolioGarantia.DataBind()
DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1")) DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))

12
Ventas/Ventas.aspx.vb
View File

@@ -6063,10 +6063,10 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaFormaPago(CveMetodoPago As Integer) Private Sub CargaFormaPago(CveMetodoPago As Integer)
'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO 'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then 'If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
'permiso para desbloquear la relación entre Método de pago y forma de pago ' 'permiso para desbloquear la relación entre Método de pago y forma de pago
If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1 ' If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
End If 'End If
Dim dtt As DataTable = Nothing Dim dtt As DataTable = Nothing
If CveMetodoPago > 0 Then If CveMetodoPago > 0 Then
@@ -21920,6 +21920,10 @@ Partial Class Ventas
LblAmort.Text = TxtSubTotal.Text LblAmort.Text = TxtSubTotal.Text
LimpiaEscondeContado() LimpiaEscondeContado()
If Not UsuarioActual.TienePermisoProceso(289) Then
DdlMetodoPago33.Enabled = True
End If
UPPVentas.Update() UPPVentas.Update()
UpPS.Update() UpPS.Update()
UpCliente.Update() UpCliente.Update()