Имя: Пароль:
1C
1С v8
Помогите с переносом (свойств документа) из одного дока в другой
0 1malder1
 
29.05.12
10:45
Нужно заполнить свойства документа из документа основания

Добавляю на форму внешнюю обработку заполнения ТЧ, создаю новый документ, сохраняю , теперь свойства доступны для записи. внешней обработкой пытаюсь перенести свойства и блин ошибка


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


на тестовой базе в файловом варианте работает, в клиент-серверном пишет ошибку.


Заполнение ТЧ не произведено!
Поле объекта недоступно для записи (ЭтотОбъект)
1 andrewks
 
29.05.12
10:46
где код для клиент-серверного варианта?
2 DrShad
 
29.05.12
10:47
(1) + 1
и где строка с инициализацией Поля "ЭтотОбъект"?
3 1malder1
 
29.05.12
10:47
(0)на тестовой базе в файловом варианте работает, в клиент-серверном пишет ошибку.  - протупил !!!
4 andrewks
 
29.05.12
10:47
или ты прямо код из (0) и пытаешься там выполнить?
5 Господин ПЖ
 
29.05.12
10:48
мизда - лучший отладчик
6 1malder1
 
29.05.12
10:50
вместо (3) хотел написать что через обработку  ОтладкаОбработокЗТЧ все работает, а когда подключаю в базу обработку то нет
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн