- 1
- 2
- 3
Если Год (ТекДата) = 1 Тогда
ТекДата = ТекущаяДата ();
КонецЕсли;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−160
Если Год (ТекДата) = 1 Тогда
ТекДата = ТекущаяДата ();
КонецЕсли;
вот так надо проверять дату на заполненность!
−165
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
........
если ЭтотОбъект.Проведен тогда
Сообщить("Уже проведений, терміни не рухаємо");
иначе ЭтотОбъект.ПолучитьФорму().Открыть();
Сообщить("А тепер нажміть ОК");
КонецЕсли;
КонецПроцедуры // ОбработкаПроведения()
омг...
−164
Процедура глЗагрузитьЗаказы() Экспорт
ОткрытьФорму("Отчет",,"\\SQLDSTR\1C\ExtERT\InvoiceLoader.ert");
КонецПроцедуры
Встретил в самописке в клюшках. Если поменяется имя сервера или каталога - всё рухнет).
−165
Для каждого ПараметрыПозиции Из ПараметрыПечати.Позиции Цикл
...
ОбластьДанных.Параметры.Заполнить(ПараметрыПозиции);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Цена,
| ЦеныНоменклатурыСрезПоследних.Номенклатура
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
| И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";
Запрос.УстановитьПараметр("ТипЦен",Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000001"));
Запрос.УстановитьПараметр("Номенклатура",ПараметрыПозиции.Номенклатура);
Цена = Запрос.Выполнить().Выбрать();
Цена.Следующий();
Если Цена.Цена <> Неопределено Тогда
ОбластьДанных.Параметры.Цена = Цена.Цена;
Если ЗначениеЗаполнено(ПараметрыПозиции.КфМест) Тогда
ОбластьДанных.Параметры.ЦенаМеста = Цена.Цена * ПараметрыПозиции.КфМест;
КОнецЕсли;
СумИтог = СумИтог + Цена.Цена * ПараметрыПозиции.Количество;
ОбластьДанных.Параметры.Сумма = Цена.Цена * ПараметрыПозиции.Количество;
КонецЕсли;
ТабДокумент.Присоединить(ОбластьДанных);
КонецЦикла;
Прям классика жанра) Запрос в цикле, и условие к виртуальной таблице регистра сведений)
−127
Function Розница()
If Покупатель.Выбран() = 1 Then
If Покупатель.Вид() = "ПунктДоставки" Then
If Покупатель.Владелец.ТипЦенОтгрузки = Enum.ТипыОтпускныхЦен.Розничные Then
Return 1;
Else
Return 0;
EndIf;
Else
Return 0;
EndIf;
Else
Return 0;
EndIf;
EndFunction
Сегодня наткнулся на такой вот кусок кода
−130
Запрос.Текст = "
|...
| И УслугиОказанные.Проведен = &Истина
|...";
Запрос.УстановитьПараметр("Истина", Истина);
Вот как бывает когда людям платят за количество строк.
Коллега нашёл в отчёте из БГУ 1.0.
−125
Процедура ПриОткрытии()
Если ЭтоНовый() И НЕ РольДоступна("СуперАдмин") Тогда
ЭтаФорма.Закрыть();
Возврат;
КонецЕсли;
КонецПроцедуры
УТ 10.3. Такие перлы добавлены почти во все документы конфигурации
−123
ИначеЕсли Отправитель = "h*@**k.ua" Тогда
НовыйДокумент.Услуга = Справочники.Услуги.НайтиПоКоду("0000000029");
ИначеЕсли Отправитель = "*******@**k.ua" Тогда
НовыйДокумент.Услуга = Справочники.Услуги.НайтиПоКоду("0000000029");
НовыйДокумент.Ответственный = Справочники.Сотрудники.НайтиПоКоду("0000000063");
КонецЕсли;
−132
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() И Выборка.Количество() > 0 Тогда
Возврат Выборка.ПлощадьДома;
Иначе
Возврат 0;
КонецЕсли;
проверка пустая ли выборка по одному из принципов:
"больше лучше, чем меньше", "доверяй, но проверяй", "семь раз отмерь, один отрежь"
−126
Запрос = Новый Запрос("
|ВЫБРАТЬ ПЕРВЫЕ 1000
|.....");
ВыборкаДанных = Запрос.Выполнить().Выгрузить();
Код из правила выгрузки данных с произвольным запросом.
Ведущий программист: "Блин, почему каждый раз выгружается разное количество объектов? Это же мистика!!!"