SIG/ZDG/MensajeAutomatico.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Partial Class ZDG_MensajeAutomatico
    Inherits System.Web.UI.Page


#Region " PROPIEDADES "
    Private Property EmpresaTemp As Empresa
        Get
            Return CType(ViewState("EmpresaTemp"), Empresa)
        End Get
        Set(value As Empresa)
            ViewState("EmpresaTemp") = 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
            CreaObjetoEmpresa(1)

            'Dim Pass = IfNull(Request("ADS"), "-1").ToString

            'If Pass = "123" Then
            '    MandaMensajeAutomatico()
            'End If

            'If Pass = "456" Then
            '    MandaMensajeTest()
            'End If

        End If
    End Sub


    Protected Sub BtnTest_Click(sender As Object, e As EventArgs)
        MandaMensajeAutomatico()
    End Sub

    Private Sub MandaMensajeTest()
        Dim ObjDG As New ClsDG
        ObjDG.EnviarMensajeWS("6313186706,6621317425,6621430964,6621190043", "PRUEBAS FINALES DE MENSAJE AUTOMATICO. BUEN DÍA EQUIPO. SALUDOS")
        ObjDG.Dispose()
    End Sub

    Private Sub MandaMensajeAutomatico()

        Alert("TODO FRENADO!!", TipoMensaje.MsgAdvertencia)

        Exit Sub


        GuardaLog(" ----------------------------- ENVIO AUTOMATICO DG | INICIO ----------------------------- ")


        'CORREO
        Dim ObjMail As New ClsSisMail


        Dim ObjDG As New ClsDG
        If ObjDG.MensajeAutomatico() AndAlso ObjDG.DtResultados.Rows.Count > 0 Then

            Dim Contador = 1, ContadorSMS = 1
            Dim TelefonoActual = "-1"
            Dim MovilizadorActual = "-1"
            Dim Mensaje As New StringBuilder
            Dim Str2 As New StringBuilder

            For Each Dr As DataRow In ObjDG.DtResultados.Rows

                'PRIMER VUELTA
                If MovilizadorActual = "-1" Then
                    MovilizadorActual = Dr("Movilizador").ToString
                    TelefonoActual = Dr("Telefono").ToString
                End If

                'CAMBIO NUMERO (MOVILIZADOR) : ENVIAR MENSAJE
                If MovilizadorActual <> Dr("Movilizador").ToString Then
                    If ObjDG.EnviarMensajeWS(TelefonoActual, Mensaje.ToString) Then
                        If ObjDG.MensajeAdd(2, TelefonoActual, Mensaje.ToString, 100) Then
                            Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)
                            ContadorSMS += 1
                        End If
                    End If

                    'ObjMail.SendMail(EmpresaTemp, "ing.israelpina@hotmail.com", $"MENSAJE SMS AUTOMATICO DG - {MovilizadorActual}", Mensaje.ToString, "israel.pina@adsistemas.mx,rene.molina@adsistemas.mx,julian@adsistemas.mx,jjaguilarv@hotmail.com")
                    'Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)


                    Mensaje.Clear()
                    Contador = 1
                    MovilizadorActual = Dr("Movilizador").ToString
                    TelefonoActual = Dr("Telefono").ToString
                End If

                'AGREGA NUEVO CONSECUTIVO (CONCATENAR)
                Mensaje.AppendFormat("{0}{1}", If(Mensaje.ToString <> "", ",", ""), Dr("Consecutivo"))

                'LIMITE CARACTERES : ENVIAR MENSAJE
                If Contador = 25 Then
                    If ObjDG.EnviarMensajeWS(TelefonoActual, Mensaje.ToString) Then
                        If ObjDG.MensajeAdd(2, TelefonoActual, Mensaje.ToString, 100) Then
                            Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)
                            ContadorSMS += 1
                        End If
                    End If

                    'ObjMail.SendMail(EmpresaTemp, "ing.israelpina@hotmail.com", $"MENSAJE SMS AUTOMATICO DG - {MovilizadorActual}", Mensaje.ToString, "israel.pina@adsistemas.mx,rene.molina@adsistemas.mx,julian@adsistemas.mx,jjaguilarv@hotmail.com")
                    'Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)


                    Mensaje.Clear()
                    Contador = 0
                End If

                Contador += 1
            Next


            ' ENVIA ULTIMO MENSAJE (EL QUE SE SALE DEL FOR Y QUE NO SE HALLA ENVIADO)
            If Mensaje.ToString <> "" Then
                If ObjDG.EnviarMensajeWS(TelefonoActual, Mensaje.ToString) Then
                    If ObjDG.MensajeAdd(2, TelefonoActual, Mensaje.ToString, 100) Then
                        Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)
                        ContadorSMS += 1
                    End If
                End If
                'ObjMail.SendMail(EmpresaTemp, "ing.israelpina@hotmail.com", $"MENSAJE SMS AUTOMATICO DG - {MovilizadorActual}", Mensaje.ToString, "israel.pina@adsistemas.mx,rene.molina@adsistemas.mx,julian@adsistemas.mx,jjaguilarv@hotmail.com")
                'Str2.AppendFormat("#{0} | Num: {1} - Mensaje: {2}<br/><br/>", ContadorSMS, TelefonoActual, Mensaje.ToString)
            End If



            'MENSAJES A IPP
            If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
                If ObjDG.MensajeAdd(2, "6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss")), 100) Then
                End If
            End If

            'MENSAJES A JA
            If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
                If ObjDG.MensajeAdd(2, "6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss")), 100) Then
                End If
            End If



            'CORREO
            ObjMail.SendMail(EmpresaTemp, "ing.israelpina@hotmail.com", "MENSAJE SMS AUTOMATICO DG", Str2.ToString, "israel.pina@adsistemas.mx,rene.molina@adsistemas.mx,julian@adsistemas.mx,jjaguialrv@hotmail.com")


            GuardaLog(" ----------------------------- ENVIO AUTOMATICO DG | TERMINA ----------------------------- ")



            'Dim pag As New ClsPaginas
            'pag.Alert(Str2.ToString)
            'pag.Dispose()

        End If
        ObjDG.Dispose()
    End Sub




    Private Sub CreaObjetoEmpresa(CveEmpresa As Integer)

        Dim ObjEmpresa As New ClsSisEmpresas()
        If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
            'Session("Empresa") = ObjEmpresa
            If ObjEmpresa.GetEmpresasFuncionalidades(CveEmpresa) Then
                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados

                Dim EmpresasFuncionalidades As New HybridDictionary
                For Each Row As Data.DataRow In dttmp.Rows
                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
                Next
                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
            End If

            EmpresaTemp = ObjEmpresa.Empresa
        Else
            Session("Empresa") = Nothing
        End If
        ObjEmpresa.Dispose()
    End Sub



    'Private Sub CreaXML()
    '    Dim dt As New DataTable
    '    dt.Columns.Add("ID")
    '    Dim dr As DataRow = dt.NewRow
    '    dr("ID") = 1
    '    dt.Rows.Add(dr)

    '    Dim ds As New DataSet
    '    ds.Tables.Add(dt)
    '    Dim stringXML As String = ds.GetXml

    '    Dim pag As New ClsPaginas
    '    pag.Alert(stringXML)
    '    pag.Dispose()

    'End Sub




End Class