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

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

−119

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

Функция ЧекМайл(Майл) 
    
	Перем Чек;
	
	Если Найти(Майл,"@mail.ru")<>0 Тогда
		
		Чек = 0; 
		
	Иначе	
		
		Чек = 1;
		
	КонецЕсли;
	
	Возврат Чек;
	
КонецФункции

...
	  Если ЧекМайл("[email protected]") = 0 Тогда
	  	 Предупреждение("Ой! Что-то пошло не так!");
	  	 Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
	  	 СтатусВозврата(0);
	  	 Возврат;
	  КонецЕсли;

могли и предупредить ...

informatikmarazmatik, 16 Мая 2012

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

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

−115

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

Тз = СоздатьОбъект("ТаблицаЗначений");
	Тз.НоваяКолонка("Число");
	Для й=1 По 100 Цикл
		Тз.НоваяСтрока();
		Тз.Число = й;
	КонецЦикла;
	КоличествоСтрокТз = Тз.КоличествоСтрок();
	Для й=-КоличествоСтрокТз По -1 Цикл
		ЗначениеИзТз = Тз.ПолучитьЗначение(-й,"Число");
		ПроверяемоеЗначение = ЗначениеИзТз/2-Цел(ЗначениеИзТз/2);
		Если ПроверяемоеЗначение <> 0 Тогда
			Тз.УдалитьСтроку(-й);
		КонецЕсли;
	КонецЦикла;
	Тз.ВыбратьСтроку();

Четные числа до 100

informatikmarazmatik, 16 Мая 2012

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

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

−102

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

ВыборкаДетальныеЗаписи = Результат.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Продукт=ВыборкаДетальныеЗаписи.Продукт;
		ЕдИзм=ВыборкаДетальныеЗаписи.ЕдИзмПродукта;
		Количество=ВыборкаДетальныеЗаписи.КолвоПродукта;
		Если Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/2 кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/2кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1\2 кг" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1\2кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(500  гр)"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,5кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="(05кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта/2;
			
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/2,5кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(250 гр)" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,25 кг)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,25кг"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.25;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4кг." ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/4кг"   ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="1/4 кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,7)="1/4 кг."  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,4кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,3)="1/4"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.4;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="0,085 кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,085кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.085;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,7кг"  Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.7;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(100 гр)"  Тогда
	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.1;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(350 гр)"  ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="350гр."  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,35кг"  ИЛИ 
			 Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,35 кг" Тогда
 	        Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.35;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(450 гр)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,9)="(0,45 кг)" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,45кг"  Тогда
            Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.45;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,5)="1/3кг"  ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,3 кг)" ИЛИ
			Прав(ВыборкаДетальныеЗаписи.Продукт,5)="0,3кг"   Тогда
		    Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.3;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1\1,8 кг" ИЛИ 
			Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,18кг)"   Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.18;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,8)="1/1,5 кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.15;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,8)="(0,12кг)" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.12;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,08 кг" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.08;
		ИначеЕсли Прав(ВыборкаДетальныеЗаписи.Продукт,7)="0,075кг" Тогда 
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.75;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,03кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.03;
		ИначеЕсли  Прав(ВыборкаДетальныеЗаписи.Продукт,6)="0,23кг" Тогда
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта*0.23;
	
		Иначе
			Цена=Цена+ВыборкаДетальныеЗаписи.ЦенаПродукта;
		КонецЕсли;
		
	КонецЦикла;

Отчет почему-то не всегда работал :)

sipkin, 14 Мая 2012

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

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

−119

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

Если      НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.Ожидает Тогда
        СтатусЗаказаСтр = "Ожидает";
ИНачеЕсли НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.Обработан Тогда
        СтатусЗаказаСтр = "Обрабатывается";
ИНачеЕсли НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.Оплачен Тогда
        СтатусЗаказаСтр = "Оплачен";
ИНачеЕсли НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.ОтправленПокупателю Тогда
        СтатусЗаказаСтр = "Отгружен";
ИНачеЕсли НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.Завершен Тогда
        СтатусЗаказаСтр = "Готов";
ИНачеЕсли НовыйСтатус = Перечисления.веб_СтатусыВебЗаказов.Отменен Тогда
        СтатусЗаказаСтр = "Отменён";
КонецЕсли;

Приведение типов? Нет, не слышал.

qweqwe, 03 Мая 2012

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

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

−124

1
2

мЦветКрасный = Новый Цвет(255, 0, 0); // красный
мЦветЧерный  = Новый Цвет(0, 0, 0);      // черный

Комментарии жиденькие, мог бы подробнее расписать.

qweqwe, 03 Мая 2012

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

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

−179

1
2
3

Если Не КВыгрузке Тогда
    КВыгрузке = НЕ КВыгрузке;
КонецЕсли;

inspired, 03 Мая 2012

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

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

−120

1
2
3
4
5

Если НЕ Докум.ПроверенноБухгалтером Тогда
	ЧихПых = Истина;     // подмена контрагента на НЕПРОВЕРЕНО БУХОМ
Иначе
	ЧихПых = Ложь;
КонецЕсли;

Вот такой вот фокус от программистов для бухгалтеров.

koshak84, 28 Апреля 2012

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

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

−144

01
02
03
04
05
06
07
08
09
10
11

Функция ПроверкаОснДаты(Конт,Текст) Экспорт
	Попытка	Дат=Конт.ДатаОперации;
	Исключение
		Попытка		Дат=Конт.ДатаДок;
		Исключение	Дат='';	КонецПопытки;
	КонецПопытки;
	Если Дат<Константа.ОснДатаГл Тогда
		ДействиеНеВыполнено(Шаблон("[Текст]. Период закрыт"));
	КонецЕсли;
	Возврат СтатусВозврата();
КонецФункции

Terrible, 19 Апреля 2012

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

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

−129

1
2
3
4
5

//если период поселения не соотв. порядку дат - забьем пустые клетки
~нах:	Если НачалоДня(выбГруппаПериод.периодГРуппа)>НачалоДня(ТекДатаШ) Тогда
		ВывестиПустоеМесто(Выбмест.Место,ТекДатаШ);
		Перейти ~нах;
	КонецЕсли;

Меток не видел со времён изучения ассемблера... Это ужас... Хотя переходят верно =)

gavrick, 04 Апреля 2012

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

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

−136

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

function iofam(val a)
var fio[3];
fio[1]=""; fio[2]=""; fio[3]="";
a=trimall(a);
while strcountoccur(a,"  ")>0 do
  a=strreplace(a,"  "," ");
enddo;
i=1;
while (strcountoccur(a," ")>0) and (i<=2) do
  fio[i]=left(a,find(a," ")-1);
  a=right(a,strlen(a)-1-strlen(fio[i]));
  i=i+1;
enddo;
fio[i]=a;
return (left(fio[2],1)+"."+left(fio[3],1)+". "+fio[1]);
endfunction

int1789, 03 Апреля 2012

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

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