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

сегодня понедельник?

извиняюсь - я в отпуске просто... не слежу как-то

(0) Чувак, выдыхай, сегодня вторник :))

(0) и?

(0) Всё сказал? Ващета сегодня вторник...

Вообщето сегодня вторник. Надеюсь не сильно ошарашил? :)

(6) да все нормально, бодрячком

И где комментарии?

(8) ах да.... в одной из франчевых баз видел
//это что?? Это, Оля, сделаешь сама???? МОНСТРА!!!!       СОН 21.03.03

видел:
// Убить негра
// идиоты заставили сделать
я писал:
// работает плохо, но устраивает - потом переделать

(10) неплохо

видел:
//исправил Алекс _\../

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

// Оставь надежду всяк сюда входящий.

// антошка, антошка пошли копать картошку
Попытка
  ...
Исключение
// тили-тили, трали-вали, это мы не проходили, это нам не задавали
  ...
КонецПопытки

а, вот еще:
// это условие не выполняется никогда

иногда когда просят внести изменения сиюминутно, пишу так:


//переделать: плохой код
   ЭлементыФормы.ЗапретОтгрузки.Доступность = ДоступностьСнятияЗапрета();


//АХТУНГ! Быдлокод

(с) Defender aka LINN


//а сейчас будет омерзительное дублирование кода

(с) я


   |    И Регионы.Ссылка В ИЕРАРХИИ(&РоссияДляРусских)
   |    И Регионы.Ссылка  <> &РоссияДляРусских");
   Запрос.УстановитьПараметр("РоссияДляРусских", Справочники.Регионы.ПолучитьСсылку(Новый УникальныйИдентификатор("5c59da32-4020-11e0-8a43-f99c56c0d913"))); // Россия


(с) неизвестный автор

Видел

"//нафига оно нужно не знаю но пусть будет"

посмотрел сам не понял нафига этот кусок нужен)))

(18) жесть какая

для своего быдлокода - комментарий
// Это временно, надо придумать алгоритм. Только сейчас некогда, >|<опа в мыле

Клиент, возле моря, 77. Два прогера из франча вели. Один ЗП, другой общепит. Ездили по очереди в сезон, зимой удаленно вели.
// Серега, не вздумай подкатывать к новой бухше Алле - у нее парень неадекват
// Вчера отравился, ничего не ешь на пляже

а я часто делаю конструкцию типа
УникальныйИдентификатор("5c59da32-4020-11e0-8a43-f99c56c0d913")

(0)  как то видел
Если....
ИначеЕсли....
Иначе
Сообщить("Позовите программиста!");
КонецЕсли;

(21) О, у меня похожий:
// Изменено ООО "МояФирма"
// TODO: запрос в цикле, да, это ужасно, но надо за 5 минут!
// ДА, Я ПОНИМАЮ, что нет ничего более постоянного, чем временное!
собственно код
// Изменено ООО "МояФирма"

Видел конфу, в которой товарищ из старого БЭСМовского прошлого вставлял
Попытка
дальше идет код
Исключение
Предупреждение("Ошибка с кодом 050701!!! Сообщить программисту")
КонецПопытки
К сожалению, описания кодов не было. А может к счастью.

когда-то отлаживал запрос и написал в комменте что-то типа
//ахахахахах Сотрудник такой-то попался...

(27) оставил это и не стер, потом когда разбирали с другим программистом текст запроса - посмеялись

Вспомнил как в одной конфе был комментарий
// рано или поздно этот геморрой придется разгрбать
И вот настал этот момент. Я поиск по тексту "геморрой" - не находит. искал этот кусок 2 часа - оказалось в комменте "гемморой"

это конечно не комментарий...

http://i.imgur.com/oZD0j.jpg

сократили название "зафиксирована"

Если PaintItBlack=Истина Тогда
Область.ЦветФона=Новый Цвет(0,0,0);
.....

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

(26) Делал такие закладки в 7.7. Потом очень удобно искать место ошибки.

(29) делай коммент //туду

(26) Ага. А я писал просто номер строки "Строка 512" или "Ошибка 1", "Ошибка 2". Даавно это было.

Вчера встретил быдлокод:
Try РасчетнаяЦена = СуммаПродаж/Количество Except Message("Нулевое колличество") EndTry;

Блин...
Низзя, наверно, было условие:

Если Количество = 0 Тогда
   ...
Иначе
   Цена = Сумма/Количество
КонецЕсли;

Иначе //самая ..опа
прямо сейчас есть в коде

даже матофильтр трудится

не знаю насчет комментериев, но запрос типа
http://i018.radikal.ru/1112/23/8f2f449da312.jpg
не может не радовать

// какой идиот сделал эту тупую процедуру ? хм... это же я в прошлом году сделал

