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

mejora en validación

Browse Source
This commit is contained in:
rrene
2023-10-27 10:34:27 -07:00
parent 295dc69416
commit c21d0641c9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/RepVentasUtilidadPadre.aspx.vb
View File

@@ -136,7 +136,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados
DtDatos = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados
End If End If
If DtDatos.Rows.Count > 0 Then If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble
Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble
Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble