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

    −119

    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
    Функция РазобратьКодыНеисправностей(СтрокаКодов, ТипКода)
	СпрКодов = СоздатьОбъект("Справочник.КодыГарантийныхНеисправностей");
	ГруппаТ1 = СпрКодов.НайтиПоКоду("0",0);
	ГруппаТ2 = СпрКодов.НайтиПоКоду("00",0);
	ГруппаТ3 = СпрКодов.НайтиПоКоду("000",0);
	Если СтрокаКодов <> "" Тогда
		Разд1 = Найти(СтрокаКодов, ";");
		Разд2 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд1), ";") + Разд1;
		Разд3 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд2), ";") + Разд2;
		Разд4 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд3), ";") + Разд3;
		Разд5 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд4), ";") + Разд4;
		Разд6 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд5), ";") + Разд5;
		Разд7 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд6), ";") + Разд6;
		Разд8 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд7), ";") + Разд7;
		Разд9 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд8), ";") + Разд8;
		Разд10 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд9), ";") + Разд9;
		Разд11 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд10), ";") + Разд10;
		Если ТипКода = "Т1" Тогда
			Если Разд1 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ1);
				Если СпрКодов.НайтиПоКоду("0/" + Лев(СтрокаКодов,Разд1-1),2)  = 1 Тогда 
					ПолучТ1 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ1;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т2" Тогда
			Если Разд2-Разд1 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ2);
				Если СпрКодов.НайтиПоКоду("00/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд1), Разд2 - Разд1 - 1), 2) = 1 Тогда
					ПолучТ2 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ2;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_1" Тогда
			Если Разд3-Разд2 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд2), Разд3 - Разд2 - 1), 2) = 1 Тогда
					ПолучТ3_1 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_1;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_2" Тогда
			Если Разд4-Разд3 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд3), Разд4 - Разд3 - 1), 2) = 1 Тогда
					ПолучТ3_2 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_2;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_3" Тогда
			Если Разд5-Разд4 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд4), Разд5 - Разд4 - 1), 2) = 1 Тогда
					ПолучТ3_3 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_3;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_4" Тогда
			Если Разд6-Разд5 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд5), Разд6 - Разд5 - 1), 2) = 1 Тогда
					ПолучТ3_4 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_4; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_5" Тогда
			Если Разд7-Разд6 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд6), Разд7 - Разд6 - 1), 2) = 1 Тогда
					ПолучТ3_5 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_5;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_6" Тогда
			Если Разд8-Разд7 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд7), Разд8 - Разд7 - 1), 2) = 1 Тогда
					ПолучТ3_6 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_6; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_7" Тогда
			Если Разд9-Разд8 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд8), Разд9 - Разд8 - 1), 2) = 1 Тогда
					ПолучТ3_7 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_7; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_8" Тогда
			Если Разд10-Разд9 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд9), Разд10 - Разд9 - 1), 2) = 1 Тогда
					ПолучТ3_8 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_8; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_9" Тогда
			Если Разд11-Разд10 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);

    ещё один высер от автодилера.
    1. начнём сначала, там есть строки:
    ...
    ГруппаТ1 = СпрКодов.НайтиПоКоду("0",0);
    ..., обращаю внимание автора, что функция НайтиПоКоду не возвращает элемент справочника, она лишь говорит есть он или нет, для позиционирования на элементе не хватает строк типа ГруппаТ1 = СпрКодом.ТекущийЭлемент(); и т.д.
    2. дальше. в функцию передаётся параметр СтрокаКодов - это строка с запятыми в качестве разделителей. я конечно понимаю, что в 1С нет встроенной функции для получения массива частей строки типа split в java, но написать свою вообще не сложно, но видимо у автора не хватило мозг..., извините, времени.
    3. теперь смотрим на подобные (их несколько в функции) блоки кода типа:
    СпрКодов.ИспользоватьРодителя(ГруппаТ1);
    Если СпрКодов.НайтиПоКоду("0/" + Лев(СтрокаКодов,Разд1-1),2) = 1 Тогда
    ПолучТ1 = СпрКодов.ТекущийЭлемент();
    Возврат ПолучТ1;
    КонецЕсли;
    строка СпрКодов.ИспользоватьРодителя(ГруппаТ1); не имеет смысла, т.к. ГруппаТ1 содержит значение 1 (см. п.1), а не ссылку на элемент справочника, код работает только благодаря второму параметру - 2, т.к. он заставляет функцию НайтиПоКоду искать по всему справочнику, используя полный код.

    VladC, 02 Января 2013

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

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

    −122

    1. 1
    2. 2
    3. 3
    Word.FormFields("Data").Result  = СокрЛП(?(ДатаЧисло(ДатаДок2)<10,"0","")+ДатаЧисло(ДатаДок2)); 
Word.FormFields("Manth").Result = СокрЛП(МесяцПрописью(ДатаДок2)); 
Word.FormFields("God").Result   = СокрЛП(ДатаГод(ДатаДок2));

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

    VladC, 21 Декабря 2012

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

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

    −118

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Если (ЕстьНомен.НайтиЗначение(Док.Номенклатура) > 0)
	ИЛИ (ЕстьНомен.НайтиЗначение(Док.Номенклатура.Родитель) > 0) 
	ИЛИ (ЕстьНомен.НайтиЗначение(Док.Номенклатура.Родитель.Родитель) > 0) 
	ИЛИ (ЕстьНомен.НайтиЗначение(Док.Номенклатура.Родитель.Родитель.Родитель) > 0) 
	ИЛИ (ЕстьНомен.НайтиЗначение(Док.Номенклатура.Родитель.Родитель.Родитель.Родитель) > 0) 
	ИЛИ (ЕстьНомен.НайтиЗначение(Док.Номенклатура.Родитель.Родитель.Родитель.Родитель.Родитель) > 0) Тогда
		ИтогоРМ = ИтогоРМ+Док.Сумма;
КонецЕсли;

    ЕстьНомен - это элемент формы Список, т.е. код можно упростить до:

    Если ЕстьНомен.Принадлежит(Док.Номенклатура) =1 Тогда
    ИтогоРМ = ИтогоРМ+Док.Сумма;
    КонецЕсли;

    взято из конфигурации одного автодилера.

    VladC, 06 Декабря 2012

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

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

    −120

    1. 1
    Мутабелен ли 1С.Овощи.Банан?

    Коллега считает что мутабелен.

    serpinski, 03 Декабря 2012

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

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

    −119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    ВЫБРАТЬ
	ЕСТЬNULL(СрокПолезногоИспользования, 0) КАК СрокПолезногоИспользования
ИЗ
	РегистрСведений.РасчетАмортизацииОС.СрезПоследних
ГДЕ
	ОС = &ОсновноеСредство

    Типовая конфигурация. Там такой запрос используют в печатной форме Основных средств... Думает по 10-15 минут
    2 глупых ошибки:
    1. Проверка на NULL, в данном случае его быть не может (хотя это особо ни на что не влияет)
    2. Условие по законам 1С должно применяться в РегистрСведений.РасчетАмортизацииОС.Срез Последних(,ОС = &ОсновноеСредство), иначе сильно падает скорость выполнения.

    ok0504, 29 Ноября 2012

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

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

    −120

    1. 1
    2. 2
    3. 3
    Пока ТЗРаспределения.ТаблицаРеализацийИВозвратовНеСвернутая.ТаблицаНоменклатур.ТаблицаРеализацийНеСв.ТаблицаВозвратовНеСв.ПолучитьСтроку()=1 Цикл
     СтрокаВозвратов = СтрокаВозвратов + ТЗРаспределения.ТаблицаРеализацийИВозвратовНеСвернутая.ТаблицаНоменклатур.ТаблицаРеализацийНеСв.ТаблицаВозвратовНеСв.Возврат  	+ ";" ;
КонецЦикла;

    Очередной шедевр... Живем в 6(!!!)-мерном мире. У меня чуть мозг не взорвался.

    jerokee, 29 Ноября 2012

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

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

    −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
    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
    Пока Выборка1...
