-- cveempres en addalias

App_Code/ClsProductosServicios.vb

@@ -1375,7 +1375,7 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer) As Boolean
+    Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
 
@@ -1384,6 +1384,7 @@ Public Class ClsProductosServicios
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0)
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try