Merge branch 'master' of http://192.168.10.111:8383/SIG

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)

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
 

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