From 4a2282ee383b95bfa93a8ae000dc11e8f10618b6 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 24 Nov 2023 11:55:02 -0700 Subject: [PATCH] -- redondeo iva, en combustibles --- OC/OC.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 26fe6e0c7..bca8c6791 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -989,7 +989,7 @@ Partial Class OC_OC Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=Dr("CvePS").ToString.ToEntero).FiltroPrimero("") If DrPS IsNot Nothing AndAlso DrPS("IVA").ToString.ToEntero = -1 Then Dr("IVA") = Math.Round(Dr("Total").ToString.ToDecimal * Porcentaje, 6) - Dr("IVAPorcentaje") = Math.Round(Porcentaje, 2) + Dr("IVAPorcentaje") = If(Math.Round(Porcentaje, 2) > 0.14, 0.16, Math.Round(Porcentaje, 2)) ' Tipo Dato '0' es Cuando es Nuevo, '1' para editar y '2' viene de la BD Dr("TipoDato") = If(Dr("TipoDato").ToString.ToEntero = 0, 0, 1) @@ -2592,7 +2592,7 @@ Partial Class OC_OC Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal() If PorcentajeIVADetalle > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then - Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia) + Alert($"El IVA de los conceptos no coincide con el IVA a facturar.[{PorcentajeIVA}-{PorcentajeIVADetalle}]", TipoMensaje.MsgAdvertencia) TieneError = True End If