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

Всего: 4

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

−162

1

НоваяСтрока.ТелефонныйНомер = Прав(НоваяСтрока.ТелефонныйНомер, стрДлина(НоваяСтрока.ТелефонныйНомер));

Выдрано из Рарус СофтФон. Ума не приложу, что они хотели этим сказать...

Ivon, 03 Сентября 2014

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

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

−124

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

КоличествоОбъектов_ = 0;
	
	Для Каждого СтрокаТаблицы Из Объекты Цикл
		Если СтрокаТаблицы.Объект = Элемент.Значение Тогда
			КоличествоОбъектов_ = КоличествоОбъектов_ + 1;
		КонецЕсли;
	КонецЦикла;

	Если КоличествоОбъектов_ > 1 Тогда
		Элемент.Значение = Справочники.ОбъектыСтрахования.ПустаяСсылка();
		Предупреждение("Выбранный объект уже присутствует в списке");
		Возврат;
	КонецЕсли;

Нашел такое в конфе, которую поддерживаю.
Программер накнопал алгоритм, чтобы исключить попадание одного и того же объекта в таблицу.
Вначале был ступор, потом дошло.

Ivon, 18 Марта 2013

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

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

−121

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

Док.н212=ТекЛист.Cells(х,2).Text; 
Док.н213=ТекЛист.Cells(х,3).Text; 
Док.н214=ТекЛист.Cells(х,4).Text; 
Док.н215=ТекЛист.Cells(х,5).Text;; 
Док.н216=ТекЛист.Cells(х,6).Text; 
Док.н217=ТекЛист.Cells(х,7).Text;; 
Док.н218=ТекЛист.Cells(х,8).Text; 
Док.н219=ТекЛист.Cells(х,9).Text; 
Док.н220=ТекЛист.Cells(х,10).Text; 
Док.н221=ТекЛист.Cells(х,11).Text; 
Док.н222=ТекЛист.Cells(х,12).Text; 
Док.н223=ТекЛист.Cells(х,13).Text; 
Док.н224=ТекЛист.Cells(х,14).Text; 
Док.н225=ТекЛист.Cells(х,15).Text; 
Док.н226=ТекЛист.Cells(х,16).Text; 
Док.н227=ТекЛист.Cells(х,17).Text; 
Док.н228=ТекЛист.Cells(х,18).Text; 
Док.н229=ТекЛист.Cells(х,19).Text; 
Док.н230=ТекЛист.Cells(х,20).Text; 
Док.н231=ТекЛист.Cells(х,21).Text; 
Док.н232=ТекЛист.Cells(х,22).Text; 
Док.н233=ТекЛист.Cells(х,23).Text; 
Док.н234=ТекЛист.Cells(х,24).Text; 
Док.н235=ТекЛист.Cells(х,25).Text; 
Док.н236=ТекЛист.Cells(х,26).Text; 
Док.н237=ТекЛист.Cells(х,27).Text; 
Док.н238=ТекЛист.Cells(х,28).Text; 
Док.н239=ТекЛист.Cells(х,29).Text; 
Док.н240=ТекЛист.Cells(х,30).Text; 
Док.н241=ТекЛист.Cells(х,31).Text; 
Док.н242=ТекЛист.Cells(х,32).Text; 
Док.н243=ТекЛист.Cells(х,33).Text; 
Док.н244=ТекЛист.Cells(х,34).Text; 
Док.н245=ТекЛист.Cells(х,35).Text; 
Док.н246=ТекЛист.Cells(х,36).Text; 
Док.н247=ТекЛист.Cells(х,37).Text; 
Док.н248=ТекЛист.Cells(х,38).Text; 
Док.н249=ТекЛист.Cells(х,39).Text; 
Док.н250=ТекЛист.Cells(х,40).Text; 
Док.н251=ТекЛист.Cells(х,41).Text; 
Док.н252=ТекЛист.Cells(х,42).Text; 
Док.н253=ТекЛист.Cells(х,43).Text; 
Док.н254=ТекЛист.Cells(х,44).Text; 
Док.н255=ТекЛист.Cells(х,45).Text; 
Док.н256=ТекЛист.Cells(х,46).Text; 
Док.н257=ТекЛист.Cells(х,47).Text; 
Док.н258=ТекЛист.Cells(х,48).Text; 
Док.н259=ТекЛист.Cells(х,49).Text; 
Док.н260=ТекЛист.Cells(х,50).Text; 
Док.н261=ТекЛист.Cells(х,51).Text; 
Док.н262=ТекЛист.Cells(х,52).Text; 
Док.н263=ТекЛист.Cells(х,53).Text; 
Док.н264=ТекЛист.Cells(х,54).Text; 
Док.н265=ТекЛист.Cells(х,55).Text; 
Док.н266=ТекЛист.Cells(х,56).Text; 
Док.н267=ТекЛист.Cells(х,57).Text; 
Док.н268=ТекЛист.Cells(х,58).Text; 
Док.н269=ТекЛист.Cells(х,59).Text;	

// ... 
// и так далее все реквизиты

Тот же программер с поиском даты заполняет реквизиты документа.

Ivon, 09 Декабря 2010

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

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

−127

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

Каталог=СокрЛП(ИмяКаталога); 

Цифры="0123456789"; 
Д=ТекущаяДата(); 
ДД=""; 
Стр=Каталог; 

х=Найти(Стр,"."); 
Если х>0 Тогда 
Символ1=Сред(Стр,х-2,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,х-1,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2+"."; 
КонецЕсли; 

Стр=Сред(Стр,х+1); 
КонецЕсли; 

х=Найти(Стр,"."); 
Если х>0 Тогда 
Символ1=Сред(Стр,х-2,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=ДД+Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,х-1,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2+"."; 
КонецЕсли; 

Стр=Сред(Стр,х+1); 

Символ1=Лев(Стр,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=ДД+Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,2,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2; 
КонецЕсли; 
КонецЕсли; 

Если СтрДлина(ДД)=8 Тогда 
Д=Дата(ДД); 
Сообщить(Д); 
КонецЕсли;

Вот нашел на одном из форумов. Программер ищет дату.