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

eFacturas Observaciones, Compras prorrateo validacion IVA, Proveedores Abonar aplicacion de mas en pago RNC

Browse Source
This commit is contained in:
rakcsle
2025-03-12 08:34:23 -07:00
parent 7a7213771c
commit 45a171ab06
5 changed files with 37 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Compras.aspx.vb
View File

@@ -22668,7 +22668,20 @@ Partial Class Compras_Compras
nRow("SubTotal") = subtotalParcial.RoundSQL(4)
nRow("Total") = totalParcialDeseado.RoundSQL(4)
nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(2)
Dim tmpPorcentajeIVA As Decimal = 0
If ivaParcial > 0 Then
tmpPorcentajeIVA = (ivaParcial / subtotalParcial).RoundSQL(2)
If tmpPorcentajeIVA = 0.17 Or tmpPorcentajeIVA = 0.15 Then
tmpPorcentajeIVA = 0.16D
End If
If tmpPorcentajeIVA = 0.07 Or tmpPorcentajeIVA = 0.09 Then
tmpPorcentajeIVA = 0.16D
End If
End If
nRow("PorcentajeIVA") = tmpPorcentajeIVA
nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)