--Cambios whatsapp

Sistemas/UsuarioDetalle.aspx

@@ -2645,9 +2645,7 @@
                                                             <td>
                                                                 <asp:TextBox ID="TxtTelefono" TextMode="Phone" CssClass="form-control input-sm" runat="server"></asp:TextBox>
                                                             </td>
-                                                        </tr>
-                                                        <tr>
-                                                            <td colspan="2"> <asp:Button ID="BtnEnviarMensaje" runat="server" Text="Enviar Notificación" class="btn btn-primary" OnClick="BtnEnviarMensaje_Click" /></td>
+                                                            <td colspan="2"> <asp:Button ID="BtnEnviarMensaje" runat="server" Text="Enviar Activacion" class="btn btn-primary" OnClick="BtnEnviarMensaje_Click" /></td>
                                                         </tr>
                                                     </table>
                                                 </div>

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