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

-- mejora en redodneo ieps, comp pago 4.0

Browse Source
This commit is contained in:
rrene
2022-06-24 18:46:43 -07:00
parent 2977212c00
commit df63ee6a9c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/CFDITimbre.vb
View File

@@ -619,7 +619,7 @@ Public Class CFDIComplementoPago
TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _ TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _
.Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto, .Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto,
.Importe = t.Sum(Function(tt) tt.Importe), .Importe = t.Sum(Function(tt) tt.Importe),
.ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .ImporteMN = t.Sum(Function(tt) tt.ImporteMN).TruncateDecimal}) _
.OrderBy(Function(x) x.Impuesto).ToList .OrderBy(Function(x) x.Impuesto).ToList
End If End If
@@ -648,7 +648,7 @@ Public Class CFDIComplementoPago
.TasaOCuota = t.Key.TasaOCuota, .TasaOCuota = t.Key.TasaOCuota,
.Base = t.Sum(Function(tt) tt.Base), .Base = t.Sum(Function(tt) tt.Base),
.Importe = t.Sum(Function(tt) tt.Importe), .Importe = t.Sum(Function(tt) tt.Importe),
.BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE, .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE
.ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _
.OrderBy(Function(x) x.Impuesto).ToList .OrderBy(Function(x) x.Impuesto).ToList

4
App_Code/Timbrado.vb
View File

@@ -1166,8 +1166,8 @@ Public Class Timbrado
.TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
.Impuesto = drp("TipoImpuesto").ToString, .Impuesto = drp("TipoImpuesto").ToString,
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
.BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 6), .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6),
.ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 6) .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6)
} }
) )