From 1e32fe121623b65c701d51bd00cc0a238065f66b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 21 Jul 2021 08:38:11 -0700 Subject: [PATCH] Correcion combustibles --- Compras/Compras.aspx.vb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0ef56395a..2855eedd6 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8570,21 +8570,21 @@ Partial Class Compras_Compras If Math.Abs(DiferenciaIVas) > 0.01D Then Respuesta = False - 'If IVADetalles > 0 Then + If IVADetalles > 0 Then - ' For Each dRow As DataRow In TmpDT.Rows - ' If dRow("IVA").ToString.ToDecimal > 0 Then - ' dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas - ' TmpDT.AcceptChanges() - ' Respuesta = True - ' Exit For - ' End If - ' Next + For Each dRow As DataRow In TmpDT.Rows + If dRow("IVA").ToString.ToDecimal > 0 Then + dRow("IVA") = dRow("IVA").ToString.ToDecimal + DiferenciaIVas + TmpDT.AcceptChanges() + Respuesta = True + Exit For + End If + Next - '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) - ' Respuesta = False - 'End If + 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) + Respuesta = False + End If Else Respuesta = True End If