- VERSION 5.03.22

- Se regresaron cambios para la ruta de suplencia (VERSION 5.03.10)
- Se regresaron cambios para nota y promo especial (VERSION 5.02.22)

B4A/Subs.bas

@@ -1789,4 +1789,41 @@ Sub deleteFolder(folder As String)
 		End If
 		File.Delete(folder, f)
 	Next
+End Sub
+
+Sub enviaWhatsappMsg()
+'	DateTime.DateFormat="MM/dd/yyyy HH:mm:ss"
+'	Private Fecha As String=DateTime.Date(DateTime.now)
+'	Private telefono As String = "5215554192439"
+'	Private monto As String = "1500"
+'	Private idCliente As String = "10748"
+'
+''	CON POST
+'	Dim link As String = "http://keymon.lat:9000/v1/messages"
+'	Dim elJSON As String = $"{
+'		"number":"${telefono}",
+'		"message":"Tu compra de Guna va ser a crédito por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}${retorno}${retorno}Manda *1* para confirmar${retorno}Manda *0* para rechazar${retorno}${retorno}(Solo el *número* por favor),
+'		"monto":${monto},
+'		"idcliente":${idCliente},
+'		"almacen":"1",
+'		"ruta": "333",
+'		"fecha":${Fecha}
+'		}"$
+'	Dim job As HttpJob
+'	job.Initialize("", Me)
+'	job.PostString(link, elJSON)
+'	job.GetRequest.SetContentType("application/json")
+'	Wait For (job) JobDone(job As HttpJob)
+'
+''	CON GET
+'	Dim retorno As String = "%0D%0A"
+'	Dim link As String = $"http://keymon.lat:9000/v1/messages?number=${telefono}&message=Tu compra de Guna va ser a crédito por el monto de $${NumberFormat2(monto, 1, 2, 2, True)}${retorno}${retorno}Manda *1* para confirmar${retorno}Manda *0* para rechazar${retorno}${retorno}(Solo el *número* por favor)&monto=${monto}&idcliente=${idCliente}&almacen=1&ruta=333&fecha=${Fecha}"$
+'	Dim job As HttpJob
+'	job.Initialize("", Me)
+''	job.PostString(link, elJSON)
+'	job.Download(link)
+''	job.GetRequest.SetContentType("application/json")
+'	Wait For (job) JobDone(job As HttpJob)
+'
+'	Log("Whatsapp enviado con exito: " & job.Success)
 End Sub