Agregar Alias, parametros, mensaje de error al retorno al insertar.

App_Code/ClsProductosServicios.vb

@@ -1342,15 +1342,15 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Flexible As Boolean = False) As Boolean
+    Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@PSAlias", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0)
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
 
         Try
@@ -1361,7 +1361,12 @@ Public Class ClsProductosServicios
             If Ex1.Message.Contains("Número: 2627;") Then
                 OnError("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             Else
-                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                If Ex1.Message.Contains("Número: 5555;") Then
+                    Dim Str As String = Ex1.Message.Substring(14) 'toma el valor posterior
+                    OnError("No se puede registrar un alias porque ya existe la siguiente:" + Str, Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Else
+                    Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                End If
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

Compras/Compras.aspx.vb

@@ -1618,7 +1618,7 @@ Partial Class Compras_Compras
         DdlTipoGastoAsignar.DataBind()
         UpParametros.Update()
 
-        If UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
             ChkAliasFlexible.Visible = True
         End If
 
@@ -18679,7 +18679,7 @@ Partial Class Compras_Compras
         End If
 
         Dim PS As New ClsProductosServicios
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario, ChkAliasFlexible.Checked) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, ChkAliasFlexible.Checked, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS

Ventas/ProductosServicios.aspx.vb

@@ -1455,7 +1455,7 @@ Partial Class ProductosyServicios
         Dim ObjAliasAdd As New ClsProductosServicios
         Dim TieneError = False
 
-        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, UsuarioActual.CveUsuario) Then
+        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario) Then
             CargarAlias()
             UPGVAlias.Update()
             Alert("Alias " + TxtAlias.Text + " agregado.", TipoMensaje.MsgInformacion)