diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 4b84a2229..3bb5fab27 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3682,7 +3682,9 @@ Partial Class OC
Alert("Ocurrió un error al cargar la información del producto para actualizar. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
- Dim IvaPS = DrPS("IVA").ToString.ToDouble
+ Dim IvaPS = DrPS("IVA").ToString.ToDecimal
+ IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDouble
+ IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then
RetISR = DrPS("RetISR").ToString.ToDouble
@@ -3690,8 +3692,8 @@ Partial Class OC
'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
' IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDouble
'End If
- IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDouble
- IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
+
+ ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
End If
diff --git a/Ventas/RepIngresosDetalle.aspx b/Ventas/RepIngresosDetalle.aspx
index a6de016f0..580fe6631 100644
--- a/Ventas/RepIngresosDetalle.aspx
+++ b/Ventas/RepIngresosDetalle.aspx
@@ -144,6 +144,11 @@
+
+
+
+
+
@@ -183,6 +188,11 @@
+
+
+
+
+