diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 7d98d7d6f..aadfa696e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5561,26 +5561,29 @@
             //var Proporcional = ((ToDouble(TxtCantidad.value) * 100) / CantidadOriginal) / 100;
 
             
+            var TotalGravado = ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value);
+            var Total  = ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value);
 
             HdnDescuento.value = ToDouble(DescuentoOriginal * ToDouble(TxtCantidad.value) / CantidadOriginal);
             if (true) {
-                HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnIEPS.value = ToDouble(IEPSPSPorcentaje * (Total - ToDouble(HdnDescuento.value)));
+            }
+            if (IEPSIVAOriginal > 0) {
+                HdnIEPSIVA.value = ToDouble(IEPSPSIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
+                TotalGravado += ToDouble(IEPSPSIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
             }
 
             if (IVAOriginal > 0) {
-                HdnIVA.value = ToDouble(IVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnIVA.value = ToDouble(IVAPorcentaje * (TotalGravado - ToDouble(HdnDescuento.value)));
             }
             if (RetIVAOriginal > 0) {
-                HdnRetIVA.value = ToDouble(RetIVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnRetIVA.value = ToDouble(RetIVAPorcentaje * (Total - ToDouble(HdnDescuento.value)));
             }
             if (RetISROriginal > 0) {
-                HdnRetISR.value = ToDouble(RetISRPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
+                HdnRetISR.value = ToDouble(RetISRPorcentaje * (Total - ToDouble(HdnDescuento.value)));
             }
-            if (IEPSIVAOriginal > 0) {
-                HdnIEPSIVA.value = ToDouble(IEPSPSIVAPorcentaje * (ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value)));
-            }
-
-            TxtTotal.value = FormatoNumero(ToDouble(TxtCantidad.value) * ToDouble(TxtPU.value) - ToDouble(HdnDescuento.value), 2);
+          
+            TxtTotal.value = FormatoNumero(Total - ToDouble(HdnDescuento.value), 2);
             //RECALCULA IMPORTES GENERALES
             CalculaTotalesOC();
 
@@ -5595,7 +5598,7 @@
         }
 
         function CalculaTotalesOC() {
-
+         
             var SumaSubTotal = 0, SumaIEPS = 0, SumaIEPSIVA = 0, SumaIVA = 0, SumaRetIVA = 0, SumaRetISR = 0, SumaTotal = 0, SumaDescuento = 0, Amortizacion = 0;
 
             $('input[name*=TxtTotalOC1]').each(function () {
@@ -5628,7 +5631,7 @@
 
             //Amortizacion = ToDouble($get('C_Tab_TabGenerales_LblAmortizacion').innerText);
 
-            SumaTotal = SumaSubTotal + SumaIVA + SumaIEPSIVA + SumaIEPS - SumaRetIVA - SumaRetISR;
+            SumaTotal = SumaSubTotal + SumaIVA + SumaIEPS - SumaRetIVA - SumaRetISR;
 
             if ($get("C_Tab_TabOC_LbSubTotalOC1")) {
                 $get("C_Tab_TabOC_LbSubTotalOC1").innerText = FormatoNumero(SumaSubTotal + SumaDescuento, 2);
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d4dd6590e..58e6b919a 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2023,12 +2023,15 @@ Partial Class OC
             dr("Descuento") = Descuento
             dr("Total") = Math.Round(Total, 2)
             dr("CveUnidadMedida") = CveUnidadMedida
-            dr("IVAPorcentaje") = If(IVAPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVAPS)
-            dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * Total, 2)
+
             dr("IEPSPSPorcentaje") = IEPSPS
             dr("IEPSPS") = Math.Round(IEPSPS * Total, 2)
             dr("IEPSPSIVAPorcentaje") = IEPSPSIVA
             dr("IEPSPSIVA") = Math.Round(IEPSPSIVA * Total, 2)
+            dr("IVAPorcentaje") = If(IVAPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), IVAPS)
+            Dim TotalGravado As Decimal = Total
+            If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
+            dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * TotalGravado, 2)
             dr("RetIVAPorcentaje") = RetIVA
             dr("RetIVA") = Math.Round(RetIVA * Total, 2)
             dr("RetISRPorcentaje") = RetISR
@@ -3664,18 +3667,23 @@ Partial Class OC
         dr(0)("Importe") = Importe
         dr(0)("Descuento") = Descuento
         dr(0)("Total") = Total
-        'If DdlIVA.SelectedValue.ToDouble = 1 Then dr(0)("IVA") = 0 Else dr(0)("IVA") = IvaPS * Total
-        dr(0)("IVAPorcentaje") = If(IvaPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), 0)
-        dr(0)("IVA") = dr(0)("IVAPorcentaje").ToString.ToDouble * Total
-        dr(0)("RetIVA") = RetIVA * Total
-        dr(0)("RetIVAPorcentaje") = RetIVA
-        dr(0)("RetISR") = RetISR * Total
-        dr(0)("RetISRPorcentaje") = RetISR
         dr(0)("IEPSPS") = IEPSPS * Total
         dr(0)("IEPSPSPorcentaje") = IEPSPS
         dr(0)("IEPSPSIVA") = IEPSPSIVA * Total
         dr(0)("IEPSPSIVAPorcentaje") = IEPSPSIVA
 
+        'If DdlIVA.SelectedValue.ToDouble = 1 Then dr(0)("IVA") = 0 Else dr(0)("IVA") = IvaPS * Total
+        dr(0)("IVAPorcentaje") = If(IvaPS = -1, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), 0)
+        Dim TotalGravado As Decimal = Total
+        If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
+        dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDouble * TotalGravado, 2)
+
+        dr(0)("RetIVA") = RetIVA * Total
+        dr(0)("RetIVAPorcentaje") = RetIVA
+        dr(0)("RetISR") = RetISR * Total
+        dr(0)("RetISRPorcentaje") = RetISR
+
+
         dr(0)("CveActivoFijo") = CveActivoFijo
         dr(0)("CodigoAF") = Codigo
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index b27e93fb5..f8ac7c2d6 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3417,7 +3417,7 @@
                             </div>
 
                             <div class="col-md-8">
-                                <asp:DropDownList ID="DdlTipoRelacion" runat="server" Width="250px" CssClass="select2me">
+                                <asp:DropDownList ID="DdlTipoRelacionAnticipo" runat="server" Width="250px" CssClass="select2me">
                                     <asp:ListItem Text="-" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="07 - CFDI por aplicación de anticipo" Value="7"></asp:ListItem>
                                 </asp:DropDownList>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e595dd1dc..40b97e87b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3784,7 +3784,7 @@ Partial Class Ventas
                 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString
                 'ChkAnticipoEnSubTotal.Checked = DbRowVenta("AnticipoEnSubTotal").ToString = "True"
                 DdlTipoAmortizacionAnticipo.SelectedValueExist(DbRowVenta("CveTipoAmortizacionAnticipo"))
-                DdlTipoRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion"))
+                DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion"))
 
                 'HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString
                 'HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2)
@@ -7135,7 +7135,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.UsoCFDI = DdlUsoCFDI.SelectedItem.Text
         ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
 
-        ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero
+        ObjFacturaDevolucion.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
         ObjFacturaDevolucion.TipoRelacion = "07"
         Dim Fol As New List(Of String)
         Fol.Add(FolioFiscalRelacionado)
@@ -7967,7 +7967,7 @@ Partial Class Ventas
         End If
 
         'Amortizacion 
-        ObjFactura.CveTipoRelacion = DdlTipoRelacion.SelectedValue.ToEntero
+        ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero
         If ObjFactura.CveTipoRelacion > 0 Then
             Select Case ObjFactura.CveTipoRelacion
                 Case 7
@@ -8007,7 +8007,7 @@ Partial Class Ventas
             ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
         End If
 
-        If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTiposRelacion.SelectedValue.ToEntero > 0 Then ' refacturación
+        If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso DdlTipoRelacionAnticipo.SelectedValue.ToEntero > 0 Then ' refacturación
             ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
             If GVAnticipos.Rows.Count > 0 Then
                 For Each gvr As GridViewRow In GVAnticipos.Rows
@@ -10109,7 +10109,7 @@ Partial Class Ventas
 
                                 'cuando es NC, por amortización de anticipo, no debe de registrar el concepto 11,
                                 'pero cuando es NC y se aplicó anticipo, debe de restarle el importe
-                                If ObjFactura.TipoDocto.Contiene("Egs") And CveAnticipo > 0 AndAlso ChkAplicaNCAnticipo.Checked = True Then
+                                If ObjFactura.TipoDocto.Contiene("Egs") And CveAnticipo > 0 AndAlso (DdlTipoComprobante.SelectedValue = "Ing" Or (DdlTipoComprobante.SelectedValue = "Egs" AndAlso ChkAplicaNCAnticipo.Checked = True)) Then
                                     ConceptoContableAplicar = 11
                                     CveVentaAplicar = CveAnticipo
                                     CveVentaAmortizacionAplicar = ObjFactura.CveVenta
@@ -21453,10 +21453,10 @@ Partial Class Ventas
 
             If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then DivConceptoNC.Visible = True Else DivConceptoNC.Visible = False
 
-            DdlTipoRelacion.SelectedValueExist("7")
+            DdlTipoRelacionAnticipo.SelectedValueExist("7")
         Else
             DivConceptoNC.Visible = False
-            DdlTipoRelacion.SelectedValueExist("-1")
+            DdlTipoRelacionAnticipo.SelectedValueExist("-1")
         End If
 
     End Sub