From 1e6833af8df8ce4b90a1bc23ba2681646e2f2358 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 21 Oct 2020 14:42:21 -0700
Subject: [PATCH] - cveusuario, en eliminar alias

---
 App_Code/ClsProductosServicios.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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