Очистка данных мобильное приложение

Форум Программирование Мобильная разработка (MobileDev)

1. Rokstedi 19 28.03.19 14:37 Сейчас в теме

Добрый день коллеги. Написали моб. приложение для склада, работает на ТСД под управление android. Столкнулся с проблемой что со временем база выросла до больших размеров, написал функцию очистки которая удаляет неиспользуемые справочники и документы. Но после очистки размер базы остался тем же что и был до очистки. Есть какие-то варианты уменьшения размера?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Xershi 1535 28.03.19 14:43 Сейчас в теме

(1) ТИИ.

3. Rokstedi 19 28.03.19 14:43 Сейчас в теме

(2) На мобильно тоже можно запускать?

4. Xershi 1535 28.03.19 14:44 Сейчас в теме

(3) на последних релизах да.

5. Rokstedi 19 28.03.19 14:49 Сейчас в теме

(4) спасибо. Может еще подскажите как его запустить?

6. Xershi 1535 28.03.19 15:14 Сейчас в теме

(5) жмешь на базу и там меню или когда 1С запускаешь, точно не помню.

7. Rokstedi 19 28.03.19 15:49 Сейчас в теме

(6)

ю или когда 1С запускаешь, точно не помню.

Усугубляет все еще то что у меня собранное приложение.

9. Xershi 1535 28.03.19 16:12 Сейчас в теме

(7) самый простой вариант. Просто удалить базу и добавить новую, тогда только настроить останется.

10. Rokstedi 19 28.03.19 17:22 Сейчас в теме

(9)

у и добавить новую, тогда только настроить останется.

Просто много тсд, пользователи низкоквалифицированные, да и доступа к настройкам у них нет, и открывать не хочется. Как-то бы автоматизировать

12. Xershi 1535 28.03.19 17:36 Сейчас в теме

(10) написать приложение которое выполнит это за пользователя. И возможно не на 1С.

8. kolp821 28.03.19 16:01 Сейчас в теме

Процедура ОчисткаБД() Экспорт
		
	Для Каждого Об Из Метаданные.Документы Цикл
		Выборка =Документы[Об.Имя].Выбрать();
		Пока Выборка.Следующий() Цикл
			Док = Выборка.Ссылка.ПолучитьОбъект();
			Если Док = Неопределено Тогда Продолжить КонецЕсли;
			Если Док.Проведен Тогда
				Док.Записать(РежимЗаписиДокумента.ОтменаПроведения);
			КонецЕсли;
			Док.Удалить();
		КонецЦикла;
	КонецЦикла;

	Для Каждого Рег Из Метаданные.РегистрыСведений Цикл
		Если Рег.РежимЗаписи = Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.Независимый Тогда
			Выборка = РегистрыСведений[Рег.Имя].СоздатьНаборЗаписей();
			Выборка.Записать(Истина);
		КонецЕсли;
	КонецЦикла; 
	
	Для Каждого Об Из Метаданные.Справочники Цикл
		Выборка =Справочники[Об.Имя].Выбрать();
		Пока Выборка.Следующий() Цикл
			Спр = Выборка.Ссылка.ПолучитьОбъект();
			Если Спр = Неопределено Тогда Продолжить КонецЕсли;
			Спр.Удалить();
		КонецЦикла;
	КонецЦикла;	

КонецПроцедуры

Показать

Вот процедура

11. Rokstedi 19 28.03.19 17:22 Сейчас в теме

(8)Спасибо, но размер базы не изменяется .

13. kolp821 28.03.19 17:53 Сейчас в теме

(11)
Что бы уже сжать таблицы базы нужно запускать тестирование и исправление, а там указать сжатие таблиц. Но из конфигурации это не сделать (то есть программно), ножно через пункт изменить, администрирование. Если собраное приложение тогда через Мои приложения можна попасть

Оставьте свое сообщение

E-mail: