--Cambios whatsapp

Sistemas/UsuarioDetalle.aspx.vb

@@ -5021,11 +5021,16 @@ Partial Class Sistemas_UsuarioDetalle
     End Sub
 
     Protected Sub BtnEnviarMensaje_Click(sender As Object, e As EventArgs)
-        EnviarNotificacionBienvendiaWhatsApp($"52{TxtTelefono.Text}", TxtNombre.Text, "\nFavor de responder el mensaje")
-        Alert("El mensaje se envio correctamente")
+        EnviarNotificacionBienvenidaWhatsApp($"52{TxtTelefono.Text}", TxtNombre.Text, "\nFavor de responder el mensaje")
+
+        Using ObjUsuarios As New ClsSisUsuarios
+            If ObjUsuarios.UpdateUsuarioCelular(CveUsuario, TxtTelefono.Text) Then
+                Alert("El mensaje se envio correctamente")
+            End If
+        End Using
     End Sub
 
-    'Public Function EnviarNotificacionBienvendiaWhatsApp(NumeroTelefono As String, NombreUsuario As String, Mensaje As String) As Boolean
+    'Public Function EnviarNotificacionBienvenidaWhatsApp(NumeroTelefono As String, NombreUsuario As String, Mensaje As String) As Boolean
     '    Dim RetornoObj As String = "{}"
     '    Dim Retorno As Boolean = False