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