Здравствуйте.
Подскажите пожалуйста. Не плотно связан с 1с. Знаю 7.7. Решил немного переучится на 8.3. Простая задача. Есть документ с ТЧ. Есть справочник. В документе один реквизит тип Справочник. При выборе одной записи идет заполнение остальных полей в ТЧ документа. Код в клюшках накидал, нужно подобное на 8.3:

Процедура ЗаполнениеСтроки()
    Если Блюдо.Выбран()=1 Тогда
        С=СоздатьОбъект("Справочник.Блюда");
        С.ВыбратьЭлементы();
        Пока С.ПолучитьЭлемент()=1 Цикл
            Если С.ТекущийЭлемент()=Блюдо Тогда
                Выход=С.Выход;
                Цена=С.Цена;
                Калорийность=С.Калорийность;
                Белки=С.Белки;
                Жиры=С.Жиры;
                Углеводы=С.Углеводы;
                Прервать;
            КонецЕсли;    
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры

Плиз в двух словах, как подобное в 8.3 реализовать?

благодарю

(0) ты реально так на 7.7 писал?

(1) Да.

(1) Я с типовыми вообще дело не имел. Самопальные на клюшках. И поскольку постольку.

(0) в 8.3 управляемые формы? значения типа Выход, Цена и т.п. на форме надо менять потом или только отобразить надо?

(4) менять

(3) это трындец...
С.ВыбратьЭлементы();
        Пока С.ПолучитьЭлемент()=1 Цикл
            Если С.ТекущийЭлемент()=Блюдо Тогда
.
убрать нахрен, использовать
.
С.НайтиЭлемент(Блюдо);
Выход=С.Выход;
.
представляю какой трэш будет порожден в восьмерке пиателями, которые на 77 хрень пишут ;-)

(6) Мне на 8 нужно.
Как могу так и пишу. Я же вам не втюхиваю конфигурации. И вы о моей мотивации не осведомлены.

(5) ну тогда после выбора значения Блюдо получать запросом значения реквизитов выбранного и заполнять реквизиты ТЧ документа
лучше делай функцию НаСервереБезКонтекста с передачей параметра Блюдо

(8) Я сейчас 8.3 впервые запустил :)
Суть: я не 1с програмер. Работаю в школе. Приходилось на клюшках писать. Сейчас в мои обязанности входит размещение меню столовой на сайте мониторинга питания. Задрало. Пробовал на 77 написать - сделал, но нужны xlsx файлы с печатной формы. Как понял на клюшках с этим беда. Поэтому начал делать на 8.3.

(7) я понимаю если писать что-то сложное. архитектурное. там где мотивация играет роль в хорошую тили не очень сторону. но это ж ваще - основы. это даже придумывать не надо. это тупо знать надо. основные методы работы со справочником. Это же не восьмерка где дока книжек в метр высотой.
.
но раз работает и мотивация удовлетворяет - ну и ок. главное в коде следы оставить, чтобы понятно было кто написал.

(9) сделал, но нужны xlsx файлы с печатной формы
- в совсем недавноей ветке это все разжевали.
если совсем никак - сохранить 77 штатно xls и из под 77 через обычный эксель пересохранить в xlsx.
.
https://infostart.ru/public/1026032/
Таб.Записать(ИмяФайла, 0);// - MOXEL
Таб.Записать(ИмяФайла, 1);// - XLSX
Таб.Записать(ИмяФайла, 2);// - HTML
Таб.Записать(ИмяФайла, 3);// - PDF

(10)
(11)
О мотивации выше написал. Завстоловой пересылает мне экселевские файлы для мониторинга. Задрало их постоянно править. Поэтому хочу на 8.3 поднять конфигурацию из нескольких справочников, одного документа. Ну может до кучи научусь по фтп публиковать печатную форму в xlsx :)
Пересохранять из xls в xlsx - тогда проще вообще не лезть ни в 7 ни в 8.

(12) мотивация тут причем?
в (0) говнокод за который увольнять надо

(13) Вы что ли уволите?

ОФФ: Троллинг какой-то

Проще сразу в Excel сделать несколько таблиц и из них лепить нужные файлы.

(8) Ок, благодарю. За это зацеплюсь.

(12) "Пересохранять из xls в xlsx"
ну так это программно делается в клюшках.

в (11) вк для 77 котораz позволяет записывать в xlsx
хотя какоая нафиг разница - любой эксель который понимает xlsx прочитает и xls

(19) Где эту компоненту взять?
инфостарт подписка 27 косарей.

(6) НайтиЭлемент тут зачем?

