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