- aliias flexible

App_Code/ClsProductosServicios.vb

@@ -1342,7 +1342,7 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+    Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Flexible As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
 
@@ -1350,6 +1350,7 @@ Public Class ClsProductosServicios
             .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)
         End With
 
         Try