diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 1f5640f5e..e70d402ef 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -2094,6 +2094,7 @@ Public Class ClsCompras
             .Add("@CveCompraActual", SqlDbType.Int).Value = CveCompraActual
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@MsgSalida", SqlDbType.VarChar, 500).Direction = ParameterDirection.Output
         End With
 
         Try