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

Correcion combustibles

Browse Source
This commit is contained in:
rakcsle
2021-07-21 08:38:11 -07:00
parent 13b418ebde
commit 1e32fe1216
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/Compras.aspx.vb
View File

@@ -8570,21 +8570,21 @@ Partial Class Compras_Compras
If Math.Abs(DiferenciaIVas) > 0.01D Then If Math.Abs(DiferenciaIVas) > 0.01D Then
Respuesta = False Respuesta = False
'If IVADetalles > 0 Then If IVADetalles > 0 Then
' For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows
' If dRow("IVA").ToString.ToDecimal > 0 Then If dRow("IVA").ToString.ToDecimal > 0 Then
' dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas
' TmpDT.AcceptChanges() TmpDT.AcceptChanges()
' Respuesta = True Respuesta = True
' Exit For Exit For
' End If End If
' Next Next
'Else Else
' Alert("Los productos especificados en el lisado no tienen asigando impuesto IVA, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia) Alert("Los productos especificados en el lisado no tienen asigando impuesto IVA, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia)
' Respuesta = False Respuesta = False
'End If End If
Else Else
Respuesta = True Respuesta = True
End If End If