SMS -Crear lista de precios desde clientes.aspx

This commit is contained in:
2023-12-06 22:28:22 -07:00
parent 0297a92018
commit 758042cd8f
4 changed files with 425 additions and 439 deletions

View File

@@ -67,7 +67,7 @@ Partial Class Ventas_CatPreciosLista
Dim ObjVta As New ClsVentas
If EsEditar = 0 Then
If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0) Then
If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0) > 0 Then
Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)