(21) +100
можно вообще без найтиэлемент если для блюдо записывать ничего не надо

(20) не дай бог так оголодать... ;-)
http://forums.kuban.ru/f1040/-----_poproshajka_------8264573-16.html

(20) Ну прям вот 27! 8500 минимальная цена

Все же делаю на 8.3.
ТЗ:
1. Справочник без ТЧ "НомерРецепта" с реквизитами Наименование и Блюдо.
2. Документ с ТЧ. В ТЧ реквизиты Рецепт (тип Справочник.НомерРецепта) и НазваниеБлюда (тип Строка)
Нужно при выборе в документе номера рецепта автоматом заполнялся реквизит НазваниеБлюда.
На одном примере сварганил. Где ошибка, плиз? Не заполняет поле НазваниеБлюда.

// служебная функция получения значения реквизита объекта (выполняется на сервере)
&НаСервере
Функция ЗначениеРеквизита(Объект,ИмяРеквизита);
Возврат Объект[ИмяРеквизита];
КонецФункции

// обработчик события "ПриИзменении" поля "Контрагент" в табличном поле "Контрагенты"
&НаКлиенте
Процедура ТабличнаяЧасть1РецептПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");
КонецПроцедуры

// служебная процедура для заполнения колонки "ИНН" табличного поля "Контрагенты"
&НаСервере
Процедура ОбновитьДанныеКолонкиБлюдо()
Запрос = Новый Запрос(
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|    ТабличнаяЧасть1.Ссылка КАК Контрагент,
|    ТабличнаяЧасть1.НазваниеБлюда
|ИЗ
|    Справочник.НомерРецепта КАК Блюдо
|ГДЕ
|    НомерРецепта.Ссылка В(&СписокБлюд)"
);
Запрос.УстановитьПараметр("СписокБлюд",Объект.НомерРецепта.Выгрузить().ВыгрузитьКолонку("НазваниеБлюда"));
Выборка = Запрос.Выполнить().Выбрать();
Для Каждого Стр Из Объект.НомерРецепта Цикл
  Если Выборка.НайтиСледующий(Стр.Блюдо,"НазваниеБлюда") Тогда
   Стр.Блюдо = Выборка.НазваниеБлюда;
  Иначе
   Стр.Блюдо = "";
  КонецЕсли;
КонецЦикла;
КонецПроцедуры

&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
ОбновитьДанныеКолонкиБлюдо();
КонецПроцедуры

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ОбновитьДанныеКолонкиБлюдо();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ОбновитьДанныеКолонкиБлюдо();
КонецПроцедуры

Благодарю

(25) в Конфигураторе поставьте точку останова на строке
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");
Запустите отладчик (сверху меню Отладка), посмотрите, что попадает в ТекДанные (пр кн мыши на ТекДанные - ВычислитьВыражение)

Смотри, что ответил ChatGPT на твой вопрос:

Для реализации данной задачи на платформе 1С:Предприятие 8.3 можно воспользоваться следующим алгоритмом:

Добавить реквизит типа Справочник в ТЧ документа.
Создать обработчик события "При изменении" этого реквизита, который будет заполнять остальные поля ТЧ документа.
В обработчике получить ссылку на выбранный элемент справочника, используя методы СправочникСсылка() и ВыбранныйЭлемент() объекта формы.
Получить необходимые значения из выбранного элемента справочника, используя методы объекта СправочникСсылка().
Установить значения полученных полей в соответствующие реквизиты ТЧ документа.
Пример кода обработчика события "При изменении" реквизита типа Справочник в ТЧ документа:

&НаКлиенте
Процедура НазваниеРеквизита_ПриИзменении(Элемент, Событие)
    // Получаем ссылку на выбранный элемент справочника
    Справочник = Элемент.СправочникСсылка("НазваниеСправочника").ВыбранныйЭлемент();
    
    // Получаем необходимые значения из выбранного элемента справочника
    Выход = Справочник.Выход;
    Цена = Справочник.Цена;
    Калорийность = Справочник.Калорийность;
    Белки = Справочник.Белки;
    Жиры = Справочник.Жиры;
    Углеводы = Справочник.Углеводы;
    
    // Устанавливаем значения полученных полей в соответствующие реквизиты ТЧ документа
    Элемент.Поле1 = Выход;
    Элемент.Поле2 = Цена;
    Элемент.Поле3 = Калорийность;
    Элемент.Поле4 = Белки;
    Элемент.Поле5 = Жиры;
    Элемент.Поле6 = Углеводы;
КонецПроцедуры

