Выкладываем на всеобщее осуждение куски самого отвратительного кода 1С.

Вынужден сейчас ковыряться в конфе, в которой запрос в цикле - это образец порядочности по сравнению с остальным.
Бьюсь головой об стол ежечасно ...

Пример 1.
УчитыватьМинСумму = Не Объект.ПолучитьФорму().ЭлементыФормы.БезУчетаМинимальныхСуммПоставщиков.Значение;

Пример 2.
В таб.части документа - реквизит "ПрайсЛисты" - тип ХранилищеЗначений, хранит ТаблицуЗначений
(что само по себе - прекрасно, учитывая, что документов таких тут много):

Если ТабНайдено.ПрайсЛисты.Получить() <> Неопределено Тогда
ПрайсЛисты2 = ТабНайдено.ПрайсЛисты.Получить();
Если Не ЗначениеЗаполнено(ТаблицаМинимальныеПрайсыПоставщиков) Тогда
ТаблицаМинимальныеПрайсыПоставщиков = ТабНайдено.ПрайсЛисты.Получить().СкопироватьКолонки();

ptiz Вынужден сейчас ковыряться в конфе

самописка? типовая?

Переписанная вусмерть Розница.

Если "" + глПользователь = "Мария Ивановна" Тогда
Для х = 1 По 1000 Цикл
Для у = 1 По 1000 Цикл
Для й = 1 По 1000 Цикл
Подарок = СоздатьОбъект("ТаблицаЗначений");
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЕсли;

(3) Программа долго думает, значит - работает!

ptiz (3) Программа долго думает, значит - работает!

Одной финдирше-блондинке сделал отчёт, где три "галочные" колонки назвались "х", "у" и "й".
Думаешь заметила?

ptiz УчитыватьМинСумму = Не Объект.ПолучитьФорму().ЭлементыФормы.БезУчетаМинимальныхСуммПоставщиков.Значение;

Сильно.

нахуа?

malina нахуа?

Свои 22 показать

(6) зато работает!

(7) Накипело. Тут вся конфигурация так написана.

я с ЗУПа блевал. вот где говнокод-то...

(11) там запросы чарующие

да, и кроме них есть на что подрочитьблевать

Работает - не трожь!

(15) а если сильно допиленную ЗУП обновлять?

попозжа я свой говнокод запосщу

bvn13 (15) а если сильно допиленную ЗУП обновлять?

Тут без коньяка не обойтись

чёто я не встречал в природе сильно допиленных ЗУП
имхо, там особо пилить нечего

(20) у нас была. УПП, перепиленная вхлам. соответственно ЗУПную часть обновлять вообще было невозможно автоматически.

(21) а что пилили касательно ЗУПа? просто интересно, какой функционал был нужен и при этом типовой функционал его не предоставлял

Попадалась как то моему другу конфа самописная для ювелирки. Он мне куски кода оттуда кидал. Вот где жесть на жести была и жестью погоняла. )

(3) от, это вестчь.
Надо заюзать будет...
Сенкс...

Эльниньо Одной финдирше-блондинке сделал отчёт, где три "галочные" колонки назвались "х", "у" и "й".
Думаешь заметила?

вельми профессионально, надо заметить.

(24) 100^100^100 - это не весч, это 3,14.

(27) 3,14 это f64(4)

Славян Хотя если для х=1 по 1000000000000 цикел,
Не хуже будет...

Ну и где здесь завуалированное ПНХ?
Примитивно же.

Вот Вам пример говнокода:

Если ГраницаПоОрганизации <> Неопределено 
					 И Запись.Период <= ГраницаПоОрганизации 
					 И НЕ (СтруктураПараметров.РазрешитьЗаписьДо01042011 И ГраницаПоОрганизации = '20110331235959') Тогда
					Отказ = Истина;
					Возврат;
				КонецЕсли;

наткнулся года 4 назад. Долго думал. Это 7ка, правда.

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

(31) Кто-то большие велосипеды изобретает, кто-то - маленькие.

вы свой код то видели? )

Еврейчик вы свой код то видели? )

Глаза бы мои на него не смотрели

Еврейчик вы свой код то видели? )

Мы твой не видели

Барматолог Мы твой не видели

да ладно ) не обижайтесь! я же пошутил.

Типовая обработка ПоискИЗаменаЗначений

				Попытка
					Параметры.Объект.Записать();
				Исключение
					СообщитьОбОшибкеПриЗаписи(ИнформацияОбОшибке());
					БылиИсключения = Истина;
					Если ВыполнятьВТранзакции Тогда
						Перейти ~ОТКАТ;
					КонецЕсли;
				КонецПопытки;

(37) а что не нравится?

andrewks (37) а что не нравится?

за "перейти" еще в универе преподы бьют по рукам

Stim за "перейти" еще в универе

Ты же вояка? Разве не танковое заканчивал?

(39) в редких случаях может быть оправданно.
хотя я и сам не сторонник

Bumer Ты же вояка? Разве не танковое заканчивал?

нет)
я - пиджак. отслужил 2 года лейтенантом по военной кафедре от гражданского универа

Пару раз перейти использовал для выхода из двойного цикла. Можно было конечно без него код как то реализовать, но у меня времени не было, а потом стало жалко нервных клеточек - работает и [...].

Вот, случайно в конфе наткнулся. Чего пытался достичь автор шедевра?

	ЧислоДокумента                          = Формат(Дата,"ДФ='дд';Л=uk_UA");
	ДатаДокумента                           = Формат(Дата,"ДФ='дд ММММ ггггр.';Л=uk_UA");
	ДатаДокументаБезЧисла                   = Прав(ДатаДокумента, СтрДлина(ДатаДокумента) - 2);
	ОбластьПодпись.Параметры.ДатаДокумента 	= ЧислоДокумента + ДатаДокументаБезЧисла;

(44) чтоб пробела не было между числом и месяцем? А хотя не. Былоб -3.

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

(46) Какой смысл отвечать на апрельский пост?

(47) А какой смысл вообще на форуме что то писать в оффтоповской ветки?

(49) Тема-то продолжается. Вот я и дополнил ее.

(50) а чем я хуже? Ты можешь дополнить, а мне нельзя?

(51) Посмотри на дату поста, на который ответил. Да и Стима ты когда в последний раз видел?

претендую на первое место

(48) Ну ясен пень, одним форматом. Я просто пытаюсь определить ход мысли ваятеля.
В отраслевках много приколов. :)

К (54)

Запрос.УстановитьПараметр("Номенклатура", Товары.ВыгрузитьКолонку("Номенклатура"));
Запрос.УстановитьПараметр("Приход", Документы.ПоступлениеТоваровУслуг.ПустаяСсылка());

(56) Такой себе вечно пустой запрос. Я как-то точно так же тупанул. Спасибо, добрые люди мордой ткнули в условие ГДЕ.

(57) Не совсем :) Если бы он был пустым всегда то никто бы об этом не узнал.
То что должно выбираться этим запросом перебиирается в цикле. В этом цикле еще один запрос который тоже перебирается в цикле и уже внутри его еще один.

И недавно вдруг начали жаловаться, что попытка проведения ПТУ валит всю базу.

(59) Весь справочник Номенклатура?

(60) Да !
Во всех типовых в т.ч. и в нашей УТ делается проверка на заполненность реквизитов, но этот код вставили перед проверкой.

Lenka_Boo (48) Ну ясен пень, одним форматом. Я просто пытаюсь определить ход мысли ваятеля.
В отраслевках много приколов. :)

(44) упрощение. Так проще читать, чего автор хотел добиться. На мой взгляд, пример хорошего, годного кода

Манагерам надо было услуги ввести.
Тыркнули мышью в товары. Получилась пустая строка.
Потом методом копирования наплодили таких документов.

Grekos2 методом копирования

Я бы этот метод вообще выпилил из программы :)

(62) Если собираешься где-то использовать число и месяц-год по отдельности, это нормально раскидать по переменным.
Извини, но не понимаю зачем

ДатаДокумента                           = Формат(Дата,"ДФ='дд ММММ ггггр.';Л=uk_UA");
ДатаДокументаБезЧисла                   = Прав(ДатаДокумента, СтрДлина(ДатаДокумента) - 2);

Если нормально:

ДатаДокументаБезЧисла  = Формат(Дата,"ДФ='ММММ ггггр.';Л=uk_UA");

?

(66) Так потому он и попал в ЭТУ ветку :)

(66)я конечно не программист, но

Месяц(Дата)+Год(Дата)

?

(69) В этом случае ты получишь 2026 для сегодняшнего дня, но совсем не дату. И не строковое представление...

говнокодеры обсуждают чужой код...

(71) Естественно!!! Чтобы этого самого вещества изготавливать поменьше. Хотя бы в 1С.

(72) в нынешних типовых такой сложный и террабайтный код, что без препаратов из Области Тьмы его невозможно читать и курочить, имхо...а тут жалкий, простенький код обсуждается аля "Привет, Мир"...

(68) Это философу надо растолковать.

24*60*60

я так пишу всегда. Для некоторых это говнокод. Хули эти теги не работают хз

(75) Говнокод, потому что ты используешь процессорное время вместо константы.
86400 //Сутки в секундах

(76) а разве у 1С такой плохой компилятор что он не сможет распознать что это константа?

(78)Не имею ни малейшего понятия, хотя косвенно можно проверить.