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

    −98

    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
    ВыборкаЗаказов = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

	Пока ВыборкаЗаказов.Следующий() Цикл

		ВыборкаГрузополучателей = ВыборкаЗаказов.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
		Пока ВыборкаГрузополучателей.Следующий() Цикл

			ВыборкаАдресовДоставки = ВыборкаГрузополучателей.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
			Пока ВыборкаАдресовДоставки.Следующий() Цикл

				РезультатЗапроса = ВыборкаАдресовДоставки.Выбрать();
				СтавкаНДС = ПолучитьСтавкуНДСдляДокументов(Переменные.ОргПроизводитель, РезультатЗапроса[0].Контрагент);
				Если РезультатЗапроса.Количество() <> 0 Тогда
 
					ТАблицаДАнных = ПреобразоватьВыборкуВТаблицуЗначение(РезультатЗапроса);

Функция ПреобразоватьВыборкуВТаблицуЗначение(ИсходнаяВыборка)
	
	ТаблицаРЕзультат = Новый ТаблицаЗначений;
	
	Для каждого Колонка Из ИсходнаяВыборка.Колонки Цикл
		ТаблицаРезультат.Колонки.Добавить(Колонка.Имя);	
	КОнецЦикла;
	
	
	Для каждого СтрокаВыборки из ИсходнаяВыборка Цикл
		СтрокаРезультата = ТаблицаРЕзультат.Добавить();
		ЗаполнитьЗначенияСвойств(СтрокаВыборки, СтрокаРезультата);
	КонецЦикла;
	
	Возврат ТаблицаРЕзультат;
КонецФункции

    Я допускаю, что это было написано в староглиняные времена, когда у РезультатЗапроса не было метода Выгрузить() но блин! Всей истории 1С я не знаю, и сомневаюсь, что такие времена когда-то были. А вообще что-то подсказывает что песатель просто не знал...

    Запостил: levxxx, 24 Февраля 2016

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

    • ava guest 22.03.2016 08:16 # 0

      Чуваку платят за код построчно, больше строк - больше профит
      Ответить

    • ava guest 25.03.2016 08:38 # 0

      код то нормальный, просто автор не может его разобрать. РезультатЗапроса - тут выборка, а не результат запроса, причем выборка из первоначального результата запроса идет иерархическая и человек на самом деле на определенном уровне переводит выборку в таблицу.
      Ежели не знали, то иерархическая выгрузка из результата запроса даст дерево, а не таблицу. В общем, автор считает себя слишком умным, а зря...
      Ответить

      • ava guest 25.03.2016 14:34 # −1

        Автор и правда зря считает себя умным

        Он же пишет на 1С
        какой тут ум?
        Ответить

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