1. Список говнокодов пользователя safer_bwd

    Всего: 8

  2. 1C / Говнокод #18721

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    &НаКлиенте
    Процедура УстановитьВидимостьПотребностей(Видимость)
    
                  Если Видимость Тогда
                                   Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                                   Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                                   Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                    Иначе
                                   Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                                   Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                                   Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                    КонецЕсли;
    
    Элементы.ТекстСрочнойНакладной.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
    Элементы.ТекстСрочнойНакладной.ЦветТекста = Новый Цвет(252,250,235);
    
    КонецПроцедуры

    Оригинальный способ управления видимостью элементов УФ без лишних серверных вызовов. Получил женский оргазм=)

    safer_bwd, 15 Сентября 2015

    Комментарии (4)
  3. 1C / Говнокод #17852

    −82

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    	
    	Если НЕ ВвестиСтроку(Комментарий, "Укажите комментарий к запрещению: ", 255) Тогда
    		ОбщегоНазначения.СообщитьОбОшибке("Не указан комментарий к запрещению!", Отказ, Заголовок);
    		Форма = ЭтотОбъект.ПолучитьФорму("ФормаДокумента");
    		Если Форма.Открыта() Тогда
    			Форма.Закрыть();	
    		КонецЕсли;
    		Возврат;
    	КонецЕсли;  
    	
    	Если СтрДлина(Комментарий) < 11 Тогда
    		ОбщегоНазначения.СообщитьОбОшибке("Комментарий слишком короткий!", Отказ, Заголовок);
    		Возврат;
    	КонецЕсли;
    
    КонецПроцедуры

    И пусть транзакция подождет. Дорогой, у тебя слишком короткий комментарий.

    safer_bwd, 24 Марта 2015

    Комментарии (5)
  4. 1C / Говнокод #17520

    −125

    1. 1
    КоличествоСтраницПриПечати = Цел(ТабличныйДокумент.ВысотаТаблицы /  40.417) + 1 + 1;

    Разработчик 1С вооруженный линейкой опасен в 1+1 раз.

    safer_bwd, 26 Января 2015

    Комментарии (18)
  5. 1C / Говнокод #17339

    −120

    1. 1
    |РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1980, 1, 1), НакладнаяНаОтпускМатериалы.ДатаВозврата, ДЕНЬ) + 2444240 КАК ДатаВозврата,

    Внезапно! Календарь майя

    safer_bwd, 19 Декабря 2014

    Комментарии (3)
  6. 1C / Говнокод #16641

    −169

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    //  Параметры - реквизит объекта. Больше (!) нигде не используется.
    
    Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    	Если ЭтоНовый() Тогда
    		Параметры = "000001000";
    	КонецЕсли;
    	
    	ФлагОписания = ?(Сред(Параметры,7,1) = "1", Истина, Ложь);
    	ФлагМестоX     = ?(Сред(Параметры,8,1) = "1", Истина, Ложь);
    	ФлагМестоY      = ?(Сред(Параметры,9,1) = "1", Истина, Ложь);		
    КонецПроцедуры
    
    Процедура СменаФлага()    
    	Параметры = Лев(Параметры,6)+Строка(Число(ФлагОписания))+Строка(Число(ФлагМестоX))+Строка(Число(ФлагМестоY));
    КонецПроцедуры
    
    
    Процедура ФлагОписанияПриИзменении(Элемент)	
    	СменаФлага();	
    КонецПроцедуры
    
    Процедура ФлагМестоXПриИзменении(Элемент)	
    	СменаФлага();	
    КонецПроцедуры
    
    Процедура ФлагМестоYПриИзменении(Элемент)	
    	СменаФлага();	
    КонецПроцедуры

    Хотел быть шифровальщиком, но кривая дорожка жизни…

    safer_bwd, 04 Сентября 2014

    Комментарии (4)
  7. 1C / Говнокод #16602

    −163

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    Для Индекс = 0 По МассивДокументов.Количество()-1 Цикл
    		
    		Документ = МассивДокументов.Получить(Индекс);
    		
    		Если Документ.Проведен Тогда
    	
    			УстановитьСтатусДокумента(ТаблицаДокументов, Документ, "Закрыт");
    			
    			// Удаляем элемент из массива.
    			МассивДокументов.Удалить(Индекс);
    			
    		КонецЕсли;
    		
    	КонецЦикла;

    Абстракция мастера игры в бисер протекла. Но работало долго =)

    safer_bwd, 27 Августа 2014

    Комментарии (6)
  8. 1C / Говнокод #16572

    −163

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Стр = Строка(Формат(ТекущаяДата(), "ДФ=гггг"))
    			+ Формат(ТекущаяДата(), "ДФ=ММ") 
    			+ Формат(ТекущаяДата(), "ДФ=дд")+"_";
    			
    	Стр = Стр + СтрЗаменить(Строка(Формат(ТекущаяДата(), "ДЛФ=В")),":","");

    Мусьё знает толк. Очердной туроператор склеил ласты =)

    safer_bwd, 20 Августа 2014

    Комментарии (9)
  9. 1C / Говнокод #14452

    −123

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    //***************************************************************************
    Функция ИмяМесяца(Дата)
    	
    	Если ТипЗнч(Дата) = Тип("Дата") тогда
    		НомерМесяца = Месяц(Дата);
    		НомерГода = Год(Дата);
    	Иначе		
    		НомерМесяца = Число(Сред(Дата,5,2));	
    		НомерГода = Число(Лев(Дата,4));	
    	КонецЕсли;
    	
    	Если НомерМесяца = 1 тогда
    		ИмяМесяца = "Январь";
    	ИначеЕсли НомерМесяца = 1 тогда
    		ИмяМесяца = "Январь";
    	ИначеЕсли НомерМесяца = 2 тогда
    		ИмяМесяца = "Февраль";   
    	ИначеЕсли НомерМесяца = 3 тогда
    		ИмяМесяца = "Март";   
    	ИначеЕсли НомерМесяца = 4 тогда
    		ИмяМесяца = "Апрель";
    	ИначеЕсли НомерМесяца = 5 тогда
    		ИмяМесяца = "Май";   
    	ИначеЕсли НомерМесяца = 6 тогда
    		ИмяМесяца = "Июнь";   
    	ИначеЕсли НомерМесяца = 7 тогда
    		ИмяМесяца = "Июль";
    	ИначеЕсли НомерМесяца = 8 тогда
    		ИмяМесяца = "Август";   
    	ИначеЕсли НомерМесяца = 9 тогда
    		ИмяМесяца = "Сентябрь";   
    	ИначеЕсли НомерМесяца = 10 тогда
    		ИмяМесяца = "Октябрь";
    	ИначеЕсли НомерМесяца = 11 тогда
    		ИмяМесяца = "Ноябрь";   
    	ИначеЕсли НомерМесяца = 12 тогда
    		ИмяМесяца = "Декабрь";
    	КонецЕсли;
    	
    	Возврат ИмяМесяца + " " + Формат(НомерГода,"ЧГ=0");	
    	
    КонецФункции

    Неделю умилялся и плакал от счастья=)

    safer_bwd, 31 Января 2014

    Комментарии (21)