cheveguerra/ReplyAutoV1---WIP
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ReplyAutoV1---WIP.git synced 2026-04-17 21:06:09 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
4bc859f952d3c3243673a533501601ed00b88fb2
ReplyAutoV1---WIP/B4A/NotificationService.bas
cheveguerra 9312a24446 Commit iniical.
2023-09-24 03:29:06 -06:00

1042 lines
49 KiB
QBasic
Raw Blame History

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Service
Version=11
@EndOfDesignText@
#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim rp As ReplyAuto
Dim status As String = "Servicio Activo"
Dim notisMap2 As Map
Dim nsStatus, starterStatus As Map
Dim mapReglas As Map = CreateMap()
' Type reglasUsuario(numero As String, histRegas As List)
Type notificacionesGuardadasType(numero As String, notif As StatusBarNotification)
Dim notificacionesGuardadas As Map
Dim notificacionesPorContestar As List
Dim histReglas As Map
Dim reqManager As DBRequestManager
Dim cmd As DBCommand
Dim numRemitente As String = ""
Dim cont As Int = 0
Dim espera As Int = 100
Dim procesandoNotificaciones As Boolean = False
Dim notisIds As Map
Dim DBRChecked As Boolean
Dim pruebaPaso As Int = 0
End Sub
Sub Service_Create
If status = "Servicio Activo" Then
rp.Initialize("Bow2")
' notisMap2.Initialize
' If starter.Logger Then LogColor("notiService Created", Colors.Magenta)
If Not(nsStatus.IsInitialized) Then nsStatus.Initialize
nsStatus.put(Subs.fechaKMT(DateTime.now),"inicia")
mapReglas = Subs.traeReglas
notificacionesGuardadas.Initialize
notificacionesPorContestar.Initialize
histReglas.Initialize
reqManager.Initialize(Me, Starter.DBRServer)
Service.StartForeground(747, CreateNotification("Servicio Activo"))
notisIds.Initialize
End If
End Sub
Sub Service_Start (StartingIntent As Intent)
If status = "Servicio Activo" Then
' If starter.Logger Then LogColor("notiService Start - " & cont, Colors.Magenta)
If cont > 25 Then 'Regeneramos la notificación permanente despues de 25 notificaciones varias.
Service.StartForeground(747, CreateNotification(status))
cont = 0
End If
cont = cont + 1
If Not(notisMap2.IsInitialized) Then notisMap2.Initialize
If notisMap2.Size = 0 And Starter.notisMap2.IsInitialized Then
' If starter.Logger Then Log($"nsNotisMap2.size=${notisMap2.Size}, Starter.notisMap2=${Starter.notisMap2.size}"$)
notisMap2.Initialize
notisMap2 = Starter.notisMap2
' If starter.Logger Then LogColor("Copie notisMap2 desde Starter.notisMap2, tamaño=" & notisMap2.Size, Colors.Green)
End If
If Not(nsStatus.IsInitialized) Then nsStatus.Initialize
If Starter.nsStatus.IsInitialized Then nsStatus = Starter.nsStatus
If Starter.starterStatus.IsInitialized Then
starterStatus.Initialize
starterStatus = Starter.starterStatus
Else If Not(Starter.starterStatus.IsInitialized) And starterStatus.IsInitialized Then
Starter.starterStatus.Initialize
Starter.starterStatus = nsStatus
Else
starterStatus.Initialize
Starter.starterStatus.Initialize
starterStatus.Put(Subs.fechaKMT(DateTime.now),"inicia")
Starter.starterStatus.Put(Subs.fechaKMT(DateTime.now),"inicia")
End If
' If starter.Logger Then Log($"starterStatus=${Starter.starterStatus}, nsStatus=${nsStatus}"$)
If rp.HandleIntent(StartingIntent) Then Return
cmd.Initialize
cmd.Name = "select_soporte" 'Intentamos conectarnos al servido publico y si no responde cambiamos al interno.
reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 750) 'request con timeout corto en ms.
DBRChecked = False
Do While Not(DBRChecked) ' Esperamos a que termine la prueba de conexion.
Sleep(20)
Loop
End If
End Sub
Sub CreateNotification (Body As String) As Notification
Dim notification As Notification
notification.Initialize2(notification.IMPORTANCE_LOW)
notification.Icon = "icon"
notification.SetInfo("Esperando notificaciones.", Body, Main)
Return notification
End Sub
Sub Service_Destroy
nsStatus.Put(Subs.fechaKMT(DateTime.now),"termina")
If Starter.notisMap2.IsInitialized Then
Starter.notisMap2 = notisMap2
Else
Starter.notisMap2.Initialize
Starter.notisMap2 = notisMap2
End If
If Starter.logger Then LogColor("NotificationService Destroyed, copied notimap2 to starter=" & Starter.notisMap2.Size , Colors.Red)
End Sub
Sub Bow2_NotificationPosted (SBN As StatusBarNotification)
If status = "Servicio Activo" Then
If Starter.logger Then LogColor(SBN.PackageName, Colors.Red)
'=============================================================================================================='
'============================================== Inicia Whatsapp ============================================='
'=============================================================================================================='
If SBN.PackageName = "com.whatsapp" Or SBN.PackageName = "com.whatsapp.w4b" Then
#Region Variables de la notificación
' If starter.Logger Then LogColor("ObjetoNoti:"&SBN,Colors.Blue)
' If starter.Logger Then Log(SBN.Id) 'get Id Notification
' If starter.Logger Then Log("PackageName:" & SBN.PackageName) 'get PackageName Application posted Notification
' If starter.Logger Then LogColor("NotiObject:"&SBN.Notification, Colors.Blue) 'get Notification object
' If starter.Logger Then LogColor("NotiExtras:"&SBN.Extras, Colors.Blue) 'get extras Notification
' If starter.Logger Then Log("NotiIntent:"&SBN.ContentIntent) 'get ContentIntent not used
' If starter.Logger Then Log("NotiKey:"&SBN.Key) 'get Key
' If starter.Logger Then Log("Title:" & SBN.Title)
' If starter.Logger Then Log("Mensaje:"&SBN.Message)
' If starter.Logger Then Log("Ticker:" & SBN.TickerText)
' If starter.Logger Then Log("Numero:" & getNumberWA(SBN))
' If starter.Logger Then Log("Nombre persona:" & getPersonFromGroup(SBN.Title))
#end region
If SBN.PackageName == "com.whatsapp" Or SBN.PackageName = "com.whatsapp.w4b" Then
If Starter.logger Then Log("Llega WA Notificacion = " & SBN.Title & " - " & SBN.Message)
Dim whatsappkey As String = SBN.Key
If Starter.logger Then Log(SBN.key)
Dim ww() As String = Regex.Split("\|", whatsappkey)
If ww(3) <> "null" Then
Subs.guardaNotificacion(SBN)'Aqui guardamos en un mapa las notificaciones y posteriormente poder mandar notificacion a esos números.
' Starter.colaNotifs.ExecNonQuery($"insert into cola (numero, contestada, timestamp) values ('${getNumberWA(SBN)}', 0, ${DateTime.Now})"$)
' If starter.Logger Then Log(notisMap2)
' If starter.Logger Then Log(notificacionesPorContestar)
#Region Grupo o persona
' If starter.Logger Then LogColor("isGroupWA: "&isGroupWA2(SBN.Title),Colors.Magenta)
' If starter.Logger Then LogColor("isGroupWA2: "&isGroupWA(SBN),Colors.Magenta)
' If starter.Logger Then LogColor("isPersonWA: "&isPersonWA(SBN),Colors.Magenta)
' If starter.Logger Then LogColor("isPersonWA2 :"&isPersonWA2(SBN),Colors.Magenta)
' If starter.Logger Then LogColor("getPersonFromGroup: "& getPersonFromGroup(SBN.Title) ,Colors.Magenta)
' If starter.Logger Then LogColor("groupName: "& getGroupName(SBN.Title) ,Colors.Magenta)
' If starter.Logger Then LogColor("groupName2: "& getGroupName2(SBN) ,Colors.Magenta)
' If starter.Logger Then LogColor("getNumberOrGroupWA: "& getNumberOrGroupWA(SBN) ,Colors.Magenta)
' If starter.Logger Then LogColor("getNumberWA: "& getNumberWA(SBN) ,Colors.Magenta)
' If starter.Logger Then LogColor("getShortcut: "& getShortcut(SBN) ,Colors.Magenta)
' If starter.Logger Then LogColor("mapReglas="&mapReglas, Colors.Magenta)
#End Region
Try 'A veces el sistema finaliza la aplicación, el servicio continua interceptando notificaciones, pero la lista de notificaciones recibidas ya no se actualiza.
CallSubDelayed(B4XPages.MainPage, "llenaLV") 'Poblamos el listview con las notificaciones recibidas.
Catch
LogColor(LastException, Colors.red)
End Try
End If
procesaColaDeNotificaciones
End If
#Region Codigo para Whatsapp Bussiness - Deshabilitado
' If SBN.PackageName == "com.whatsapp.w4b" Then
' Dim whatsappkey As String = SBN.Key
' Dim ww() As String = Regex.Split("\|", whatsappkey)
' If ww(3) <> "null" Then
' 'rp.ClearNotification(SBN)
' rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld WhatsApp-Business")
' Log("Reply Whatsapp Success")
' End If
' End If
#end region
End If
End If
End Sub
'Modo simple de regex que permite poner un * para significar cualquier cadena y // para significar OR.
Sub regexSimple(cadenaOriginal As String) As String
cadenaOriginal = Regex.Replace("\*", cadenaOriginal, "\.\*")
cadenaOriginal = Regex.Replace("\/\/", cadenaOriginal, "\|")
' If starter.Logger Then Log(cadenaOriginal)
Return cadenaOriginal
End Sub
'Regresa "verdadero" si el el texto "aBuscar" existe en el texto "sbnMensaje", se pueden
'agregar * para significar cualquier cadena y // para significar OR.
'Ej. coincideRegexSimple("*hola*//*buenas*", "Hola, como estas") = verdadero
' coincideRegexSimple("*hola*//*buenas*", "Buenas tardes") = verdadero
Sub coincideRegexSimple(aBuscar As String, sbnMensaje As String) As Boolean
' If starter.Logger Then Log(sbnMensaje)
Private x As Boolean
Dim sbnMensaje As String = Regex.Replace("[\r?\n|\r]",sbnMensaje," ") 'Sustituimos los "retornos" por un espacio porque si tiene retornos el mensaje la busqueda no va a coinicidir.
' If starter.Logger Then Log($"|${aBuscar}|${sbnMensaje}|"$)
x = Regex.IsMatch2(regexSimple(aBuscar), Regex.CASE_INSENSITIVE, sbnMensaje)
If aBuscar = "%solo_numeros%" Then x = Regex.IsMatch("\d+", sbnMensaje) 'Solo acepta numeros en la respuesta.
If aBuscar = "%solo_correos%" Then x = Regex.IsMatch("([a-zA-Z0-9]+[_a-zA-Z0-9\.-]*[a-zA-Z0-9]+)@([a-zA-Z0-9-]+(?:\.[a-zA-Z0-9-]+)*\.[a-zA-Z]{2,12})", sbnMensaje) 'Solo acepta direcciones de correo en la respuesta.
If aBuscar = "%solo_urls%" Then x = Regex.IsMatch("^(https?:\/\/)?([\da-z\.-]+)\.([a-z\.]{2,6})([\/\w \?=.-]*)\/?$", sbnMensaje) 'Solo acepta URLs en la respuesta.
Return x
End Sub
'Returns TRUE if the sender is a GROUP.
'Searches the provided sbn.title for the string ": " to know if the sender is a group.
Sub isGroupWA2(sbnTitle As String) As Boolean 'ignore
Private x As Boolean = Regex.ismatch(".*(: ).*", sbnTitle)
Return x
End Sub
'Returns TRUE if the sender is a GROUP.
'Searches the provided notification object for the string "@g.us" and if found returns TRUE.
Sub isGroupWA(sbn As StatusBarNotification) As Boolean
Private a As Boolean = False
If sbn.As(String).IndexOf("@g.us") > -1 Then a = True 'ignore
Return a
End Sub
'Returns TRUE if the sender is a PERSON.
'Searches the provided notification object for the string "@s.whatsapp.net" and if found returns TRUE.
Sub isPersonWA(sbn As StatusBarNotification) As Boolean 'ignore
Private a As Boolean = False
If sbn.As(String).IndexOf("@s.whatsapp.net") > -1 Then a = True 'ignore
Return a
End Sub
'Returns TRUE if the sender is a PERSON.
'Searches the provided notification object for the string "channel=individual" and if found returns TRUE.
Sub isPersonWA2(sbn As StatusBarNotification) As Boolean 'ignore
Private a As Boolean = False
If sbn.As(String).IndexOf("channel=individual") > -1 Then a = True 'ignore
Return a
End Sub
'Returns the sender's number.
'Searches the provided notification object and gets the numbers between "shortcut=" and "@s.whatsapp.net".
Sub getNumberWA(sbn As StatusBarNotification) As String
Private a As Int = sbn.As(String).IndexOf("@s.whatsapp.net") 'ignore
If a > -1 Then
Private x As String = sbn.As(String) 'ignore
Private y As Int = x.IndexOf("shortcut=")
If (y+9) > 0 And a > (y+9) Then x = x.SubString2(y+9, a) Else x = "Not a person"
Else 'It is probably is a group.
x = "Not a person"
End If
Return x
End Sub
'Returns the name of the group from the given text.
'If it is not a group, then returns the notification's title.
Sub getGroupName(sbnTitle As String) As String 'ignore
Private a As Int = sbnTitle.IndexOf(": ")
Private x As String = sbnTitle
If a > -1 Then
Private b As String = sbnTitle.SubString2(0, a)
x = Regex.Replace(" \(.+\)", b, "")
End If
Return x
End Sub
'Returns the name of the group from the given notification object.
'Searches the provided notification for the string "hiddenConversationTitle" and if found, gets the name.
'If it is not a group,then it returns the notification's title.
Sub getGroupName2(sbn As StatusBarNotification) As String
Private inicio As Int = sbn.Extras.As(String).IndexOf("hiddenConversationTitle=") 'ignore
If inicio > -1 And sbn.Extras.As(String).IndexOf("hiddenConversationTitle=null") = -1 Then 'ignore
Private x As String = sbn.Extras.As(String) 'ignore
Private fin As Int = x.IndexOf(", android.reduced.images=")
x = x.SubString2(inicio+24, fin)
x = Regex.Replace(" \(.+\)", x, "") 'Replace anything between () with "", this en the case that we have something like "MyGroupName (5 messages)"
Else 'Is not from a group.
Private x As String = sbn.Title
End If
Return x
End Sub
'Returns the person's name (or the number) when the message comes from a group.
'Searches the provided sbn.title for the string ": " in the title and returns the string after that,
'if it does not find ": " then returns the complete string.
Sub getPersonFromGroup(sbnTitle As String) As String 'ignore
Private a As Int = sbnTitle.IndexOf(": ")
If a = -1 Then a = -2 'Is not from a group.
Private b As String = sbnTitle.SubString(a+2)
Return b
End Sub
'Returns the NUMBER of the sender and if NOT a person, then returns the name of the group.
Sub getNumberOrGroupWA(sbn As StatusBarNotification) As String
Private numRemitente As String = getNumberWA(sbn)
If numRemitente = "Not a person" Then numRemitente = getGroupName(sbn.Title)
Return numRemitente
End Sub
'Desbloquea el usuario de Guna especificado usando JRDC.
Sub desbloqueaUsuario(sbn As StatusBarNotification) 'ignore
Private elNumero As String = getNumberWA(sbn)
If elNumero = "Not a person" Then elNumero = getGroupName(sbn.Title)
agregaNotiParaJobDone(sbn)
cmd.Initialize
cmd.Name = "update_usuario_guna_nobajas"
Dim tempUsr As String = sbn.Message
' Dim tempUsr As String = "cdaza"
If Starter.logger Then LogColor("Usuario a desbloquear="&tempUsr, Colors.Green)
cmd.Parameters = Array As Object(tempUsr.ToUpperCase.Trim) 'Quitamos espacios de antes y despues y lo mandamos en mayúsculas.
reqManager.ExecuteCommand(cmd , $"desbloqueaUsuario_${elNumero}"$)
If Starter.logger Then Log("Mandamos DBRequest desbloqueo: " & tempUsr)
End Sub
'Trae los datos del cliente especificado de Guna usando JRDC.
Sub revisaCliente(sbn As StatusBarNotification) 'ignore
Private elNumero As String = getNumberWA(sbn)
' If elNumero = "Not a person" Then elNumero = getGroupName(sbn.Title)
agregaNotiParaJobDone(sbn)
If Starter.logger Then Log("Buscamos cliente "&sbn.Message)
cmd.Initialize
cmd.Name = "select_cliente_GUNA"
Dim tempUsr As String = sbn.Message
If Starter.logger Then LogColor("Cliente="&tempUsr, Colors.Green)
cmd.Parameters = Array As Object(tempUsr.ToUpperCase.Trim) 'Quitamos espacios de antes y despues y lo mandamos en mayúsculas.
reqManager.ExecuteQuery(cmd, 0 , $"traeCliente_${elNumero}"$, 0)
If Starter.logger Then Log("Mandamos DBRequest traeCliente: " & tempUsr)
End Sub
'Revisa si el cliente especificado existe en Guna.
Sub revisacliente2(sbn As StatusBarNotification)
Private elNumero As String = getNumberWA(sbn)
agregaNotiParaJobDone(sbn)
If Starter.Logger Then Log("Buscamos cliente "&sbn.Message)
cmd.Initialize
cmd.Name = "select_revisacliente_GUNA"
Dim tempUsr As String = sbn.Message
If Starter.logger Then LogColor("Cliente="&tempUsr, Colors.Green)
cmd.Parameters = Array As Object(tempUsr.ToUpperCase.Trim) 'Quitamos espacios de antes y despues y lo mandamos en mayúsculas.
reqManager.ExecuteQuery(cmd, 0 , $"revisaCliente_${elNumero}"$, 0)
If Starter.logger Then Log("Mandamos DBRequest revisaCliente: " & tempUsr)
End Sub
'Guarda los datos de la promoción de la gallina en Guna.
Sub guardaInfoGallina(sbn As StatusBarNotification)
If Starter.logger Then LogColor("================= INFO GALLINA ============", Colors.Red)
Private elNumero As String = getNumberWA(sbn)
agregaNotiParaJobDone(sbn)
Dim preventa As String = sbn.Message
' If starter.Logger Then Log(procesaRemplazos($"%msj_ant_03G.1_0%|%msj_ant_03G.1.1_0%"$, traeNotificacion(elNumero)))
Private paramss() As String=Regex.Split("\|", procesaRemplazos($"%msj_ant_03G.1_0%|%msj_ant_03G.1.1_0%"$, traeNotificacion(elNumero)))
If Starter.logger Then LogColor($"${elNumero}, ${paramss(0)}, ${paramss(0)}, ${preventa}"$, Colors.green)
cmd.Initialize
cmd.Name = "insert_registroGallina_GUNA"
cmd.Parameters = Array As Object(elNumero, paramss(0), paramss(0), preventa)
reqManager.ExecuteCommand(cmd, $"guardaInfoGallina_${elNumero}"$)
If Starter.logger Then Log("Mandamos DBRequest guardaInfoGallina_: " & elNumero)
End Sub
'Agregamos la notificacion a un mapa para una vez que tengamos el jobDone poder mandar un mensaje especificado.
Sub agregaNotiParaJobDone(sbn As StatusBarNotification)
Dim n As notificacionesGuardadasType
n.Initialize
n.numero = getNumberWA(sbn)
n.notif = sbn
Dim titulo As String = getNumberWA(sbn)
If isGroupWA(sbn) Then titulo = getGroupName2(sbn)
Private tmpMap As Map
tmpMap.Initialize
tmpMap.Put(titulo, n)
tmpMap.Put("msg", sbn.Message)
notificacionesGuardadas.Put(titulo, tmpMap)
' If starter.Logger Then Log($"Mapa notificacionesGuardadas=${notificacionesGuardadas}"$)
End Sub
Sub JobDone(Job As HttpJob) 'ignore
If Starter.Logger Then LogColor("jobDone: " & Job.Tag, Colors.Magenta)
If Job.Success = False Then
If Starter.Logger Then LogColor("***** jobDone Error *****", Colors.Red)
If Starter.Logger Then LogColor(Job.ErrorMessage, Colors.Red)
If Job.Tag = "pruebaConexion" Then 'And Job.ErrorMessage.IndexOf("Failed to connect to ") = -1
B4XPages.MainPage.Timer1.Interval = (20 * 1000)
Private cd1 As ColorDrawable
cd1.Initialize(Colors.red, 10dip)
B4XPages.MainPage.b_config.Background = cd1
B4XPages.MainPage.b_config.text = "Desconectado"
If Starter.DBRServer == "http://10.0.0.205:1782" Then
Starter.DBRServer = "http://keymon.lat:1782"
Else
Starter.DBRServer = "http://10.0.0.205:1782"
End If
' DBRServer = "http://11.0.0.231:1783" 'Para pruebas locales
reqManager.Initialize(Me, Starter.DBRServer)
pruebaPaso = pruebaPaso + 1
' Toast("Cambiando a servidor interno. 🕵🏼", 0)
' ToastMessageShow("Cambiando a servidor interno. 🕵🏼", False)
If Starter.logger Then Log($"PruebaPaso = ${pruebaPaso}"$)
If Starter.Logger Then LogColor("Reintentando conexion: " & Starter.DBRServer, Colors.RGB(255,123,0))
ToastMessageShow("Reintentando conexion: " & Starter.DBRServer, False)
If pruebaPaso < 2 Then
If Starter.Logger Then Log("Reintentamos conexión con servidor nuevo.")
cmd.Initialize
cmd.Name = "select_soporte" 'Reintentamos conexión.
reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 0)
End If
If Starter.Logger Then LogColor("Servidor actual: " & Starter.DBRServer, Colors.Magenta)
End If
Else
If Starter.Logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
If Job.JobName = "DBRequest" Then 'Para desbloquear un usuario Guna.
Dim result As DBResult = reqManager.HandleJob(Job)
If Starter.logger Then Log("******************************************************")
If Starter.logger Then Log($"************ ${result.Tag} ***********"$)
If Starter.logger Then Log("******************************************************")
If result.Tag = "pruebaConexion" Then
If Starter.logger Then Log($"${Starter.ultimoServidorConectado}+${Starter.DBRServer} "$)
If Starter.logger Then LogColor("Servidor actual: " & Starter.DBRServer, Colors.Magenta)
If Starter.ultimoServidorConectado <> Starter.DBRServer Then
ToastMessageShow($"Conexión establecida${CRLF}${Starter.DBRServer}"$, False)
Else
ToastMessageShow($"OK"$, False)
End If
Starter.ultimoServidorConectado = Starter.DBRServer
Private cd1 As ColorDrawable
cd1.Initialize(Colors.RGB(109, 221, 101), 10dip)
B4XPages.MainPage.b_config.Background = cd1
B4XPages.MainPage.b_config.text = "Conectado"
B4XPages.MainPage.Timer1.Interval = (120 * 1000)
' For Each records() As Object In result.Rows
' If starter.Logger Then Log("========================= ")
' For Each k As String In result.Columns.Keys
' If starter.Logger Then LogColor(result.Tag & ": " & k & "=" & records(result.Columns.Get(k)), Colors.blue)
' Next
' Next
End If
If result.Tag.As(String).IndexOf("desbloqueaUsuario_") > -1 Then 'query tag
For Each records() As Object In result.Rows
Private num As String = result.Tag
num = num.SubString(num.IndexOf("_")+1)
Private usr As String = notificacionesGuardadas.Get(num).As(Map).Get("msg")
If Starter.Logger Then Log("========================= "&usr)
If records(result.Columns.Get("AffectedRows")) > 0 Then
If Starter.Logger Then Log("Usuario desbloqueado! 🔓")
mandaRespuesta(num, $"Usuario *${usr.ToUpperCase}* desbloqueado, por favor cerrar navegadores y reingresar."$)
Else
If Starter.Logger Then Log("Usuario no encontrado!!")
mandaRespuesta(num, $"El usuario *${usr.ToUpperCase} no existe* o esta dado de *baja*, por favor revisarlo y volver a intentar."$)
End If
' If starter.Logger Then Log( result.Tag & " | " & num)
' If starter.Logger Then Log(Starter.desbloqueoUsrs)
' For Each k As String In result.Columns.Keys
' If starter.Logger Then Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
' Next
Next
End If
If result.Tag.As(String).IndexOf("traeCliente_") > -1 Then 'query tag
Private num As String = result.Tag
num = num.SubString(num.IndexOf("_")+1)
If Starter.Logger Then Log(num)
For Each records() As Object In result.Rows
If Starter.Logger Then Log("========================= "&usr)
If Starter.Logger Then Log("Cliente encontrado!")
For Each k As String In result.Columns.Keys
If Starter.logger Then LogColor(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)), Colors.blue)
Next
Private cod As String = records(result.Columns.Get("CAT_CL_CODIGO"))
Private nombre As String = records(result.Columns.Get("CAT_CL_NOMBRE"))
Private calle As String = records(result.Columns.Get("CAT_CL_CALLE"))
Private noInt As String = records(result.Columns.Get("CAT_CL_NOINT"))
Private noExt As String = records(result.Columns.Get("CAT_CL_NOEXT"))
Private msj As String = $"*Cliente:* ${cod}${CRLF}*Tienda:* ${nombre}${CRLF}*Calle:* ${calle}${CRLF}*No. Int:* ${noInt}${CRLF}*No. Ext:* ${noExt}"$
mandaRespuesta(num, msj)
mandaRespuesta(num, "Por favor dame el nombre del encargado de la tienda.")
Next
If starter.Logger Then Log(result.Rows.Size)
If result.Rows.Size = 0 Then
If Starter.Logger Then Log("Cliente no encontrado!!")
mandaRespuesta(num, $"*No se encontró el cliente en nuestros registros*, por favor validar la información y volver a intentar."$)
End If
End If
If result.Tag.As(String).IndexOf("revisaCliente_") > -1 Then 'query tag
Private num As String = result.Tag
num = num.SubString(num.IndexOf("_")+1)
If Starter.Logger Then Log(num)
For Each records() As Object In result.Rows
If Starter.Logger Then Log("========================= "&usr)
For Each k As String In result.Columns.Keys
If Starter.logger Then LogColor(result.Tag & ": " & k & "=" & records(result.Columns.Get(k)), Colors.blue)
Next
Next
If records(result.Columns.Get("CUANTOS")) = "0" Then
If Starter.Logger Then Log("No existe el usuario")
mandaRespuesta(num, $"*No existe* ese número de cliente, por favor ingresa el número correcto."$)
Subs.vamosA(traeNotificacion(num), "03G")
Else
mandaRespuesta(num, "Gracias, ahora por favor el número del preventa.")
' Subs.vamosA(traeNotificacion(num), "03G.1")
End If
If Starter.Logger Then Log(result.Rows.Size)
End If
If result.Tag.As(String).IndexOf("guardaInfoGallina_") > -1 Then 'query tag
Private num As String = result.Tag
num = num.SubString(num.IndexOf("_")+1)
If Starter.Logger Then Log(num)
For Each records() As Object In result.Rows
If Starter.Logger Then Log("========================= "&usr)
For Each k As String In result.Columns.Keys
If Starter.logger Then LogColor(result.Tag & ": " & k & "=" & records(result.Columns.Get(k)), Colors.blue)
Next
Next
' If starter.Logger Then Log("|"&records(result.Columns.Get("AffectedRows"))&"|")
If records(result.Columns.Get("AffectedRows")) = 1 Then
Private msj As String = procesaRemplazos($"Muchas gracias.${CRLF}Quedas registrado con:${CRLF}*Cliente:* %msj_ant_03G.1_0%${CRLF}*Preventa:* %msj%"$, traeNotificacion(num))
mandaRespuesta(num, msj)
Else
mandaRespuesta(num, "*¡Hubo un error, por favor intenta de nuevo!*")
End If
If Starter.Logger Then Log(result.Rows.Size)
End If
If result.Tag.As(String).IndexOf("procRecuperaClientes_") > -1 Then 'query tag
Private num As String = result.Tag
num = num.SubString(num.IndexOf("_")+1)
If Starter.Logger Then Log(num)
For Each records() As Object In result.Rows
If Starter.Logger Then Log("========================= "&usr)
For Each k As String In result.Columns.Keys
If Starter.logger Then LogColor(result.Tag & ": " & k & "=" & records(result.Columns.Get(k)), Colors.blue)
Next
Next
If records(result.Columns.Get("AffectedRows")) = 1 Then
mandaRespuesta(num, procesaRemplazos("Listos, clientes de %msj% recuperados", traeNotificacion(num)))
End If
' If starter.Logger Then Log("|"&records(result.Columns.Get("AffectedRows"))&"|")
' If records(result.Columns.Get("AffectedRows")) = 1 Then
' Private msj As String = procesaRemplazos($"Muchas gracias.${CRLF}Quedas registrado con:${CRLF}*Cliente:* %msj_ant_03G.1_0%${CRLF}*Preventa:* %msj%"$, traeNotificacion(num))
' mandaRespuesta(num, msj)
' Else
' mandaRespuesta(num, "*¡Hubo un error, por favor intenta de nuevo!*")
' End If
If Starter.Logger Then Log(result.Rows.Size)
End If
End If
Job.Release
End If
End Sub
'Muestra un toast con texto y ancho dados, si el ancho es 0, entonces se queda el default.
Sub Toast(texto As String, ancho As Int) 'ignore
' p_toast.BringToFront
' If ancho <> 0 Then p_toast.Width = ancho
' p_toast.left = (Activity.Width/2)-(p_toast.Width/2) 'Centramos el panel en la actividad.
' l_toast.Width = p_toast.Width
' p_toast.top = (Activity.Height * 0.8) 'Ponemos el toast a 3/4 de la pantalla.
' l_toast.Text = texto
' p_toast.SetVisibleAnimated(1000, True)
' Sleep(2000)
' p_toast.SetVisibleAnimated(1000, False)
End Sub
'Manda un notificacion al numero indicado con el mensaje especificado.
'Nota: El número especificado debe de existir en el mapa de notificaciones guardadas (notificacionesGuardadas).
Sub mandaRespuesta(numero As String, mensaje As String)
If Starter.logger Then Log("Busco: "& numero & " hay: " & notificacionesGuardadas)
If Starter.logger Then Log(notificacionesGuardadas)
Private tm As Map = notificacionesGuardadas.Get(numero)
If tm.IsInitialized Then
Dim t1 As notificacionesGuardadasType = tm.Get(numero)
Dim t2 As StatusBarNotification = t1.notif
If Starter.logger Then LogColor("Mandamos respuesta", Colors.red)
If t2.IsInitialized Then
rp.reply(t2.Notification, t2.PackageName, mensaje)
guardaMsjSalida(t2, mensaje)
End If
Else
' ToastMessageShow("No hay notificaciones de xxxxxxxx", False)
If Starter.logger Then Log("No hay notificación para ese número.")
End If
End Sub
'Ejecuta la subrutina especificada.
Sub correSub(comando As String, sbn As StatusBarNotification)
Private c As String = comando
c = c.SubString(c.IndexOf(" ")+1)
If Starter.logger Then Log(c)
If SubExists(Me, c) Then CallSubDelayed2(Me, c, sbn)
End Sub
Sub muestraHistorico(sbn As StatusBarNotification) 'ignore
If Starter.logger Then Log("Corriendo muestraHistorico")
Private tmpMap As Map
Private tmpList As List
Private n As String = getNumberWA(sbn)
If n = "Not a person" Then n = getGroupName(sbn.Title)
Private s As String = ""
If Starter.logger Then Log(n)
tmpMap = histReglas.Get(n)
If Starter.logger Then Log(tmpMap)
If tmpMap.ContainsKey("historico") Then tmpList = tmpMap.Get("historico")
For i = tmpList.Size -1 To 0 Step -1
' If starter.Logger Then Log(i & ".- " & tmpList.Get(i).As(Map).Get("mensaje"))
s = s & CRLF
s = s & tmpList.Get(i).As(Map).Get("mensaje")
Next
' If starter.Logger Then Log(s)
mandaRespuesta(n, s)
End Sub
'Regresa verdadero si la regla es dependiente (subRegla) de otra regla.
'Recibe un mapa con las reglas.
Sub esDependiente(m As Map)As Boolean
Private d As Boolean = False
If m.Get("nombre").As(String).IndexOf(".") > -1 Then d = True
Return d
End Sub
'Regresa el nombre de la regla superior.
'Recibe un mapa con las reglas.
Sub traeSuperior(m As Map) As String
Dim i As Int
Dim s As String = ""
If m.Get("nombre").As(String).LastIndexOf(".") > -1 Then
i = m.Get("nombre").As(String).LastIndexOf(".")
' If starter.Logger Then Log(i)
s = m.Get("nombre").As(String).SubString2(0, i)
' If starter.Logger Then Log(s)
End If
Return s
End Sub
'Regresa el id de la ultima regla cumplida.
Sub ultimaRegla As String
Dim ultReg As String = ""
If histReglas.get(numRemitente).As(Map).IsInitialized Then ultReg = histReglas.get(numRemitente).As(Map).Get("histReglas").As(List).Get(0)
Return ultReg
End Sub
'Regresa el mensaje especificado dentro de las reglas anteriores cumplidas.
'regla: El nombre de la regla de la que queremos el mensaje.
'reglasAtras: Que mensaje queremos traer, 0 para el último, 1 para el penúltimo, 2 para el antepenúltimo, etc.
Sub mensajeAnterior(regla As String, reglasAtras As Int) As String
Dim msjAnterior As String = ""
If reglasAtras = 0 Then reglasAtras = 1
If histReglas.get(numRemitente).As(Map).IsInitialized And _
histReglas.get(numRemitente).As(Map).Get("historico").As(List).Size >= reglasAtras Then
Private hist As List = histReglas.get(numRemitente).As(Map).Get("historico")
' If starter.Logger Then Log(hist)
If regla <> "0" Then 'Si se especifica una regla, entonces filtramos y solo usamos el historico de esa regla.
Private h As List
h.Initialize
For Each h2 As Map In hist
If h2.Get("regla") = regla Then
h.Add(h2)
' If starter.Logger Then Log(regla & "|" & h2)
End If
Next
hist = h
' If starter.Logger Then Log(h)
End If
' If starter.Logger Then Log($"size:${hist.Size}, reglaAtras:${reglasAtras}"$)
If hist.Size >= reglasAtras Then msjAnterior = hist.Get(reglasAtras-1).As(Map).Get("mensaje")
End If
Return msjAnterior
End Sub
'Regresa el "shortcut" del remitente.
'Si es de un grupo, es algo como "120363023512345678@g.us"
'Si es de una persona, entonces "5215512345678@s.whatsapp.net"
Sub getShortcut(sbn As StatusBarNotification) As String 'ignore
Private ap As Int = sbn.As(String).IndexOf("@s.whatsapp.net") 'ignore
Private ag As Int = sbn.As(String).IndexOf("@g.us") 'ignore
Private x As String = sbn.As(String) 'ignore
Private y As Int = x.IndexOf("shortcut=")
If ap > -1 Then
Private x As String = sbn.As(String) 'ignore
Private y As Int = x.IndexOf("shortcut=")
x = x.SubString2(y+9, ap+15)
Else if ag > -1 Then 'It is probably is a group.
Private x As String = sbn.As(String) 'ignore
Private y As Int = x.IndexOf("shortcut=")
x = x.SubString2(y+9, ag+5)
End If
Return x
End Sub
'Reemplaza texto en la respuesta con variables predefinidas.
Sub procesaRemplazos(msjStr As String, sbn As StatusBarNotification) As String
If Starter.logger Then Log("Procesamos reemplazos '"& msjStr & "'")
Dim Matcher1 As Matcher
Matcher1 = Regex.Matcher("%[a-z A-Z_0-9,\.\uD83C-\uDBFF\uDC00-\uDFFF\u00a9|\u00ae|[\u2000-\u3300]|\ud83c[\ud000-\udfff]|\ud83d[\ud000-\udfff]|\ud83e[\ud000-\udfff]]+%", msjStr)
Do While Matcher1.Find
If Starter.logger Then Log("Found: " &Matcher1.Match)
If Matcher1.Match.IndexOf("msj_ant_") > -1 Then 'Reemplaza el texto "%msj_ant_0_1%" por mensajes anteriores segun el desplazamiento y la regla especificados.
Private offs As String = Matcher1.Match.IndexOf("_")
Dim offs2() As String = Regex.Split("_", Matcher1.Match)
If Starter.logger Then Log(offs2.Length)
If offs2.Length = 4 Then 'Solo procesamos el reemplazo si tiene 4 parametros.
Private offs As String = offs2(offs2.Length-1) 'El desplazamiento para el mensaje (cuantos mensaje hacia atras vamos a traer)
Private rulz As String = offs2(offs2.Length-2) 'La regla a usar para traer el mensaje.
offs = offs.SubString2(0, offs.Length-1)
If Starter.logger Then Log("################### "& rulz & "|" & offs)
msjStr = msjStr.Replace(Matcher1.Match, mensajeAnterior(rulz, offs))
' If starter.Logger Then Log(Matcher1.Match)
' If starter.Logger Then Log("==== msjAnt - " & msjStr)
End If
else If Matcher1.Match.IndexOf("%msj%") > -1 Then 'Reemplaza el texto "%msj%" con el mensaje recibido.
msjStr = msjStr.Replace(Matcher1.Match, sbn.Message)
else if Matcher1.Match.IndexOf("%nombre%") > -1 Then 'Reemplaza el texto "%nombre%" por el nombre completo (o numero si no esta en los contactos) del remitente.
Private pn As String = sbn.Title
If isGroupWA(sbn) Then pn = getPersonFromGroup(sbn.Title)
msjStr = msjStr.Replace(Matcher1.Match, pn)
else if Matcher1.Match.IndexOf("%primer_nombre%") > -1 Then 'Reemplaza el texto "%primerNombre%" por el nombre (hasta el primer espacio) o numero (si no esta en los contactos) del remitente.
Private pn As String = sbn.Title
If isGroupWA(sbn) Then pn = getPersonFromGroup(sbn.Title)
If Starter.logger Then Log(pn)
If Not(pn.StartsWith("+")) Then pn = Regex.Split(" ", pn)(0)
msjStr = msjStr.Replace(Matcher1.Match, pn)
else If Matcher1.Match.IndexOf("goto_") > -1 Then 'Manda el procesamiento de la siguiente regla a la regla especificada.
Private offs As String = Matcher1.Match.IndexOf("_")
offs = Matcher1.Match.SubString2(offs+1, Matcher1.Match.Length-1)
Subs.vamosA(sbn, offs)
msjStr = msjStr.Replace(Matcher1.Match, "")
' If starter.Logger Then Log(Matcher1.Match)
' If starter.Logger Then Log("==== goto: " & offs)
else If Matcher1.Match.IndexOf("rnd_") > -1 Then 'Remplaza %rnd_1,b,A,5% por una opcion al azar de las especificadas.
Private offs As String = Matcher1.Match.IndexOf("_")
offs = Matcher1.Match.SubString2(offs+1, Matcher1.Match.Length-1)
Private x() As String = Regex.Split(",", offs)
Private rando As Int = 0 ' Por si solo hay un elemento en la lista.
If x.Length > 1 Then rando = Rnd(0, x.Length)
If Starter.logger Then LogColor($"Random: 0-${x.Length-1} ${x(rando)} "$, Colors.Magenta)
msjStr = msjStr.Replace(Matcher1.Match, x(rando))
else If Matcher1.Match.IndexOf("espera2_") > -1 Then 'Genera el tiempo de espera especificado en ms antes de mandar la respuesta.
Private offs As String = Matcher1.Match.IndexOf("_")
offs = Matcher1.Match.SubString2(offs+1, Matcher1.Match.Length-1)
espera = offs
msjStr = msjStr.Replace(Matcher1.Match, "")
else If Matcher1.Match.IndexOf("espera_") > -1 Then 'Genera el tiempo de espera al azar entre el minimo y maximo especificados en segundos antes de mandar la respuesta.
' Private offs As String = Matcher1.Match.IndexOf("_")
Dim params() As String = Regex.Split("_", Matcher1.Match)
If params.Length = 3 Then 'Solo procesamos el reemplazo si tiene 3 parametros.
Private minS As String = params(params.Length-2) 'Los segundos minimos.
Private maxS As String = params(params.Length-1) 'Los segundos maximos.
maxS = maxS.SubString2(0, maxS.Length-1) 'Quitamos el "%" del final.
Private espera2 As Int = Rnd(minS, maxS+1)*1000
If Starter.logger Then LogColor($"min=${minS}, max=${maxS}, espera=${espera2}"$, Colors.red)
espera = espera2
msjStr = msjStr.Replace(Matcher1.Match, "")
End If
End If
Loop
If Starter.logger Then LogColor("Remplazos completados - " & msjStr, Colors.Green)
Return msjStr
End Sub
'Toma una lista de posibles respuestas (separadas por //) y regresa solo una al azar.
Sub procesaMultiMensajeRandom(mensaje As String) As String
Dim x() As String = Regex.Split("//", mensaje)
' For i = 0 To x.Length - 1
' If starter.Logger Then Log($"len:${x.Length}, ${i}: ${x(i)}"$)
' Next
Private rando As Int = 0 ' Por si solo hay un elemento en la lista.
If x.Length > 1 Then rando = Rnd(0, x.Length)
' If starter.Logger Then LogColor($"Random: 0-${x.Length-1} ${x(rando).Trim} "$, Colors.Magenta)
Return x(rando)
End Sub
'Procesa la cola de notificaciones (lista notificacionesPorContestar).
Sub procesaColaDeNotificaciones
' If starter.Logger Then LogColor("COLA = " & notificacionesPorContestar.Size, Colors.Green)
' If starter.Logger Then Log(notificacionesPorContestar)
' If starter.Logger Then Log($"${procesandoNotificaciones}, ${notificacionesPorContestar.size}"$)
Private hayError As Boolean = False
If Not(procesandoNotificaciones) And notificacionesPorContestar.Size > 0 Then
If Starter.logger Then Log("iniciamos procesando")
procesandoNotificaciones = True
' Private la As Int = 0
' For i = 0 To notificacionesPorContestar.Size - 1
If notificacionesPorContestar.Get(0) <> "DONE" Then
Try
Private tempMap As Map = notificacionesPorContestar.Get(0)
Private num As String = notificacionesPorContestar.Get(0).As(Map).GetKeyAt(0)
Dim t1 As lasNotis = tempMap.Get(num)
' If starter.Logger Then LogColor($"${num} - ${t1.notif.Message}"$, Colors.Blue)
' If starter.Logger Then Log(t1)
Dim t2 As StatusBarNotification = t1.notif
' If starter.Logger Then Log(t2)
Catch
Log(LastException)
hayError = True
End Try
If Not(hayError) Then
procesaNotificacion(t2)
If Starter.logger Then Log($"${notificacionesPorContestar.Get(0)}, ${notificacionesPorContestar.size}"$)
If Starter.logger Then Log("Ponemos 0 en DONE")
notificacionesPorContestar.Set(0, "DONE")
End If
End If
' la = i
' Next
' If starter.Logger Then Log(notificacionesPorContestar.Size)
End If
If notificacionesPorContestar.Size > 0 Then
For i=0 To notificacionesPorContestar.Size-1 'Borramos las notificaciones procesadas de la lista.
If notificacionesPorContestar.get(i) = "DONE" Then
notificacionesPorContestar.RemoveAt(i)
If Starter.logger Then Log("Removemos posicion " & i)
End If
Next
End If
' If starter.Logger Then Log(notificacionesPorContestar)
' If starter.Logger Then LogColor("COLA = " & notificacionesPorContestar.Size, Colors.red)
procesandoNotificaciones = False
Sleep(1)
If notificacionesPorContestar.Size > 0 Then procesaColaDeNotificaciones
End Sub
'Procesa la notificación y reglas correspondientes.
'Recibe un objecto SBN (statusBarNotification).
Sub procesaNotificacion(sbn As StatusBarNotification)
' Try
Private numRemitente As String = getNumberOrGroupWA(sbn)
For Each m As Map In mapReglas.Values 'Revisamos si el mensaje dispara alguna regla.
' If starter.Logger Then Log(m)
Private destinatarioOk As Boolean = False
If m.Get("destinatario") = "Ambos" Then destinatarioOk = True
If m.Get("destinatario") = "Grupos" And isGroupWA(sbn) Then destinatarioOk = True
If m.Get("destinatario") = "Personas" And isPersonWA(sbn) Then destinatarioOk = True
' If starter.Logger Then Log(m.Get("destinatario") & "|" &"destinatarioOk="&destinatarioOk)
' If starter.Logger Then Log($"Regla: ${m.Get("nombre")}, activa:${m.Get("activa")}, recibe=${m.Get("recibe")}, contesta=${m.Get("contesta")}, mensaje: ${sbn.Message}"$)
' If starter.Logger Then LogColor(m.Get("contactoEspecifico"), Colors.Magenta)
' If starter.Logger Then LogColor($"================ Procesando regla ${m.Get("nombre")} ==========================="$, Colors.Magenta)
Private cumpleContactosEspecificos As Boolean = revisaContactosEspecificos(getGroupName(sbn.Title), m.Get("contactoEspecifico"))
' If starter.Logger Then Log(cumpleContactosEspecificos)
' If starter.Logger Then Log("COINCIDE="&coincideRegexSimple(m.Get("recibe"), sbn.Message))
If m.Get("activa") = 1 And destinatarioOk And cumpleContactosEspecificos And coincideRegexSimple(m.Get("recibe"), sbn.Message) Then 'ignore
' If starter.Logger Then Log($"${m.Get("recibe")}, ${sbn.Message}"$)
' If starter.Logger Then LogColor("histReglas="&histReglas, Colors.Blue)
Dim esDep As Boolean = esDependiente(m)
Dim superior As String = traeSuperior(m)
Dim anterior As String = ultimaRegla
' If starter.Logger Then Log("Msg="&sbn.Message&" - Es dependiente="& esDep)
' If starter.Logger Then Log("dep="&esDep&" - regla superior="& superior & " Ultima R=" & anterior)
Private msjStr As String
If Not(esDep) Or (superior = anterior) Then 'Si no es dependiente, O si es dependiente Y la anterior es de la que dependemos, entonces
guardaMsjEntrada(sbn, m.Get("nombre"))
' If starter.Logger Then LogColor($"Regla:${m.Get("nombre")}"$, Colors.Blue)
Subs.guardaUltimaRegla(sbn, m.Get("nombre"))
' If starter.Logger Then Log(msjStr)
msjStr = procesaMultiMensajeRandom(m.Get("contesta"))
' If starter.Logger Then Log("===================== Mensaje ================="&CRLF& msjStr)
If msjStr.IndexOf("&&") > -1 Then 'Si hay respuestas multiples.
Private y() As String = Regex.Split("&&", msjStr)
For j = 0 To y.Length - 1
espera = 10
msjStr = procesaRemplazos(y(j).Trim, sbn)
' If starter.Logger Then LogColor("ESPERA="&espera, Colors.red)
' If starter.Logger Then LogColor("Reply: " & msjStr, Colors.Blue)
Sleep(espera)
If y(j).IndexOf("/cmd") > -1 Then 'Si hay que correr un comando ...
correSub(msjStr, sbn)
Sleep(1500)
Else if msjStr <> "" Then
If Starter.logger Then LogColor($"Mandamos respuesta (${msjStr})"$, Colors.Blue)
rp.reply(sbn.Notification, sbn.PackageName, msjStr)
guardaMsjSalida(sbn, msjStr)
End If
Next
Else 'Si SOLO es UNA respuesta ...
espera = 10
msjStr = procesaRemplazos(msjStr.Trim, sbn)
' If starter.Logger Then LogColor("ESPERA="&espera, Colors.red)
If msjStr.IndexOf("/cmd") > -1 Then 'Si hay que correr un comando ...
correSub(msjStr, sbn)
Sleep(1500)
Else if msjStr <> "" Then
Sleep(espera)
If Starter.logger Then LogColor($"Mandamos respuesta (${msjStr})"$, Colors.Blue)
rp.reply(sbn.Notification, sbn.PackageName, msjStr)
guardaMsjSalida(sbn, msjStr)
End If
End If
Private thisP As String = getGroupName(sbn.Title)
If Not(notisIds.ContainsKey(thisP)) Then notisIds.Put(thisP, notisIds.Size+1)
If Starter.logger Then Log(notisIds.Get(thisP))
If Starter.logger Then Log(notisIds)
' BigText_Notification(sbn, msjStr) 'Retiro temporal
Exit 'Si ya encontramos una regla que se cumple, entonces salimos.
Else if superior = anterior Then 'Si es regla dependiente y la anterior es de la que dependemos, entonces ...
' If starter.Logger Then LogColor($"Regla anterior=${anterior}${CRLF}Sup:${superior} = anterior:${anterior}${CRLF}Regla anterior es igual a superior - ${msjStr}"$, Colors.green)
' Subs.guardaUltimaRegla(sbn, m.Get("nombre"))
' If starter.Logger Then Log("****************************************************"&CRLF& msjStr)
' msjStr = procesaRemplazos(m.Get("contesta"), sbn)
' If msjStr.IndexOf("&&") > -1 Then 'Si hay respuestas multiples ...
' Private y() As String = Regex.Split("&&", msjStr)
' For j = 0 To y.Length - 1
' If starter.Logger Then LogColor("Reply: " & y(j), Colors.Blue)
' If y(j).IndexOf("/cmd") > -1 Then 'Si hay que correr un comando ...
' correSub(y(j), sbn)
' Else
' 'LogColor("Mandamos respuesta", Colors.red)
' rp.reply(sbn.Notification, sbn.PackageName, y(j))
' End If
' Sleep(1200)
' Next
' Else 'Si SOLO es una respuesta ...
' If msjStr.IndexOf("/cmd") > -1 Then 'Si hay que correr un comando ...
' correSub(msjStr, sbn)
' Else
' 'If starter.Logger Then LogColor("Mandamos respuesta", Colors.red)
' rp.reply(sbn.Notification, sbn.PackageName, msjStr)
' End If
' End If
' Exit 'Si ya encontramos una regla que se cumple, entonces salimos.
End If
End If
Next
' Catch
' LogColor(LastException, Colors.red)
' End Try
End Sub
'Regresa true o False dependiendo de:
'Si NO hay contactos especificados regresa TRUE.
'Si hay contactos especificados y el remitente esta dentro de ellos regresa TRUE
'Si hay contactos especificados y el remitente NO esta dentro de ellos regresa FALSE
Sub revisaContactosEspecificos(contacto As String, contactos As String) As Boolean 'ignore
Private result As Boolean = True
If contactos <> Null And contactos <> "" And contactos.Length > 3 Then 'Si hay contactos especificados ...
' If starter.Logger Then LogColor("Hay contactos especificados.", Colors.blue)
' If starter.Logger Then Log($"Buscamos ${contacto} en |${contactos}|"$)
result = False
' Private contEsp() As String = Regex.Split(",", contactos)
' Private l As List
' l.Initialize
' For i = 0 To contEsp.Length -1
' l.Add(contEsp(i))
' Next
Private c() As String = Regex.Split(",", contactos)
' If starter.Logger Then Log(c.Length)
For i = 0 To c.Length -1
' Private x As String = c(i).Trim
' Log($"|${x}|"$)
If c(i).trim.EqualsIgnoreCase(contacto) Then
result = True
Exit
End If
Next
' If contactos.IndexOf(contacto) = -1 Then result = False 'Si el remitente no esta en los contactos permitidos regresamos FALSE.
End If
' If starter.Logger Then Log("Resultado = " & result)
Return result
End Sub
'Guarda en la base de datos en mensaje de entrada.
Sub guardaMsjEntrada(sbn As StatusBarNotification, reglaCumplida As String)
Private thisP As String = getGroupName(sbn.Title)
Private thisN As String = getNumberWA(sbn)
If Starter.logger Then LogColor($"Guardamos mensaje de entrada: "${sbn.Message}""$, Colors.Blue)
Starter.historicoDB.ExecNonQuery2("insert into historico (numero, nombre, regla, mensaje, E_S, clic, fecha) values (?,?,?, ?, ?, ?, ?)", Array As Object (thisN, thisP, reglaCumplida, sbn.Message, "E", 0, Subs.fechaKMT(DateTime.now)))
End Sub
'Guarda en la base de datos en mensaje de salida (respuesta).
Sub guardaMsjSalida(sbn As StatusBarNotification, msjStr As String)
Private thisP As String = getGroupName(sbn.Title)
Private thisN As String = getNumberWA(sbn)
If Starter.logger Then Log($"Guardamos "${msjStr}""$)
Starter.historicoDB.ExecNonQuery2("insert into historico (numero, nombre, mensaje, E_S, clic, fecha) values (?,?, ?, ?, ?, ?)", Array As Object (thisN, thisP, msjStr, "S", 0, Subs.fechaKMT(DateTime.now)))
End Sub
Sub getHistNotis(remitente As String) As String
Private text, ES As String = ""
Private c As ResultSet = Starter.historicoDB.ExecQuery2("select mensaje, E_S from historico where nombre = ? and clic = 0", Array As String(remitente))
If c.RowCount > 0 Then
Do While c.NextRow
ES = c.GetString("E_S")
If ES = "S" Then ES = "↗️ " Else ES = "↘️ "
text = text & CRLF & ES & c.GetString("mensaje")
Loop
End If
Return text
End Sub
'Trae la notificacion de un numero dado, la notificacion debe estar previamente guardada en el mapa de notificaciones guardadas (notificacionesGuardadas).
Sub traeNotificacion(n As String) As StatusBarNotification 'ignore
Private tm As Map = notificacionesGuardadas.Get(n)
Private tm0 As StatusBarNotification
If tm.IsInitialized Then
Dim t1 As notificacionesGuardadasType = tm.Get(n)
Dim t2 As StatusBarNotification = t1.notif
If t2.IsInitialized Then
Return t2
Else
If Starter.logger Then Log("No hay notificación para ese número.")
Return tm0
End If
Else
If Starter.logger Then Log("No hay notificación para ese número.")
Return tm0
End If
End Sub
Sub NotificationSimple(titulo As String, text As String, id As Int) 'ignore
If Starter.logger Then Log($"Titulo=${titulo}, Texto=${text}, id=${id}"$)
Dim n As NB6
n.Initialize(titulo, Application.LabelName, "DEFAULT").AutoCancel(True).SmallIcon(B4XPages.MainPage.notiIcon)
n.Build(titulo, text, titulo, Main).Notify(id) 'It will be Main (or any other activity) instead of Me if called from a service.
End Sub
Sub BigText_Notification(sbn As StatusBarNotification, ultimoMsj As String)
Dim n As NB6
Private titulo As String = getGroupName(sbn.Title)
Private text As String = getHistNotis(titulo).Trim
Private id As Int = notisIds.Get(titulo)
Private shortcut As String = getShortcut(sbn)
If Starter.logger Then Log($"Titulo=${titulo}, Texto=${text}, id=${id}"$)
If Not(notisIds.ContainsKey(titulo)) Then notisIds.Put(titulo, notisIds.Size+1)
n.Initialize("default", Application.LabelName, "LOW").AutoCancel(True).SmallIcon(B4XPages.MainPage.notiIcon)
n.BigTextStyle(titulo, "Chat con " & titulo, text)
n.Build(titulo, ultimoMsj, shortcut&"|"&titulo, Main).Notify(id)
End Sub
Sub revisaConexion
If Starter.ultimoServidorConectado = "" Then Starter.ultimoServidorConectado = "http://keymon.lat:1782"
reqManager.Initialize(Me, Starter.ultimoServidorConectado)
If Starter.logger Then Log($"Intentamos con el servidor ${Starter.ultimoServidorConectado}"$)
cmd.Initialize
cmd.Name = "select_soporte" 'Intentamos conectarnos al servido publico y si no responde cambiamos al interno.
reqManager.ExecuteQuery(cmd , 0, "pruebaConexion", 750) 'request con timeout corto en ms.
DBRChecked = False
Do While Not(DBRChecked) ' Esperamos a que termine la prueba de conexion.
Sleep(20)
Loop
End Sub
Sub recuperaClientes(sbn As StatusBarNotification) 'ignore
Private elNumero As String = getNumberWA(sbn)
agregaNotiParaJobDone(sbn)
cmd.Name = "proc_recuperaClientesNuevos"
cmd.Parameters = Array As Object("6","101","CHATBOT")
reqManager.ExecuteCommand(cmd ,$"procRecuperaClientes_${elNumero}"$)
If Starter.logger Then Log("Mandamos DBRequest procRecuperaClientes_: " & elNumero)
End Sub
Reference in New Issue View Git Blame Copy Permalink