Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Використання "УникальныйИдентификатор" для заповнення перехрестних посилань на прикладі підлеглих довідників          
mister-x Подменю пользователя
сообщение 25.11.11, 18:16
Сообщение #1

...
Иконка группы
Модератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 3477
Из: Тернопіль
Спасибо сказали: 1417 раз
Рейтинг: 0

Нехай в нас є довідники: Контрагенты і підлеглий до нього - КонтактныеЛица. Див. мал.





У довіднику Контрагенты є реквізит ОсновноеКонтактноеЛицо, типу СправочникСсылка.КонтактныеЛица.



Крім того ну формі елементу довідника Контрагенты є реквізит форми Имя.



Потрібно при створенні нового елементу довідника Контрагенты (при його записі), заповнювати підлеглий довідник КонтактныеЛица значенням із поля Имя і одночасно прописувати його у реквізит ОсновноеКонтактноеЛицо довідника Контрагенты. Виходить система перехресних посилань між довідником-власником і підлеглим до нього довідником.

Отже, ця задача вирішуються так - у формі елементу довідника Контрагенты прописуємо код:

&НаСервере
Перем НоваяСсылка;


&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
    
    Если ТекущийОбъект.ЭтоНовый() тогда
        Ключ = Новый УникальныйИдентификатор;
        НоваяСсылка = Справочники.КонтактныеЛица.ПолучитьСсылку(Ключ);
        ТекущийОбъект.ОсновноеКонтактноеЛицо = НоваяСсылка;
    КонецЕсли;
    
КонецПроцедуры

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


Результат на мал.






"По мотивам" відео Гильова, Насипова. Професійне програмування в 1С:Підприємство 8.х.

Спасибо сказали: Vofka,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 29.03.24, 9:48
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!