Se agrega la validación de la ruta para que no puedan cargar otra una vez dado click en sync

B4A/C_Principal.bas

@@ -1040,14 +1040,35 @@ Sub cargar_Click
 			pedidodiaanterior = True
 		End If
 	End If
+	
 	If Not (pedidodiaanterior) Then
-		
+		Dim rCargada As Cursor= Starter.skmt.ExecQuery("SELECT * FROM RUTAA")
+		Dim variable As Boolean = False
+		If rCargada.RowCount > 0 Then
+			rCargada.Position = 0
+			Dim exruta As String = rCargada.GetString("RUTAA")
+			If exruta = e_ruta.Text Then
+				variable = True
+			Else
+				'no cargamos'
+				variable = False
+				Log("Ya existe una ruta")
+				MsgboxAsync("No puedes cargar día con una ruta diferente, Por favor haz FIN DIA e intenta nuevamente.","Atención")
+			End If
+'	
+		Else If rCargada.RowCount = 0 Then
+			variable = True
+		End If
+		If variable Then
+			
 		If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
 		Dim cmd As DBCommand
 		cmd.Initialize
 		cmd.Name = "select_ruta_entrega_cargada"
 		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
 		reqManager.ExecuteQuery(cmd ,0, "entrega_cargada")
+		End If
+		
 		
 		
 	
@@ -1738,6 +1759,8 @@ Sub JobDone(Job As HttpJob)
 					cmd.Name = "update_ruta_entrega_cargada"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
 					reqManager.ExecuteCommand(cmd , "update_rrcargada")
+					Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
+					Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
 					
 					Log("CUMPLE")
 					EJECUTANDO = 1
@@ -1950,8 +1973,7 @@ Sub connecta_Click
 '		Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
 		reqManager.ExecuteQuery(cmd , 0, "ruta")
 		ToastMessageShow("Validando Conexión." , True)
-		Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
-		Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
+		
 		B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
 	End If
 End Sub