0
Начинающий_13
20.10.11
✎
12:30
|
Здравствуйте
Сделал оборботку при проведении документов по регистрам бухгалтерии прводки формируются при проведении,по регистрам накопления и регистрам свдений нет. В документе поставил удление движения (удалять автоматически) Где сделел ошибку
Процедура кнВыполнить(Кнопка)
Для Каждого СтрокаТЧ из тблРедактирование Цикл // Начало обхода тблРедактировани
Если СтрокаТЧ.фл=Истина Тогда // Начало обхода флВыбора
Объект=СтрокаТЧ.Докум.ПолучитьОбъект();
Если ВидыОбработки="7" Тогда // Провести
Если Объект.ПометкаУдаления=Истина Тогда
Продолжить;
КонецЕсли;
Объект.Записать(РежимЗаписиДокумента.Проведение);
ИначеЕсли ВидыОбработки="8" Тогда // Сделать не проведенными
Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
ИначеЕсли ВидыОбработки="9" Тогда // Пометить на удаление
Объект.УстановитьПометкуУдаления(Истина);
ИначеЕсли ВидыОбработки="10" Тогда // Снять поментук на удаление
Объект.УстановитьПометкуУдаления(Ложь);
ИначеЕсли ВидыОбработки="11" Тогда // Удалить сразу
Ответ=Вопрос("ПОДУМАЙТЕ-ЭТО ПОЛНОЕ УДАЛЕНИЕ ДОКУМЕНТОВ?", РежимДиалогаВопрос.ДаНет, 10,, "ВНИМАНИЕ!");
Если Ответ = КодВозвратаДиалога.Да Тогда
// Объект.Удалить();
ИначеЕсли Ответ=КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
ИначеЕсли ВидыОбработки="12" Тогда // Реестр
// Сообщить("Реестр сформирован");
КонецЕсли;
КонецЕсли; // конец обхода флВыора
КонецЦикла; // Конец обхода тблРедактирования
Предупреждение("ОБРАБОТКА ОКОНЧЕНА.");
КонецПроцедуры
|
|