20/10/23 - Abordo, Mapa y ticketsdia

- Se habilitó el botón de "Próxima carga" (abordo)
- Se habilitó el botón de "Ubicar Rutas"
- Se quitó el fondo degradado de "Tickets Dia"

B4A/C_Principal.bas

@@ -2444,10 +2444,11 @@ Sub Resumen_Click
 End Sub
 
 Sub B_PROXIMA_Click
-'	skmt.ExecNonQuery("delete from CUENTAA")
-'	skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
-'	Main.tipov = "ABORDO"
-''	StartActivity(colonia2)
+	skmt.ExecNonQuery("delete from CUENTAA")
+	skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
+	Starter.tipov = "ABORDO"
+	B4XPages.ShowPage("Productos")
+'	StartActivity(colonia2)
 End Sub
 
 
@@ -2559,7 +2560,7 @@ Sub Btn_UbicarR_Click
 	c.Close
 	skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
 	skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD))")
-'	StartActivity(MAPA_RUTAS)
+	StartActivity(MAPA_RUTAS)
 End Sub
 
 Sub SUBIR_P_Click