Здравствуйте.

Процедура ПоОрганизацииПриИзменении(Элемент)
   ЗначениеПоля=ЭлементыФормы.ПоОрганизации.Значение;
   Ссылка=Справочники.СправочникДиректора;
   Если Ссылка <> Справочники.СправочникДиректора.ПустаяСсылка() Тогда
       Сообщить("Ссылка получена!");

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

Все ли правильно в этом коде?

что это ?

чеза бред??

странный какой-то код, наверное индийский

(0) хрень какаято .

Зато прекрасный образец для медитации.

(0) А что он должен делать?

Или может банчишко раскинем с догадками?

Показываю ещё раз: Если Ссылка.Пустая() Тогда...

(6) ???

Что то мне подсказывает, это должно выглядеть вроде того:

Процедура ПоОрганизацииПриИзменении(Элемент)

   ЭлементыФормы.Надпись4.Заголовок=Элемент.Значение.ТелефонСтационарный;
   
КонецПроцедуры

(7) ну на зачем городить вот это:
Если Ссылка <> Справочники.СправочникДиректора.ПустаяСсылка() Тогда

Ссылка=Справочники.СправочникДиректора;
   Если Ссылка <> Справочники.СправочникДиректора.ПустаяСсылка() Тогда

не расказывать что это условие всегда Истина?

Ребята, да вы уж не взыщите сильно и не судите, я то в процессе изучения, по видеоучебникам учусь. Пока только первую часть прошел, из четырех - там знакомство с 1с и справочники. Для закрепления пройденного материала реализую разные идеи, просты конечно.
В данном случае при вводе данных все из справочника выбирается, но после выбора не выводит вообще ничего либо выводит "0", а в поле выбора "ПоОрганизации" остается только "<>".

А вот код из учебника:
Процедура ЗаполнитьДополнительнымиДаннымиТекстовыеЗаголовки ()
   
   ЗначениеЭлементаНаименование=ЭлементыФормы.ПолеВвода1.Значение;
   //Переменная получила значение поля
   
   //Получение ссылки на справочник ФизЛица
   СсылкаНаСправочник=Справочники.ФизЛица;
   
   //Проверка ссылки на наличие данных
   Если СсылкаНаСправочник<>Справочники.ФизЛица.ПустаяСсылка() Тогда
       Сообщить("Ссылка получена!");
                   
       НаименованиеЭлемента=СсылкаНаСправочник.НайтиПоНаименованию(ЗначениеЭлементаНаименование,Истина);  
       
       ЭлементыФормы.Надпись1.Заголовок=НаименованиеЭлемента.ФИО;
       ЭлементыФормы.Надпись2.Заголовок=НаименованиеЭлемента.АдресПоПрописке;
       ЭлементыФормы.Надпись3.Заголовок=НаименованиеЭлемента.АдресФактический;
       ЭлементыФормы.Надпись4.Заголовок=НаименованиеЭлемента.ТелефонДомашний;
       ЭлементыФормы.Надпись5.Заголовок=НаименованиеЭлемента.ТелефонМобильный;
       Иначе Сообщить("Отсутствует!");
           
       КонецЕсли
   
   
   КонецПроцедуры

(12) что за учебник ?

выкладывай его - я тоже такой хочу

К нему коробок травы не прилагается вместе с диском?

Гыыы...
Я бы выложил, но заказывал по инету и он зарегистрирован на мое имя и адрес - извините не могу.
Вот ссылка на сайт производителя: http://dao-it.ru/

(12) Похоже там пропущен собственно поиск по наименованию...

Так по поводу проблемы, может кто подскажет как сделать правильно?

А какое поведение нужно?

СтрокаНаименования = "USD";
Валюты = Справочники.Валюты;
НайденнаяСсылка = Валюты.НайтиПоНаименованию(СтрокаНаименования);
Если НайденнаяСсылка = Валюты.ПустаяСсылка() Тогда
   Сообщить("Валюты """ + СтрокаНаименования + """ еще нет");
КонецЕсли;

Какой по ссылке термояд, сразу на первой странице. Этих учителей самих на курсы отправлять надо. Или лучше в армию, толку будет больше.

(21) в армию зачем ?

Вообще необходимо чтобы в сообщении выводились значения реквизитов Телефон стационарный и Телефон мобильный. Т. е. поиск осуществляется по реквизитам Организация, ФИО и/или Адрес.

А где еще можно материала по изучению взять, точнее от каких авторов?

(0)оценка 2. делай всегда запросом поиск и дорабатывать легче если поиск сложный

Искал долго, полгода назад нашел только их. Попадались учебники обычные, но видимо опечатки или плохое сканирование.

(24) книги котороые на сайте 1с, те только бери, за них 1с ручается

http://dao-it.ru/images/video_html4/rl5_0/rolik5_0.html

это называется быдло-код ?

(28) как увидел что даже табуляции в коде нет и всё сплошняком - выключил) глаза режет

это хрен из (28)

утверждает на 5 минуте, что в конструкции

НовДок = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();

НовДок - "объект документ менеджер"

что это такое ?

короче в (28) КнигаГ*вно/АвторМ*дак

(0) Можно примерно так переписать, но я предпочитаю запросы.

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

(32)    Поиск = Справочники.СправочникДиректора.НайтиПоРеквизиту("Организация", ПоОрганизации ,Истина);

надо срочно всем курсы клепать

В общем, мой совет, закрой тот сайт и больше не открывай...

(33) Заменить Поиск => Ссылка   в (32)

(35) опасно предопределённые слова использовать, лучше везде "Поиск" написать

(36) Прав, но тогда лучше как-то так: СсылкаНаДиректора

(3) Судя по названию сайта, скорее не индийский, а китайский: "Дао (кит. ?, буквально — путь) — одна из важнейших категорий китайской философии" :))))

+(38) И на фотке посередине явно китаец :)))