Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
//Николай
//проверяем артикул и если его нет, то генерируем
Если ПустаяСтрока(Артикул) Тогда
Запрос = Новый Запрос("ВЫБРАТЬ
| МАКСИМУМ(Номенклатура.Артикул) КАК ТекАртикул
|ИЗ
| Справочник.Номенклатура КАК Номенклатура");
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
ТекКод = ?(Выборка.ТекАртикул = NULL, 1, Мин(ОбщегоНазначения.ПривестиСтрокуКЧислу(Выборка.ТекАртикул) + 8000, 9999999));
ТекАртикул = Формат(ТекКод, "ЧЦ=7; ЧВН=; ЧГ=");
//проверяем дальше
Выход=0;
Пока Выход=0 Цикл
Запрос = Новый Запрос("ВЫБРАТЬ
| Номенклатура.Артикул КАК ТекАртикул
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Артикул = &Артикул");
Запрос.УстановитьПараметр("Артикул", ТекАртикул);
Выборка = Запрос.Выполнить().Выбрать();
Нашли = Выборка.Следующий();
Если Нашли Тогда
ТекАртикул=Мин(ОбщегоНазначения.ПривестиСтрокуКЧислу(ТекАртикул) + 1, 9999999);
ТекАртикул = Формат(ТекАртикул, "ЧЦ=7; ЧВН=; ЧГ=");
Иначе
Выход=1;
КонецЕсли
КонецЦикла;
Артикул=ТекАртикул;
КонецЕсли;
//Николай
Задача: сформировать артикул (число) из 7и знаков по формуле "максимальный артикул + 1". при этом тип реквизита - строка(7). В базе встречаются значения "945784 ", "98763443".
Запрос = Новый Запрос("
|ВЫБРАТЬ
| ВЫБОР &Сына.ПришёлИзШколы
| КОГДА РАНО
| Тогда ""Прогуливает""
| КОГДА ВОВРЕМЯ
| Тогда ""Отличник""
| КОГДА ПОЗДНО
| Тогда ""Он что-то задумал!""
| КОГДА ОЧЕНЬ_ПОЗДНО_И_С_ФИНГАЛОМ
| Тогда ""Блин...""
| КОГДА РАНО_УТРОМ_И_ЗАВТРА_И_С_БАБОЙ
| Тогда ""O_o, да я в твои годы!!!""
| ИНАЧЕ
| КОНЕЦ КАК РезультатВыбора");
Запрос.ЗафиксироватьПараметр("Сына.ПришёлИзШколы", Сына.ПришёлИзШколы.Время);
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Мысли = Подумать(Выборка.РезультатВыбора);
Если Мысли.Бурлят = Истина Тогда
Мысли = Мысли.Разбавить("Коньяк", "Вино", "Покурить", "Подышать");
Конец Если;
ЧтоДелать = Вывод(Мысли + "Кому на Руси жить хорошо");
Самый ненавистный мне вид говнокода - оформлен хорошо, с виду всё грамотно, даже работает! Он же даже откомментирован! Отлично замаскирован и хрен определишь, что это говнокод.
Остается только удивляться, почему бухгалтерия всё время бегает к айтишникам с жалобами на тормоза. И с чего бы им жаловаться на такой замечательный код? Уж не потому ли, что при определенной комбинации номеров, процедура будет в цикле перебирать все номера базы? Нет! Конечно же нет!
...Ну почему нельзя было написать что-то вроде:
#Если Николай
//При условии, что длина поля - 10.
Артикул=ОбщегоНазначения.ПривестиСтрокуКЧислу(Запрос.Новый("select coalesce(max(left('0000000000',10-LEN(code))+n),0) result
from goods").Выполнить().Выбрать().Выгрузить()[0].result)+1
#КонецЕсли
...
КонецНиколай
и нервный припадок
//сиди дома, не гуляй
скажите, они SQL тоже на русский перевели?
...
<неколай>
<ЯРГТ>
<голова>
<надмозг> </надмозг>
</голова>
<тело>
</тело>
<!-- <тэги вырезаны цензурой> -->
</ЯРГТ>
Остается только удивляться, почему бухгалтерия всё время бегает к айтишникам с жалобами на тормоза. И с чего бы им жаловаться на такой замечательный код? Уж не потому ли, что при определенной комбинации номеров, процедура будет в цикле перебирать все номера базы? Нет! Конечно же нет!
...Ну почему нельзя было написать что-то вроде: