0
EKO LX
16.09.12
✎
13:31
|
Добрый день. Пишу внешнюю обработку по перезаписи документов.
Процедура ВыбПериодНажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
Если НастройкаПериода.Редактировать() Тогда
НачПериода = НастройкаПериода.ПолучитьДатуНачала();
КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
КонецЕсли;
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос=Новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| ЧекККМ.Ссылка КАК ДокументСсылка
|ИЗ
| Документ.ЧекККМ КАК ЧекККМ
|ГДЕ
| ЧекККМ.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&НачПериода, ДЕНЬ) И КОНЕЦПЕРИОДА(&КонПериода, ДЕНЬ)";
Запрос.УстановитьПараметр("НачПериода",НачПериода);
Запрос.УстановитьПараметр("КонПериода",КонПериода);
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
//Попытка
Фрм = Результат.ПолучитьОбъект.ПолучитьФорму();
Фрм.Открыть();
Фрм.ЗаписатьВФорме(РежимЗаписиДокумента.Запись);
Фрм.Закрыть();
Сообщить(Результат);
//Исключение
//Сообщить(ОписаниеОшибки());
//КонецПопытки;
КонецЦикла;
КонецПроцедуры
Вроде бы все проще некуда. При нажатии выполнить ругается:
{Форма.Форма(29)}: Поле объекта не обнаружено (ПолучитьОбъект)
Фрм = Результат.ПолучитьОбъект.ПолучитьФорму();
|
|