diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 407979093..a99e74ffd 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9736,6 +9736,8 @@ Partial Class Compras_Compras
                         e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then