diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4c49b4a31..a24cdb404 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2290,6 +2290,28 @@ Partial Class Compras_Compras
                         Alert("El xml no contiene la etiqueta  'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Visible = False
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                        For Each item As DataRow In TmpDT.Rows
+                            Dim EquivalenciaBase = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa).FiltroPrimero("UnidadBase = 1")
+                            If EquivalenciaBase IsNot Nothing Then
+                                If item("CveUM").ToString() <> EquivalenciaBase("CveUM").ToString() Then
+                                    Dim EquivalenciaACambiar = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), item("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimero("")
+                                    If EquivalenciaACambiar IsNot Nothing Then
+                                        Dim Cantidad As Decimal = Math.Round(item("Cantidad").ToString().ToDecimal() / EquivalenciaACambiar("Cantidad").ToString().ToDecimal(), 6)
+                                        Dim PU As Decimal = Math.Round((item("Total").ToString().ToDecimal() + item("Descuento").ToString().ToDecimal()) / Cantidad, 6)
+                                        item("Cantidad") = Cantidad
+                                        item("PU") = PU
+                                    End If
+                                    item("CveUM") = EquivalenciaBase("CveUM")
+                                    item("UM") = EquivalenciaBase("UM")
+                                End If
+                            End If
+                        Next
+                        GvPS.DataSource = TmpDT
+                        GvPS.DataBind()
+                        UpPS.Update()
+                    End If
                 End If
             Else
                 Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia)