- 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/B4XMainPage.bas

@@ -1063,4 +1063,43 @@ Private Sub i_engrane_LongClick
 '		Log(LastException)
 		ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
 	End Try
+End Sub
+
+Sub l_version_longClick
+	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"
+	Private ruta As String = "333"
+	Private almacen As String = "1"
+
+'	CON POST
+	Private link As String = "http://keymon.lat:9000/v1/messages"
+	Private 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)}\n\nManda *1* para confirmar\nManda *0* para rechazar\n\n*Nota:* Si este mensaje no se contesta, se considerará que el pago es en *EFECTIVO*.\n\n(Solo el *número* por favor)",
+		"monto":"${monto}",
+		"idcliente":"${idCliente}",
+		"almacen":"${almacen}",
+		"ruta": "${ruta}",
+		"fecha":"${Fecha}"
+		}"$
+	Private job As HttpJob
+	job.Initialize("", Me)
+	job.PostString(link, elJSON)
+	job.GetRequest.SetContentType("application/json")
+	Wait For (job) JobDone(job As HttpJob)
+
+'	CON GET
+'	Private retorno As String = "%0D%0A"
+'	Private 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}*Nota: Si este mensaje no se contesta, se considerará que el pago es en EFECTIVO*${retorno}${retorno}(Solo el *número* por favor)&monto=${monto}&idcliente=${idCliente}&almacen=1&ruta=333&fecha=${Fecha}"$
+'	Private 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