Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−117
ПриФлагЖилое0(запросАДО,КодЧастиДома,ПредыдущийКонтрагент,обУК,предыдущаяУК,ДокДата,
квплулицы,квплуслуги,квплБлагоустр,ФлагПрервать,ДокНачНФ,ДокПостПД,ДокСтроение,
ИтогоКОплатеЗаМесяц,Оплаты,ПредыдущийКод,ДокНачНас,ДокПостОтНас,ВремТЧ_ДокНачНас_Услуги,
ВремТЧ_ДокПостОтНас_Услуги,счетСтроений,счетДокНачНас,счетДокПостОтНас,СтроениеКолвоЛицевыхНФ,
СтроениеКолвоЛицевых,СтроениеКолвоПроживающих,техПаспСтроениеОбщаяПлощадь);Всего 27 параметров. Форматирование от автора.
croacker,
15 Марта 2013
−117
Функция КоличествоМесяцев(Дата1, Дата2)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| РАЗНОСТЬДАТ(&Дата1, &Дата2, МЕСЯЦ) + 1 КАК Результат";
Запрос.УстановитьПараметр("Дата1", Дата1);
Запрос.УстановитьПараметр("Дата2", Дата2);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() тогда
Возврат Выборка.Результат
КонецЕсли;
КонецФункции
Хотя, по-моему, неоригинально, уже было.
Может начнем ходить на сервер, чтобы два числа сложить?
mrbus,
14 Марта 2013
−121
Если Организация = Справочники.Организации.НайтиПоКоду("650532") Тогда
Сумма2011 = 14271648;
ИначеЕсли Организация = Справочники.Организации.НайтиПоКоду("325316") Тогда
Сумма2011 = 1195741.30;
ИначеЕсли Организация = Справочники.Организации.НайтиПоКоду("670054") Тогда
Сумма2011 = 7782829;
ИначеЕсли Организация = Справочники.Организации.НайтиПоКоду("650533") Тогда
Сумма2011 = 72882366.11;
Чем-то напоминает int rand() { return 4; };
Тут не расстреливать, а живьем закапывать надо!
mrbus,
14 Марта 2013
−122
Если ВыгружатьВзаиморасчеты тогда
Если ВыгружатьВзаиморасчеты() тогда
УспешноВзаиморасчетыВыгружено=ВыгрузитьВзаиморасчетыНаСайт(СтруктураПараметровСайта);
КонецЕсли;
КонецЕсли;Херово, когда имен не хватает =(
kovyl2404,
05 Марта 2013
−160
Процедура ЗАЕБАШИТЬЧТОБВСЕРАБОТАЛО ()
СООБЩИТЬ("Так не бывает!");
КонецПроцедурыИз реального проекта крупного торгового дома.
infolex,
27 Февраля 2013
−117
Функция НайтиТовар(Наименование)
Запрос = Новый Запрос("ВЫБРАТЬ Ссылка, Наименование ИЗ Справочник.Номенклатура ГДЕ НЕ ПометкаУдаления");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если СокрЛП(ВРег(Выборка.Наименование))=ВРег(Наименование) Тогда
Возврат Выборка.Ссылка;
КонецЕсли;
КонецЦикла;
КонецФункциии все это вызывается в цикле
BlackMamba,
25 Февраля 2013
−116
СтрокаСуммаСРазделителями = Строка(ТекСсылка.СуммаДокумента);
СтрокаСуммаБезРазделителей = СтрЗаменить(СтрокаСуммаСРазделителями, СимволРазделительСуммы, "");Видать, использование "Формат" запрещено внутренней политикой =(
kovyl2404,
08 Февраля 2013
−104
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ВЫБОР Когда Ном.Ссылка.ЭтоГруппа=Истина Тогда 1 Иначе 0 Конец как этоГруппа,
| 1 как Уровень,
| ВЫБОР Когда Ном.Ссылка.Родитель.Код=""00002"" Тогда """" Иначе Ном.Ссылка.Родитель.Код Конец как кодРодителя,
| Ном.Ссылка.Код как Код,
| Ном.Ссылка.Наименование как Наименование,
| Ном.Ссылка как Элемент
|ИЗ справочник.Номенклатура как Ном";
РЗ = Запрос.Выполнить();
ТЗ = РЗ.Выгрузить();
Сообщить("1. Подготовка таблицы ...");
КК=0;
КМАКС=ТЗ.Количество();
Индикатор1 = ЭлементыФормы.Индикатор;
Индикатор1.МаксимальноеЗначение = ТЗ.Количество();
Индикатор1.Значение = 0;
Для Каждого ТекСтрока ИЗ ТЗ Цикл
Индикатор1.Значение = Индикатор1.Значение + 1;
ОбработкаПрерыванияПользователя();
КК = КК + 1;
Состояние(Формат(КК/КМАКС*100, "ЧЦ=8; ЧДЦ=2"),Цел(КК/КМАКС*100));
ТекСтрока.Уровень = ТекСтрока.Элемент.Уровень()-1;
КонецЦикла;
ТЗ.Сортировать("этоГруппа убыв,Уровень возр,Наименование возр");Вот такой вот способ получения номенклатуры вместе с иерархией
glavdir,
06 Февраля 2013
−121
//Рарус Обработка МодульОбменаДанными СоставКонтуровОбмена()
КешСоставКонтуровОбмена = Новый Соответствие;
КешОбъектовКонтуровОбмена = Новый Соответствие; // м.б. будем использовать для ограничения типов поля "Документ" в запросе по регистру ТаблицаРегистрацииДокументов
Попытка
//Вот здесь в программу загружается список контуров обмена, представляющии из себя политики для документов
Шаблон = ПолучитьМакет("СоставКонтуровОбмена"+Метаданные.Имя);
ВерсияВШаблоне = СокрЛП(Шаблон.Область(1, 2).Текст);
......
КешСоставКонтуровОбмена.Вставить(Тип(ТипСтр+"Ссылка."+ИмяСтр), ПеречислениеСсылка);
Просто засунули все в макет, раздел макета это тип политик для набора Документов. Это не такой плохой способ, притом что очень хорошо видно в конфигураторе как и куда петкать политики обработки файлов. Но по всем параметрам говнокод.
http://i54.fastpic.ru/big/2013/0130/34/730bb0d4a34dbccb43c3cb5cd46fea34.jpg
crastinus,
30 Января 2013
−119
Торм. колодки передние[?(Докум.ТКП_Процент>0,",ост.толщина","")] [?(Докум.ТКП_Процент>0,Докум.ТКП_Процент,"")][?(Докум.ТКП_Процент>0,"мм","")]
это содержимое одной ячейки таблицы с видом вывода "Шаблон", мало того что автор вынуждает 3 раза обращаться к полю Докум.ТКП_Процент, так ещё и о конкатенации строк видимо ничего не слышал, упрощается до:
Торм. колодки передние [?(Докум.ТКП_Процент>0,",ост.толщина "+Докум.ТКП_Процент+" мм","")]
VladC,
04 Января 2013
Follow us!