-

Compras/Compras.aspx.vb

@@ -3955,6 +3955,10 @@ Partial Class Compras_Compras
         'End If
 
         '------------------ INICIA VALIDACIONES ------------------
+
+
+
+
         Dim EstatusCredito As Integer = 0
         Dim CveSubProyecto As Integer = 0
         'Credito Multiple
@@ -18684,17 +18688,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()