(37) Откуда это?

(37)рекурсия однако, квадратность будем вспоминать?

(39) правила переноса БП 1.6-2.0, получение остатков

(37) в ЗУПе такого добра полно

(37) ЗУП что ли?

Встретил как то, поржал.

Процедура ОстановкаСистемы(как,просьба) Экспорт
   ОчиститьОкноСообщений();
   Сигнал();
   Если как="жестко" Тогда
       Сообщить("                                Ну вот, наколбасил? ВАША ИМИТАЦИЯ РАБОТЫ ПРИВЕЛА К ОСТАНОВКЕ ПРОГРАММЫ.                                ","!!!");
       Сообщить("            Так, что лучше сохранить все необходимые документы или элементы справочников, если успеете.            ","!!!");
       Если ПопыткаВыхода=1 Тогда
           Коммент="Предупреждение об остановке системы.";
           ЗаписьЖурналаРегистрации(Коммент,,,,4);
       КонецЕсли;
       Если ПопыткаВыхода=4 Тогда
           ОчиститьОкноСообщений(); Сигнал(); Сигнал(); Сигнал();
           Предупреждение("Ну все, хватит! ОСТАНОВКА СИСТЕМЫ.",1);
           Коммент="Отключение охамевшего пользователя.";
           ЗаписьЖурналаРегистрации(Коммент,,,,4);
           ЗавершитьРаботуСистемы(0);
       КонецЕсли;
       Ответ=0;
       Если ПопыткаВыхода<4 Тогда    // Если не проверять, то при отключении (см. выше) система успевает снова задать вопрос.
           Ответ=Вопрос("Ну, что, расслабимся? Вы готовы к остановке системы?",4,10);
       КонецЕсли;
       Если Ответ=7 Тогда // Ответ - НЕТ
           Сигнал();
           Коммент="Отсрочка отключения № "+Строка(ПопыткаВыхода);
           ЗаписьЖурналаРегистрации(Коммент,,,,4);
           ПопыткаВыхода=ПопыткаВыхода+1;
       ИначеЕсли Ответ=6 Тогда // Ответ - ДА
           Сигнал(); Сигнал(); ОчиститьОкноСообщений();
           Коммент="Отключение раб. станции "+Строка(ИмяКомпьютера())+".";
           ЗаписьЖурналаРегистрации(Коммент,,,,4);
           ПопыткаВыхода=ПопыткаВыхода+1;
           ЗавершитьРаботуСистемы(1);
       ИначеЕсли Ответ=-1 Тогда // Ответ не получен. Выход по таймауту.
           ОчиститьОкноСообщений(); Сигнал(); Сигнал(); Сигнал();
           Предупреждение("Внимание! ОСТАНОВКА СИСТЕМЫ.",3);
           Коммент="Отключение неответившей раб. станции "+Строка(ИмяКомпьютера())+".";
           ЗаписьЖурналаРегистрации(Коммент,,,,4);
           ЗавершитьРаботуСистемы(0);
       КонецЕсли;
   Иначе
       Предупреждение(Просьба,5);
       ЗаписьЖурналаРегистрации(Просьба,,,,4);
   КонецЕсли;
КонецПроцедуры

Хотите загадку?

Строка кода:
"НайденнаяСтрока.Остаток=СтрокаТЗ.Остаток;"

До отработки строки:
Левая часть выражения: НайденнаяСтрока.Остаток=0
Правая часть выражения: СтрокаТЗ.Остаток=20

После отработки строки:
Левая часть выражения: НайденнаяСтрока.Остаток=9
Правая часть выражения: СтрокаТЗ.Остаток=20

До:
http://s017.radikal.ru/i426/1207/1c/4aec5d07141a.jpg
После:
http://s018.radikal.ru/i524/1207/10/70cd57b75369.jpg

(43) как-то пришлось по мудреному ТЗ написать документ планирования. надо было дерево значений в документе заполнять в разрезе регионов, менеджеров, номенклатуры и и значения планирования ко всему еще. в итоге получилось 56 временных таблиц в запросе, в итоге по результату запроса строится дерево значений, которое потом выводится в отчете. пока шуршит, но чую грядет п****ц и наверное все это придется переделывать.
(44) 5 баллов!!!! программист написавший такое работает еще в организации?

/** * For the brave souls who get this far: You are the chosen ones,
* the valiant knights of programming who toil away, without rest,
* fixing our most awful code. To you, true saviors, kings of men,
* I say this: never gonna give you up, never gonna let you down,
* never gonna run around and desert you. Never gonna make you cry,
* never gonna say goodbye. Never gonna tell a lie and hurt you. **/

(43) хороший ник. ты где-нить видел счета БУ и НУ в зупе?)

