search

viskvortsov / 1C-developer

Репозиторий курса "Программист 1С"
Apache License 2.0
6 stars 5 forks source link

Большая красная кнопка #48

Closed viskvortsov closed 7 years ago

viskvortsov commented 7 years ago

&НаСервереБезКонтекста Процедура БольшаяКраснаяКнопкаНаСервере()

УдалитьВсеСправочники();
УдалитьВсеДокументы();

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

&НаКлиенте Процедура БольшаяКраснаяКнопка(Команда)

БольшаяКраснаяКнопкаНаСервере();

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

&НаСервереБезКонтекста Процедура УдалитьВсеСправочники()

УдалитьЭлементыСправочника("Справочник1");

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

&НаСервереБезКонтекста Процедура УдалитьВсеДокументы()

УдалитьДокументыВида("Документ1");

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

&НаСервереБезКонтекста Процедура УдалитьЭлементыСправочника(НаименованиеСправочника)

Выборка = Справочники[НаименованиеСправочника].Выбрать();

Пока Выборка.Следующий() Цикл

    Элемент = Выборка.Ссылка.ПолучитьОбъект();
    Элемент.Удалить();

КонецЦикла;

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

&НаСервереБезКонтекста Процедура УдалитьДокументыВида(НаименованиеДокумента)

Выборка = Документы[НаименованиеДокумента].Выбрать();

Пока Выборка.Следующий() Цикл

    Элемент = Выборка.Ссылка.ПолучитьОбъект();
    Если Элемент.Проведен Тогда
        Элемент.Записать(РежимЗаписиДокумента.ОтменаПроведения);    
    КонецЕсли;
    Элемент.Удалить();

КонецЦикла;

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