Ну собссно у кого встречались какие веселящие строчки в коде, просьба выкладывать.
Вот одна из)
   Спр.ВыбратьЭлементы(0);
   Найден=0;
   Пока Спр.ПолучитьЭлемент()=1 Цикл
       Если Спр.ЭтоГруппа()=0 Тогда
           Продолжить;
       КонецЕсли;
       
       Если СокрЛП(Спр.Код)=СокрЛП(ТекЭл.Код) Тогда
           Возврат Спр.ТекущийЭлемент();            
       КонецЕсли;
   КонецЦикла;

Найден=0;  это здесь нухуэ?

Недавно выкладывал в своей ветке.

Функция ПредыдущаяДата(ИсходнаяДата)
   
   ИсхДата_Число = ДатаЧисло(ИсходнаяДата);
   ИсхДата_Месяц = ДатаМесяц(ИсходнаяДата);
   ИсхДата_Год =    ДатаГод(ИсходнаяДата);
   
   Если ИсхДата_Число = 1 Тогда
       Если ИсхДата_Месяц = 1 Тогда
           Результат = Дата(ИсхДата_Год-1, 12, 31);
       Иначе
           Результат = КонМесяца(Дата(ИсхДата_Год, ИсхДата_Месяц-1, ИсхДата_Число));
       КонецЕсли            
   Иначе    
       Результат = Дата(ИсхДата_Год, ИсхДата_Месяц, ИсхДата_Число-1);
   КонецЕсли;    
   
   Возврат Результат;    
   
КонецФункции

нада.., это быдлокодинг)

(3)->(1)

эээ почто нарушаете авторские права, я не довал разрешения публиковать свой мега код !!!!!

кидайте сюда http://govnokod.ru/1c и не парьте моск

(5) Извеняй, это уже мегакод, того кто обслуживает)

Организация = Справочники.Организации.НайтиПоНаименованию(ЭлементыФормы.Организация);

(6) Непарься - проходи мимо)

(0) Ну а чо делать, если надо найти по неуникальному коду, но чтобы это была не группа? ;) Клюшечники запросы не жалуют ;)

(10) *это была группа*

(10) Там и запросы запросами то не назовешь)

(8) Батенька да вы не из наших!
Организация = Справочники.Организации.НайтиПоНаименованию(Строка(ЭлементыФормы.Организация.Ссылка));

(13) Мдя))

(10) +2.4 Согласен.
(0) определять быдлокодинг надо по поставленной задаче. тут задача не ясна. в (10) найдено применение тому коду.

(13) да, плохо запоминаю быдло код. ;)
А когда в базе RLS настроены, эта комбинация не срабатывала из-за нехватки прав. Весело было ;)

(15) А если код не уникален, то с одним и тем же кодом может быть несколько групп..., поэтому смысла нет искать по коду)

(16) И тут то ты познал все прелести RLS))
Навер у каждого с этого все начиналось)

напишите лучше, вам же никто не мешает.

(18) это у меня была неосторожность взять чью-то базу, поправить и выдать клиенту обратно. А потом имеющийся там @$код начал всплывать, на что клиент недоумевал, мол вы же последний с базой работали. ;)

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

Запрос1 = Новый Запрос;
Запрос1.Текст = "ВЫБРАТЬ
| Номенклатура.ЕдиницаИзмерения
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка = &ном";


Запрос1.УстановитьПараметр("Ном", ЭлементыФормы.Товары.ТекущаяСтрока.Номенклатура);



Результат1 = Запрос1.Выполнить();
Выборка1 = Результат1.Выбрать();

Пока Выборка1.Следующий() Цикл
 ед = выборка1.единицаизмерения;
КонецЦикла;  

ЭлементыФормы.Товары.ТекущаяСтрока.ЕдИзм= ед;

(19) Ну конечно же уже написано

(22) ужас.. Только что придумал?))

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

(22) Ну а как ты предлагаешь получить ссылку на ЕдиницаИзмерения? Через точку? А ты в курсе, что это приведет к чтению всего объекта номенклатуры? А запрос зар в 5-10 быстрее работает.

(13)тру пацаны так вот пишут

               О = Справочники.Организации.ПолучитьСсылку(Организация.УникальныйИдентификатор());

(21) 1. В том и дело, ищем то уникальный по реквизиту, который однозначно определяет элемент справочника, но если этот код не уникален, то смысл по нему искать
2. как вариант можно найти по коду и если это элемент, а не группа взять родителя

Если стрРез.ПакетЛьгот = Справочники.ЭХ_ПакетыЛьгот.ПустаяСсылка() Тогда
               Если стрРез.Номенклатура.Наименование  = "Отопление" Тогда
                   Номер = 1;
               ИначеЕсли стрРез.Номенклатура.Наименование  = "Тепло на ГВС" Тогда
                   Номер = 2;
               ИначеЕсли стрРез.Номенклатура.Наименование  = "ГВС через бойлер" Или стрРез.Номенклатура.Наименование  = "ГВС" Тогда
                   Номер = 3;
               ИначеЕсли стрРез.Номенклатура.Наименование  = "Вода на ГВС" Тогда
                   Номер = 4;

(25), (26) а может не в запросе дело? как минимум все, что после запроса можно в 1 строку

(30)+ часто бывает нужно получить значение реквизита на котором РЛС

(29) И до скольки продолжается?)

(30) Ага, можно, только строчка длинная получится, и с точкой с запятой и условием. Нечитабельно будет.

http://govnokod.ru/11891



ВЫБОР
   КОГДА ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности ЕСТЬ NULL
           ИЛИ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности < ДАТАВРЕМЯ(2000, 1, 1)

      ТОГДА ПродажиОбороты.Регистратор.Товары.Ссылка.Дата МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
  ИНАЧЕ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
КОНЕЦ

Проперло от камента:

guest 09.10.2012 00:08 # +14
выбор
   когда ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности.Истёк тогда
       ПЕРЕКЛЕИТЬ БЫСТРО ВСЕ ЭТИКЕТКИ ИСПРАВИТЬ ЦЕННИКИ ПРОДАТЬ ПОДЕШЕВЛЕ БЫДЛО НАБЕГАЕТ
       РАСХВАТАЛИ ТУХЛЯТИНУ ЖРУТ ДАВЯТСЯ С МАЯНЕЗИКОМ ОББЛЕВАЛИ ПРИЛАВКИ ТУАЛЕТ ЗАНЯТ
       НАСРАЛИ В ХОЛОДИЛЬНИК ДАВКА ПАНИКА ВЕЗДЕ ГОВНО КОНСЕРВЫ ВЗРЫВЫ ЯЙЦА ТУХЛЫЕ МУХИ КРЫСЫ
       ЭПИДЕМИЯ ХОЛЕРА СПИД ЧЕСОТКА ПОНОС ПОЛГОРОДА К ХUЯМ ВЫКОСИЛО;
конец

в порыве страсти и не такое можно написать...

(34) не смешно нисколько

(32) а все их 4, и если захочешь добавить новый вид расчета то добро пожаловать в код.... :)))

(29) знакомый код. это семерка, там еще регистр(очновной) с оооочень большим  количеством измерений?

(10) если только для того, чтобы отсечь группу    Спр.НайтиПоКоду(СокрЛП(ТекЭл.ПолныйКод()),2);
не?

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

(38) Где ты там семерку увидел, тут что ли ?

Справочники.ЭХ_ПакетыЛьгот.ПустаяСсылка()

(30) Нечитабельно выйдет.
А в типовых вообще функция есть, которая (22)  делает универсально. Отличная вещь.