7.7 ПОСЛЕДНИЙ ДОКУМЕНТ ЗА ПЕРИОД ПО РЕКВЕЗИТУ

Есть документ рецептура в нем есть реквизит номенклатура
я заполнил список товаров и теперь нужно найти по реквизиту номенклатуры последний документ рецептуры

рецептура может повторятся
например
1.докум 01.01.10 чебурек
2.докум 02.01.10 хлеб
3.докум.03.01.10 чебурек
как олучить этот документ по реквизиту "3.докум.03.01.10 чебурек"

Код:

Процедура ДобавитьТовар()  
   Спр=СоздатьОбъект("Справочник.Номенклатура");
   Спр.ВыборГруппы(1);
   Если Спр.Выбрать("Выберите товар","ДляВыбора")=1 Тогда
     СписТов.ДобавитьЗначение(Спр.ТекущийЭлемент());
   КонецЕсли;  
КонецПроцедуры

//_перебираю список____________________________________________________
Для Инд = 1 По СписТов.РазмерСписка() Цикл
     ТекущНом= СписТов.ПолучитьЗначение(Инд);

   КонецЦикла;

последнийдок=""
док=создатьобъект("Документ.Рецептура")
док.обратныйпорядок(1)
док.выбратьдокументы
пока док.получитьдокумент<>0 цикл
нашли=0
док.выбратьстроки
пока док.получитьстроку=1 цикл
если.док.номенклатура=ТекущНом тогда
последнийдок=док.текущийдокумент
нашли=1
прервать
конеццикла
если нашли=1 тогда
прервать
конецесли
конеццикла

Код:

    последнийдок="";
        док=создатьобъект("Документ.РецептураПлюс");
        док.ОбратныйПорядок(1);
        док.ВыбратьДокументы(,);
        пока док.ПолучитьДокумент() <>0 цикл
            нашли=0;
            док.ВыбратьСтроки();
            пока док.ПолучитьСтроку() = 1 цикл
                если док.Продукция=ТекущНом тогда
                    последнийдок=док.текущийдокумент();
                    нашли=1;
                    прервать;
                конецесли;
            конеццикла;
            если нашли=1 тогда
                прервать;
            конецесли;
        конеццикла; 

Странно, у меня что-то не прерывается, пока ESC не нажмешь.

С этим разобрался, есть вопрос:
сам код:

Код:

    ДатаНачала = НачМесяца(ДобавитьМесяц(ПолучитьДатуТА(),-6));
   
    ДокЗак = ТекущийДокумент();
    ДокПост = СоздатьОбъект ("Документ.ПоступлениеТМЦ"); 
   
    ДокПост.ВыбратьДокументы(ДатаНачала, ТекущаяДата());
    Пока ДокПост.ПолучитьДокумент() <> 0 цикл
       
        ДокПост.ВыбратьСтроки();
        Пока ДокПост.ПолучитьСтроку() = 1 Цикл
           
           
            ДокЗак.ВыбратьСтроки();
            Пока ДокЗак.ПолучитьСтроку()=1 Цикл
               
               
                Если ДокПост.Номенклатура.Наименование = ДокЗак.Номенклатура.ТекущийЭлемент().Наименование Тогда

                    Сообщить ("Поступление..............." + ДокПост.Номенклатура);
                    Сообщить ("Номенклатура.............." + ДокЗак.Номенклатура.ТекущийЭлемент().Наименование);
                    Сообщить ("Поставщик................." + ДокПост.Контрагент);
                    Сообщить ("Цена по документу........." + ДокПост.Цена);
                    Сообщить ("");
                   
                    Цена1 = ДокПост.Цена;

                КонецЕсли;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;    

Проходит весь цикл и устанавливает в текущей строке последнее значение (рис.11), как сделать чтобы устанавливало Цена1 в каждой строке?

Спасибо, за подсказку!
Ещё вопрос:
Можно ли раскидать цены по поставщикам? Что-то ни как не придумал как это сделать.

Совершенно верно.
Может выгрузить в ТЗ, свернуть и потом раскидать?

если конфа тис,- ищи номенклатуру по регистру партии наличие
и ваще, к чему весь этот цирк?
задача о чем, конечная цель какая?

Задача: вывести в таблицу всех поставщиков и их цены за определенный период.

Согласен, можно приблизительно так:

Код:

    |Поставщик = Регистр.ПартииНаличие.Партия.Поставщик;
    |ВалютаВзаиморасчетов = Регистр.ПартииНаличие.Партия.ДоговорПоставщика.ВалютаВзаиморасчетов;
    |Цена = Регистр.ПартииНаличие.Партия.Цена;
    |ПриходныйДокумент = Регистр.ПартииНаличие.Партия.ПриходныйДокумент;
    |Номенклатура = Регистр.ПартииНаличие.Номенклатура;

А как это теперь выгрузить в документ?

выгрузи запрос в тз, зачем в документ?

Надо в документ!

фсё равно, сначала в тз, оттуда в документ

Спасибо!