From d38234eff878088bead490e2f9482827a4fa765a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 7 Jun 2021 12:53:32 -0700
Subject: [PATCH] Correcion en actualizacion de alias en PS

---
 Compras/Compras.aspx.vb | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

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()