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

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

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

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   −99

   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

   Типовая зуп 2.5 данные берутся из справочника  "Степени родства физических лиц" не предопределенные элементы. 
   
   
   
   	Если ТекущаяСтрока.Пол = Перечисления.ПолФизическихЛиц.Мужской Тогда
   		
   		Если СтепеньРодстваРебенка = "05 " ИЛИ СтепеньРодстваРебенка = "06 " Тогда // Сын // Дочь
   			
   			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["03"]; // Отец
   			
   		ИначеЕсли СтепеньРодстваРебенка = "42 " ИЛИ СтепеньРодстваРебенка = "43 " Тогда // Пасынок // Падчерица
   			
   			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["40"]; // Отчим
   			
   		КонецЕсли; 
   		
   	Иначе
   		
   		Если СтепеньРодстваРебенка = "05 " ИЛИ СтепеньРодстваРебенка = "06 " Тогда // Сын // Дочь
   			
   			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["04"]; // Мать
   			
   		ИначеЕсли СтепеньРодстваРебенка = "42 " ИЛИ СтепеньРодстваРебенка = "43 " Тогда // Пасынок // Падчерица
   			
   			ТекущаяСтрока.Статус = СоответствиеСтепенейРодства["41"]; // Мачеха
   			
   		КонецЕсли; 
   		
   	КонецЕсли;

   sandrohaos, 18 Февраля 2016

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

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

   −111

   1. 1

   ПроцентНДС = 18;

   Сферический, в вакууме. При любых условиях. 18! И точка! Что? Перечисление? Какое нахрен ещё перечисление! Перечисления для слабаков!

   levxxx, 15 Февраля 2016

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

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

   −38

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   ВЫБРАТЬ
   	
   	СправочникНоменклатура.Ссылка КАК Ссылка,
   	СправочникНоменклатура.Артикул КАК Артикул,
   	СправочникНоменклатура.Код КАК Код,
   	СправочникНоменклатура.Наименование КАК Наименование,
   	СправочникНоменклатура.ПометкаУдаления КАК ПометкаУдаления,
   	СправочникНоменклатура.Родитель КАК Родитель,
   	СправочникНоменклатура.ЭтоГруппа КАК ЭтоГруппа,
   	СправочникНоменклатура.Ссылка КАК Номенклатура,
   	СправочникНоменклатура.Ссылка КАК ЭлементСписка,
   	СправочникНоменклатура.ВидНоменклатуры КАК ВидНоменклатуры,
   	СправочникНоменклатура.ТипНоменклатуры КАК ТипНоменклатуры,
   	
   	ВЫБОР КОГДА СправочникНоменклатура.ТипНоменклатуры = ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Набор) ТОГДА
   		ЕСТЬNULL(ВариантыКомплектацииНоменклатуры.ВариантРасчетаЦеныНабора, ЗНАЧЕНИЕ(Перечисление.ВариантыРасчетаЦенНаборов.ПустаяСсылка))
   	ИНАЧЕ
   		ЗНАЧЕНИЕ(Перечисление.ВариантыРасчетаЦенНаборов.ПустаяСсылка)
   	КОНЕЦ КАК ВариантРасчетаЦеныНабора,
   	ВариантыКомплектацииНоменклатуры.СодержитТовары КАК СодержитТовары,
   	ВариантыКомплектацииНоменклатуры.СодержитУслуги КАК СодержитУслуги,
   	
   	СправочникНоменклатура.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
   	СправочникНоменклатура.ЦеноваяГруппа КАК ЦеноваяГруппа,
   	СправочникНоменклатура.Качество КАК Качество,
   	СправочникНоменклатура.ИспользованиеХарактеристик КАК ИспользованиеХарактеристик,
   	ВЫБОР
   		КОГДА СправочникНоменклатура.ТипНоменклатуры В (ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Товар), ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.МногооборотнаяТара))
   			ТОГДА ИСТИНА
   		КОГДА СправочникНоменклатура.ТипНоменклатуры В (ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Набор)) И ЕСТЬNULL(ВариантыКомплектацииНоменклатуры.СодержитТовары, ЛОЖЬ) И Не ЕСТЬNULL(ВариантыКомплектацииНоменклатуры.СодержитУслуги, ЛОЖЬ)
   			ТОГДА ИСТИНА
   		ИНАЧЕ ЛОЖЬ
   	КОНЕЦ КАК ЭтоТовар,
   	ВЫБОР
   		КОГДА СправочникНоменклатура.ТипНоменклатуры В (ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Услуга), ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Работа))
   			ТОГДА ИСТИНА
   		КОГДА СправочникНоменклатура.ТипНоменклатуры В (ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Набор)) И ЕСТЬNULL(ВариантыКомплектацииНоменклатуры.СодержитУслуги, ЛОЖЬ) И НЕ ЕСТЬNULL(ВариантыКомплектацииНоменклатуры.СодержитТовары, ЛОЖЬ)
   			ТОГДА ИСТИНА
   		ИНАЧЕ ЛОЖЬ
   	КОНЕЦ КАК ЭтоУслуга,
   	ВЫБОР
   		КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.ОбщиеДляВидаНоменклатуры)
   			ТОГДА СправочникНоменклатура.ВидНоменклатуры
   		КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.ИндивидуальныеДляНоменклатуры)
   			ТОГДА СправочникНоменклатура.Ссылка
   		КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.ОбщиеСДругимВидомНоменклатуры)
   			ТОГДА СправочникНоменклатура.ВладелецХарактеристик
   		ИНАЧЕ Неопределено
   	КОНЕЦ КАК ВладелецХарактеристик,
   	ВЫБОР
   		КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.НеИспользовать)
   			ТОГДА ЛОЖЬ
   		ИНАЧЕ ИСТИНА
   	КОНЕЦ КАК ХарактеристикиИспользуются,
   	ВЫБОР
   		КОГДА СправочникНоменклатура.ЭтоГруппа
   			ТОГДА ВЫБОР
   					КОГДА СправочникНоменклатура.ПометкаУдаления
   						ТОГДА 13
   					ИНАЧЕ 12
   				КОНЕЦ
   		ИНАЧЕ ВЫБОР
   				КОГДА СправочникНоменклатура.ЕстьТоварыДругогоКачества
   					ТОГДА 4 + ВЫБОР
   							КОГДА СправочникНоменклатура.ПометкаУдаления
   								ТОГДА 1
   							ИНАЧЕ 0
   						КОНЕЦ + ВЫБОР
   							КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.НеИспользовать)
   								ТОГДА 0
   							ИНАЧЕ 2
   						КОНЕЦ
   				ИНАЧЕ -1 + ВЫБОР
   						КОГДА СправочникНоменклатура.ПометкаУдаления
   							ТОГДА 1
   						ИНАЧЕ 0
   					КОНЕЦ + ВЫБОР
   						КОГДА СправочникНоменклатура.ИспользованиеХарактеристик = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияХарактеристикНоменклатуры.НеИспользовать)
   							ТОГДА 1
   						ИНАЧЕ 3
   					КОНЕЦ
   			КОНЕЦ
   	КОНЕЦ КАК ИндексКартинки,
   
   	&ВидыЦен КАК ВидЦены,
   	ЕСТЬNULL(ЦеныНоменклатуры.Упаковка, ЗНАЧЕНИЕ(Справочник.УпаковкиЕдиницыИзмерения.ПустаяСсылка)) КАК Упаковка,
   	ВЫРАЗИТЬ(ЕСТЬNULL(ЦеныНоменклатуры.Цена, 0) * ВЫБОР
   			КОГДА &Валюта <> ЦеныНоменклатуры.Валюта
   				ТОГДА ВЫБОР
   						КОГДА ЕСТЬNULL(КурсыСрезПоследнихВалютаЦены.Кратность, 0) > 0
   								И ЕСТЬNULL(КурсыСрезПоследнихВалютаЦены.Курс, 0) > 0
   								И ЕСТЬNULL(КурсыСрезПоследнихВалютаДокумента.Кратность, 0) > 0
   								И ЕСТЬNULL(КурсыСрезПоследнихВалютаДокумента.Курс, 0) > 0
   							ТОГДА КурсыСрезПоследнихВалютаЦены.Курс * КурсыСрезПоследнихВалютаДокумента.Кратность / (КурсыСрезПоследнихВалютаДокумента.Курс * КурсыСрезПоследнихВалютаЦены.Кратность)
   						ИНАЧЕ 0
   					КОНЕЦ
   			ИНАЧЕ 1
   		КОНЕЦ КАК ЧИСЛО(15, 2)) КАК Цена,
   	ВЫРАЗИТЬ(ЕСТЬNULL(СвободныеОстатки.ВНаличииОстаток, 0) / ЕСТЬNULL(ВЫБОР
   	КОГДА ЦеныНоменклатуры.Упаковка.ТипИзмеряемойВеличины = ЗНАЧЕНИЕ(Перечисление.ТипыИзмеряемыхВеличин.Вес) И ЦеныНоменклатуры.Номенклатура.ВесИспользовать

   Вот такой текст запроса в типовой конфигурации, причём он присутствует не в одном месте, а склеивается из разных кусков, в зависимости от условий, по моему неплохой претендент на звание лапши.

   VladC, 12 Февраля 2016

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

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

   −101

   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

   ЗапросУсл= Новый Запрос;
   ЗапросУсл.Текст=" ВЫБРАТЬ бит_УслугиЖКХ.Ссылка,
   |                       бит_УслугиЖКХ.Код,
   |                       бит_УслугиЖКХ.Наименование,
   |                       бит_УслугиЖКХ.Приоритет,
   |                       бит_УслугиЖКХ.ГруппаУслуги
   | ИЗ Справочник.бит_УслугиЖКХ КАК бит_УслугиЖКХ
   | ГДЕ бит_УслугиЖКХ.ПометкаУдаления=Ложь";
   	  
   tzУслуги=ЗапросУсл.Выполнить().Выгрузить(); 
   	 	 
   kolFind="";
   kolFind=мТаблицаПечати.Колонки.Найти("ГруппаУслуги");
   Если СокрЛП(Строка(kolFind))="" тогда
   	  мТаблицаПечати.Колонки.Добавить("ГруппаУслуги");
   КонецЕсли;
   	
    Для Каждого str_TP  Из мТаблицаПечати  Цикл 
    	//Сообщить(Строка(str_TP.Приоритет)+"    "+Строка(str_TP.Услуга));
   	 ncv="";
   	ncv= tzУслуги.Найти(str_TP.Услуга, "Ссылка" );
   	если СокрЛП(Строка(ncv))<>"" тогда
   		  str_TP.ГруппаУслуги=СокрЛП(Строка(ncv.ГруппаУслуги));
   	 конецесли;
   КонецЦикла;

   Так и хочется расстрелять этих козлов, но у них на сайте написано, что их более 5000 и они, как зараза, проникли в 43 города, в том числе и к буржуям.
   Ребя, скиньтесь на патроны, Greenpeace нас не забудет!

   ivan_0110, 05 Февраля 2016

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

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

   −97

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

   ПроцентОтОплаты = 0;
   		
   Если ЗначениеЗаполнено(Процент) Тогда			
   	ПроцентОтОплаты = Окр((ВыборкаПоГруппам.КОплате * 100 / (100 - Процент )) - ВыборкаПоГруппам.КОплате, 2);   			
   КонецЕсли; 
   ...
   мСтруктураДанных.Вставить("ИтогоКОплатеСУчетомПредоплаты",    ВыборкаПоГруппам.КОплате + ПроцентОтОплаты);

   Всё та же конфигурация...
   Если на форме выставили 10% предоплаты на 100р услуг, то некий сбор в пользу бедных будет 1,11р., а к оплате жильцу 111,11р.
   Если на форме выставили 15% предоплаты на 100р услуг, то некий сбор в пользу бедных будет 2,64р., а к оплате жильцу 117,64р.
   Если на форме выставили 99% предоплаты на 100р услуг, то некий сбор в пользу бедных будет 9900р., а к оплате жильцу 10000р.
   Если на форме выставили 100% предоплаты на 100р услуг, то будет крах босякам...
   
   Великий и могучий русский язык, но язык 1С его переплюнул тысячекратно... (

   ivan_0110, 05 Февраля 2016

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

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

   −99

   1. 1
   2. 2
   3. 3
   4. 4

   ЭлементыФормы.РедактированиеСклада.Доступность = Ложь;	
   Если ЭтотОбъект.ЭтоНовый() Тогда
   	ЭлементыФормы.РедактированиеСклада.Доступность = Ложь;
   КонецЕсли;

   когда склад недоступен никогда...

   CMblCL, 05 Февраля 2016

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

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

   −101

   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

   Процедура foo()
   		...
   		РезультатИтого = 0;
   		ТабДокВременный = Новый ТабличныйДокумент;
   	   		
   		ПечатьСчетИзвещения(...,РезультатИтого);
   		
   		Если (РезультатИтого > 0 ИЛИ РезультатИтого < 0 ИЛИ РезультатИтого = 0) и 
      	   	   	   	(СокрЛП(Строка(мСтруктураДанных.ЛицевойСчетФио)) <> "Вероятный собственник")  Тогда //это мое
   		...
   КонецПроцедуры
   
   //Функция формирует табличный документ с печатной формой СчетИзвещения
   //Возвращаемое значение:
   // Табличный документ - печатная форма 
   Функция ПечатьСчетИзвещения(..., РезультатИтого = Неопределено)  
   	...
      	Если РезультатИтого <> Неопределено Тогда
      	   	РезультатИтого = ОбластьИтого2.Параметры.КОплате; 
      	КонецЕсли;
   	...
   КонецФункции

   Самый реальный способ получения итогов запроса, что я видел!
   + кто-то ничье застолбил.
   Это из той же конфигурации, что и первая моя кладка.

   ivan_0110, 05 Февраля 2016

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

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

   −99

   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

   Если Сальдо = Перечисления.ДаНет.Да И Кредит = Перечисления.ДаНет.Да Тогда
               
   	СуммаКОплате   =  Строка.Сальдо +  Строка.Начислено +  Строка.Разовые - Строка.Оплата - Льгота;
   	Строка.Коплате = СуммаКОплате;
               
   ИначеЕсли Сальдо = Перечисления.ДаНет.Нет И Кредит = Перечисления.ДаНет.Да Тогда
               
   	СуммаКОплате   = Строка.Начислено + Строка.Разовые - Строка.Оплата - Льгота - ?(Строка.Сальдо < 0, Строка.Сальдо * -1, 0);
   	Строка.Коплате = СуммаКОплате;
               
   ИначеЕсли Сальдо = Перечисления.ДаНет.Да И Кредит = Перечисления.ДаНет.Нет Тогда
               
   	СуммаКОплате = ?(Строка.Сальдо > 0, Строка.Сальдо , 0) +  Строка.Начислено + Строка.Разовые - Строка.Оплата  - Льгота;
   	Строка.Коплате = СуммаКОплате;
               
   ИначеЕсли Сальдо = Перечисления.ДаНет.Нет И Кредит = Перечисления.ДаНет.Нет Тогда
               
   	СуммаКОплате = Строка.Начислено + Строка.Разовые - Льгота;
   	Строка.Коплате = СуммаКОплате;
               
   КонецЕсли;

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

   ivan_0110, 03 Февраля 2016

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

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

   −19

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

   Запрос = Новый Запрос;
   	Запрос.Текст = "ВЫБРАТЬ
   		|	ЗаказПоставщику.Ссылка КАК Ссылка
           |ИЗ
           |	Документ.ЗаказПоставщику КАК ЗаказПоставщику
           |ГДЕ
   		|	ЗаказПоставщику.EmeWmsЭкспорт И						
   		|	НЕ ЗаказПоставщику.ПометкаУдаления";

   yaguarvl, 01 Февраля 2016

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

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

    −88

    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

    // готовим выборку
    	ВыборкаПоСчетам = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + ЧастьБаланса);
    	Пока ВыборкаПоСчетам.Следующий() Цикл
    		ВыборкаСбк1 = ВыборкаПоСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "1");
    		Пока ВыборкаСбк1.Следующий() Цикл
    			ВыборкаСбк2 = ВыборкаСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "2");
    			Пока ВыборкаСбк2.Следующий() Цикл
    				ВыборкаСбк3 = ВыборкаСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "3");
    				Пока ВыборкаСбк3.Следующий() Цикл
    					ВыборкаПоКоррСчетам = ВыборкаСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + КоррЧастьБаланса);
    					Пока ВыборкаПоКоррСчетам.Следующий() Цикл
    						ВыборкаКоррСбк1 = ВыборкаПоКоррСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "1");
    						Пока ВыборкаКоррСбк1.Следующий() Цикл
    							ВыборкаКоррСбк2 = ВыборкаКоррСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "2");
    							Пока ВыборкаКоррСбк2.Следующий() Цикл
    								ВыборкаКоррСбк3 = ВыборкаКоррСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "3");
    								Пока ВыборкаКоррСбк3.Следующий() Цикл
    									ВыборкаНалСчет = ВыборкаКоррСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "СчетКорректировок");
    									Пока ВыборкаНалСчет.Следующий() Цикл
    										ВыборкаНалСбк1 = ВыборкаНалСчет.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто1Корректировок");
    										Пока ВыборкаНалСбк1.Следующий() Цикл
    											ВыборкаНалСбк2 = ВыборкаНалСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто2Корректировок");
    											Пока ВыборкаНалСбк2.Следующий() Цикл
    												ВыборкаНалСбк3 = ВыборкаНалСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто3Корректировок");
    												Пока ВыборкаНалСбк3.Следующий() Цикл
    													ВыборкаСделок = ВыборкаНалСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Сделка");
    													Пока ВыборкаСделок.Следующий() Цикл
    														ВыборкаДанных = ВыборкаСделок.Выбрать();
    														Если ВыборкаДанных.Следующий() Тогда
    															// Пара строк кода
    															Для Сч = 1 По 3 Цикл
    																Если ТипЗнч(ВыборкаДанных["Субконто" + ЧастьБаланса + Сч]) = Тип("СправочникСсылка.СтатьиЗатрат") Тогда
    																	// И тут еще пара строк кода
    																КонецЕсли;
    															КонецЦикла;
    														КонецЕсли;
    													КонецЦикла; // по сделкам
    												КонецЦикла; // по субконто3 корректировок
    											КонецЦикла; // по субконто2 корректировок
    										КонецЦикла; // по субконто1 корректировок
    									КонецЦикла; // по счетам корректировок
    								КонецЦикла; // по  корр субконто3
    							КонецЦикла; // по  корр субконто2
    						КонецЦикла; // по корр субконто1
    					КонецЦикла; // по корр счетам
    				КонецЦикла; // по субконто3
    			КонецЦикла; // по субконто2
    		КонецЦикла; // по субконто1
    	КонецЦикла; // по счетам

    Готовим выборку!

    grandatlant, 27 Января 2016

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

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

• 54
• …
• 38
• 37
• 36
• 35
• 34
• 33
• 32
• 31
• 30
• …
• 1