Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
215
ZDG/MensajeAutomatico.aspx.vb
Normal file
215
ZDG/MensajeAutomatico.aspx.vb
Normal file
@@ -0,0 +1,215 @@
|
||||
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()
|
||||
|
||||
Dim pag As New ClsPaginas
|
||||
pag.Alert("TODO FRENADO!!", TipoMensaje.MsgAdvertencia)
|
||||
pag.Dispose()
|
||||
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
|
||||
Reference in New Issue
Block a user