Имя: Пароль:
1C
1С v8
Проведение документов
0 Начинающий_13
 
20.10.11
12:30
Здравствуйте
Сделал оборботку при проведении документов по регистрам бухгалтерии прводки формируются при проведении,по регистрам накопления и регистрам свдений нет. В документе поставил удление движения (удалять автоматически) Где сделел ошибку

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