Данная обработка была написана, когда потребовалось предоставить полный доступ к тестовой базе сотруднику, которому нельзя было видеть определенную конфиденциальную информацию. В обработке удаляются все документы по подсистеме "Казначейство" (с удалением всех движений по ним), очищаются независимые регистры сведений этой подсистемы, а также реализовано удаление отдельных справочников и проводок по бухгалтерским счетам.
Тестирование проводилось на ERP 2.4.8.92
Обработку несложно модифицировать для удаления данных других подсистем - нужно только определить, какие справочники подсистемы нужно очищать. Очищать все справочники подсистемы, как правило, не нужно.
Пример кода:
&НаСервере
Процедура КомандаОчиститьДанныеНаСервере()
ОчиститьПодсистемуКазначейство();
//Удаление произвольных документов
//Удаляются документы и все движения по ним.
МассивОбъектовМетаданных = Новый Массив;
МассивОбъектовМетаданных.Добавить(Метаданные.Документы.НачислениеДивидендов);
ОчиститьДвиженияДокументовИУдалитьДокументы(МассивОбъектовМетаданных);
//Удаление произвольных справочников
МассивОбъектовМетаданных = Новый Массив;
МассивОбъектовМетаданных.Добавить(Метаданные.Справочники.НоменклатураПрисоединенныеФайлы);
ОчиститьСправочники(МассивОбъектовМетаданных);
//Удаление проводок по определенным счетам
//Номера счетов указываются через запятую.
//Удаляются также проводки по все субсчетам указанных счетов
ОчиститьПроводкиПоСчетам("75, 66, 67, 62, 70")
КонецПроцедуры
&НаСервере
Процедура ОчиститьПодсистемуКазначейство()
Подсистема = Метаданные.Подсистемы.Казначейство;
//ДОКУМЕНТЫ
ДокументыПодсистемы = ДокументыПодсистемы(Подсистема);
ОчиститьДвиженияДокументовИУдалитьДокументы(ДокументыПодсистемы);
//НЕЗАВИСИМЫЕ РЕГИСТРЫ
НезависимыеРегистры = НезависимыеРегистрыСведенийПодсистемы(Подсистема);
ОчиститьНезависимыеРегистры(НезависимыеРегистры);
//СПРАВОЧНИКИ
СправочникиКазначейства = Новый Массив;
СправочникиКазначейства.Добавить(Метаданные.Справочники.ДоговорыКредитовИДепозитов);
СправочникиКазначейства.Добавить(Метаданные.Справочники.ДоговорыКредитовИДепозитовПрисоединенныеФайлы);
СправочникиКазначейства.Добавить(Метаданные.Справочники.ДоговорыЛизинга);
СправочникиКазначейства.Добавить(Метаданные.Справочники.ДоговорыЛизингаПрисоединенныеФайлы);
ОчиститьСправочники(СправочникиКазначейства);
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт