Взял одну базу для обновлений. Блин не могу обновлять. Ржунимогу от наименований реквизитов. Вот такие вот: ГдеКот, ОбПривКорпМун, УКэмитента, МестоНах. Может быть и не особо смешно, но я угораю. У кого какие прикольные реквизиты встречались?

(0) Ага частенько так попадается, человек вроде решил нормальное осмысленное название реквизиту дать и его при написании вдруг приступ жадности или лени обуял и начинают сокращать..

Встречали комментарии от спецов известного франча:
точно не помню но текст приблизительно такой
"Дя я урод, это надо переписывать, но меня ломает поэтому подставим здесь такое-то значение"

Обработка "СделатьВсемСчастье". Дает всем юзерам полные права :)

(2) Ну а за этим по моему тупо свой непрофессионализм прячут, чем же ты думал когда еще только начинал писать

Видя тупые имена и идиотские каменты готовлюсь к худшему ибо передо мной код лузера...

в типовой ЗиК для Украины в камментах есть такое:
//ебал я это сейчас доделывать.
// как оно блядь работает непонятно.

а меня тихо ненавидят за каминовскую префиксацию

Документ  - СборПлана

Моё:

Т.НоваяКолонка("х", "Число",,,, 2);
Т.НоваяКолонка("у", "Число",,,, 2);
Т.НоваяКолонка("й", "Число",,,, 2);

(5) да вот я тоже уже готовлюсь к худшему, пипец просто, а не база

глВладелецСпискаУлиц
ПрогИдт
НетШтрафам
Процедура глДолгСУчетомПриговора
Функция РасчитатьПоСтрогому

(0) там плакать надо, ибо замучаешься разгребать такой говнокод. сейчас тоже работаю с базами которые пестрят подобными именами....

ну и комменты рулят: Конфа для кредитного кооператива

//свернём таблыцку
ТаблПл.Свернуть("ДатаПл","ДолженЗаплатить,ЗаплатилОсновного");



Если ТаблГрафик.ДатаВрем>=НаДату Тогда
           Прервать; //всё хорош, те времена ешо не наступили
КонецЕсли;


   // Определяем сумму штрафоф которая накопилась с момента последнего начисления+
   //штрафы к уплате (вдруг уже платил, залётчик ёбанный
   ШтрафыКНач = Макс(?(НачисленныеШтрафы>=0,ПроцентыШтрафа - НачисленныеШтрафы,0),0);
   ШтрафыКУпл = Макс(?(УплаченныеШтрафы>=0,ПроцентыШтрафа - УплаченныеШтрафы,0),0);


//пересчитаем штрафные дни в сумме по деревенски




Если Недоимка<0 Тогда
       //чёрт, взял а не отдаёт
       //добавим-ка ему по самое не балуй, сучёнок
       Табл.НоваяСтрока();
       Табл.ДатаС=ТаблПл.ДатаПл+1;  //со след. дня тикает
       //проверим, есть ли ешо дальше записи. Если есть, то всё просто, а нет - так ешо проще
       Если сч<ТаблПл.КоличествоСтрок() Тогда
                   Табл.ДатаПо=ТаблПл.ПолучитьЗначение(сч+1,"ДатаПл");
               Иначе
                   Табл.ДатаПо=НаДату;
               КонецЕсли;
               Табл.Сумма=Мин(-Недоимка,СуммаЕжемесячПоГрафику); //не больше ежемес. платежа
               Табл.ДнейСверх=Табл.ДатаПо-Табл.ДатаС+1; //+1, т.к. при про срочке в 1 день пишет 0 (к примеру)
           КонецЕсли;

ой сорри за маты, рано нажала отправить.
но хотя из песни стов не выкинешь)))...

Я сталкивался с конфой(сапописька-нетленка), где почти все имена реквизитов формировались путем произвольного набора букв, типа: "БЬРТ,ЧПоа,дыиорИ, 8м7мтрЮ" ну и т.п.  забавно было это ковырять...

(12) уже плачу: Перечисление ДаНет

Процедура, блокирующая кнопку печати:

ХренАНеПечать()

(16) вааще-то это классика...

(15) может типа защита такая, что бы усложнить. После написания конфы заменял на абракадабру нормальные названия....имхо так писать просто не возможно...

(18) раньше не сталкивался

(16) Видимо бывший прог семерочник

Самый-самый  злой  мой отчет:

Нах = ТЗнах.Найти(СтрЧек[0].Чек,"Чек");
Если Нах = Неопределено Тогда
НовСтр = ТЗнах.Добавить();

:-)

//б..ть с какого бодуна это написал?!
//это не должно работать!!
//но ведь работает
//и работает правильно уже год
//блин я чегото непонимаю в этой жизни - ладно работает не трожь.