Если ПустоеЗначение(ВыбКонтрагент) Тогда
   // Если поле не заполнить,
   // То запрос будет пустым.
   // Так зачем гонять компьютер,
   // Время попусту терять?
   Сообщить("Не указан контрагент")
   Возврат;
КонецЕсли;

ТабДанные = Новый ТаблицаЗначений;
// Берем табличечку, разбиваем ее на колоночечки и заполняем ее цыферками - ВАХ!
ТабДанные.Колонки.Добавить("....

это было в одной торговой фирме в конфигурации ТиС 8.7

// 8-903-222-11-11 Маша. Не забыть заправить ей на этой неделе.

(45) Неявное приведение типов - сужение

(49) отлично!

(51) а у меня одна бухша просила сменить ей пароль, который ей установил прошлый программист. Краснея и сущаясь, попросили сменить пароль "запорка" на что-то приличное)

Видел такое
// знаю что черезж0пн0 за то быстро и все довольны

(52) какое сужение?

(55) угу - сам иногда такие комменты пишу

(54) запорка не такое уж и неприличное слово, я сам только что узнал значение:
ЗАПО?РКА, запорки, ·жен. (·прост. ). Задвижка, запор у двери, ворот.
хотя звучит да, неважно

(56)Кода область значения переменной меньше, чем передаваемое значение. т.е. НайденнаяСтрока.Остаток, возможно объявлен как Число(1,х)

(59) Правильно.
Только как раз речь таки о явном (а не неявном) назначении типов:
http://s018.radikal.ru/i524/1207/2e/086752e20f02.jpg

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

// пля, я не согласен с этой дурой, но пусть так:

(45) а почему и До и После курсор отладки на этой строке?

че то ты обманываешь)

(63) Потому что это один и тот же скриншот.

и в чем загадка? (только в табло значения разные)

(0)Сегодня вторник, было?

(63)(65)
упс, поправочка:
http://s019.radikal.ru/i638/1207/8d/a9a936c58d1f.jpg

понятно)))

(0)//ибучий склад стеклотары

(68) - и в чем же оказалось дело ?

(71) Интуитивно подозреваю что длина числа в колонке НайденнаяСтрока.Остаток == 1.

(71)(72)
см. (60)

(73) Ну как и подозревалось. Я просто не читал большую часть темы.

а у меня в конфе выяснилось вот что:

ТекстЗапроса=ТекстЗапроса+"Условие(Товар.ПренадлежитГруппе(ВыбТовар)=1);";

Естественно, выдает предупреждение и выводит пустую таблицу, поскольку условия фактически нет.

одно успокаивает: за 8 лет никто, и ни разу, не воспользовался отчетом, содержащим условие..
того, кто мне оставил такое наследство - я ни разу не видел.

Если РегС.СуммаЗаказаВал<>0 Тогда
                       Регистр.СуммыПоЗаказам.СуммаОтпущеногоВал=РегС.СуммаЗаказаВал;
                       Регистр.СуммыПоЗаказам.СуммаОтпущеногоБаз=РегС.СуммаЗаказаБаз;
                   Иначе
                       // Наверняка не проведена ЗВЦ...
                       // надо бы морду набить кому-нибудь за это...

Использую вот такую конструкцию что бы группировать код

Если 1=1 Тогда
.....
КонецЕсли;

аналог C#

#region RegionName
           
#endregion

жаль что в 1с-ке нет - #region! :(

с той конфой которую теперь разбираю ... можно смело выкладывать в образцы того ... как не надо программировать

всю конфу я сюда постить не стал ... иначе умрете от смеха

Процедура ОхУжЭтиПроцЦены()

(77) зачем??

(81) чтобы плюсик появился :)_

Довелось работать с самописной конфой с приводить ее в нечто работающее. Отличительной особенностью конфы было:
1. НИ ОДИН регистр не закрывался ввиду наличия в измерениях "ТекущегоДокумента"
2. Цены и суммы в документах - округление до 3-х знаков.
3. "Кассы" сделаны перечислением. Добавить новую кассу - переписать кучу кода.
Остальное уж не помню, щас с ней кто то другой продолжает разгребаться...

+ (83) Оставлял закоментированные куски кода с комментариями потомкам о том как не надо писать программы :)

////////////////////////////////
       // если бы какой нибудь педораз хоть на секугнду отвлёкся бы и вынул из своей
       // разъедрённой жёпы стеклянный дилдо и задумался: что же, суко, я делаю не так?
       // А тут голос с неба: "Не надо, сука, не надо так писать, и не надо быть педоразом."
       // А потом бог подумал и сказал ещё: "Лучше бы я не рождал бы тебя удака, который пишет такой код.
       // Тут Гилмор с гитарой рядом играет, а ты, сучонок, только в такт и можешь кивать головой.
       // А я в ответ ему: "Господь, а зачем же ты создал анальных педоразов, которые придумали
       // обмен данных через эксель? Зачем, Господи?"
       ////////////////////////////////
       
       // а дальше идёт жоский овнокод


