From c70e0c63e7f3fb03fd6a585a87c4f4705d6d2570 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 11 Oct 2024 16:06:13 -0700
Subject: [PATCH] --Cambios whatsapp

---
 App_Code/ClsSisUsuarios.vb      | 19 +++++++++++++++++++
 App_Code/modExtensiones.vb      |  2 +-
 Sistemas/UsuarioDetalle.aspx    |  4 +---
 Sistemas/UsuarioDetalle.aspx.vb | 11 ++++++++---
 4 files changed, 29 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 2d8e925ff..60c06690b 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -199,6 +199,25 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
 
+    Public Function UpdateUsuarioCelular(CveUsuario As Integer, Celular As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosCelularUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Celular", SqlDbType.VarChar).Value = Celular
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar impuestos locales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetModulosUsuariosPlataforma(CveUsuario As Integer, CvePlataforma As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("SELECT M.* FROM [dbo].[UsuariosModulos] UM INNER JOIN Modulos M ON M.CveModulo=UM.CveModulo WHERE M.CvePlataforma =@CvePlataforma AND  @CveUsuario = UM .CveUsuario AND UM.Permitir =1", CommandType.Text)
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index a650d3ebc..8715a1619 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -683,7 +683,7 @@ Namespace Extensiones
             Return Retorno
         End Function
 
-        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
 
diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx
index afe241115..b683adf27 100644
--- a/Sistemas/UsuarioDetalle.aspx
+++ b/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>
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 7c54aa4ee..327d51b21 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/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