1С 8.x : Проведение выбранных документов, отмена проведения выбранных документов

 Процедура Провести(Кнопка)

	ВыборкаДокументов = Документы.НДФЛиЕСНДоходыИНалоги.Выбрать(); 

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

                // Проводим только те документы у которых в комментарии есть "НДФЛ Доходы и удержания"

		Если Найти(ВыборкаДокументов.Комментарий, "НДФЛ Доходы и удержания") > 0 Тогда

			ТекДок=ВыборкаДокументов.ПолучитьОбъект();

			Попытка

				ТекДок.Записать(РежимЗаписиДокумента.Проведение);

				Сообщить("Проведен документ :" + Строка(ТекДок));

			Исключение

				Сообщить("Невозможно провести документ("+Строка(ТекДок)+"), т.к.:");

				Сообщить(ОписаниеОшибки());

			КонецПопытки;			

		КонецЕсли;	

	КонецЦикла	

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



Процедура ОтменитьПроведение(Кнопка)

ВыборкаДокументов = Документы.НДФЛиЕСНДоходыИНалоги.Выбрать(); 

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

		Если Найти(ВыборкаДокументов.Комментарий, "НДФЛ Доходы и удержания") > 0 Тогда

			ТекДок=ВыборкаДокументов.ПолучитьОбъект();

			Попытка

				ТекДок.Записать(РежимЗаписиДокумента.ОтменаПроведения);

				Сообщить("Отмена проведения документ :" + Строка(ТекДок));

			Исключение

				Сообщить("Невозможно отменить проведение("+Строка(ТекДок)+"), т.к.:");

				Сообщить(ОписаниеОшибки());

			КонецПопытки;			

		КонецЕсли;	

	КонецЦикла	

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