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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2323)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

1. 1C / Говнокод #17520

   −125

   1. 1

   КоличествоСтраницПриПечати = Цел(ТабличныйДокумент.ВысотаТаблицы /  40.417) + 1 + 1;

   Разработчик 1С вооруженный линейкой опасен в 1+1 раз.

   safer_bwd, 26 Января 2015

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

2. 1C / Говнокод #17519

   −121

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10

   Функция ПереформатироватьДату(Дата)
    Год  = Формат(Дата, "ДФ=гггг");
    Месяц = Формат(Дата, "ДФ=ММ");
    День = Формат(Дата, "ДФ=дд");
    Час  = Формат(Дата, "ДФ=Ч") ;
    Минута  = Формат(Дата, "ДФ=мм");
    Секунда = Формат(Дата, "ДФ=сс");
    ПолученнаяДата = Год+Месяц+День+Час+Минута+Секунда;
    Возврат ПолученнаяДата; 
   КонецФункции

   Творчечство стажера. Надо было в скл -запрос подсунуть дату в виде строки. Должно быть Формат(Дата, "ДФ=yyyyMMddhhmmss"). Да и отдельной функции не надо

   delph1ct, 26 Января 2015

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

3. 1C / Говнокод #17438

   −125

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8
   9. 9

   ВЫБОР
   	КОГДА &ПоказыватьВсеПотребности
   	ТОГДА ВЫБОР 
   		КОГДА ОсновнаяТаблица.КоличествоПлана <= 0
   			ТОГДА ОсновнаяТаблица.КоличествоПлана
   		ИНАЧЕ ОсновнаяТаблица.КоличествоПлана
   	КОНЕЦ
   ИНАЧЕ ОсновнаяТаблица.КоличествоПлана
   КОНЕЦ КАК КоличествоПлана

   плана было больше количество, это уж точно

   dawgcha, 13 Января 2015

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

4. 1C / Говнокод #17430

   −126

   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

   Если ЗаполненАдрес=0 Тогда
   	Если  ПустаяСтрока(Запрос.ЭлПочта)=0 Тогда
   		Продолжить;
   	Иначе
   		ТЗ.НоваяСтрока();
   		ТЗ.Код			= Запрос.Контрагенты.Код;
   		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
   		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
   	КонецЕсли;
   иначе
   	Если  ПустаяСтрока(Запрос.ЭлПочта)=1 Тогда
   		Продолжить;
   	Иначе
   		ТЗ.НоваяСтрока();
   		ТЗ.Код			= Запрос.Контрагенты.Код;
   		ТЗ.Контрагент 	= Запрос.Контрагенты.Наименование;
   		ТЗ.ЭлАдрес		= Запрос.ЭлПочта;
   	КонецЕсли;
   Конецесли;

   ЗаполненАдрес - это чекбокс.
   Если сократить код, то получится:
   
   Если ЗаполненАдрес<>ПустаяСтрока(Запрос.ЭлПоч та) Тогда
   ТЗ.НоваяСтрока();
   ТЗ.Код = Запрос.Контрагенты.Код;
   ТЗ.Контрагент = Запрос.Контрагенты.Наименование;
   ТЗ.ЭлАдрес = Запрос.ЭлПочта;
   КонецЕсли;

   noncode, 12 Января 2015

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

5. 1C / Говнокод #17355

   −124

   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
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68
   69. 69

   //часть текста запроса
                                  |ИЗ
   		               |	ЭтапыОплатыИсходник КАК ЭтапыОплаты
   		       		   |//ТекстОтбора
   		               |{ГДЕ
   .................
   
   		//Добавляем поля если используется отбор
   		ТекстОтбора="ГДЕ ";
   		ТекстОтбора=ТекстОтбора+" ИСТИНА";		
   		НомерПеременнойОтбора=1;
   		Для каждого  СтрокаТекущегоОтбора Из ПостроительОтчета.Отбор Цикл
   
   			if НЕ СтрокаТекущегоОтбора.Использование then
   				continue;
   			endif;
   
   			СложноеИмяПоля=ПолучитьИмяПоляБезТочек(СтрокаТекущегоОтбора.ПутьКДанным);
   			Если  ПостроительОтчета.Отбор.Найти(СложноеИмяПоля)=Неопределено Тогда
   				Если СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Больше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" > &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.БольшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" >= &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Меньше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" < &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.МеньшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <= &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВИерархии  Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <> &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Равно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" = &ПеременнаяОтбора"+НомерПеременнойОтбора;	
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				КонецЕсли; 
   			КонецЕсли; 
   		КонецЦикла; 
   
   		Если НомерПеременнойОтбора>1 Тогда
   			Запрос.Текст=СтрЗаменить(Запрос.Текст,"//ТекстОтбора",ТекстОтбора);
   		КонецЕсли;

   При этом при всем, в отчете используется 2 построителя ( на одном не смог построить , одного видимо было было мало для стратегии заложенной в голове:) ) + между ними используется куча запросов , в которых выгружаются таблицы (РезультатЗапроса.Выполнить().Выгрузить( )) и передаются в следующие запросы как параметры.
   От себя добавлю: Добавлял элементарные вещи, чтобы вывести пару дополнительных колонок - убить 1 час , тоже самое, что ничего не сделать..... Да и к тому же отчет рисуется через "ТабДок.Присоеденить".

   Ba_Ka, 22 Декабря 2014

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

