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

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

−133
1. 01
2. 02
3. 03
4. 04
5. 05
6. 06
7. 07
8. 08
9. 09
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
```
Процедура БазоваяПриИзменении(Элемент)
		Если ЭтаФорма.ЕдОтчетов = Истина Тогда
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВДаллахПриИзменении(Элемент)
		Если ЭтаФорма.ВДаллах = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура Ед_храненияОстПриИзменении(Элемент)
		Если ЭтаФорма.Ед_храненияОст = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВРубляхПриИзменении(Элемент)
		Если ЭтаФорма.ВРублях = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;
КонецПроцедуры
```
Замечательная реализация радиобаттонов через флажки

Запостил: ingenuus, 16 Декабря 2010

Tweet
Комментарии (39) RSS
- TarasB 16.12.2010 17:09 # +5
  
  > Если ЭтаФорма.ВРублях = Истина Тогда
  
  Головой об батарею!!!
  Почему в учебниках об этом не пишут сразу же при рассказе о лигоческом типе? Пора бы уже в компиляторы предупреждение ставить.
  Ответить
  - gegMOPO4 17.12.2010 16:27 # +1
    
    Да, сказал бы спасибо, если бы компиляторы прямо заявляли, что они думают об авторе таких конструкций.
    Ответить
    - bugmenot 17.12.2010 17:05 # 0
      
      в данном случае даже не компилятор
      и учебники под сабж рассчитаны на интеллект собаки
      так что здесь поможет только живительная эвтаназия
      Ответить
  - guest 11.04.2011 22:53 # 0
    
    А достаточно написать
    Если ВРублях Тогда
    (это если брать только приведенную строчку безотносительно к остальному)
    это ппц, простите.
    Ответить
- bugmenot 16.12.2010 17:26 # +1
  
  ХизбаллахПриИзменении?
  Ответить
  - bugmenot 17.12.2010 09:14 # 0
    
    до меня по утру дошло
    man, you got a dollah?
    i'll give you crowbar for dollah!
    код писал не индус, а ниггер
    Ответить
- eee_qqq 16.12.2010 17:51 # 0
  
  ЭтаФорма - это типа аналог this ?)
  Ответить
  - ingenuus 16.12.2010 17:54 # 0
    
    Аналог this - ЭтотОбъект.
    
    ЭтаФорма - ссылка на гуи форму объекта.
    Ответить
  - istem 16.12.2010 18:08 # +8
    
    ЭтаФорма, ЭтотКомпьютер, ЭтотПрограммист, ЭтаФирма, ЭтотГород, и конечно, ЭтаСтрана..
    Ответить
    - Under 17.12.2010 13:37 # +3
      
      ЭтаПять
      Ответить
- eee_qqq 16.12.2010 18:25 # 0
  
  Копец, прям какой то детектор лжи.
  Ответить
- FadedInto 16.12.2010 18:57 # 0
  Если ЭтаФорма.ЕдОтчетов = Истина Тогда ЭтаФорма.ВДаллах = Ложь; ... Иначе ЭтаФорма.ВДаллах = Ложь; ... КонецЕсли;
  Гениально же.
  Ответить
  - VASMAN 17.12.2010 22:28 # 0
    
    Судя по коду, ЭтаФорма.ВДаллах — всегда ложь
    Ответить
    - Timmi 18.12.2010 04:03 # +2
      
      Вот нихуя! ВДаллах привязан к элементу формы и изменяется системой еще до вызова процедуры. Присваивать то же значение повторно уже не нужно, так что тут всё верно.
      
      В целом, код волне рабочий.
      
      ...И это, кстати, самое страшное.
      Ответить
- Анонимус 16.12.2010 20:01 # +5
  Если страна = ЭтаСтрана и поросенок = "Петр" и рубашка.цвет = Цвета.Белый тогда //в гугл -- поросенок петр КонецЕсли
  Ответить
  - bugmenot 16.12.2010 20:16 # 0
    
    поросёнок.наме
    Ответить
    - Анонимус 16.12.2010 20:17 # +2
      
      о! хочу такой ЯП:
      
      иф пигги.наме иквалс "Петр" зен ЭндИф
      Ответить
      
      da4ever 17.12.2010 07:13 # +1
      
      дефайнты в помощь
      Ответить
  - eth0 16.12.2010 23:45 # +2
    
    Тогда
    СраныйТрактор = НайтиТрактор("СраныйТрактор");
    СраныйТрактор.Спиздить ();
    СъебатьИз(страна);
    КонецЕсли
    Ответить
    - Анонимус 16.12.2010 23:49 # +5
      
      Найти(тип => Трактор, сраный => истина).спиздить();
      Ответить
    - Трактор 28.01.2011 13:52 # −2
      
      Съеби, говнокодер!
      Ответить
- istem 17.12.2010 17:05 # +6
  
  Существует ли в 1с конструкция вида "ЕСЛИ БЫ ... ДА КАБЫ..."?
  Ответить
- VASMAN 17.12.2010 22:32 # −1
  
  А бывает ли вообще не-говнокод на 1С?
  Ответить
  - istem 18.12.2010 00:07 # 0
    
    Может и бывает. Например:
    
    Процедура ПриНажатии() ЗапуститьПриложение("ne-govnokod.exe"); КонецПроцедуры
    Ответить
    - bugmenot 18.12.2010 00:41 # −1
      
      они там вроде среду active scripting могут создавать и там уже на vbscript каля-маля :-)
      Ответить
      
      VASMAN 18.12.2010 03:37 # −1
      
      То-то и дело, что каля-маля... :)
      Ответить
      
      bugmenot 18.12.2010 20:41 # −2
      
      а по-другому просто не могут, иначе бы давно уже перешли на VB-с-фигурными-скобками
      Ответить
  - croacker 31.12.2010 07:19 # −1
    
    Бывает неговнокод.
    Проблема данного примера, связана с тем, что работа с радиобатонами в 7.7. была реализована несколько иначе чем в существоваших на тот момент, других средствах разработки. Большинство предпочитало не разбираться, а забивать и использовать чекбоксы. Соответственно при переходе на 8.Х все потащили с собой эту и многие другие замечательные привычки.
    P.S. есть еще известный штамп, результат функции всегда возвращает значение примитивного типа(это правда скорее из TP пошло)
    Ответить
    - bugmenot 31.12.2010 14:43 # 0
      
      Возможно:
      "разработчики 1С предпочли не разбираться, что-такое радиобаттон, и в результате... работа с радиобатонами в 7.7. была реализована..." далее по тексту
      Ответить
      
      croacker 04.01.2011 07:45 # 0
      
      что далее?
      Ответить
      
      bugmenot 04.01.2011 18:39 # +1
      
      по тексту
      Ответить
- guest 01.01.2011 19:50 # +2
  
  http://s59.radikal.ru/i163/0812/8a/4ef94150b1c0.jpg
  Ответить
- guest 05.01.2011 00:10 # −2
  
  новый тред начинаем
  Ответить
  - guest 05.01.2011 00:11 # −2
    
    я ебусь с 1с
    Ответить
    - guest 05.01.2011 00:12 # −2
      
      1с знатне шлюхэ
      Ответить
      
      guest 05.01.2011 00:13 # −3
      
      http://img471.imageshack.us/img471/7431/73029836la6.jpg
      Ответить
      
      guest 05.01.2011 00:14 # −2
      
      паливо билять нас засниффить хотят
      Ответить
      
      guest 05.01.2011 00:15 # −3
      
      http://katushka.net/torrents/38714/screenshot_43799.jpg
      Ответить
- sergeante 31.03.2011 17:31 # 0
  
  А теперь давайте добавим на форму ещё один "радиобаттон"........
  Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

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

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

Комментарии (39) RSS

Добавить комментарий