1C — Говнокод.ру

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

−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

Функция ПроверкаВхожденияДатыВпериод(Дата, ДатаНач, ДатаКон)
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ВЫБОР
		|		КОГДА &Дата МЕЖДУ &ДатаНач И &ДатаКон
		|			ТОГДА ИСТИНА
		|		ИНАЧЕ ЛОЖЬ
		|	КОНЕЦ КАК ВходитВПериод";
	
	Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
	Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
	Запрос.УстановитьПараметр("Дата", Дата);
	
	Результат = Запрос.Выполнить().Выбрать();
	
	Если Результат.Следующий() Тогда
	
		Возврат Результат.ВходитВПериод;
		
	Иначе
		
		Возврат Ложь;
	
	КонецЕсли;

КонецФункции

Когда на клавиатуре сломались кнопки Б и Ю.

Sanki, 15 Сентября 2016

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

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

−103

1
2
3
4
5

&НаСервере
 Процедура ОтсортироватьЧТ()
     ТЧсерНомера = Объект.СерийныеНомера;
 	 ТЧсерНомера.Сортировать("IDСтрокиТЧМатериалы Возр, СерийныйНомер Убыв");
 КонецПроцедуры // ()

blMbl, 01 Сентября 2016

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

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

−47

1
2
3
4
5
6
7
8
9

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

Дополнительная транзакция - лишняя.

ilya2184, 09 Августа 2016

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

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

−207

1

https://www.youtube.com/watch?feature=player_embedded&v=fhWhb88GsL4

3_14dar, 08 Августа 2016

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

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

−44

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

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

ТЫ И Я, Я И ТЫ ГРЯЗНЫЕ ЖИВОТНЫЕ
ТАК ЧТО ПУСТЬ ТВОРЯТ РАЗВРЯТ ЖОПЫ НАШИ ПОТНЫЕ
ТЫ СКОРЕЙ ПОКОВЫРЯЙ МНЕ ПАЛЬЧИКОМ В АНАЛЕ КАК МАКАКИ ДЕЛАЮТ В ЗООФИЛЬСКОЙ БЛЯ ПРОГРАММЕ

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

ТЫ И Я, Я И ТЫ ГРЯЗНЫЕ ЖИВОТНЫЕ
ТАК ЧТО ПУСТЬ ТВОРЯТ РАЗВРАТ ЖОПЫ НАШИ ПОТНЫЕ
ТЫ СКОРЕЙ ПОКОВЫРЯЙ МНЕ ПАЛЬЧИКОМ В АНАЛЕ КАК МАКАКИ ДЕЛАЮТ В ЗООФИЛЬСКОЙ БЛЯ ПРОГРАММЕ

d_fomenok, 05 Августа 2016

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

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

−93

1
2
3
4

Функция ПеревестиДеньги(СчетИсточник, СчетПолучатель, Сумма)
        СнятьСоСчета(СчетИсточник, Сумма);
        ПополнитьСчет(СчетПолучатель, Сумма);
КонецФункции

Как написать эту функцию безопасно? Что делать, если ПополнитьСчет упадет с исключением, например?

LispGovno, 03 Августа 2016

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

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

−95

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

Функция ПроверитьРодителя(СчетРодитель,Счет)
		
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	&Счет В ИЕРАРХИИ (&СчетРодитель) КАК ПроверкаСч";
	
	Запрос.УстановитьПараметр("Счет", Счет);
	Запрос.УстановитьПараметр("СчетРодитель", СчетРодитель);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	ВыборкаДетальныеЗаписи.Следующий();
	Возврат ВыборкаДетальныеЗаписи.ПроверкаСч;	
КонецФункции

blMbl, 03 Августа 2016

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

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

−94

1
2

Если 
ЗначениеЗаполнено(СсылкаНаОбъект) И ((Строка(ТипЗнч(СсылкаНаОбъект))="Документ ссылка: Поступление товаров и услуг") или (Строка(ТипЗнч(СсылкаНаОбъект))="Документ ссылка: Установка цен номенклатуры") или (Строка(ТипЗнч(СсылкаНаОбъект))="Документ ссылка: Перемещение товаров")) Тогда

Проверяется тип документа

tixis1c, 25 Июля 2016

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

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

−94

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

Область.Параметры.месяц 	= МесяцДляГрафика;
Область.Параметры.первое 	= ПеревестиВКалендарПредставл(ОпрДеньНедели("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", ДатаДляПечатиКалендаря));
Исключение
КонецПопытки;

Выводим на печать дни недели для каждого дня месяца

CMblCL, 14 Июля 2016

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

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

−99

1

http://1c.ru/news/info.jsp?id=21537

ну не вирус конечно, но первый дропер на 1С

znsoft, 24 Июня 2016

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

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