(вот реальный такой коммент)

))))

(85) мде... :)

Только что свой коммент увидел
//    АШИПКА правидения!!!

ДоРождестваХристова = дата("01.01.1900");

(81) - сворачивать куски кода - зачем же еще !

(90) 1С делает так
Если Истина Тогда

КонецЕсли

ну, а в снегопате есть регион...

(91) снегопат - не юзал - нужно будет попробовать.

(92) оченно пользительная штукенция )

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

Сегодня ж вторник!

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

(91) вот оно чё.
на днях ковырялся в модулях наткнулся на подобное, долго думал

(97) а вот:

Если Ложь Тогда

КонецЕсли

совсем для другого юзается

//2*2=6 и ниибет
что печально тот блок так и работал...

100

(77) в 1С есть #region - надо только использовать Colorer.

Ну и я поделюсь мелехо  ГК
видел в одной конфе примерно следующее
есть ТЗ (тзПоказатели)состоит примерно из таких полей
Период - Показатель - Значение
и есть

Функция ОбновитьЗначениеПоказателя(Период,Показатель,Значение)
Для Каждого Строка Из тзПоказатели Цикл
 Если Строка.Период = Период И Строка.Показатель = Показатель Тогда
    Строка.Значение = Значение;
 КонецЕсли;
КонецЦикла;  
КонецФункции

я когда это увидел - аж прослезился - есно от смеха . :)
хотя смеятся уже было позно :( - такого добра в конфе валом !!!!

(101) - как его юзать ?

старый коммент:

//Копируют цуки

(101) - или что это такое ?

(104) - кто кого копирует ?

(106)поясняю :)
в накладных дублирование товаров запрещено
чтобы неповадно было бушкам и прочим юзеркам копировать строки в табличной части, сделана проверка: свертка ТЗ и просмотр количеств >1
Если встречено количество >1 - внешне видно запрет копирования, а внутренне - коммент
// Копируют, цуки :)

(105)если ты 8-рочник - тебе это не интересно, и не нужно.
фича полезная в 7-ке, удобное дополнение к текстовому редактору

Нашел в старом самописном отчете по отработанному времени.

СтрокаДанных.ОтработаноМинут = СтрокаДанных.ОтработаноМинут - Обед - Перекуры; // люмпены
 Иначе
СтрокаДанных.ОтработаноМинут = СтрокаДанных.ОтработаноМинут - 60; // планктон

(109) тебя-то мы и ждали :)

(108) с легких наркотиков (1с 7.7) я давно слез и перешел на алкоголь (1с 8.х) - сейчас еще с тяжелыми балуюсь (1с 8.x УФ) :)

OFF: сисок физлиц-нерезидентов

(109) Зачётно!

у меня полно тоже всяких перлов, вт.ч. и своих.. бо я параноик...
.
       Если локТЗтекущийЛист.Артикул <> локАртикулТекущий
       Тогда //паранойя
           _ошибка = "ЛОГИЧЕСКАЯ ОШИБКА"+РазделительСтрок+
                     локТЗтекущийЛист.Артикул+" <?>"+локАртикулТекущий+РазделительСтрок+
                     "!СРОЧНО ЗОВИТЕ ПРОГРАММИСТА!"+
                       РазделительСтрок+РазделительСтрок+РазделительСтрок+"для продолжения - нажми BKSP";
           ИнициализироватьСлой_ОШИБКА("СРОЧНО",_ошибка);
           Возврат;
       КонецЕсли;

(106) Дуровы копируют Цукирберга

// Ошибка, поправить потом. Вася 15.10.08
// + 1 Петя 13.02.10
// +100 Коля 21.05.12

(116) Угар

//***** Этот тупизм можно убрать и сделать просто
   //Спр=СоздатьОбъект("Справочник.Сотрудники");
   //Спр.ВыбратьЭлементы();
   //Пока Спр.ПолучитьЭлемент() > 0 Цикл
   //    Если  Спр.ЭтоГруппа() = 1 Тогда
   //        Продолжить;
   //    КонецЕсли;    
   //    Если СокрЛП(TS_директор) = Спр.Наименование Тогда
   //        Должность = Спр.Должность;
   //    КонецЕсли;
   //    Если СокрЛП(TS_ГлБух) = Спр.Наименование Тогда
   //        Должность1 = Спр.Должность;
   //    КонецЕсли;
   //КонецЦикла;    
   //вот так    
   Должность = TS_директор.Должность;
   Должность1 = TS_ГлБух.Должность;