Correcion en actualizacion de alias en PS

Compras/Compras.aspx.vb

@@ -18674,7 +18674,6 @@ 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
@@ -18684,7 +18683,6 @@ Partial Class Compras_Compras
                 drt("Clasificacion") = HdnPSAliasClasificacion.Value
                 drt("Obs") = TxtPSAlias.Text.Trim
             Next
-            End If
 
             TmpDT.AcceptChanges()