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

-- mejora en emisión usd-mxn, complemento pago 4.0

Browse Source
This commit is contained in:
rrene
2022-06-24 18:34:28 -07:00
parent 94ced359b1
commit 2977212c00
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

@@ -640,7 +640,7 @@ Public Class CFDIComplementoPago
End If
Next
Next
'ya generado todos los registros posibles, los agrupo y los sumo
'ya generado todos los registros posibles, los agrupo y los sumo
If tRetorno.Count > 0 Then
TTraslados = tRetorno.GroupBy(Function(t) New With {Key t.TipoFactor, Key t.Impuesto, Key t.TasaOCuota}) _
.Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto,
@@ -648,7 +648,7 @@ Public Class CFDIComplementoPago
.TasaOCuota = t.Key.TasaOCuota,
.Base = t.Sum(Function(tt) tt.Base),
.Importe = t.Sum(Function(tt) tt.Importe),
.BaseMN = t.Sum(Function(tt) tt.BaseMN),
.BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE,
.ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _
.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,
.Impuesto = drp("TipoImpuesto").ToString,
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
.BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 2),
.ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 2)
.BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 6),
.ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 6)
}
)