В данном примере "НазваниеРеквизита" - это название реквизита типа Справочник в ТЧ документа, а "НазваниеСправочника" - это название справочника, из которого выбирается запись. Также необходимо заменить "Поле1", "Поле2", "Поле3" и т.д. на названия соответствующих реквизитов ТЧ документа, которые будут заполняться значениями из выбранной записи справочника.

(26) Вычислить выражение - неактивно.

сенк

(27) Я пробовал сам через бота прогнать, но видимо запрос неточный был.

сенк

(27) Ругань:
Метод объекта не обнаружен (СправочникСсылка)
{Документ.Меню.Форма.ФормаДокумента.Форма(55)}:    Справочник

(27) Код:
Процедура РецептПриИзменении(Элемент, Событие)
    // Получаем ссылку на выбранный элемент справочника
    Справочник = Элемент.СправочникСсылка("НомерРецепта").ВыбранныйЭлемент();
    
    // Получаем необходимые значения из выбранного элемента справочника
    Блюдо = Справочник.Блюдо;
    Выход = Справочник.Выход;
    Цена = Справочник.Цена;
    Калорийность = Справочник.Калорийность;
    Белки = Справочник.Белки;
    Жиры = Справочник.Жиры;
    Углеводы = Справочник.Углеводы;
    
    // Устанавливаем значения полученных полей в соответствующие реквизиты ТЧ документа
    Элемент.НазваниеБлюда = Блюдо;
    Элемент.Выход = Выход;
    Элемент.Цена = Цена;
    Элемент.Калорийность = Калорийность;
    Элемент.Белки = Белки;
    Элемент.Жиры = Жиры;
    Элемент.Углеводы = Углеводы;
КонецПроцедуры

(27) - Вычислить выражение будет активно в режиме отладки, когда нужное выражение выделили мышкой и нажали пр кн мыши. Т.е сначала ставите точку останова (щелкаете мышкой слева от нужной строки, появляется красный кружок -точка), далее выбираете в меню сверху Отладка - Продолжить отладку - запускается режим Предприятие, где проигрываете ситуацию до момента срабатывания останова (вводите данные в ваш документ) - После выбираете нужное выражение, выделяете, щелкаете пр кн мыши ВычислитьВыражение - смотрите, какое значение на данном шаге туда попало.
Если я правильно воспроизвела вашу ситуацию,то в ТекДанные не будет Блюдо,  будет НазваниеБлюда, Рецепт, НомерСтроки, ИсходныйНомерСтроки. Дальше посмотрите, что попадает в Объект. Это чтобы быстрее увидеть-понять, что за данные на каждом шаге кода, те ли, что вы ожидали увидеть.

Пиши на обычных формах, там ближе к 7-ке. Не надо бегать туда сюда на сервер

(32) Сенк.
ВычислитьВыражение так же неактивно.
Но по аналогии с клюшками я использовал Сообщить для понятия где код выполняется, а где нет. Итог: ни разу вася не появился.

// служебная функция получения значения реквизита объекта (выполняется на сервере)
&НаСервере
Функция ЗначениеРеквизита(Объект,ИмяРеквизита);
Возврат Объект[ИмяРеквизита];
сообщить("вася");

КонецФункции

// обработчик события "ПриИзменении" поля "Контрагент" в табличном поле "Контрагенты"
&НаКлиенте
Процедура ТабличнаяЧасть1РецептПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
сообщить("ТекДанные");
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");
КонецПроцедуры

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

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

&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
ОбновитьДанныеКолонкиБлюдо();
сообщить("вася");

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

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ОбновитьДанныеКолонкиБлюдо();
сообщить("вася");

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ОбновитьДанныеКолонкиБлюдо();
сообщить("вася");

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

(34) - выложите на какой-нибудь ресурс скрин, пожалуйста, как у вас выглядит момент отладки, когда ВычислитьВыражение не активно. И подробно напишите, куда нажимаете с начала отладки до конца. Отладчик на будущее очень сильно пригодится.
Вы пока смотрите только процедуру ТабличнаяЧасть1РецептПриИзменении(Элемент), другие на этом шаге не особо нужны. Вася не появился,потому что на строке
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");
в ТекДанные не содержится Блюдо, хочу, чтобы вы через отладчик увидели, что есть ТекДанные, и почему код на этом месте вываливается (кст, в режиме Предприятие сообщение об ошибке появляется, из него можно перейти в Конфигуратор, сразу увидев, на каком месте спотыкнулся код)

(35) Я верно делаю, что выше код разместил в модуле формы документа?

(36) да

