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

    −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
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    Процедура ДвиженияПоРегистрамНесортированнаяПродукция(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоПродукции, Отказ, Заголовок);

	Если Не Отказ Тогда

		Запрос = Новый Запрос;
		Запрос.Текст = 
			"ВЫБРАТЬ
			|	ОтчетПроизводстваЗаСменуПродукция.Количество КАК Количество,
			|	ОтчетПроизводстваЗаСменуПродукция.Номенклатура,
			|	ОтчетПроизводстваЗаСменуПродукция.ХарактеристикаНоменклатуры
			|ИЗ
			|	Документ.ОтчетПроизводстваЗаСмену.Продукция КАК ОтчетПроизводстваЗаСменуПродукция
			|ГДЕ
			|	ОтчетПроизводстваЗаСменуПродукция.Ссылка = &Ссылка
			|	И ОтчетПроизводстваЗаСменуПродукция.Номенклатура.АС_УчетНесортированнойПродукции = &ФлагДа";

		Запрос.УстановитьПараметр("ФлагДа", Истина);
		Запрос.УстановитьПараметр("Ссылка", Ссылка);

		Результат = Запрос.Выполнить().Выгрузить();

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

    Нужно больше параметров! Иначе ты не адинэсник, а полное ничтожество. (Это не результат легаси, там реально скопипащено ПЯТЬ процедур с одинаковыми параметрами, из которых используется только "Отказ", да и то как видим - через заднепроходное отверстие)

    Запостил: Old_Chroft, 31 Марта 2017

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

    • ava Zasranets 03.04.2017 04:07 # 0

      Все таки красив и могуч язык 1С , посмотрите перелив красок , изящество какое , начнешь читать , не остановиться , сюжет какой , одним словом на родном языке родными буквами пиши пиши и пиши
      Ответить

      • ava doktor 03.04.2017 13:43 # −15

        показать все, что скрытоНаписал тебе на спине "Я - хуй", большими буквами. Проверь.
        Ответить

        • ava AntiSpam 03.04.2017 13:56 # 0

          Слово "доктор" у многих ассоциируется с личностью с ником Стертор.
          Других докторов нам не надо, не больница. Вы в списке для минусования.
          Ответить

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