мое - обнаружил этот коммент еще через год перед длиннющей процедурой.

(16) Фигня,  у меня тут вот какое есть еще ))))

Перем Да Экспорт;
Перем Нет Экспорт;


Руки-бы вырвать тому украинскому хлопцу кто нетленку писал которую я сейчас разбираю. В коде разобраться нереально, еще и мат на мате...

(24)
Перем Да Экспорт;
Перем Нет Экспорт;


Чем не нравится? По-моему неплохо. Раз инициализировал и дальше можно не писать Перечисление.ДаНет.Да, а просто писать Да

(24) что тебе не нравится в этих глобальных переменных?

что проще Если Условие=Да
или Если Условие=Перечислениею.ДаНет.Да

(25) :)

(24) конфигурацию не озвучишь? потому как мне кажется ты щас бочку на фирму 1С накатил. у нас в типовых такие куски как ты привёл. правда без комментов

(28) Кредитный кооператив 2.3 какой-то...

блин к тому-же у моего аффтара половина кнопок не работает похоже:

//у мя же есть колво просроченных дней, сопоставить это с датапографику минус дата начала штрафа или что-то в ентом роде

//ели есть поручители

Но среди всех этих перлов добило вот такое:

// так методически правильнее

)))))))))))

Раз уж тема про комментарии пошла.
Бывший начальник прокомментировал, улыбнуло

   //---А есть ли мальчик
   if emptyValue(Счет) = 1 then
       Предупреждение("СписаниеФакт не привязан к счету!");
       Return
   endif;
   //мальчик есть!
   inv = CreateObject("Документ.Счет");

(30) чья конфа? на самописку похоже. франчи серьёзные авторы конф такое не допускают

хотя не так давно в бюджетке встретил коммент
"//фик его знает почему, но иногда заходит в эту ветку условие - посылаем юзера в сад"

(30) изначально был ПРИБОРСЕРВИС, а тут видимо еще кто-то шаловливыми ручками прошелся...

ой (33) к (32)

(31) меня всегда умиляли люди, пишущие на 1с по английски...

(34) никогда не слышал о такой конфе. но это не значит что её нет ;)

(35) я полгода первые писала, не могла привыкнуть, но так коряво выглядело что пришлось переучиваться...

(0) в зике коментарии тоже встречаются прикольные:

//если запросичек не отработал, то сотрудничек не выбран

(35)чем?

(0) Отчет по расчетам с комиссионерами. Название переменной: "ДенегПроср" :)
Кто о чем подумал?

мое:

// наверно это самый ужасный код, который я когда-либо писал

и дальше

// ошибается тот, кто думает, что я не знаю про локальные переменные в 1С.
// вся эта обработка написана под сильным влиянием статей о функциональном программировании,
// и, в некоторой степени, выражает тоску автора о невозможности полноценной реализации
// такового в 1С    
//                        Asmody

(39)
  *переключаем раскладку*
  //---А есть ли мальчик
  if emptyValue(*переключаем раскладку*Счет*переключаем раскладку*) = 1 then
      Предупреждение("*переключаем раскладку*СписаниеФакт не привязан к счету!*переключаем раскладку*");
      Return
  endif;
  //мальчик есть!
  inv = CreateObject("*переключаем раскладку*Документ.Счет*переключаем раскладку*");

(42) и еще 2 раза переключаем раскладку... в общем, суровые люди...

(42)Жестоко!
Но бывший начальник везде на смеси нижегородского с французским писал

(42) а про Punto Switcher слышал ? 5 минут настройки и все прекрасно работает ))))
Я даже не знаю какими кнопками у меня раскладки переключаются)))
Кстати пошла смотреть... Интересно стало...

(+45)У меня даже дома где-то отдельно сохранена эта настройка под 1с, со словарем и автозаменой )))

(45,46) и ведь не лениво же было...

Моя обработка ВолшебникПроизводства ver 1.60.1

(47) первый раз на фикси перешла, после 2,5 лет во франче, делать целыми днями нефиг было, сама себе задачки придумывала )))))))

Моё:

Т.НоваяКолонка("Что");
Т.НоваяКолонка("Где");
Т.НоваяКолонка("Когда", "Дата",,,, 8);

Неужели есть прогеры (которые пишут не только на 1С, там где по-русски нельзя), использующие Пунто ?

(51) Ну я писала например на Delphi и 1с одновременно...

(53) Пуето не мешал в дельфи сидеть?

Собирал в свое время коллекцию "замечательных" комментариев. Безусловный шедевр был: //Ну вот не знаю почему я именно так сделал

и почему, интересно, на http://govnokod.ru/ нет раздела по 1С

(53) Кстати, он волшебным образом выключается и запускается только по нажатию "Break"

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

(23)а такое я часто пишу перед процедурами, которые с первого взгляда написаны не правильно. и после пол дня понимаешь, что по другому работать не будет.

Не мое

Предупреждение("Данный отчет вам не доступен, обратитесь к властелину отчетов").

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

(42)набивая текст на английском у меня переключать расскладку получается горозда меньше, чем делая тоже самое на русском...

то что парень весь синтаксис незнает ... как говориться его проблема...


и что такое отношение только из-за количества щелчков по ctrl-shift

Ошибочно: МестоХерения :-)

(55)+ признавайтесь, сволочи, кто это сделал: http://govnokod.ru/214 :)

а вообще ветка замечательная ... глядя на нее понимаешь - как мало нам для счастья нужно

(62) йа...)))

(60) ага... не лениво, это называется... я переключаюсь, только чтобы больше или меньше набрать... причем только 3 шаблона решили и эту проблему - БЮ ББ и ЮЮ...

Недавно нашел свои собственные переменные, порадовало:

Перем Номудкач, Печколуп;

(65)тебе везет ... а у меня 95% отчетов в офис выводиться... ворд активно юзается... да и так много чего

(67)А с OpenOffice работаете?

(67) основные функции запиханы в глобальник, так что это выглядит как глОфисОткрытьФайлЭксель(ИмяФайла); глОфисЗаменить(Что, НаЧто) и тд...

(68)неа...

(69)а не основные ... или вы по принципу гения создаете процедур и функции только для вызова процедуры и функции? ... и сколько у вас функций в глобальнике?

Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.. © БАШ

(70) для работы с офисом - меньше 10... ну да особого изврата не делаем...

в блоке реализации ответственного хранения частый завсегдатай в именах переменных и реквизитов - постфикс "...НаХр"

Ну, у нас находился СрокПросраченности и глПреведение ...

(72)а парсить большие текстовые файлы не приходилось? ... или опять навсякий пожарные все заранее в глобальник затолкали?

"КлиентНах", "ДоговорНах" и т.п.
по смыслу ~ "Филиал в г.Находка", "Договор с филиалом в г.Находка".

а сравнивать производительность ипорта/экспорта данных из екселя через вызов функций не пробовали?

(75) договоры из темплейтов вордовских только...

(77) пофигу... тем более, что своими фнкциями сделана универсальность - один и тот же код на опенофис и на эксель (где он есть - в бухии на 3 компах)

(78)я не об этом... например распрасирить лог какой-нить...

зы: когда я вывожу в вордовские шаблоны вообще ни одного слова по русский... ну за исключением комментов, которые как правило расставляю(если расставляю) уже перед запуском в реальную эксплуатацию

(79)понятно... ну ладно ... умиляйтесь дальше

(81), (79) да чё вы спорите, "кто как хочет, тот так др.." кодит (:

(76) и еще сотня-другая переменных для остальных филиалов :)

...
// Если вы залезли в отчёт и смотрите этот код, то не подумайте,
// что мы тут все пальцем сделаные. Просто средствами встроенного
// языка реализовывать какие-либо функции хеширования, шифрования
// и т.п. достаточно проблематично. Если у вас всё-таки есть
// какие-то сомнения на наш счёт, то приходите, померяться ... (вырезано цензурой)
// мы всегда готовы.
Функция ы(Знач Стр) // Чтобы никто не догадался
...

(84)+ вот такое вот встретилось :0)

Если Фл2=Истина Тогда Ф2=Истина Иначе Ф2=Ложь КонецЕсли;
Если Фл3=Истина Тогда Ф3=Истина Иначе Ф3=Ложь КонецЕсли;

Начат обмен данными по настройке "Обмен с ФСБ" (14:23:37).
Чтение данных из файла обмена успешно завершено.
Запись изменений текущей информационной базы в файл обмена завершилась успешно.
Обмен данными по настройке "Обмен с ФСБ" завершен (14:28:21).

комментарии разработчиков в дорогом софте
"// кажется что-то сломалось :)"

тока сегодня была у клиента...запускаем печать документа...долго-долго че-то думает, потом пишет в сообщении "Не прёт!!!"

))))))))))

(84) А вдруг Фл2 = Неопределено или хуже того. :))

(90) к (86)

Давно у 1С было сообшить в коде такого содержания

Поле не заполенено (вместо поле не заполнено)

У меня в коде в исключении каком-то очень хитром была фраза в сообщение об ошибке вставлена...

Примерно через год звонит клиент и спрашивает.
Что означает сообщение об ошибке
"Оператор тормозит. Смените тормозную жидкость или обратитесь к администратору..."

Я патсталом валялся... забыл уже про это сообщение...

