Провести документ программно в 1С Предприятие 8.3

Опубликовано автором

Пример:

Запрос = Новый Запрос;
Запрос.Текст = "
	|ВЫБРАТЬ
	|ПЕРВЫЕ 1
	|	РеализацияТоваровУслуг.Ссылка КАК Ссылка
	|ИЗ
	|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
	|ГДЕ
	|	РеализацияТоваровУслуг.Проведен = ложь
	|	И (ВЫРАЗИТЬ(РеализацияТоваровУслуг.Комментарий КАК СТРОКА(10))) = ""Тест""
	|";

Результат = Запрос.Выполнить().Выбрать();

если Результат.Следующий() тогда
	сообщить("Проводим реализацию №" + Результат.Ссылка.Номер + " от " + Результат.Ссылка.Дата);
	РеализацияТоваровУслугОбъект = Результат.Ссылка.ПолучитьОбъект();
	попытка
		РеализацияТоваровУслугОбъект.Записать(РежимЗаписиДокумента.Проведение);
		сообщить("Успешно проведена");
	исключение
		сообщить("Не хватает товаров");
	конецпопытки
иначе
	сообщить("Не найден документ");
конецесли;

Еще пример:

Док=Документы.ОприходованиеТоваров;
ДокСсылка=Док.НайтиПоНомеру("00000000009",Дата("20120101"));
Если НЕ(ДокСсылка=Док.ПустаяСсылка()) Тогда
	ДокОб=ДокСсылка.ПолучитьОбъект();
	ДокОб.Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;