Время - практически час ночи ( Read more... )

Попросили немного подмутить алгоритм, изначально написанный мной лет эдак 5 назад еще на позапрошлой работе (судя по меткам в коде - февраль 2009).

Обнаружил забавный кусок:

Если Товар.Код = "000000081" Тогда // Булка Детская - не должна распариваться ( Read more... )

Если ИдРеквизита <> "ДатаДок" ИЛИ ИдРеквизита <> "ПометкаУдаления" ТогдаЭто ж надо до того облениться, оборзеть и забить на клюшки, что в конфе "Конвертация" даже не устроить синтакс-контроль тому коду, который генерирует Конвертация для обработки загрузки ( Read more... )

Если Распределение.Выбран() = 1 Тогда
Распр=СоздатьОбъект("Документ.РаспределениеПоДоговорам");
Распр.НайтиДокумент(Распределение.ТекущийДокумент());
Распр.ВыбратьСтроки();
Пока Распр.ПолучитьСтроку()=1 Цикл
ТабДогСумов.НоваяСтрока();
ТабДогСумов.Договор = Распр.Договор;
ТабДогСумов.Сумма = Распр.Распределено;
КонецЦикла;
КонецЕсли;
( Read more... )

гребанный псевдо Т-СКЛ бай 1С8

вот почему их гребанный парсер начинает вопить матом на конструкцию
IsNull(Таб.Поле, ЛОЖЬ) ИЛИ IsNull(Таб.Поле2, ЛОЖЬ) в селект-листе?
Причем, от подобных конструкций в WHERE ему окровенно ништяк.
Причем, ругается вообще маловразумительно.
Причем, лечится обрамлением этой конструкции в скобки (IsNull(Таб.Поле, ЛОЖЬ) ( Read more... )

( Дальше очень скучно про семерку. Вас предупредили. )

Toy_SQL и МОД, натянутые на одну базу - это бомба замедленного действия.

( дальше будет много и неинтересно )

Гениальнейшая по своей ебанутости конструкция:

Если докСрокМонтажа.ДатаДоставки <> ДатаДоставки Тогда
докСрокМонтажа.НайтиДокумент(_СрокМонтажа);
докСрокМонтажа.ДатаДоставки = ДатаДоставки;
ОбъектЗаписать(докСрокМонтажа, );
КонецЕсли;
В тяжелом случае это выполнялось в цикле, при том, что докСрокМонтажа = СоздатьОбъект("Документ.СрокМонтажа ( Read more... )

кусок "черного" запроса

|ТипКонтрагента = Регистр.ОплатаЗаявок.Контрагент.ТипКонтрагента;
|Функция Приход = Расход(Долг) Когда(ТипКонтрагента = ТипКонтрагентаПокупатели);
|Функция Приход2 = Расход(Долг);
|Функция ПриходВозвратОтПокупателя = Приход(Долг) Когда ((Док.Вид() <> ""Заявка"") и (ТипКонтрагента = ТипКонтрагентаПокупатели ( Read more... )

Пок=СоздатьОбъект("Справочник.Контрагенты");
Если Пок.НайтиЭлемент(Родитель)=1 Тогда
Пока 1=1 Цикл
Если (Пок.Родитель.ТекущийЭлемент()<>Пок.ТекущийЭлемент()) и
(ПустоеЗначение(Пок.Родитель.ТекущийЭлемент())=0) Тогда
Пок.НайтиЭлемент(Пок.Родитель);
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
...
КонецЕсли;Работы скопилось дофигища (1 ( Read more... )