1. Список говнокодов пользователя quickes

    Всего: 1

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

    −163

    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
    Пока ДокиДляЗагрузки.Количество()>0 Цикл
    		СтрокаДоковЗагрузки = ДокиДляЗагрузки.Получить(0);
    		НомерДок = СтрокаДоковЗагрузки.НомерДок;
    		ДатаДок = СтрокаДоковЗагрузки.ДатаДок;
    		Отбор = Новый Структура();
    		Отбор.Вставить("НомерДок", НомерДок);
    		//Отбор.Вставить("ДатаДок", ДатаДок);
    		ДокиДляЗагрузкиФильтр = ДокиДляЗагрузки.НайтиСтроки(Отбор);
    		ДатаНач = НачалоДня(Дата(ДатаДок));
    		ДатаКон = КонецДня(Дата(ДатаДок));
    		Запрос = Новый Запрос;
    		Запрос.Текст = "ВЫБРАТЬ
    		               |	РеализацияТоваровУслуг.Ссылка
    		               |ИЗ
    		               |	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    		               |ГДЕ
    		               |	РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
    		               |	И РеализацияТоваровУслуг.Номер = &Номер";
    		Запрос.УстановитьПараметр("Номер", НомерДок);
    		Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
    		Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
    		Результат = Запрос.Выполнить().Выбрать();
    		Если Результат.Количество()=1 Тогда
    			Результат.Следующий();
    			СтрокаДок7 = ДокиДляЗагрузкиФильтр.Получить(0);
                            ...
                    КонецЕсли;
    КонецЦикла;

    //Поиск документа по номеру
    //Можно заменить одной строкой, но автор был истиный извращенец
    СтрокаДок7 = Документы.РеализацияТоваровУслуг.НайтиПо Номеру(СтрокаДоковЗагрузки.НомерДок, СтрокаДоковЗагрузки.ДатаДок);

    quickes, 21 Июля 2014

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