...Выборка2...
...
Выборка7 = ПрименяемостьНаПрибор_ПоискВхождений(Выборка6.НомерЗаписиРСДСЕГл, НаДату).Выбрать();
Пока Выборка7.Следующий() Цикл
	ПрименяемостьПоВхождению = ПрименяемостьПоВхождению * Выборка7.Применяемость;
	
	
	Если Выборка7.НомерЗаписиРСДСЕГл = 0 Тогда
		// Достигнут прибор
		Применяемость = Применяемость + ПрименяемостьПоВхождению;
	Иначе
		Выборка8 = ПрименяемостьНаПрибор_ПоискВхождений(Выборка7.НомерЗаписиРСДСЕГл, НаДату).Выбрать();
		Пока Выборка8.Следующий() Цикл
			ПрименяемостьПоВхождению = ПрименяемостьПоВхождению * Выборка8.Применяемость;
			
			Если Выборка8.НомерЗаписиРСДСЕГл = 0 Тогда
				// Достигнут прибор
				Применяемость = Применяемость + ПрименяемостьПоВхождению;
				
			Иначе
				Сообщить("Превышение значения выборки... Странная ситуация, вообще не должна возникать!!!");																			
				Сообщить("Срочно обратитесь в Отдел ВТ. Постарайтесь записать ситуацию в которой возникла эта ошибка... !!!");																			
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
КонецЦикла;
...
...

    По мотивам предыдущих постов. Все из одной конфигурации.

    Ykov89, 29 Ноября 2012

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

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

    −125

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Если СтрНВрОбщ.Действия = Перечисления.Действия.Удалить Тогда
	// Такого быть не должно... 
	Сообщить("Это сообщение не должно появиться... Обратитесь в отдел ИТ! ");
ИначеЕсли СтрНВрОбщ.Действия = Перечисления.Действия.Добавить Тогда
	//Тру-ля-ля... другой говнокод
КонецЕсли;

    При чем такого действительно "быть не должно", т.к. проверка есть и в другом модуле.

    Ykov89, 29 Ноября 2012

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

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

    −121

    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
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    Для каждого СтрГотИзд Из ГотовыеИзделия Цикл
	
	СсылкаДСЕ 		= ОпределитьДСЕГотовоеИзделиеПоНаименованию(СтрГотИзд.Значение);
	СсылкаЗаписьРС 	= НайтиПервуюЗаписьРС_ПоДСЕ(СсылкаДСЕ, ЭтотОбъект.НаДату);
	
	Если СсылкаЗаписьРС = Неопределено Тогда
		Предупреждение("На эту дату данных не существует!");
	Иначе
		
		
		ФормаИндикатора.КомментарийОбработкиДанных  = "Построение отчета: " + СсылкаДСЕ.ВидПредмета + " - " + СсылкаДСЕ.Наименование + ""; 
		
		ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные1, 1, СсылкаДСЕ, СсылкаЗаписьРС.Применяемость, Неопределено, ФормаИндикатора);
		Выборка2Ур = НайтиЗаписиРС_ПоКодуДСЕГл(СсылкаЗаписьРС.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
		Пока Выборка2Ур.Следующий() цикл
			ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные2, 2, Выборка2Ур.ДСЕВходящий, Выборка2Ур.Применяемость, Выборка2Ур, ФормаИндикатора);
			
			Выборка3Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка2Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
			Пока Выборка3Ур.Следующий() цикл
				ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные3, 3, Выборка3Ур.ДСЕВходящий, Выборка3Ур.Применяемость, Выборка3Ур, ФормаИндикатора);
				
				Выборка4Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка3Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
				Пока Выборка4Ур.Следующий() цикл
					ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные4, 4, Выборка4Ур.ДСЕВходящий, Выборка4Ур.Применяемость, Выборка4Ур, ФормаИндикатора);
					
					Выборка5Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка4Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
					Пока Выборка5Ур.Следующий() цикл
						ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные5, 5, Выборка5Ур.ДСЕВходящий, Выборка5Ур.Применяемость, Выборка5Ур, ФормаИндикатора);
						
						Выборка6Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка5Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
						Пока Выборка6Ур.Следующий() цикл
							ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные6, 6, Выборка6Ур.ДСЕВходящий, Выборка6Ур.Применяемость, Выборка6Ур, ФормаИндикатора);
							
							Выборка7Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка6Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
							Пока Выборка7Ур.Следующий() цикл
								ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные7, 7, Выборка7Ур.ДСЕВходящий, Выборка7Ур.Применяемость, Выборка7Ур, ФормаИндикатора);
								
								Выборка8Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка7Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
								Пока Выборка8Ур.Следующий() цикл
									ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные8, 8, Выборка8Ур.ДСЕВходящий, Выборка8Ур.Применяемость, Выборка8Ур, ФормаИндикатора);
									
									Выборка9Ур = НайтиЗаписиРС_ПоКодуДСЕГл(Выборка8Ур.НомерЗаписиРСДСЕВх, НаДату).Выбрать();
									Пока Выборка9Ур.Следующий() цикл
										ОбластьДанныеДобавить(ПолеТабДок, ОбластьДанные9, 9, Выборка9Ур.ДСЕВходящий, Выборка9Ур.Применяемость, Выборка9Ур, ФормаИндикатора);
									КонецЦикла;
								КонецЦикла;
							КонецЦикла;
						КонецЦикла;
					КонецЦикла;
				КонецЦикла;
			КонецЦикла;
		КонецЦикла;
	КонецЕсли;
КонецЦикла;



Функция НайтиЗаписиРС_ПоКодуДСЕГл(КодДСЕГл, НаДату, ДопустимаяЗамена = 0) Экспорт
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	СтруктураПриборов1СрезПоследних.ДСЕГлавный,
	|	СтруктураПриборов1СрезПоследних.ДСЕВходящий КАК ДСЕВходящий,
	|	СтруктураПриборов1СрезПоследних.Прибор,
	|	СтруктураПриборов1СрезПоследних.НомерЗаписиРСДСЕВх,
	|	СтруктураПриборов1СрезПоследних.НомерЗаписиРСДСЕГл,
	|	СтруктураПриборов1СрезПоследних.ДопустимаяЗамена,
	|	СтруктураПриборов1СрезПоследних.Применяемость,
	|	СтруктураПриборов1СрезПоследних.ДСЕВходящий.Ссылка,
	|	СтруктураПриборов1СрезПоследних.ДСЕВходящий.ВидПредмета КАК ВидПредмета,
	|	СтруктураПриборов1СрезПоследних.ДСЕВходящий.ВидПредмета.Порядок КАК ДСЕВходящийВидПредметаПорядок,
	|	СтруктураПриборов1СрезПоследних.ДСЕВходящий.Код КАК Код,
	|	СтруктураПриборов1СрезПоследних.Заимствованные,
	|	СтруктураПриборов1СрезПоследних.Период,
	|	СтруктураПриборов1СрезПоследних.ДатаОкончанияИспользования,
	|	СтруктураПриборов1СрезПоследних.ВводНового,
	|	СтруктураПриборов1СрезПоследних.ИзменениеСоставаИзделия
	|ИЗ
	|	РегистрСведений.СтруктураПриборов1.СрезПоследних(
	|		&НаДату,
	|		НомерЗаписиРСДСЕГл = &КодДСЕГл
	|		    И (ДатаОкончанияИспользования = &ПустаяДата
	|		        ИЛИ ДатаОкончанияИспользования > &НаДату)
	|		    И ДопустимаяЗамена = &ДопустимаяЗамена) КАК СтруктураПриборов1СрезПоследних
	|
	|УПОРЯДОЧИТЬ ПО
	|	ДСЕВходящийВидПредметаПорядок,
	|	Код";
	Запрос.УстановитьПараметр("НаДату", 	НаДату);
	Запрос.УстановитьПараметр("КодДСЕГл", 	КодДСЕГл);
	Запрос.УстановитьПараметр("ПустаяДата", '00010101');
	Запрос.УстановитьПараметр("ДопустимаяЗамена", ДопустимаяЗамена);
	Возврат(Запрос.Выполнить());
КонецФункции

    Прелесть! Выполняется около минуты. При чем этот код дублируется почти во всех отчетах.
    После оптимизации объем кода сократился в 3 раза, а время выполнения составило 1-2 сек.

    Ykov89, 29 Ноября 2012

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

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

    −122

    1. 1
    2. 2
    3. 3
    4. 4
    Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() > 0 Цикл
       // что-то делаем
КонецЦикла;

    Argonavt, 29 Ноября 2012

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