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

-- se quitaron modulos de gráfica gantt,

Browse Source 
unificación de promoción
globaldtusos
This commit is contained in:
rrene
2023-07-03 07:31:24 -07:00
parent ac715d5378
commit cd43daddec
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsPaginas.vb
View File

@@ -4101,7 +4101,7 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}"
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
@@ -4112,6 +4112,9 @@ Public Class ClsPaginas
If CveMarca <> -1 Then If CveMarca <> -1 Then
Dim Str As StringBuilder = New StringBuilder() Dim Str As StringBuilder = New StringBuilder()
If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca) If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca)
If CveTipoUso <> -1 Then Str.AppendFormat("CveTipoUso = {0}", CveTipoUso)
If Mes <> -1 Then Str.AppendFormat("Mes = {0}", CveTipoUso)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTAcumGarantiasMesesTipoUso = Dv.ToTable GlobalDTAcumGarantiasMesesTipoUso = Dv.ToTable
Dv.Dispose() Dv.Dispose()
@@ -8127,6 +8130,7 @@ Public Class ClsPaginas
PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1) PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1) PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907) PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
'PaginaDict.Add("/OI/GraficaGantt.aspx".ToUpper(), 371)
PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907) PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910) PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910) PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
@@ -9179,9 +9183,9 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352) PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352)
PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352) PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352)
PaginaDict.Add("/Ventas/RepPS.aspx".ToUpper(), 701) PaginaDict.Add("/Ventas/RepPS.aspx".ToUpper(), 701)
PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353) 'PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353)
PaginaDict.Add("/Ventas/CatPromociones.aspx".ToUpper(), 123) PaginaDict.Add("/Ventas/CatPromociones.aspx".ToUpper(), 123)
PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 124) PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 123)
PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372) PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372)
PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382) PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382)
PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382) PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382)