7.7 Поможите начинающему! Два справочника есть...
Есть два справочника:
Арендаторы(НазваниеФирмы, НомерДоговораАренды, ДатаЗаключения, ДатаРасторжения)
КопииНазванийФирм(Арендатор)
Как сделать так, чтобы при заполнении справочника Арендаторы через форму значение поля НазваниеФирмы автоматически добавлялись не только в первый, но и во второй справочник?
Арендаторы(НазваниеФирмы, НомерДоговораАренды, ДатаЗаключения, ДатаРасторжения)
КопииНазванийФирм(Арендатор)
Как сделать так, чтобы при заполнении справочника Арендаторы через форму значение поля НазваниеФирмы автоматически добавлялись не только в первый, но и во второй справочник?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В процедуры ПриЗаписи() модуля формы справочника Арендаторы добавь что типа:
| Код |
|---|
спр = СоздатьОбъект("Справочник.КопииНазванийФирм")
Если спр.НайтиПоНаименованию(Наименвоание)=0 тогда
Спр.Новый();
Спр.Наименование = Наименование;
Спр.Записать();
КонецЕсли;
Показать полностью |
Вот моё понимание этой процедуры. Если не так, то поправьте меня
Процедура ПриЗаписи()
//спр - объект, который использует справочник КопииНазванийФирм
спр = СоздатьОбъект("Справочник.КопииНазванийФирм");
//если в поле Арендатор спавочника КопииНазванийФирм "пусто", тогда
Если спр.НайтиПоНаименованию("Арендатор")=0 тогда
//добавляем новый элемент в справочник КопииНазванийФирм не содержащий значения:
Спр.Новый();
//реквизиту Арендатор присваиваем ТЕКУЩЕЕ(!) значение реквизита из справочника Арендаторы
Спр.Арендатор = НазваниеФирмы;
//Записываем изменения в справочник КопииНазванийФирм
Спр.Записать();
КонецЕсли;
КонецПроцедуры
Процедура ПриЗаписи()
//спр - объект, который использует справочник КопииНазванийФирм
спр = СоздатьОбъект("Справочник.КопииНазванийФирм");
//если в поле Арендатор спавочника КопииНазванийФирм "пусто", тогда
Если спр.НайтиПоНаименованию("Арендатор")=0 тогда
//добавляем новый элемент в справочник КопииНазванийФирм не содержащий значения:
Спр.Новый();
//реквизиту Арендатор присваиваем ТЕКУЩЕЕ(!) значение реквизита из справочника Арендаторы
Спр.Арендатор = НазваниеФирмы;
//Записываем изменения в справочник КопииНазванийФирм
Спр.Записать();
КонецЕсли;
КонецПроцедуры
Правильнее будет, наверно, так:
Для работы этого кода необходимо, что-бы реквизит Арендатор справочника КопииНазванийФирм имел галку "Сортировка".
Странно, что автор упорно игнорирует использование атрибута "Наименование". Может он профессиональный писатель баз данных?
Если вместо НазваниеФирмы и Арендатор использовать наименование, то подойдет код от sashulyT.
| Код |
|---|
Процедура ПриЗаписи()
спр = СоздатьОбъект("Справочник.КопииНазванийФирм");
//если в поле Арендатор спавочника КопииНазванийФирм "пусто", тогда ??? странная логика...
//правильнее спросить: есть ли в справочнике элемент, у которого реквизит "Арендатор" равен текущему значению реквизита "НазваниеФирмы"
Если спр.НайтиПоРеквизиту("Арендатор", НазваниеФирмы)=0 тогда
//добавляем новый элемент в справочник КопииНазванийФирм не содержащий значения:
Спр.Новый();
//реквизиту Арендатор присваиваем ТЕКУЩЕЕ(!) значение реквизита из справочника Арендаторы
Спр.Арендатор = НазваниеФирмы;
//Записываем изменения в справочник КопииНазванийФирм
Спр.Записать();
КонецЕсли;
КонецПроцедуры
Показать полностью |
Для работы этого кода необходимо, что-бы реквизит Арендатор справочника КопииНазванийФирм имел галку "Сортировка".
Странно, что автор упорно игнорирует использование атрибута "Наименование". Может он профессиональный писатель баз данных?
Если вместо НазваниеФирмы и Арендатор использовать наименование, то подойдет код от sashulyT.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот