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

--FIX aplicacion de descuento como amortizacion

Browse Source
This commit is contained in:
JPerez
2025-07-04 17:04:24 -07:00
parent 6b7563eb56
commit ce134753c6
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Ventas/Ventas.aspx.vb
View File

@@ -16245,8 +16245,16 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 103 'Descuento Case 103 'Descuento
If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
(DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192)) Then Dim AplicaDescuento As Boolean = ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
(DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192))
'SI SE AMORTIZO CON DESCUENTO, NO APLICAR EL CONCEPTO
If AplicaDescuento AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 1 Then
AplicaDescuento = False
End If
If AplicaDescuento Then
importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador