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

Всего: 15

Куча / Говнокод #26368

0

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

ебучая ссала

        case AccountStatuses.Blocked if acc.properties.get(GamStopService.GamStopVerification)
          .map(_.extract[String](DefaultFormats, implicitly[Manifest[String]]))
          .contains(GamStopStatus.NotPassed.toString) =>
          \/.left(AuthenticationError(ErrorCodes.GamStopUnauthorized, s"GamStop validation failed"))

почему ты сука молдавская не можешь добавить метод блять а аккаунт сук ачтобы было 

        case AccountStatuses.Blocked if acc.contains(GamStopStatus.NotPassed) =>
          \/.left(AuthenticationError(ErrorCodes.GamStopUnauthorized, s"GamStop validation failed"))

почему хуиа?

говно блять

levxxx, 21 Января 2020

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

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

−29

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
	
	Если ПустаяСтрока(Список) Тогда
		Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";	
	КонецЕсли;

	Результат = "";

	СоответствиеПараметров = Новый Соответствие();
	СоответствиеПараметров.Вставить("ПолноеНаименование", 		" ");
	СоответствиеПараметров.Вставить("НаименованиеСокращенное", 	" ");
	СоответствиеПараметров.Вставить("ИНН",                		" ИНН ");
	СоответствиеПараметров.Вставить("КПП",                		" КПП ");
	СоответствиеПараметров.Вставить("Свидетельство",			" ");
	СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",	" от ");
	СоответствиеПараметров.Вставить("ЮридическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("ФактическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("Телефоны",           		" тел.: ");
	СоответствиеПараметров.Вставить("НомерСчета",         		" р/с ");
	СоответствиеПараметров.Вставить("Банк",               		" в банке ");
	СоответствиеПараметров.Вставить("БИК",                		" БИК ");
	СоответствиеПараметров.Вставить("КоррСчет",           		" к/с ");
	СоответствиеПараметров.Вставить("КодПоОКПО",          		" Код по ОКПО ");
	
	Список          = Список + ?(Прав(Список, 1) = ",", "", ",");
	ЧислоПараметров = СтрЧислоВхождений(Список, ",");

	Для Счетчик = 1 по ЧислоПараметров Цикл

		ПозЗапятой = Найти(Список, ",");

		Если ПозЗапятой > 0  Тогда
			ИмяПараметра = Лев(Список, ПозЗапятой - 1);
			Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));

			Попытка
				СтрокаДополнения = "";
				СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);

				Если ПустаяСтрока(СтрокаДополнения) Тогда
					Продолжить;
				КонецЕсли;

				Префикс = СоответствиеПараметров[ИмяПараметра];
				Если Не ПустаяСтрока(Результат)  Тогда
					Результат = Результат + ",";
				КонецЕсли; 

				Результат = Результат + ?(СПрефиксом = Истина, Префикс, "") + СтрокаДополнения;
			Исключение
				Сообщить("Не удалось определить значение параметра организации: " + ИмяПараметра, СтатусСообщения.Внимание);
			КонецПопытки;

		КонецЕсли;

	КонецЦикла;

	Возврат СокрЛП(Результат);

КонецФункции // ОписаниеОрганизации()

иди в 1С - говорили они,
будет много денег говорили они,
они говорили там всё легко, потому что по-русски,
а в итоге?
чтобы писать по русски надо постоянно переключать раскладку для <>, &
ТУПОЙ КОМПИЛЯТОР, который вообще нихрена не подсказывает, потому что не строгая типизация
Постоянная хрень типа в переменной "Список" лежит Строка, или Массив
ПОСТОЯННЫЕ ТАНЦЫ С ЗАПЯТЫМИ, ПРИ ОПЕРАЦИЯХ СО СТРОКОЙ!!!
Реализуйте 1 раз регулярные выражения типа Массив = Строка.Разделить("\\,") - нет! Хотим обмазываться запятыми и дрочить!
Ну и прочее... конкретно сейчас не понятны танцы с запятыми и Лев() Прав() позиция запятой... просто бесит!

levxxx, 03 Октября 2016

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

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

−99

1
2
3
4
5
6
7

Функция ЭтоКолбаса(НомерЗаказа) Экспорт
	Результ = Ложь;
	Если (НомерЗаказа <= 99999) ИЛИ ((НомерЗаказа > 999999) и ((Цел(НомерЗаказа/10000) - Цел(НомерЗаказа/100000)*10) = 2)) Тогда
		Результ = Истина;
	КонецЕсли;
	Возврат Результ;	   
КонецФункции

Так... чисто поржать)

levxxx, 02 Марта 2016

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

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

−99

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

КолонкаTMCID=ТаблицаСЗаказ.колонки.TMCID;
	КолонкаTMCID.ТекстШапки				= "№ тов.";
	КолонкаTMCID.толькоПросмотр			= Истина;
	КолонкаTMCID.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
	
	КолонкаType=ТаблицаСЗаказ.колонки.Type;
	КолонкаType.ТекстШапки				= "Тип этикетки";
	КолонкаType.толькоПросмотр			= Истина;
	КолонкаType.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
	
	КолонкаName=ТаблицаСЗаказ.колонки.Name;
	КолонкаName.ТекстШапки				= "Наименование";
	КолонкаName.толькоПросмотр			= Истина;
	КолонкаName.Ширина					= Окр(ШиринаТаблицы * 0.3, 0);
	
	КолонкаКод=ТаблицаСЗаказ.колонки.Kod_et;
	КолонкаКод.ТекстШапки				= "Код этикетки";
	КолонкаКод.толькоПросмотр			= Истина;
	КолонкаКод.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
		
	//КолонкаSpecif=ТаблицаСЗаказ.колонки.Specif;
	//КолонкаSpecif.ТекстШапки			= "Спецификация заказа";
	//КолонкаSpecif.толькоПросмотр		= Истина;
	//КолонкаSpecif.Ширина				= Окр(ШиринаТаблицы * 0.11, 0);
	
	КолонкаUnit=ТаблицаСЗаказ.колонки.Unit;
	КолонкаUnit.ТекстШапки				= "Ед.изм";
	КолонкаUnit.толькоПросмотр			= Истина;
	КолонкаUnit.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
	
	КолонкаГород = ТаблицаСЗаказ.колонки.НаправлениеНамоткиГород;
	КолонкаГород.ТекстШапки				= "Город";
	КолонкаГород.толькоПросмотр			= Истина;
	КолонкаГород.Ширина					= Окр(ШиринаТаблицы * 0.12, 0);
	
	КолонкаАдрес = ТаблицаСЗаказ.Колонки.АдресДоставки;
	КолонкаАдрес.ТекстШапки				= "Адрес Доставки";
	КолонкаАдрес.толькоПросмотр			= Истина;
	КолонкаАдрес.Ширина					= Окр(ШиринаТаблицы * 0.12, 0);

Ну вот не в падлу людям такой код писать... Подумаешь +-10 ненужных переменных. Какой-там нахрен рефакторинг?! Делать больше нечего рефакторингом всяким занниматься. Про повторное использование кода слышали? Так вот взяли код, скопировали, вставили - там самым повторно использовали. Горите в аду, копипастеры!

levxxx, 02 Марта 2016

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

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

−95

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Запрос = Новый Запрос;
	Запрос.Текст = 
	 "текст запроса не важен...";
	Запрос.УстановитьПараметр("Заказ", Заказ);
	Выборка = Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		Если Выборка.Версия = 0 Тогда 
			Версия = "0";
		Иначе
			Версия = Выборка.Версия;
		КонецЕсли;
		ИмяФайла = "\\eskoautomation\HotFolders\zakaz\" +Выборка.НомерЗаказа+"_"+Версия+".xml";
		Файл = Новый ЗаписьXML;
		Файл.ОткрытьФайл(ИмяФайла);
		Файл.ЗаписатьНачалоЭлемента("Главный");
			Файл.ЗаписатьНачалоЭлемента("НомерЗаказа");
			ЗаписатьXML(Файл,Выборка.НомерЗаказа);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Версия");
			ЗаписатьXML(Файл,Выборка.Версия);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Контрагент");
			ЗаписатьXML(Файл,Выборка.Контрагент);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ТипЗаказа");
			ЗаписатьXML(Файл,Выборка.ТипЗаказа);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ВидЗаказа");
			ЗаписатьXML(Файл,Выборка.ВидЗаказа);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ТипРЦ");
			ЗаписатьXML(Файл,Выборка.ТипРЦ);
			Файл.ЗаписатьКонецЭлемента();
			РабочийЦентр = Выборка.РабочийЦентр;
			Если Не ЗначениеЗаполнено(РабочийЦентр) Тогда
				Отбор = Новый Структура;
				Отбор.Вставить("НомерПроката", 1);
				Отбор.Вставить("Номерварианта", Выборка.НомерВарианта);
				строки = Выборка.Спецификация.ВидыРабот.НайтиСтроки(Отбор);
				Если строки<>Неопределено Тогда 
					РабочийЦентр = строки[0].рабочийЦентр.порядковыйномер;
				КонецЕсли;
			КонецЕсли;	
	        Файл.ЗаписатьНачалоЭлемента("РабочийЦентр");
			ЗаписатьXML(Файл,РабочийЦентр);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ОсновнойМатериал");
			ЗаписатьXML(Файл,Выборка.ОсновнойМатериал);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Штамп");
			ЗаписатьXML(Файл,Выборка.Штамп);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ЭтикетокНаЛисте");
			ЗаписатьXML(Файл,Выборка.ЭтикетокНаЛисте);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Нарезка");
			ЗаписатьXML(Файл,Выборка.Нарезка);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Ручьи");
			ЗаписатьXML(Файл,Выборка.Ручьи);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Z");
			ЗаписатьXML(Файл,Выборка.Z);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ШагПечати");
			ЗаписатьXML(Файл,Выборка.ШагПечати);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ДлинаЭтикетки");
			ЗаписатьXML(Файл,Выборка.ДлинаЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаЭтикетки");
			ЗаписатьXML(Файл,Выборка.ШиринаЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ДлинаКонтрЭтикетки");
			ЗаписатьXML(Файл,Выборка.ДлинаКонтрЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ДлинаКольеретки");
			ЗаписатьXML(Файл,Выборка.ДлинаКольеретки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаКонтрЭтикетки");
			ЗаписатьXML(Файл,Выборка.ШиринаКонтрЭтикетки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаКольеретки");
			ЗаписатьXML(Файл,Выборка.ШиринаКольеретки);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("ШиринаПоНожам");
			ЗаписатьXML(Файл,Выборка.ШиринаПоНожам);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуРучьями");
			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуРучьями);
			Файл.ЗаписатьКонецЭлемента();
	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуЭтикетками");
			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуЭтикетками);
			Файл.ЗаписатьКонецЭлемента();
			Файл.ЗаписатьНачалоЭлемента("Комментарий");
			ЗаписатьXML(Файл,Заказ.Комментарий);
			Файл.ЗаписатьКонецЭлемента();

А вот так мы выгружаем XML. Можно конечно было бы пройтись циклом по колонкам выборки или таблицы значений, но зачем?! Зачем, когда можно написать лишних 300 строчек. Я соду с ума.

levxxx, 24 Февраля 2016

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

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

−98

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

ВыборкаЗаказов = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

	Пока ВыборкаЗаказов.Следующий() Цикл

		ВыборкаГрузополучателей = ВыборкаЗаказов.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		Пока ВыборкаГрузополучателей.Следующий() Цикл

			ВыборкаАдресовДоставки = ВыборкаГрузополучателей.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
			Пока ВыборкаАдресовДоставки.Следующий() Цикл

				РезультатЗапроса = ВыборкаАдресовДоставки.Выбрать();
				СтавкаНДС = ПолучитьСтавкуНДСдляДокументов(Переменные.ОргПроизводитель, РезультатЗапроса[0].Контрагент);
				Если РезультатЗапроса.Количество() <> 0 Тогда
 
					ТАблицаДАнных = ПреобразоватьВыборкуВТаблицуЗначение(РезультатЗапроса);

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

Я допускаю, что это было написано в староглиняные времена, когда у РезультатЗапроса не было метода Выгрузить() но блин! Всей истории 1С я не знаю, и сомневаюсь, что такие времена когда-то были. А вообще что-то подсказывает что песатель просто не знал...

levxxx, 24 Февраля 2016

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

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

−99

1
2
3
4
5
6
7

Запрос.УстановитьПараметр("Бумага", Справочники.Номенклатура.НайтиПоКоду("g0000000012"));
	Запрос.УстановитьПараметр("Пленка", Справочники.Номенклатура.НайтиПоКоду("g0000000382"));
	Запрос.УстановитьПараметр("Тиснение", Справочники.Номенклатура.НайтиПоКоду("g0000000481"));
	Запрос.УстановитьПараметр("Фольга", Справочники.Номенклатура.НайтиПоКоду("g0000000459"));
	Запрос.УстановитьПараметр("Полуфабрикат", Справочники.Номенклатура.НайтиПоКоду("g0000001919"));
	Запрос.УстановитьПараметр("Ламинация1", Справочники.Номенклатура.НайтиПоКоду("g0000000074"));
	Запрос.УстановитьПараметр("Ламинация2", Справочники.Номенклатура.НайтиПоКоду("g0000001292"));

Возможно стоило использовать предопределенные элементы? Или справочник виды номенклатуры? Или свойства и категории объектов? Или создать своё перечисление? ДА БЛИН ЧТО УГОДНО ТОЛЬКО НЕ ЭТО!!!

levxxx, 24 Февраля 2016

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

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

−97

1
2
3
4
5

Если  Стрк.Контрагент.ИНН = "7702691545" Тогда
				ТекДок.Грузополучатель = Справочники.Контрагенты.НайтиПоКоду("000401789");
			ИначеЕсли  ПоХенкелю Тогда
				ТекДок.Грузополучатель = Заявка.Контрагент;
			КонецЕсли;

Навряд ли конечно кто-то из тех кто пишет такой код, читает этот сайт, но всё же обращаюсь к ним. Вот скажите, есть какой-то негласный принцип так писать? У вас какой-то орден масонский, где вас так учат делать? Расскажите же про свой негласный кодекс хорошего программиста! Просто я много где поработал, и постоянно в коде такое говно, написанное разными людьми. Генезис такого говна понятен: приходит тупорылый менеджер и приносит не менее тупорылую хотелку, но ведь вы программист, а значит вы должны видеть за деревьями лес.
В каждой задаче нужно видеть за деревьями лес - вот принцип хорошего кода. Если менеджер пришёл 1 раз, он 100% придёт ещё раз, и принесёт подобную задачу. Не лучше ли сейчас немножко посидеть, написать ХОРОШО а в следующий раз решить подобную задачу за 1 минуту и дальше сидеть и пинать говно? Не лучше?!
Что значит хорошо? Хорошо, это когда ваше решение шире задачи, а задача которую вам дали всего лишь частный случай того функционала, который вы реализовали. 1 - Мыслить нужно шире.
Так же надо чётко разделять ту информацию которая хранится в базе, и имена переменных. Если наименование контрагента "Хенкель" то какого члена в тексте делает переменная "КонтрагентХенкель"?! Предопределенные элементы - это максимум хардкода, который приемлем. Вы вообще слышали про компиляцию? Компиляция процесс необратимый, и часто её делать нежелательно, поэтому максимум параметров надо выносить во всевозможные настройки и параметры, чтобы можно было их поменять на ходу. Ладно. Вы всё равно нифига не поймёте.

levxxx, 20 Февраля 2016

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

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

−98

1
2
3

СтрокаТовары.Качество					       = СтрокиОст.Качество;
СтрокаТовары.ЕдиницаИзмерения			= СтрокиОст.ЕдИзм;
СтрокаТовары.ЕдиницаИзмеренияМест		= СтрокиОст.ЕдИзмМест;

Поражает сам подход. А почему бы не выдумать для (поля/объекта/коллекции) ещё одно уникальное имя?! Ведь столько ещё свободных и красивых уникальных имён в мире есть! К тому же "ЕдИзм" - это ведь короче чем "ЕдиницаИзмерения", не правда ли? Дурак перепутает только, правда? Писать ведь будет удобней, правда?
Ладно... про ЗаполнитьЗначенияСвойств писать уже баян. Но ведь СтрокиОст - это строка какой-то таблицы? А в исходной таблице это называлось "ЕдиницаИзмерения", наверное, да? Так зачем лишний раз придумывать псевдоним?!!! Зачем? Почему просто не соединить таблицы друг с другом в запросе? Почему?! Почему нужно постоянно дрочить циклами?!
Циклы надо применять тогда, когда нельзя по-другому, а это узкий круг задач, например те, где нужен CAST которого в 1С нет, или распределение одной таблицы на другую по какому какой нибудь "хитровыдуманной и уникальной" бизнес логике. Даже списание по ФИФО уже придумали как сделать запросом... Не хочу! Хочу циклы...

levxxx, 19 Февраля 2016

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

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

−100

1
2
3
4

ТипЗаказа = Число(Сред(СокрЛП(Формат(Стрк.Заказ, "ЧГ=")), 3, 1));
...
Если ТипЗаказа = 9 ИЛИ ТипЗаказа = 8 ИЛИ ТипЗаказа = 7 Тогда
...

Стрк.Заказ - есть строка с номером документа.
Вообще, к статье брата Б. Нуралиева (простите не помню как его зовут) "1С как продукт инженерной мысли" хочется прилагать иллюстрации. И прилагать иллюстрации почему-то иллюстрации именно такие. Про "грамотное" использование составных типов хочется молчать.
Если вы слышали про 13 правил Кодда, и слышали про атомарность данных в ячейках, и находите в этом рациональное зерно - ЗАБУДЬТЕ!

levxxx, 19 Февраля 2016

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

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