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

ProveedoresAbonar Ajsute direcia 1 centavo entre descuento y RNC

Browse Source
This commit is contained in:
rakcsle
2025-03-14 16:26:23 -07:00
parent 55a43b9e6c
commit 2b2cedd106
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar
CompraActual.UsuarioActual = UsuarioActual
CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
'Importe de pago
Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
'Tipos de cambio
@@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar
If descuentoParts.Length = 0 Then
Descuento = 0
Else
For i As Integer = 0 To descuentoParts.Length - 1
Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
If descuentoPart > 0 Then
Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
Else
Continue For
End If
Next
Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal
'For i As Integer = 0 To descuentoParts.Length - 1
' Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
' If descuentoPart > 0 Then
' Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
' Else
' Continue For
' End If
'Next
End If
@@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar
FolioRNC = serieFolioArray(0)
End If
Descuento = Descuento.RoundSQL(2)
'Descuento = Descuento.RoundSQL(2)
If PorcentajeIVA > 0 Then
Descuento = ((Descuento) / (1 + PorcentajeIVA))