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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:35 -07:00
parent a9e785216f
commit 407256f079
13 changed files with 66 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Acarreos/RepContratosAcarreosDetalle.aspx.vb
View File

@@ -106,15 +106,15 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
CargaDatos()
For Each Gvr As GridViewRow In GvDatos.Rows
NumAcarreosEstimados = FormatNumber(NumAcarreosEstimados + Gvr.DataKey("NumAcarreosEstimados"), 2, , , TriState.True)
NumAcarreosXEstimar = FormatNumber(NumAcarreosXEstimar + Gvr.DataKey("NumAcarreosXEstimar"), 2, , , TriState.True)
NumAcarreosEstimados = NumAcarreosEstimados + Gvr.DataKey("NumAcarreosEstimados").ToEntero
NumAcarreosXEstimar = NumAcarreosXEstimar + Gvr.DataKey("NumAcarreosXEstimar").ToEntero
If Gvr.DataKey("SerieFolio") = "" Then
VolXEstimar = FormatNumber(VolXEstimar + Gvr.DataKey("VolTot"), 2, , , TriState.True)
PresXEstimar = FormatNumber(PresXEstimar + Gvr.DataKey("Importe"), 2, , , TriState.True)
VolXEstimar = VolXEstimar + Gvr.DataKey("VolTot").ToDouble
PresXEstimar = PresXEstimar + Gvr.DataKey("Importe").ToDouble
Else
VolEstimado = FormatNumber(VolEstimado + Gvr.DataKey("VolTot"), 2, , , TriState.True)
PresEstimado = FormatNumber(PresEstimado + Gvr.DataKey("Importe"), 2, , , TriState.True)
VolEstimado = VolEstimado + Gvr.DataKey("VolTot").ToDouble
PresEstimado = PresEstimado + Gvr.DataKey("Importe").ToDouble
End If
Next
LblVolEstimado.Text = FormatNumber(VolEstimado.ToString, 2, , , TriState.True)