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

Compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-24 17:53:05 -07:00
parent e0800e68d2
commit 435a92dea3
12 changed files with 86 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Prospectos/RedesIndicadores.aspx.vb
View File

@@ -193,7 +193,7 @@ Partial Class Prospectos_RedesIndicadores
' ChtAvances.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False
Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng <> "-1" Select Fecha = ("01/" & s!MesAnioIng).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha
Dim Fechas = From s In Ind.DtResultados.AsEnumerable Where s!MesAnioIng.ToString <> "-1" Select Fecha = ("01/" & s!MesAnioIng.ToString).ToString.ToDate, Tot = s!Total.ToString.ToDouble Order By Fecha
'xValues.Add(" - ")

2
Prospectos/RepMetas2.aspx.vb
View File

@@ -171,7 +171,7 @@ Partial Class Prospectos_RepMetas2
e.Row.FCLiteral("LitPor").Text = (e.Row.DBCampo("Hijos").ToDouble / e.Row.DBCampo("MetaGlobal").ToDouble * 100).FormatoNumero(0)
If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso") < Now.AddDays(-10) Then
If e.Row.DBCampo("UltimoIngreso") <> "" AndAlso e.Row.DBCampo("UltimoIngreso").ToDate < Now.AddDays(-10) Then
e.Row.Cells(4).ForeColor = System.Drawing.Color.Red
e.Row.Cells(4).ToolTip = "Ultimo ingreso mayor a 10 dias"
End If