Я понимаю, что не пятница. В пятницу то вообще грех работать.
А в остальные дни - главное не перетрудиться :)

это я шутю.

не работал бы - подобных перлов не увидел:

...
    Исключение
        Предупреждение("Нет желания работать!!! Где программист?");
    КонецПопытки;


Предлагаю делиться перлами из кода 1С

на Perl пишешь ?

(1) а можно в коде 1С вставки на перле делать?

(2) разумеется

//позовем общую функцию ...

любая типовая

(4) Общая функция не найдена!

ОбработкаПроведения()

     ЭтотОбъект.Записать();

http://govnokod.ru/1c

http://govnokod.ru/13951

а что тут не так?

мож при первом проведении блокировки все дела, если всё таки не провёл, то записать, чтобы тётя Маша не рыдала о потере документа, который она 2 часа  набивала.

(8) все не так: документ записывается, даже если провелся (пусть и со второго раза)

(9)а если оба раза не провёлся?

а пардон я думал он записывается после 2-й неудачной попытки.

"Аксиома 2: Код любой нетривиальной программы можно сократить хотя бы на одну строку"
Следствие:  любой код - *овнокод.

(8) судя по всему, сайт писали *овнокодеры. при попытке добавить коммент -
Ошибка компиляции комментария:
Неверно введен проверочный код!
csrf verification error

(8) Исключение вызванное в любом месте транзакции откатит ее.

(10) зачем-то запись документа после проведения

(8) а в том ошибка, что если всё это в единой транзакции, то после первой неудачи, хотя вторая попытка и может сработать, но в целом транзакция откатится

убило

function IPP (var i: integer): integer;
begin
  Result := i;
  Inc(i);
end;

hui = IPP(hui)
операция поддёргивания

(13), (15) А где там видно что это транзакция ?

(17) нигде, но вдруг, но и в этом случае Марь Ивановна не потеряет данные, если программист не идиот

вобще то если там явная транзакция - может быть ошибка "в этой транзакции уже происходили ошибки"

(17) тише, телепаты 80 уровня в треде

Так Попытка вроде как и есть транзакция неявная.

(21) она же не откатывает изменения, только в исключение уходит

Знакомая девочка смайлики ставила в сообщениях и в коде

Попытка
записатьЭлемент1безошибок();
записатьЭлемент2СОшибкой();
исключение
КонецПопытки;

Элемент1 в базу с песней и танцами запишется и не откатится никуда

В каком-то древнем отчете по мотивации. Достался в наследство:).

Если мГруппыСклад.Получить(СтрокаДанных.Группа) <> Неопределено Тогда
                СтрокаДанных.ОтработаноМинут = СтрокаДанных.ОтработаноМинут - Обед - Перекуры; // люмпены
            Иначе
                СтрокаДанных.ОтработаноМинут = СтрокаДанных.ОтработаноМинут - 60; // планктон
            КонецЕсли;

находил в базе код типа "Если Документ.Код = ХХХХ Тогда".

(16) Это на Pascal?
Работать не будет. На третьем точно не будет.

(21) прямо в лужу!

(11) А как же результат Колмогорова, что сложность программы опреляется мин. длинной программы?

В конфигурации для учета арендаторов:

//
Если Арендатор.Задолженность > 0 Тогда
глНаморщить(Арендатор);
КонецЕсли;

(29)да, глНаморщитьПользователя, это ж любимое наше.. ;)