Presupuesto correcion cconversion en Grup sum

Compras/Compras.aspx.vb

@@ -20274,6 +20274,12 @@ Partial Class Compras_Compras
 
         Dim respuesta As Boolean = False
 
+        If DdlTipoComprobante.SelectedValue <> "Fac" Then
+            Return True
+        End If
+
+
+
         If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
 
             Dim ObjCon As New ClsContratos
@@ -20308,11 +20314,11 @@ Partial Class Compras_Compras
                                         .Clasificacion = Clasificacion,
                                         .CveClasificacion = CveClasificacion,
                                         .CveTipoGasto = CveTipoGasto,
-                                         .TipoGasto = TipoGasto,
-                                        .TotalSum = Group.Sum(Function(r) r.Field(Of Decimal)("Total"))
+                                        .TipoGasto = TipoGasto,
+                                        .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))))
                                     }).ToList()
 
-
+                    ''.TotalSum = Group.Sum(Function(r) r.Field(Of Decimal)("Total"))
                     If Opcion = 1 Then
 
 

OC/OC.aspx.vb

@@ -9013,7 +9013,7 @@ Partial Class OC_OC
                                         .CveSubProyecto = CveSubProyecto,
                                         .Clasificacion = Clasificacion,
                                         .CveClasificacion = CveClasificacion,
-                                        .TotalSum = Group.Sum(Function(r) r.Field(Of Decimal)("Total"))
+                                        .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))))
                                     }).ToList()