- VERSION 5.02.18

- Se quito el query del envío de abarrotes.
- Se puso que cuando se hace "FIN DIA", el texto de la ruta se ponga en blanco.

B4A/C_Principal.bas

@@ -2266,6 +2266,7 @@ Sub t2_tick
 '	End If
 '	img2.Visible=False
 	t2.Enabled = False
+	e_ruta.Text = ""
 	B4XPage_Appear
 End Sub
 
@@ -2337,27 +2338,27 @@ End Sub
 
 Sub t1_tick
 '	If CARGA = "SUBIR" Then
-		cmd.Initialize
-		cmd.Name = "select_cuantos_pedido_GV2"
-		cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
-		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
+	cmd.Initialize
+	cmd.Name = "select_cuantos_pedido_GV2"
+	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
 	
-		cmd.Initialize
-		cmd.Name = "select_cuantos_noventa_GV2"
-		cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
-		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
+	cmd.Initialize
+	cmd.Name = "select_cuantos_noventa_GV2"
+	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
 	
-		cmd.Initialize
-		cmd.Name = "select_cuantos_pedidoc_GV2"
-		cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
-		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
+	cmd.Initialize
+	cmd.Name = "select_cuantos_pedidoc_GV2"
+	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
 	
-		If PB2.Progress = 0 Then
-			S_CP.Text = "ENVIAR DATOS (K-1)"
-		End If
-		Log("TIMER DISABLED")
-		img2.Visible=False
-		t1.Enabled = False
+	If PB2.Progress = 0 Then
+		S_CP.Text = "ENVIAR DATOS (K-1)"
+	End If
+	Log("TIMER DISABLED")
+	img2.Visible=False
+	t1.Enabled = False
 '		CARGA = ""
 '	End If
 End Sub
@@ -2486,7 +2487,6 @@ Sub P_RESUMEN_click
 	
 End Sub
 
-
 Sub CARGA_Click
 	B4XPages.ShowPage("Productos")
 End Sub