Подопригора Виталий

редактировать метку

муж.

18.07.1984(41 год)

10 лет 10 мес. 20 дней

21 мая 2015 в 15:02:51(10 лет 46 недель 2 дня 5 часов назад)

Яндекс-директ

Активность на сайте

Последние сообщения пользователя

Сообщение на форуме
18 мая 2015 в 15:30:42

Григорьев Андрей
для БП 3.0 не прокатит такой код

и почему вы пришли к такому выводу?
Сообщение на форуме
18 мая 2015 в 14:24:15

Григорьев Андрей
Как-то очень громоздко в описанном - для чего именно так?

отвечу за автора, данный способ может быть применен для пост-обработки документов
например, открыть форму пользователю для операций с загруженными документами

а для простого проведения данный код не рекомендую!
и еще момент, что будет при повторной загрузке если документ ранее был проведен, а его сняли с проведения...
походу проводки останутся... наверное, это удивит пользователей )

Сообщение на форуме

18 мая 2015 в 13:43:03

хоть ветка старая, но возможно кому-то и пригодится
так гораздо проще:

в ПКО - После загрузки

ВсеОК = Истина;
Попытка
	Объект.Записать(РежимЗаписиДокумента.Запись);
Исключение
	ВсеОК = Ложь;
	Сообщить("ВНИМАНИЕ! ошибка записи документа: " + Объект);
	Сообщить("   " + ОписаниеОшибки());
КонецПопытки;

Если ВсеОК Тогда
	ОбъектМодифицирован = Ложь;
	Если Объект.Проведен Тогда
		Попытка
			Объект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
		Исключение
			Объект.Проведен = Ложь;
			Сообщить("ВНИМАНИЕ! документ не проведен: " + Объект);
			Сообщить("   " + ОписаниеОшибки());
		КонецПопытки;
	ИначеЕсли Объект.ПометкаУдаления Тогда
		Попытка
			Объект.УстановитьПометкуУдаления(Истина);
		Исключение
			Сообщить("ВНИМАНИЕ! не удалось установить пометку удаления: " + Объект);
			Сообщить("   " + ОписаниеОшибки());
		КонецПопытки;
	Иначе
		Попытка
			Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
		Исключение
			Сообщить("ВНИМАНИЕ! ошибка записи документа: " + Объект);
			Сообщить("   " + ОписаниеОшибки());
		КонецПопытки;
	КонецЕсли;
КонецЕсли;

можно код вынести в алгоритм и тогда просто:
Выполнить(Алгоритмы.ПослеЗагрузкиДокумента);

На главную страницу заданий 1с