Commit inicial Ventas Productivo

ZDG/MensajeManual.aspx.vb

@@ -0,0 +1,351 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Partial Class ZDG_MensajeManual
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES "
+    Private Property DtCoordinadores As DataTable
+        Get
+            Return CType(ViewState("DtCoordinadores"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCoordinadores") = value
+        End Set
+    End Property
+    Private Property DtLideres As DataTable
+        Get
+            Return CType(ViewState("DtLideres"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtLideres") = value
+        End Set
+    End Property
+    Private Property DtMovilizadores As DataTable
+        Get
+            Return CType(ViewState("DtMovilizadores"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtMovilizadores") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            SetValues()
+        Else
+            LbRestantes.Text = (160 - TxtMensaje.Text.Length).ToString
+        End If
+    End Sub
+
+
+#Region "  SET VALUES  "
+    Private Sub SetValues()
+
+        Dim ObjDG As New ClsDG
+
+        'CargaMunicipios
+        If ObjDG.GetMunicipios() Then
+            DdlMunicipio.DataSource = ObjDG.DtResultados
+        Else
+            DdlMunicipio.DataSource = Nothing
+        End If
+
+        'Carga # Mensajes
+        If ObjDG.MensajeGet() AndAlso ObjDG.DtResultados.Rows.Count = 1 Then
+            LbMensajesEnviados.Text = ObjDG.DtResultados.Rows(0)("NumeroMensajes").ToString
+        Else
+            Alert("Ocurrió un error al obtener el numero de mensajes Enviados.", TipoMensaje.MsgError)
+        End If
+
+        ObjDG.Dispose()
+        DdlMunicipio.DataBind()
+
+    End Sub
+#End Region
+
+
+#Region "  CARGA DATOS  "
+    Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DtCoordinadores = Nothing
+        If ChkCoordinadores.Checked Then
+            If ObjDG.GetCoordinadores("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtCoordinadores = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Coordinadores. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        DtLideres = Nothing
+        If ChkLideres.Checked Then
+            If ObjDG.GetLideres("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtLideres = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Lideres. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        DtMovilizadores = Nothing
+        If ChkMovilizadores.Checked Then
+            If ObjDG.GetMovilizadores("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtMovilizadores = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Movilizadores. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        ObjDG.Dispose()
+        CalculaTotales()
+    End Sub
+
+    Protected Sub ChkCoordinadores_CheckedChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DtCoordinadores = Nothing
+        If ChkCoordinadores.Checked Then
+            If ObjDG.GetCoordinadores("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtCoordinadores = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Coordinadores. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        ObjDG.Dispose()
+        CalculaTotales()
+    End Sub
+    Protected Sub ChkLideres_CheckedChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DtLideres = Nothing
+        If ChkLideres.Checked Then
+            If ObjDG.GetLideres("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtLideres = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Lideres. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        ObjDG.Dispose()
+        CalculaTotales()
+    End Sub
+    Protected Sub ChkMovilizadores_CheckedChanged(sender As Object, e As EventArgs)
+        Dim ObjDG As New ClsDG
+
+        DtMovilizadores = Nothing
+        If ChkMovilizadores.Checked Then
+            If ObjDG.GetMovilizadores("-1", DdlMunicipio.SelectedValue.ToEntero) Then
+                DtMovilizadores = ObjDG.DtResultados
+            Else
+                Alert("Ocurrió un error al cargar los Movilizadores. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+        End If
+
+        ObjDG.Dispose()
+        CalculaTotales()
+    End Sub
+    Private Sub CalculaTotales()
+
+        LbCoordinadores.Text = If(DtCoordinadores IsNot Nothing, DtCoordinadores.COUNT("RNM").ToString, "0")
+        LbLideres.Text = If(DtLideres IsNot Nothing, DtLideres.COUNT("RNM").ToString, "0")
+        LbMovilizadores.Text = If(DtMovilizadores IsNot Nothing, DtMovilizadores.COUNT("RNM").ToString, "0")
+
+        LbTotal.Text = (LbCoordinadores.Text.ToEntero + LbLideres.Text.ToEntero + LbMovilizadores.Text.ToEntero).ToString
+
+    End Sub
+#End Region
+
+
+
+#Region "  ENVIAR  "
+    Protected Sub BtnEnviar_Click(sender As Object, e As EventArgs)
+
+        'Alert(LimpiarMensaje(TxtMensaje.Text))
+        'Exit Sub
+
+        'Dim X As New WSTecnoMovil.SendSmsWS
+        'Dim Response As WSTecnoMovil.sendSmsResponseTO
+        'Response = X.sendSms("AD", "SISTEMAS", "SALUDO GABRIELA, TE QUERIAMOS DECIR QUE TIENES EL MEJOR ESPOSO DEL MUNDO.", "6624297448", 99, False)
+        'Exit Sub
+
+        'Dim ObjDG As New ClsDG
+
+        'If ObjDG.EnviarMensajeWS(1234567890, "Hola") Then
+
+        'Else
+        '    Alert("Ocurrió un Error al mandar el mensaje: ", TipoMensaje.MsgError)
+        'End If
+
+        'ObjDG.Dispose()
+        'Exit Sub
+
+
+        ''CORREO
+        'Dim ObjMail As New ClsSisMail
+        'ObjMail.SendMail(UsuarioActual.Empresa, "ing.israelpina@hotmail.com", "MENSAJE SMS DG", "TEST", "israel.pina@adsistemas.mx")
+
+
+        'Alert("TODO FRENADO!!", TipoMensaje.MsgAdvertencia)
+        'Exit Sub
+
+
+        If TxtMensaje.Text = "" Then
+            Alert("No hay mensaje que enviar. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If ChkCoordinadores.Checked = False And ChkLideres.Checked = False And ChkMovilizadores.Checked = False Then
+            Alert("No hay destinatarios a los que enviar el mensaje. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+        Dim ObjDG As New ClsDG
+        Dim Str As New StringBuilder
+        Dim Acum = 1
+        Dim MensajeLimpio = ""
+
+        'COORDINADORES
+        If DtCoordinadores IsNot Nothing Then
+            For Each Dr As DataRow In DtCoordinadores.Rows
+                MensajeLimpio = If(LimpiarMensaje(TxtMensaje.Text).Length > 150, LimpiarMensaje(TxtMensaje.Text).Substring(0, 150), LimpiarMensaje(TxtMensaje.Text))
+                'MensajeLimpio = $"C: {MensajeLimpio}"
+                If ObjDG.EnviarMensajeWS(Dr("Telefono").ToString, MensajeLimpio) Then
+                    If ObjDG.MensajeAdd(1, Dr("Telefono").ToString, MensajeLimpio, UsuarioActual.CveUsuario) Then
+                        Str.AppendFormat("#{0} - Coordinador: {1} {2} <br/>", Acum, Dr("Nombre"), Dr("Telefono"))
+                        Acum += 1
+                    End If
+                End If
+            Next
+        End If
+
+
+        'LIDERES
+        If DtLideres IsNot Nothing Then
+            For Each Dr As DataRow In DtLideres.Rows
+                MensajeLimpio = If(LimpiarMensaje(TxtMensaje.Text).Length > 150, LimpiarMensaje(TxtMensaje.Text).Substring(0, 150), LimpiarMensaje(TxtMensaje.Text))
+                'MensajeLimpio = $"L: {MensajeLimpio}"
+                If ObjDG.EnviarMensajeWS(Dr("Telefono").ToString, MensajeLimpio) Then
+                    If ObjDG.MensajeAdd(1, Dr("Telefono").ToString, MensajeLimpio, UsuarioActual.CveUsuario) Then
+                        Str.AppendFormat("#{0} - Lider: {1} {2} <br/>", Acum, Dr("Nombre"), Dr("Telefono"))
+                        Acum += 1
+                    End If
+                End If
+            Next
+        End If
+
+        'MOVILIZADORES
+        If DtMovilizadores IsNot Nothing Then
+            For Each Dr As DataRow In DtMovilizadores.Rows
+                MensajeLimpio = If(LimpiarMensaje(TxtMensaje.Text).Length > 150, LimpiarMensaje(TxtMensaje.Text).Substring(0, 150), LimpiarMensaje(TxtMensaje.Text))
+                'MensajeLimpio = $"M: {MensajeLimpio}"
+                If ObjDG.EnviarMensajeWS(Dr("Telefono").ToString, MensajeLimpio) Then
+                    If ObjDG.MensajeAdd(1, Dr("Telefono").ToString, MensajeLimpio, UsuarioActual.CveUsuario) Then
+                        Str.AppendFormat("#{0} - Movilizador: {1} {2} <br/>", Acum, Dr("Nombre"), Dr("Telefono"))
+                        Acum += 1
+                    End If
+                End If
+            Next
+        End If
+
+
+        'MENSAJES A ALGUIEN
+        MensajeLimpio = If(LimpiarMensaje(TxtMensaje.Text).Length > 150, LimpiarMensaje(TxtMensaje.Text).Substring(0, 150), LimpiarMensaje(TxtMensaje.Text))
+        If ObjDG.EnviarMensajeWS("5545112326", MensajeLimpio) Then
+            If ObjDG.MensajeAdd(1, "5545112326", MensajeLimpio, UsuarioActual.CveUsuario) Then
+            End If
+        End If
+
+
+        'MENSAJES A IPP
+        If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss"))) Then
+            If ObjDG.MensajeAdd(1, "6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
+            End If
+        End If
+
+        'MENSAJES A JA
+        If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS MANUAL - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
+            If ObjDG.MensajeAdd(1, "6621317425", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
+            End If
+        End If
+
+
+
+        'CORREO
+        Dim ObjMail As New ClsSisMail
+        ObjMail.SendMail(UsuarioActual.Empresa, "ing.israelpina@hotmail.com", "MENSAJE SMS MANUAL DG", Str.ToString, "israel.pina@adsistemas.mx,rene.molina@adsistemas.mx,julian@adsistemas.mx,jjaguialrv@hotmail.com")
+
+
+        'Alert(Str.ToString)
+
+        Alert("Mensaje enviado exitosamente.", TipoMensaje.MsgInformacion)
+        ObjDG.Dispose()
+        Limpiar()
+    End Sub
+#End Region
+
+
+#Region "  CANCELAR  "
+    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
+        Limpiar()
+    End Sub
+    Private Sub Limpiar()
+        DtCoordinadores = Nothing
+        DtLideres = Nothing
+        DtMovilizadores = Nothing
+
+        TxtMensaje.Text = ""
+        ChkCoordinadores.Checked = False
+        ChkLideres.Checked = False
+        ChkMovilizadores.Checked = False
+
+        LbCoordinadores.Text = "0"
+        LbLideres.Text = "0"
+        LbMovilizadores.Text = "0"
+        LbRestantes.Text = "150"
+
+        LbTotal.Text = "0"
+
+        DdlMunicipio.SelectedValueExist("-1")
+
+
+        'Carga # Mensajes
+        Dim ObjDG As New ClsDG
+        If ObjDG.MensajeGet() AndAlso ObjDG.DtResultados.Rows.Count = 1 Then
+            LbMensajesEnviados.Text = ObjDG.DtResultados.Rows(0)("NumeroMensajes").ToString
+        Else
+            Alert("Ocurrió un error al obtener el numero de mensajes Enviados.", TipoMensaje.MsgError)
+        End If
+        ObjDG.Dispose()
+    End Sub
+
+#End Region
+
+
+    Function LimpiarMensaje(texto As String) As String
+        Dim consignos As String = "áàäéèëíìïóòöúùuñÁÀÄÉÈËÍÌÏÓÒÖÚÙÜÑçÇ"
+        Dim sinsignos As String = "aaaeeeiiiooouuunAAAEEEIIIOOOUUUNcC"
+        Dim textoSinAcentos As System.Text.StringBuilder = New System.Text.StringBuilder(texto.Length)
+        Dim indexConAcento As Integer
+
+        For Each caracter As Char In texto
+            indexConAcento = consignos.IndexOf(caracter)
+            If (indexConAcento > -1) Then
+                textoSinAcentos.Append(sinsignos.Substring(indexConAcento, 1))
+            Else
+                textoSinAcentos.Append(caracter)
+            End If
+        Next
+
+        Dim regex As New Regex("[ ](?=[ ])|[^,.A-Za-z0-9 ]+")
+
+        Return regex.Replace(textoSinAcentos.ToString, "")
+    End Function
+
+
+
+End Class