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

Correciones y redondeos para aplicacion de NC por anticipos con descuentos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-06-16 20:46:16 -07:00
parent 6ebbe2e237
commit 9bf9fbbd5a
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx.vb
View File

@@ -14287,6 +14287,7 @@ Partial Class Ventas
If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
Dim DescuentosAnticipos As Decimal = row2.DataKey("Descuentos").ToDecimal Dim DescuentosAnticipos As Decimal = row2.DataKey("Descuentos").ToDecimal
ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / (row2.DataKey("TotalAnticipo").ToDecimal - DescuentosAnticipos) * row2.DataKey("SubTotalAnticipo").ToDecimal ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / (row2.DataKey("TotalAnticipo").ToDecimal - DescuentosAnticipos) * row2.DataKey("SubTotalAnticipo").ToDecimal
ImporteAnticipo = ImporteAnticipo.RoundSQL(2)
End If End If
Dim Importe11MX As Decimal = ImporteAnticipo Dim Importe11MX As Decimal = ImporteAnticipo
@@ -30167,6 +30168,11 @@ Partial Class Ventas
Dim importePuTemp As Decimal = 0 Dim importePuTemp As Decimal = 0
importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr))) importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr)))
Dim DescuentoAplicado As Decimal = 0
If AplicaDescuentos Then
DescuentoAplicado = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr)
End If
If Not AplicaImpuestosLocales Then If Not AplicaImpuestosLocales Then
importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal
End If End If
@@ -30186,8 +30192,8 @@ Partial Class Ventas
Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()) Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal())
If AplicaDescuentos Then If AplicaDescuentos Then
Dr("ImportePU") = importePuTemp + TmpDT.SUMD("Descuento", FiltroStr) Dr("ImportePU") = importePuTemp + DescuentoAplicado
Dr("Descuento") = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr) Dr("Descuento") = DescuentoAplicado
Dr("ImporteTotal") = Dr("ImportePU").ToString().ToDecimal().RoundSQL(2) Dr("ImporteTotal") = Dr("ImportePU").ToString().ToDecimal().RoundSQL(2)
Else Else
Dr("ImportePU") = importePuTemp Dr("ImportePU") = importePuTemp