Обновление ссылки на документ в реквизите справочника и заполнение реквизитов элемента справочника по новой ссылке - 1С - Ответ 12370369

@jediAlex · Регистрация: 12.07.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. В собственной конфигурации есть документ "Объектныйграфик" с реквизитами: ШифрОбъекта - СправочникСсылка.РегистрацияШифров;Договор - СправочникСсылка.договоры и т. д. также есть справочник -ЖурналРегистрацииГрафиков, куда записываются созданные графики. Реквизиты: Номер - число(порядковый номер графика в году - не то же самое, что стандартный номер элемента),год - число; остальные реквизиты схожи с графиком, но есть еще реквизит "График" - ДокументСсылка.ОбъектныйГрафик. В документе Объектныйграфик есть ссылка на соответствующую строку справочника: ФактРегистрации - СправочникСсылка.ЖурналРегистрацииГрафиков. Мне нужно реализовать следующее: в результате записи документа "Объектныйграфик" записать в выбранную в этом графике строку справочника записать параметры графика и в реквизит "график" ссылку на записанный документ. Делал так:

1C

 НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
    
    Если  рольДоступна("Администратор") И Объект.СтатусГрафика=Перечисления.СтатусГрафика.Активный тогда
        Если ЗначениеЗаполнено(ТекущийОбъект.ФактРегистрацииГрафика) тогда
        РегГрафика=ТекущийОбъект.ФактРегистрацииГрафика.ПолучитьОбъект();
    РегГрафика.График=ТекущийОбъект.Ссылка;
    РегГрафика.НаименованиеРаботы=Объект.ШифрОбъекта.НаименованиеРабот;
//  РегГрафика.Контрагент=Объект.ШифрОбъекта.Контрагент;
    РегГрафика.ПлощадкаПроектирования=Объект.ПлощадкаПроектирования;
    РегГрафика.Договор=Объект.Договор;
    РегГрафика.Статус=Объект.СтатусГрафика;
     РегГрафика.Стадия=Объект.Стадия;
    РегГрафика.ДатаНачалаРабот=Объект.ДатаНачала;
    РегГрафика.ДатаОкончанияРабот=Объект.ДатаОкончания;
    РегГрафика.Примечание=Объект.Примечание;
    РегГрафика.ГИП=Объект.ГИП;
    РегГрафика.РПО=Объект.РуководительПроектногоОфиса;
    РегГрафика.Записать();
    конецесли; 
    КонецЕсли; 
    Если  Не рольДоступна("Администратор") тогда
    Если ЗначениеЗаполнено(ТекущийОбъект.ФактРегистрацииГрафика) тогда
    РегГрафика=ТекущийОбъект.ФактРегистрацииГрафика.ПолучитьОбъект();
    РегГрафика.График=ТекущийОбъект.Ссылка;
    РегГрафика.НаименованиеРаботы=Объект.ШифрОбъекта.НаименованиеРабот;
//  РегГрафика.Контрагент=Объект.ШифрОбъекта.Контрагент;
    РегГрафика.ПлощадкаПроектирования=Объект.ПлощадкаПроектирования;
    РегГрафика.Договор=Объект.Договор;
    РегГрафика.Статус=Объект.СтатусГрафика;
     РегГрафика.Стадия=Объект.Стадия;
    РегГрафика.ДатаНачалаРабот=Объект.ДатаНачала;
    РегГрафика.ДатаОкончанияРабот=Объект.ДатаОкончания;
    РегГрафика.Примечание=Объект.Примечание;
    РегГрафика.ГИП=Объект.ГИП;
    РегГрафика.РПО=Объект.РуководительПроектногоОфиса;
    
    РегГрафика.Записать();
Иначе
    Сообщить("Не указана ссылка на запись журнала регистрации графиков");
 
КонецЕсли;
КонецЕсли;
 
 
КонецПроцедуры

В результате ничего не происходит... данные в записи справочника не обновляются. что не так делаю? помогите пожалуйста.

Вернуться к обсуждению:
Обновление ссылки на документ в реквизите справочника и заполнение реквизитов элемента справочника по новой ссылке 1С

Следующий ответ