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

Compras EMD ajuste retenciones validacion ret IVA para compras Rafael Martinez de con OCS 72882 y 72881

Browse Source
This commit is contained in:
rakcsle
2025-03-12 19:55:31 -07:00
parent 287682e1fe
commit e205326268
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -8488,7 +8488,7 @@ Partial Class Compras_Compras
Dim DiferenciaRetISR As Decimal = TxtRetISR.Text.ToDecimal - RetISRDetalles Dim DiferenciaRetISR As Decimal = TxtRetISR.Text.ToDecimal - RetISRDetalles
If Math.Abs(DiferenciaRetISR) > 0 Then If Math.Abs(DiferenciaRetISR) > 0 Then
If Math.Abs(DiferenciaRetISR) <= 0.05 Then If Math.Abs(DiferenciaRetISR) <= 0.09 Then
Dim DTConsulta As New DataTable Dim DTConsulta As New DataTable
DTConsulta = TmpDT.FiltraParametros(" RetISR > 0 ") DTConsulta = TmpDT.FiltraParametros(" RetISR > 0 ")
@@ -8512,12 +8512,17 @@ Partial Class Compras_Compras
If Math.Abs(DiferenciaRetISR) > 0.0D Then If Math.Abs(DiferenciaRetISR) > 0.0D Then
If (TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR) < 0 Then If (TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR) < 0 Or (Math.Abs(DiferenciaRetISR) >= 0.06) Then
Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaRetISR) / CantidadRegistroConRetISR Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaRetISR) / CantidadRegistroConRetISR
For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows
dRow("RetISR") = dRow("RetISR").ToString.ToDecimal - AjusteteDividido If DiferenciaRetISR > 0 Then
dRow("RetISR") = dRow("RetISR").ToString.ToDecimal + AjusteteDividido
Else
dRow("RetISR") = dRow("RetISR").ToString.ToDecimal - AjusteteDividido
End If
Next Next
Else Else