(36)- событие ПриИзменении привязали через форму? Если вдруг только код написали в модуле формы, то надо связать: в самой форме выделяете нужный элемент, щелкаете пр кн мыши - события - выбираете нужное событие.

(36) - и точку останова вы ставите прямо на той строке, не после нее?

(38) Изначально сделал.

(39) Да.
Но почему сообщить("ТекДанные") в процедуре при изменении не срабатывает? Как будто сюда она даже не заходит.

// обработчик события "ПриИзменении" поля "Контрагент" в табличном поле "Контрагенты"
&НаКлиенте
Процедура ТабличнаяЧасть1РецептПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
сообщить("ТекДанные");
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");
КонецПроцедуры

(39) да

(39) Вроде пошло.
Значение выдает ""

Это:
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");

(43) - отлично! но почему у вас выдает значение ""?.. у вас не выходит сообщение об ошибке, что поле объекта не обнаружено? ТекДанные развернули (через плюсик), посмотрели, что там?
(41) - ТекДанные - это ДанныеФормыЭлементКоллекции

Структура:
https://ibb.co/K7NFDBk

(45) Ошибок не выдает.
https://ibb.co/MpXdQHF
ТекДанные - это ДанныеФормыЭлементКоллекции - это вообще не понял

(46), (47) - спасибо за скрины!
вот оно в чем дело,вы смотрите через ВычислитьВыражение, что попадает в ТекущиеДанные.НазваниеБлюда. Но в тот момент, когда срабатывает точка останова, операция присваивания еще не произошла, т.е. отладчик остановил исполнение кода до выполнения этой строчки. Т.к. ранее в НазваниеБлюда у вас еще ничего не записано, то и выдается значение "", т.к. тип данных - Строка. Выделите просто ТекДанные, посмотрите, что оно из себя представляет. И можете дальше смотреть, что пишете справа от знака = , т.е. то, что пытаетесь передать в ТекущиеДанные.НазваниеБлюда.
(47) - посмотрите, как работать с этим типом данных в синтакс-помощнике (через поиск в нем можете найти)

(47) Шагни на шаг дальше и всё увидишь.
Про тип данных ДанныеФормыЭлементКоллекции можно почитать в документации или в СП

&НаКлиенте
Процедура ТабличнаяЧасть1РецептПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
сообщить("ТекДанные");
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");

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

Ругань:
{Документ.Меню.Форма.ФормаДокумента.Форма(14)}: Поле объекта не обнаружено (Блюдо)
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"Блюдо");

(50) реквизит Блюдо не выведен на форму скорее всего

(50) - смотрите, если выделить ТекущиеДанные, то в ВычислитьВыражение будет вот так: https://ibb.co/722QSCK
Нет там Блюдо.... Блюдо у вас в реквизитах справочника НомерРецепта, а в ТекущиеДанные попадает то, что в данном случае относится к ДанныеФормыЭлементКоллекции. То, что вы на форму документа вывели, с чем в данный момент работаете..

(52) Плиз, как это исправить? Для особо тупых :)

(53) - может быть, вот так:
в процедуре на клиенте
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Рецепт,"Блюдо");
или же в ТекДанные.Рецепт и содержится то, что вам нужно?

(54) Я говорил, что вы Красотка? Говорю! Большое спасибо. Взлетает потихоньку.
Я как котенок тыкался. В 8.3 все новое. Да я и профессионально 77 не занимался.
Почему выбрал именно 8.3? Во-первых, свежая платформа. Во-вторых, более удобный для программера и пользователя интерфейс. Я когда на клюшках эту задачу решал, с ужасом представлял, как я буду объяснять 60-летнему завстоловой какие кнопки тыкать и где находится на клавиатуре Insert. В 8.3 все интуитивно понятно и крупно :)
У меня задача следующая. Средняя школа. Уже год как выкладываем ежедневное меню на сайт школы - xlsx файл по шаблону. Только xlsx, требования к колонкам и данным - робот централизованно собирает эти выгрузки и анализирует, потом дают пиз...й. Моя роль: физически забрать этот файл (другой способ завстоловой не признает - религия), и так как завстоловой может понатыкать в первые попавшиеся столбцы данные, да еще и сократить их, мне приходится каждый раз перелопачивать этот файл и затем по фтп закачать на сайт. Надоело. Реально. Поэтому и мучаю 1с.
Что хочу: меню завстоловой заполняет сама, далее система формирует печатную форму и сохраняет ее в xlsx, затем по фтп кидает по нужному пути. И меня никто не тревожит, и данные по нужным столбцам и ячейкам и без сокращений (ой как любит наша ставить в цене р. или руб, еще и копеек добавит - сразу ошибка).