нашел в конфиге:
Перечисление.КодыОпераций.ВозвратОтПокупателяКлиентаПоклажедателяНеотгруженногоТовараВХранение

+(94) как говорится, ДлиннаяМнемоническаяПеременная :)

каменты ерунда, вот проги фирмы 1с, например в УТ, менеджеры временных таблиц вообще не закрывают, например в подборе номенклатуры, вот это да - видимо считается плохим тоном

ух какой позитиффчик с утра...почитал поржал))

А кто-нить знает программиста по имени Арман? За запросы в цикле в каждом отчете у меня к нему отдельный счетчик, но зачем все переменные, процедуры и даже секции таблицы называть своим именем?

(98) типовые переименовывает?

+(99) типа вместо Контрагенты - Чуваки, ДоговорыКонтрагентов - Терки?

Меня раздражает, когда некоторые франчи, дописывая "типовые", в индентификаторах реквизитов и переменных модуля используют свои префиксы. Периодически натыкаюсь на всякие чтд_, ак_, вкт_ и т.п.

видел конфу которую правил франч

переменные

перем _а,__а,_б,__б,ъ;
перем СчетчикЦиклаОбходаГруппировокЗапросаПоПродажам;

(+102) ps сам работал в этом франче ;)

(98) Не, он свои отчеты из типовых отчетов переделывал

(101) О! А ты случаем не (98)? :)

(104) Я не Арман, Арман не я)) У меня другое имя)

как то в этот франч взяли девочку стажёра. после того как она сдала работу заказчику не показав куратору - выгнали. палитра формы была просто кричащая. оказывается ей как стажёру дали севший моник. она и добавила яркости картинки через установку ядовитых цветов текста на форме.

больше всего умиляла что поле "комментарий" к реквизиту как и "описание" она считала внутренними конфигураторскими примочками и не думала что их кто то увидит.

когда переделывали её работу прочитали много интересного в описаниях. она там писала :
1. кто порекомендовал ей создать этот реквизит
2. краткую характеристику советчика

в одном месте нашли что то вроде "подсказал Лёшка, красивый, надо будет закадрить, не забыть!!!"

(106) Насчет не контрастного монитора... Помню такую историю: был переход с ч/б "Искры" на цветную. Все формы пришлось переделывать, т.к. отенки черно-белого, которыми были оформлены все формы оказались кричащими разноцветными уродствами (:

//------------- автор неизвестен
Процедура Установить()      
                     
   Пароль = "";
   Если ВвестиСтроку(Пароль,"Нужон пароль ",7,,0) = 0 Тогда
        Возврат;
   КонецЕсли;    
             
   Если Не(СокрЛП(Пароль) = "3032288") Тогда
        Предупреждение("Ниправельно,кароче");
        Возврат;
   КонецЕсли;    

//-------------- автор неизвестен
Процедура Картинга()
КонецПроцедуры
//-------------- автор Guk
// проверка на запрещенное копирование строк
   Если ТЗТЧ.К>1 Тогда
       КопируютЦуки=1;
   КонецЕсли;

1. Рарус АльфаАвто 4.0
ТекстЗапроса = "ВЫБРАТЬ
                      |    ГрафикРаботыРесурсов.Дата,
                      |    ГрафикРаботыРесурсов.Объект,
                      //Подлежит исправлению POLA - Так все же какой ресурс выбирать?
                      |    ВЫБОР
                      |        КОГДА ГрафикРаботыРесурсов.Ресурс1 = &ПереданныйПользователь ТОГДА ГрафикРаботыРесурсов.Ресурс2
                      |        ИНАЧЕ ГрафикРаботыРесурсов.Ресурс1

2. Один програмчег кудато торопился
запусквпзапусквпроиДокументМенялся = Истина;

комменты к упп - ПолучитьДеревоПартийПереданныеУпр разных кодеров

       //s{...}
   //    запрос переписан с учетом заранее известных характеристик работы базы
   //  (сомнения вызывают только допустимые статусы...
   // Р{...} сомнения вызывает нахрена надо было запрос трогать
   // Ю{...} здесь вообще все вызывает сомнения

3. Процедура ПроверкаПользователя() Экспорт
 Спр=СоздатьОбъект("Справочник.Пользователи");
 Если Спр.НайтиПоКоду(ИмяПользователя())  = 0 Тогда
// exter 2008-04-07 Старт
   Предупреждение("Вы не зарегистрированы в списке сотрудников!Налейте пива!");
   СтатусВозврата(0);
   Возврат;

...Автор неизвестен

Если Док.СтатусИзменения = Спр.СтатусИзменения  Тогда
   //Потом надо будет удалить строку не равною статусу доукмента или будет ЖОПА
       Записано = 0;

(112) удалить походу не успел? наступила она самая )