Agregar Alias, parametros, mensaje de error al retorno al insertar.

2021-08-23 11:55:07 -07:00
parent dc9f40bd62
commit 22528ac955
3 changed files with 11 additions and 6 deletions
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1455,7 +1455,7 @@ Partial Class ProductosyServicios
        Dim ObjAliasAdd As New ClsProductosServicios
        Dim TieneError = False

-        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, UsuarioActual.CveUsuario) Then
+        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario) Then
            CargarAlias()
            UPGVAlias.Update()
            Alert("Alias " + TxtAlias.Text + " agregado.", TipoMensaje.MsgInformacion)