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

-- mejora

Browse Source
This commit is contained in:
rrene
2024-02-20 17:35:51 -07:00
parent 6d5d2a3bd0
commit e8bbb34446
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx.vb
View File

@@ -3293,7 +3293,7 @@ Partial Class Compras_Compras
If RetIVAOriginal > 0 Then If RetIVAOriginal > 0 Then
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
End If End If
If RetIVAFlete Then '4 Fletes If RetIVAFlete Then '4 Fletes
@@ -3314,6 +3314,7 @@ Partial Class Compras_Compras
'permitido en un margen de 1% a 2% 'permitido en un margen de 1% a 2%
If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
DdlRetISRConcepto.SelectedValueExist("3") DdlRetISRConcepto.SelectedValueExist("3")
RetISRResico = True
End If End If
End If End If
End If End If