- VERSION 5.06.24

- Se Agregó un switch para activar/descativar la geocerca, solo se puede modficar dentro del almacen y requiere contraseña de supervisor de un solo uso.
- Se agregaron recordatorios de "Envío de venta", a las 10:30, 13:00 y 15:30 y por cada uno de esos horarios, 10, 5, 1 minutos antes.

B4A/C_Principal.bas

@@ -246,6 +246,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	l_version.Text = Application.VersionName
 '	rd.Initialize 'Inicializamos el respaldo diario.
 '	rd.vacuum
+
 	EJECUTANDO=1
 	Dim ruta As String
 	img2.Visible =False
@@ -315,6 +316,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	B4XPages.mainpage.pantallaActual = Root
 	checaPedido
 '	s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
 	reqManager.Initialize(Me, Starter.DBReqServer)
@@ -518,7 +520,7 @@ Sub Subir_Click
 	'ELSE IF c.GetString("DESCUENTO") = 0 Then
 	PASO = 1
 	'End If
-	If PASO =1 Then
+	If PASO = 1 Then
 		Starter.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As String("N/A") )
 		Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
 		c=Starter.skmt.ExecQuery("select usuario from usuarioa")
@@ -541,7 +543,7 @@ Sub Subir_Click
 
 		c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ")
 		d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
-		If c.RowCount>0 Then
+		If c.RowCount > 0 Then
 			For i=0 To c.RowCount -1
 				c.Position=i
 				Dim cmd As DBCommand
@@ -549,13 +551,14 @@ Sub Subir_Click
 				cmd.Name = "insert_pedidos_MARDS"
 				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
 				reqManager.ExecuteCommand(cmd , "ins_pedidos")
+				Starter.skmt.ExecNonQuery($"UPDATE PEDIDO_CLIENTE set PC_ENVIO_OK = 1 where PC_CLIENTE = '${c.GetString("PC_CLIENTE")}'"$)
 			Next
 		End If
 		c.Close
 		d.Position=0
 		cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC")
 		d.Close
-	
+
 		' ENVIO DE LOS CODIGOS QR
 		'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
 		
@@ -840,7 +843,7 @@ Sub cargar_Click
 		sTime=DateTime.Time(DateTime.Now)
 	
 		Dim P As PhoneId
-'	imei = P.GetDeviceId
+'		imei = P.GetDeviceId
 		imei = "yyyy"
 		cmd.Initialize
 		cmd.Name ="insert_drop_MARDS_3" 'Se cambio el query de 2 a 3 para agregar la version de la app al tmp_drop
@@ -968,7 +971,12 @@ Sub cargar_Click
 		cmd.Name = "select_promosXruta_MARDS"
 		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
 		reqManager.ExecuteQuery(cmd , 0, "promosXruta")
-	
+		
+		cmd.Initialize
+		cmd.Name = "traeCoordenadasAlmacen_MARDS"
+		cmd.Parameters = Array As Object(ALMACEN)
+		reqManager.ExecuteQuery(cmd , 0, "traeCoordsAlmacen")
+		
 '	cmd.Initialize
 '	cmd.Name = "select_CUEST_INTMEX"
 '	cmd.Parameters = Array As Object(ALMACEN)
@@ -1789,6 +1797,18 @@ Sub JobDone(Job As HttpJob)
 					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PEDIDOS_YALO(PY_IDCLIENTE, PY_PRODID, PY_PRODNOMBRE, PY_MARCANOMBRE, PY_COSTO_TOT, PY_CANT, PY_FECHA, PY_TICKET) VALUES (?,?,?,?,?,?,?,?)", Array As Object (PY_IDCLIENTE, PY_PRODID, PY_PRODNOMBRE, PY_MARCANOMBRE, PY_COSTO_TOT, PY_CANT, PY_FECHA, PY_TICKET))
 				Next
 			End If
+			
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "traeCoordsAlmacen" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim CAT_AL_LATITUD As String = records(RESULT.Columns.Get("CAT_AL_LATITUD"))
+					Dim CAT_AL_LONGITUD As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD"))
+					Starter.skmt.ExecNonQuery("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'COORDS_ALMACEN'")
+					Starter.skmt.ExecNonQuery($"INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES ('COORDS_ALMACEN','${CAT_AL_LATITUD},${CAT_AL_LONGITUD}')"$)
+					B4XPages.MainPage.latAlmacen = CAT_AL_LATITUD
+					B4XPages.MainPage.lonAlmacen = CAT_AL_LONGITUD
+				Next
+			End If
 		End If
 	End If
 	Job.Release
@@ -1812,9 +1832,11 @@ End Sub
 '############################################################################################
 '###################   Codigo de prueba JAGU, no poner atencion  ############################
 Sub connecta_LongClick
-	ProgressDialogShow("Enviamos")
+'	ProgressDialogShow("Enviamos")
 '	s.reqManagerReInit 'Reiniciamos el DBReqManager por si hay modificacion en el servidor.
-	s.envioTest 'Llamamos envioTest de C_Subs.
+'	s.envioTest 'Llamamos envioTest de C_Subs.
+	Subs.notiHigh("¡¡ATENCION!!", "Recuerda enviar tu venta.", Main)
+	b4xpages.MainPage.recordatorio.agregaPanelRecordatorio(Root)
 End Sub
 
 Sub tickets_dia_LongClick