//Перед заполнением необходимо отменить проведение документа

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



// при выборке, переборе документов

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

 // Получим объект и отменим проведение документов

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

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

КонецЦикла;   

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

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

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

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

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

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

			Попытка

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

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

			Исключение

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

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

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

		КонецЕсли;	

	КонецЦикла	

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



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

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

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

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

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

			Попытка

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

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

			Исключение

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

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

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

		КонецЕсли;	

	КонецЦикла	

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

 

ДокОбъект = СсылкаНаДокумент.ПолучитьОбъект(); 

ДокОбъект.Ответственный = глТекущийПользователь;

ДокОбъект.Комментарий = "Исправление от "+Строка(ТекущаяДата());

ДокОбъект.Записать(); 

// или

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

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