From 0bde92b1f15003148ad79f2a00ac88736491c58e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 15 Mar 2024 09:40:57 -0700
Subject: [PATCH] Presupuesto correcion  cconversion en Grup sum

---
 Compras/Compras.aspx.vb | 12 +++++++++---
 OC/OC.aspx.vb           |  2 +-
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 70ccf97f9..be4a3e3bf 100644
--- a/Compras/Compras.aspx.vb
+++ b/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
 
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 15bdaa1e6..c00d99534 100644
--- a/OC/OC.aspx.vb
+++ b/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()