&НаКлиенте
Процедура ТабличнаяЧасть1РецептПриИзменении(Элемент)
ТекДанные = Элементы.ТабличнаяЧасть1.ТекущиеДанные;
//сообщить("ТекДанные");
ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Рецепт,"Блюдо");
ТекДанные.Выход = ЗначениеРеквизита(ТекДанные.Рецепт,"Выход");
ТекДанные.Цена = ЗначениеРеквизита(ТекДанные.Рецепт,"Цена");
ТекДанные.Калорийность = ЗначениеРеквизита(ТекДанные.Рецепт,"Калорийность");
ТекДанные.Белки = ЗначениеРеквизита(ТекДанные.Рецепт,"Белки");
ТекДанные.Жиры = ЗначениеРеквизита(ТекДанные.Рецепт,"Жиры");
ТекДанные.Углеводы = ЗначениеРеквизита(ТекДанные.Рецепт,"Углеводы");

//ТекДанные.НазваниеБлюда = ЗначениеРеквизита(ТекДанные.Блюдо,"НазваниеБлюда");

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

Еще вопрос, от тугодума.
В ТЧ документа в поле Рецепт выбираю Все и появляется окно справочника, но видно только наименование. Туда бы еще реквизит Блюдо воткнуть - счастье не было бы предела:
https://ibb.co/nnCTkBB

Хота в форме списка справочника этот реквизит в наличии:
https://ibb.co/FKTqj1c

сенк

(56) Прочитайте про ЗаполнитьЗначениеСвойств()

(55) - благодарю за добрые слова)
да, приучить-уговорить юзверей порой дело морально непростое.. пока они за косяки не отвечают, кто-то забивает и продолжает недоуменно делать как ему удобно, как привык.. к счастью, не все такие встречаются.
(57) добавьте в справочник форму выбора (выделяете Формы, жмете на плюсик, выбираете желаемую, далее расставляете галочки, какие реквизиты хотите вывести на форму)
(58) +

(59) Ок, форма выбора тоже взлетела. Я не так безнадежен.

Благодарю.
А слова выше были искренние.

(60) - рада, что у вас получается) Обращайте внимание на тип данных - и в отладчике, и в синтакс-помощнике, выручает разобраться. Вы молодец, взялись за автоматизацию рутины, за новый язык. Все получится, освоите потихоньку. может, и где-то еще в жизни пригодится, если понравится.  Успехов вам и добра!

(61) Еще снаглею :)
Как реализовать на 8.3 аналог процедуры из 77 ВводНового для документа, мне для заполнения реквизита:

Процедура ВводНового()
    Организация = СокрЛП(Константа.Организация);
    
КонецПроцедуры

(62)- как один из вариантов, можно в обработчике события формы ПриСозданииНаСервере написать такое условие: Если Параметры.Ключ.Пустая() Тогда ...

(63) - нет лучше использовать событие формы ПриОткрытии

как-то это мне мутно...
а если документ создается не в форме документа, а где-то программно..? что будет в реквизите документа "Организация"..?

(65) -при программном создании, предполагаю, можно использовать Если Объект.Ссылка.Пустая() ...
либо
ДокументОбъект = РеквизитФормыВЗначение(«Объект»);
Если ДокументОбъект.ЭтоНовый() Тогда ...
это для УФ, а в обычном приложении было, вроде  ЭтоНовый() ...

(65) Ты вот не восьмерочник, а прав. Но ОбработкаЗаполнения работает только в интерактивном режиме. Программно создаешь - программно и  заполняй.
(64) в мурзилке прямо написано: "В обработчике события ПриОткрытии нужно делать только то, что на сервере сделать невозможно."

(67)- вы правы)
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    Если Параметры.Ключ.Пустая() Тогда

      Объект.Организация = СокрЛП(Константы.Организация.Получить());
...

(68) "Семён Семёёёныч!!!"©
СокрЛП() ссылку? зачем?

(69) - потому что в примере,сделанном на коленке, возвращаемое значение имеет тип Строка)

(67) а смысл в этом снеговике тогда?
я и в клюшках могу в форме документа написать одно, а в программном создании - другое.
а хочется же КРАСОТЫ! в каком нить "менеджере справочника" (хз как это правильно) чтобы отрабатывал код создания нового элемента ОБЩИЙ для любого вариант/метода создания нового элемента. а уже в форме можно ДОБАВИТЬ или ЗАМЕСТИТЬ "сверху" своей частностью для формы или своей частностью для программного создания.
.
я как-то так думал что в снеговике устроено...