-- idcta

2023-11-17 13:16:27 -07:00
parent 0db011e749
commit 69cfb6e609
4 changed files with 52 additions and 55 deletions
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1968,7 +1968,7 @@ Partial Class Inventarios_EntradasSalidas
                                'Dim Total As Decimal = 0
                                If CveConceptoContable.Contiene(181, 78, 51, 69) Then
                                    Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
-                                    'Dim IdCuentaGasto As Integer = 0
+
                                    For Each Dr As DataRow In Dt.Rows
                                        Dim Total As Decimal = ObjInventario.DtResultados.FiltraParametros($"CveClasificacion = {Dr("CveClasificacion")}").SUM("Total").RoundSQL()