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

Compras Correción prorrateo deducible no se considero el descuento

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-05-26 12:26:05 -07:00
parent 11ae6210f3
commit 46dcbaf949
2 changed files with 65 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/Compras.aspx.vb
View File

@@ -4622,7 +4622,7 @@ Partial Class Compras_Compras
Exit Sub
End If
'If Not AjustaIva() Then
'If Not AjustaIVA() Then
' Exit Sub
'End If
@@ -8216,7 +8216,7 @@ Partial Class Compras_Compras
Dim IVADetalles As Decimal = TmpDT.SUMD("IVA", " IVA > 0 ")
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
If Math.Abs(DiferenciaIVas) > 0 Then
If Math.Abs(DiferenciaIVas) > 0.05 Then
Dim DTConsulta As New DataTable
@@ -8288,6 +8288,7 @@ Partial Class Compras_Compras
Alert("existe una diferencia de más de 0.05 entre el IVA de la compra y los detalles.", TipoMensaje.MsgAdvertencia)
Respuesta = False
End If
End If
Return Respuesta
@@ -20659,6 +20660,7 @@ Partial Class Compras_Compras
dRow91_5("RetISR") = dRow91_5("RetISR").ToString.ToDecimal * Mul91_5
dRow91_5("IEPSPS") = dRow91_5("IEPSPS").ToString.ToDecimal * Mul91_5
dRow91_5("IEPSPSIVA") = dRow91_5("IEPSPSIVA").ToString.ToDecimal * Mul91_5
dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5
dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
dRow91_5("NoDeducible") = 1
@@ -20670,6 +20672,7 @@ Partial Class Compras_Compras
dRow8_5("RetISR") = dRow8_5("RetISR").ToString.ToDecimal * Mul85
dRow8_5("IEPSPS") = dRow8_5("IEPSPS").ToString.ToDecimal * Mul85
dRow8_5("IEPSPSIVA") = dRow8_5("IEPSPSIVA").ToString.ToDecimal * Mul85
dRow8_5("Descuento") = dRow8_5("Descuento").ToString.ToDecimal * Mul85
dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
dRow8_5("NoDeducible") = 0

2
Ventas/Clientes.aspx.vb
View File

@@ -3979,8 +3979,6 @@ Partial Class Clientes
End If
End If
End If
Return Respuesta