Имя: Пароль:
1C
1С v8
Автоматическое заполнение подчиненного объекта в справочнике 1с 8.2
,
0 titan1993
 
21.05.13
23:53
Здраствуйте люди добрые! Вся надежда на вас, выручайте.
Ситуация такая, имеются два справочника Клиенты и КонтактныеЛица. В справочнике клиенты есть табличная часть с реквизитом СсылкаКонтактныеЛица тип которого СправочникСсылка.КонтактныеЛица, т.е. своего рода подчиненная таблица.
А в справочнике КонтактныеЛица есть реквизит ОбъектВладелец с типом СправочникСсылка.Клиенты. Проблема в том что при добавлении нового элемента в табличную часть справочника Клиенты, нужно чтобы открывалась ФормаЭлемента справочника контактныеЛица,
а объектВладелец заполнялся автоматически с данными из справочника Клиенты.

я попробывал это сделать так:

Процедура ТаблицаКонтактыПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, ЭтоГруппа)

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

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

и функция:

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

но почему то не работает
1 Max Street
 
22.05.13
00:13
Есть вариант проще

модуль формы первого справочника:

&НаКлиенте
Процедура ТЧПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
   Параметр = Новый Структура("СправочникИсточник", Объект.Ссылка);
   ОткрытьФорму("Справочник.Справочник2.ФормаОбъекта", Параметр);
КонецПроцедуры


модуль формы второго справочника:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
       Если Параметры.Свойство("СправочникИсточник") Тогда
            Объект.Реквизит = Параметры.СправочникИсточник;
       КонецЕсли;
КонецПроцедуры
2 titan1993
 
22.05.13
06:36
Спасибо огромное!!! все заработало, еще вопросик, теперь нужно чтобы при записи в форме элемента, все то что я там заполнил перенеслось в табличную чать
3 Defender aka LINN
 
22.05.13
07:48
(1) Херасе у вас понятия о простоте...
4 titan1993
 
22.05.13
09:25
Ну подскажите пожалуйста
5 Defender aka LINN
 
22.05.13
09:28
ДанныеЗаполнения
6 banco
 
22.05.13
09:31
установить отбор по владельцу и галочка заполнять из данных заполнения
7 titan1993
 
22.05.13
10:29
(5) и куда мне этот метод пихать?
8 titan1993
 
22.05.13
10:30
(6) а можно по подробней?
9 Defender aka LINN
 
22.05.13
10:32
(7) Перепутал. ЗначениеЗаполнения. Забивать в СП, думать.
10 titan1993
 
22.05.13
10:35
у меня немножко проблема с думать, опыт работы с 1с 8.2 около 2 недель, а дипломная уже горит
11 Defender aka LINN
 
22.05.13
10:53
(10) Ничего страшного
AdBlock убивает бесплатный контент. 1Сергей