Имя: Пароль:
1C
1С v8
Заполняю Документ "отчёт" по документу "Заказ" через кнопку.
0 art93
 
28.07.15
15:07
По кнопке документа "Заказ" создать документ "Отчет" и открыть его форму и заполнить в ней автаматически поля из документа"Заказ".
Всё пишу в модуле формы.
Подскажите что не так делаю.

&НаКлиенте
Процедура ВопросПоЗаказу()
    Если Модифицированность Тогда
    Ответ = Вопрос("Заказ не записан. Записать?", РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да, );
    КонецЕсли;
    Если Ответ = КодВозвратаДиалога.Да Тогда
        ЭтотОбъект.Записать();
    КонецЕсли;
    ОтчитатьсяПоЗаказу();
    ЭтотОбъект.Объект.Ссылка.ОтчетПоЗаказу
ЭтаФорма.Открыть();
КонецПроцедуры

&НаСервере
Функция ОтчитатьсяПоЗаказу() Экспорт

    НовыйОтчет = Документы.ОтчетПоЗаказуНаСопровождение.СоздатьДокумент();    
    НовыйОтчет.ОбработкаЗаполнения(Объект.Ссылка);    
    Объект.ОтчетПоЗаказу = НовыйОтчет;
КонецФункции

&НаКлиенте
Процедура кнОтчитаться(Команда)    
    
ВопросПоЗаказу();
ЭтаФорма.ОбновитьОтображениеДанных();

КонецПроцедуры



Процедура ОбработкаЗаполнения(Основание) Экспорт
    
    Если Основание <> Неопределено И ТипЗнч(Основание) <> Тип("Структура") Тогда
        ДокументОснование = Основание;
        Партнер= ДокументОснование.Партнер;
        Контрагент= ДокументОснование.Контрагент;
        Исполнитель= ДокументОснование.Исполнитель;
        Программа= ДокументОснование.Программа;
        Исполнитель = ДокументОснование.Исполнитель;
        Комментарий = ДокументОснование.ОтчетСообщение;
        ЗатраченоЧасов = ДокументОснование.ЗатраченоЧасов;
        ДатаВыполнения = ДокументОснование.ДатаВыполнения;
        Ответственный = ДокументОснование.Ответственный;

    КонецЕсли;
    
КонецПроцедуры
1 art93
 
28.07.15
15:16
Посмотрите пожалуйста, хотя б направление, в какую сторону думать
2 Kondarat
 
28.07.15
15:20
&НаСервере
Функция ОтчитатьсяПоЗаказу() Экспорт

    НовыйОтчет = Документы.ОтчетПоЗаказуНаСопровождение.СоздатьДокумент();    
    НовыйОтчет.Заполнить(Объект.Ссылка);    
    НовыйОтчет.записать();
    Объект.ОтчетПоЗаказу = НовыйОтчет;
КонецФункции
3 Kondarat
 
28.07.15
15:21
Объект.ОтчетПоЗаказу = НовыйОтчет.Ссылка;
КонецФункции
4 art93
 
28.07.15
15:23
Спасибо!
5 art93
 
28.07.15
15:24
А где и как открыть форму документа "Отчет" в форме документа "Заказ"? С этим мучаюсь понять не могу
6 Kondarat
 
28.07.15
15:25
ОткрытьЗначение(Объект.ОтчетПоЗаказу);
7 art93
 
28.07.15
15:45
Исправления внёс с Вашей помощью, но пока что ещё ничего не открывается, сейчас работаю в режиме отладки.
Объект.ОтчетПоЗаказу = НовыйОтчет.Ссылка;
"НовыйОтчет.Ссылка" - заполнен всё хорошо, но "Объект.ОтчетПоЗаказу" не заполняется поле
8 Kondarat
 
28.07.15
15:48
Тип значения Объект.ОтчетПоЗаказу?