AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nombre de mensajes en giros de clientes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-11-04 00:14:21 -07:00
parent aa0dc96c02
commit 30653e0ae4
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/CatClientesClasificaciones.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class Ventas_ClientesClasificaciones
If HdnModalidad.Value = "I" Then
If Objeto.AddClienteClasificacion(TxtClasificacion.Text, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
TxtClasificacion.Text = ""
Alert("La Clasificación se agregó correctamente.", TipoMensaje.MsgInformacion)
Alert("El giro se agregó correctamente.", TipoMensaje.MsgInformacion)
CargaDatos()
UpGvClasificacion.Update()
Objeto.Dispose()
@@ -45,7 +45,7 @@ Partial Class Ventas_ClientesClasificaciones
Else
If HdnID.Value.ToEntero <> -1 Then
If Objeto.UpdateClienteClasificacion(TxtClasificacion.Text, HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
CargaDatos()
UpGvClasificacion.Update()
Objeto.Dispose()
@@ -80,7 +80,7 @@ Partial Class Ventas_ClientesClasificaciones
Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
If Update.UpdateClienteClasificacion(Clasificacion, Clave, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
End If
GvClasificacion.EditIndex = -1
CargaDatos()
@@ -97,7 +97,7 @@ Partial Class Ventas_ClientesClasificaciones
Dim Objeto As New ClsClientes
Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
If Objeto.RemoveClienteClasificacion(Clave) Then
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Alert("El giro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
Objeto.Dispose()
GvClasificacion.EditIndex = -1