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

Presupuesto correcion cconversion en Grup sum

Browse Source
This commit is contained in:
rakcsle
2024-03-15 09:40:57 -07:00
parent b672d4a988
commit 0bde92b1f1
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/Compras.aspx.vb
View File

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

2
OC/OC.aspx.vb
View File

@@ -9013,7 +9013,7 @@ Partial Class OC_OC
.CveSubProyecto = CveSubProyecto, .CveSubProyecto = CveSubProyecto,
.Clasificacion = Clasificacion, .Clasificacion = Clasificacion,
.CveClasificacion = CveClasificacion, .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() }).ToList()