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

Всего: 8

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

−98

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
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)

1C / Говнокод #17852

−82

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	
	Если НЕ ВвестиСтроку(Комментарий, "Укажите комментарий к запрещению: ", 255) Тогда
		ОбщегоНазначения.СообщитьОбОшибке("Не указан комментарий к запрещению!", Отказ, Заголовок);
		Форма = ЭтотОбъект.ПолучитьФорму("ФормаДокумента");
		Если Форма.Открыта() Тогда
			Форма.Закрыть();	
		КонецЕсли;
		Возврат;
	КонецЕсли;  
	
	Если СтрДлина(Комментарий) < 11 Тогда
		ОбщегоНазначения.СообщитьОбОшибке("Комментарий слишком короткий!", Отказ, Заголовок);
		Возврат;
	КонецЕсли;

КонецПроцедуры

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

safer_bwd, 24 Марта 2015

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

1C / Говнокод #17520

−125

1

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

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

safer_bwd, 26 Января 2015

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

1C / Говнокод #17339

−120

1

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

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

safer_bwd, 19 Декабря 2014

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

1C / Говнокод #16641

−169

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

//  Параметры - реквизит объекта. Больше (!) нигде не используется.

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
	Если ЭтоНовый() Тогда
		Параметры = "000001000";
	КонецЕсли;
	
	ФлагОписания = ?(Сред(Параметры,7,1) = "1", Истина, Ложь);
	ФлагМестоX     = ?(Сред(Параметры,8,1) = "1", Истина, Ложь);
	ФлагМестоY      = ?(Сред(Параметры,9,1) = "1", Истина, Ложь);		
КонецПроцедуры

Процедура СменаФлага()    
	Параметры = Лев(Параметры,6)+Строка(Число(ФлагОписания))+Строка(Число(ФлагМестоX))+Строка(Число(ФлагМестоY));
КонецПроцедуры


Процедура ФлагОписанияПриИзменении(Элемент)	
	СменаФлага();	
КонецПроцедуры

Процедура ФлагМестоXПриИзменении(Элемент)	
	СменаФлага();	
КонецПроцедуры

Процедура ФлагМестоYПриИзменении(Элемент)	
	СменаФлага();	
КонецПроцедуры

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

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

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

1C / Говнокод #16602

−163

01
02
03
04
05
06
07
08
09
10
11
12
13
14

Для Индекс = 0 По МассивДокументов.Количество()-1 Цикл
		
		Документ = МассивДокументов.Получить(Индекс);
		
		Если Документ.Проведен Тогда
	
			УстановитьСтатусДокумента(ТаблицаДокументов, Документ, "Закрыт");
			
			// Удаляем элемент из массива.
			МассивДокументов.Удалить(Индекс);
			
		КонецЕсли;
		
	КонецЦикла;

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

safer_bwd, 27 Августа 2014

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

1C / Говнокод #16572

−163

1
2
3
4
5

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

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

safer_bwd, 20 Августа 2014

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

1C / Говнокод #14452

−123

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

//***************************************************************************
Функция ИмяМесяца(Дата)
	
	Если ТипЗнч(Дата) = Тип("Дата") тогда
		НомерМесяца = Месяц(Дата);
		НомерГода = Год(Дата);
	Иначе		
		НомерМесяца = Число(Сред(Дата,5,2));	
		НомерГода = Число(Лев(Дата,4));	
	КонецЕсли;
	
	Если НомерМесяца = 1 тогда
		ИмяМесяца = "Январь";
	ИначеЕсли НомерМесяца = 1 тогда
		ИмяМесяца = "Январь";
	ИначеЕсли НомерМесяца = 2 тогда
		ИмяМесяца = "Февраль";   
	ИначеЕсли НомерМесяца = 3 тогда
		ИмяМесяца = "Март";   
	ИначеЕсли НомерМесяца = 4 тогда
		ИмяМесяца = "Апрель";
	ИначеЕсли НомерМесяца = 5 тогда
		ИмяМесяца = "Май";   
	ИначеЕсли НомерМесяца = 6 тогда
		ИмяМесяца = "Июнь";   
	ИначеЕсли НомерМесяца = 7 тогда
		ИмяМесяца = "Июль";
	ИначеЕсли НомерМесяца = 8 тогда
		ИмяМесяца = "Август";   
	ИначеЕсли НомерМесяца = 9 тогда
		ИмяМесяца = "Сентябрь";   
	ИначеЕсли НомерМесяца = 10 тогда
		ИмяМесяца = "Октябрь";
	ИначеЕсли НомерМесяца = 11 тогда
		ИмяМесяца = "Ноябрь";   
	ИначеЕсли НомерМесяца = 12 тогда
		ИмяМесяца = "Декабрь";
	КонецЕсли;
	
	Возврат ИмяМесяца + " " + Формат(НомерГода,"ЧГ=0");	
	
КонецФункции

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

safer_bwd, 31 Января 2014

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

Говнокод: по колено в коде.