diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index d64de3153..9d400ef08 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1355,13 +1355,15 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function RemovePSAlias(CvePS As Integer, PSAlias As String) As Boolean
+    Public Function RemovePSAlias(CvePS As Integer, PSAlias As String, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_ProductosServiciosAliasRemove")
 
         SqlAdapter.SelectCommand.Parameters.Add("@CvePS", SqlDbType.Int).Value = CvePS
         SqlAdapter.SelectCommand.Parameters.Add("@PSAlias", SqlDbType.VarChar).Value = PSAlias
+        SqlAdapter.SelectCommand.Parameters.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True