diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b109f0059..05acca532 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6833,20 +6833,20 @@ Partial Class Compras_Compras
                                                                                 End If
                                                                             End If
                                                                         Case 6
+                                                                            PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal
                                                                             Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                            For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+                                                                            For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto", "IVAPorcentaje"}).Rows
 
                                                                                 If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then
                                                                                     If ObjConta.DtResultados.Rows.Count > 0 Then
                                                                                         IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
-                                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
                                                                                     End If
                                                                                 End If
 
                                                                                 If importeMN <> 0 Then
                                                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual,
-                                                                                                                         CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then
+                                                                                                                         CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza, PorcentajeImpuesto:=RowDetalle("IVAPorcentaje").ToString.ToDecimal) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
                                                                                 End If
@@ -19669,8 +19669,8 @@ Partial Class Compras_Compras
             Dim Multiplicador = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1)
 
             If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
-                tipoCambioActual = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.ToDecimal
-                tipoCambioActual = If(DivTC.Visible, TipoCambio.ToDecimal, tipoCambioActual)
+                'tipoCambioActual = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.ToDecimal
+                tipoCambioActual = TxtTC.Text.ToDecimal
             Else
                 tipoCambioActual = 1
             End If