6. 1C / Говнокод #17354

   −125

   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
   48. 48
   49. 49
   50. 50
   51. 51
   52. 52
   53. 53
   54. 54
   55. 55
   56. 56
   57. 57
   58. 58
   59. 59
   60. 60
   61. 61
   62. 62
   63. 63
   64. 64
   65. 65
   66. 66
   67. 67
   68. 68
   69. 69

   //часть текста запроса
                                  |ИЗ
   		               |	ЭтапыОплатыИсходник КАК ЭтапыОплаты
   		       		   |//ТекстОтбора
   		               |{ГДЕ
   .................
   
   		//Добавляем поля если используется отбор
   		ТекстОтбора="ГДЕ ";
   		ТекстОтбора=ТекстОтбора+" ИСТИНА";		//NP002
   		НомерПеременнойОтбора=1;
   		Для каждого  СтрокаТекущегоОтбора Из ПостроительОтчета.Отбор Цикл
   
   			if НЕ СтрокаТекущегоОтбора.Использование then
   				continue;
   			endif;
   
   			СложноеИмяПоля=ПолучитьИмяПоляБезТочек(СтрокаТекущегоОтбора.ПутьКДанным);
   			Если  ПостроительОтчета.Отбор.Найти(СложноеИмяПоля)=Неопределено Тогда
   				Если СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Больше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" > &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.БольшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" >= &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.ВИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Меньше Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" < &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.МеньшеИлиРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <= &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСписке или 
   					СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВСпискеПоИерархии Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В (&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеВИерархии  Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И НЕ "+"ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" В ИЕРАРХИИ(&ПеременнаяОтбора"+НомерПеременнойОтбора+")";	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.НеРавно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" <> &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				ИначеЕсли СтрокаТекущегоОтбора.ВидСравнения=ВидСравнения.Равно Тогда
   					ТекстОтбора=ТекстОтбора+Символы.ПС+" И ЭтапыОплаты."+СтрокаТекущегоОтбора.ПутьКДанным+" = &ПеременнаяОтбора"+НомерПеременнойОтбора;	//NP002
   					Запрос.УстановитьПараметр("ПеременнаяОтбора"+НомерПеременнойОтбора,СтрокаТекущегоОтбора.Значение);
   					НомерПеременнойОтбора=НомерПеременнойОтбора+1
   				КонецЕсли; 
   			КонецЕсли; 
   		КонецЦикла; 
   
   		Если НомерПеременнойОтбора>1 Тогда
   			Запрос.Текст=СтрЗаменить(Запрос.Текст,"//ТекстОтбора",ТекстОтбора);
   		КонецЕсли;

   При этом при всем, в отчете используется 2 построителя ( на одном не смог построить , одного видимо было было мало для стратегии заложенной в голове:) ) + между ними используется куча запросов , в которых выгружаются таблицы (РезультатЗапроса.Выполнить().Выгрузить( )) и передаются в следующие запросы как параметры.
   От себя добавлю: Добавлял элементарные вещи, чтобы вывести пару дополнительных колонок - убить 1 час , тоже самое, что ничего не сделать..... Да и к тому же отчет рисуется через "ТабДок.Присоеденить".

   Ba_Ka, 22 Декабря 2014

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

7. 1C / Говнокод #17339

   −120

   1. 1

   |РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1980, 1, 1), НакладнаяНаОтпускМатериалы.ДатаВозврата, ДЕНЬ) + 2444240 КАК ДатаВозврата,

   Внезапно! Календарь майя

   safer_bwd, 19 Декабря 2014

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

8. 1C / Говнокод #17327

   −124

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12

   Процедура Флажок1ПриИзменении(Элемент)
   	
   	//выбираем контрагента
   	ТК	= табК.найти(Контрагент, "контрагент");
   	
   	Первый	= 2+2;
   	для кк=0 по табК.Количество()-1 цикл
   		элементыформы.МаршрутныйЛистК.Область("C"+число(кк*3+1+Первый)).Видимость	= (ОтобразитьВсеМеста и ТабК[кк]=ТК);
   	конеццикла;	
   	
   	
   КонецПроцедуры

   Продукт "1С:Молокозавод. Международная поставка для пользователей "1С:Управление производственным предприятием "
   Форма документа "МОЛ_ЗаказПоМаршруту".
   Фирма "ЦНТУиК" (ЗАО "Центр научно-технических услуг и консультаций").
   Не понятно что они курят.

   x-salik, 18 Декабря 2014

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

9. 1C / Говнокод #17254

   −125

   1. 1
   2. 2

   Движение = Движения.Добавить();
   Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(Счет.Код);

   facepeeler, 04 Декабря 2014

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

10. 1C / Говнокод #17253

    −122

    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

    Для Индекс = 1 По 4 Цикл
    
    	Если Индекс = 1 Тогда
    		<Действие1...>;
    	ИначеЕсли Индекс = 2 Тогда
    		<Действие2...>;
    	ИначеЕсли Индекс = 3 Тогда
    		<Действие3...>;
    	ИначеЕсли Индекс = 4 Тогда
    		<Действие4...>;
    	КонецЦикла;	
    
    КонецЦикла

    facepeeler, 04 Декабря 2014

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

• ← влево
• вправо →

• 54
• …
• 32
• 31
• 30
• 29
• 28
• 27
• 26
• 25
• 24
• …
• 1