diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0fe63b649..67bc0ef80 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18674,17 +18674,15 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
 
             'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
-            If UsuarioActual.CveEmpresa <> 141 Then
-                For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
-                    drt("CvePS") = CvePS
-                    drt("PS") = tPS
-                    drt("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero
-                    drt("UM") = DdlUnidadAlias.SelectedItem.Text
-                    drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
-                    drt("Clasificacion") = HdnPSAliasClasificacion.Value
-                    drt("Obs") = TxtPSAlias.Text.Trim
-                Next
-            End If
+            For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
+                drt("CvePS") = CvePS
+                drt("PS") = tPS
+                drt("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero
+                drt("UM") = DdlUnidadAlias.SelectedItem.Text
+                drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
+                drt("Clasificacion") = HdnPSAliasClasificacion.Value
+                drt("Obs") = TxtPSAlias.Text.Trim
+            Next
 
             TmpDT.AcceptChanges()