Имя: Пароль:
1C
1С v8
Документ записать в форме
0 EKO LX
 
16.09.12
13:31
Добрый день. Пишу внешнюю обработку по перезаписи документов.

Процедура ВыбПериодНажатие(Элемент)
   НастройкаПериода = Новый НастройкаПериода;
   НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));
   НастройкаПериода.РедактироватьКакИнтервал = Истина;
   НастройкаПериода.РедактироватьКакПериод = Истина;
   НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
   Если НастройкаПериода.Редактировать() Тогда
       НачПериода = НастройкаПериода.ПолучитьДатуНачала();
       КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
   КонецЕсли;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
   Запрос=Новый Запрос;
     Запрос.Текст="ВЫБРАТЬ
    |    ЧекККМ.Ссылка КАК ДокументСсылка
    |ИЗ
    |    Документ.ЧекККМ КАК ЧекККМ
    |ГДЕ
    |    ЧекККМ.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&НачПериода, ДЕНЬ) И КОНЕЦПЕРИОДА(&КонПериода, ДЕНЬ)";
    Запрос.УстановитьПараметр("НачПериода",НачПериода);
    Запрос.УстановитьПараметр("КонПериода",КонПериода);
    Результат = Запрос.Выполнить().Выбрать();
   
    Пока Результат.Следующий() Цикл
    //Попытка    
    Фрм = Результат.ПолучитьОбъект.ПолучитьФорму();
    Фрм.Открыть();
    Фрм.ЗаписатьВФорме(РежимЗаписиДокумента.Запись);
    Фрм.Закрыть();
    Сообщить(Результат);    
    //Исключение
    //Сообщить(ОписаниеОшибки());    
    //КонецПопытки;
    КонецЦикла;
   
КонецПроцедуры

Вроде бы все проще некуда. При нажатии выполнить ругается:
{Форма.Форма(29)}: Поле объекта не обнаружено (ПолучитьОбъект)
    Фрм = Результат.ПолучитьОбъект.ПолучитьФорму();
1 МишКа
 
16.09.12
13:32
Результат.ДокументСсылка
2 EKO LX
 
16.09.12
13:44
Спасибо! а как сделать так чтобы при появлении ошибки перешел к следующему документу?
3 sanja26
 
16.09.12
13:45
попытка
4 EKO LX
 
16.09.12
13:47
Спасибо! забыл отключить коммент:)