From fc511767c0aba33d144a586073c0214053a1dd06 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 22 Jan 2025 15:42:21 -0700 Subject: [PATCH] 2 Soporte de registro de factura con prorrateo --- Compras/Compras.aspx.vb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9d8c6e07e..c71e4ea0a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -22517,15 +22517,15 @@ Partial Class Compras_Compras nRow("CveSubProyecto") = CveSubProyecto nRow("SubProyecto") = SubProyecto - If CveFactura > 0 Then - nRow("IVA") = ivaParcial.RoundSQL(4) - nRow("RetIVA") = retIvaParcial.RoundSQL(4) - nRow("RetISR") = retIsrParcial.RoundSQL(4) - Else - nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4) - nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4) - nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4) - End If + 'If CveFactura > 0 Then + ' nRow("IVA") = ivaParcial.RoundSQL(4) + ' nRow("RetIVA") = retIvaParcial.RoundSQL(4) + ' nRow("RetISR") = retIsrParcial.RoundSQL(4) + 'Else + nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4) + nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4) + nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4) + 'End If nRow("SubTotal") = subtotalParcial.RoundSQL(4)