From bf648fe469578a5563987ff8ee69ae2af4d39e2c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Aug 2023 18:36:31 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20recalcular=20impues?= =?UTF-8?q?tos=20al=20cambiar=20de=20ps?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 7977a458d..6939a75fb 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -4038,19 +4038,6 @@ Partial Class OC_OC IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDecimal IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0) - If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then - RetISR = DrPS("RetISR").ToString.ToDecimal - RetIVA = DrPS("RetIVA").ToString.ToDecimal - If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then - RetIVA = RetIVA / 2 - End If - 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL - ' IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal - 'End If - - ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0) - End If - If DdlProveedores.SelectedValue.ToEntero > 0 Then 'Si es Proveedor Extranjero el IVA es 0% Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("") @@ -4065,6 +4052,17 @@ Partial Class OC_OC End If End If + If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then + RetISR = DrPS("RetISR").ToString.ToDecimal + RetIVA = DrPS("RetIVA").ToString.ToDecimal + If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then + RetIVA = RetIVA / 2 + End If + IvaPS = -1 + End If + + + CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text