v7: цена последнего поступления

1C 7.7

☑

0 Chameleon1980

27.07.16

✎

13:13

Приветсвую всех.

Вопрос.

Допустим ТиС

Интересуют методы получения цены последнего поступления.
без прямых запросов.

1 Chameleon1980

27.07.16

✎

13:15

запрос по ном с доками.
и сортировку по ном,и минус доки ?

это первое что пришло..

просто срочная проблемка образовалась.

2 VladZ

27.07.16

✎

13:17

Получаем документы по указанной номенклатуре. Сортируем по убыванию. Берем самое первое.

3 Это_mike

27.07.16

✎

13:17

(2) приходные документв

4 Chameleon1980

27.07.16

✎

13:20

(2) ну так и накидал

    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(ПоследниеПоступления)
    //|Период с ВыбДата по ВыбДата;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Док = Документ.ПоступлениеТМЦ.ТекущийДокумент;
    |ДатаДок = Документ.ПоступлениеТМЦ.ДатаДок;
    |Номенклатура = Документ.ПоступлениеТМЦ.Номенклатура;
    |Цена = Документ.ПоступлениеТМЦ.Цена;
    |Функция ЦенаСумма = Сумма(Цена);
    |Группировка Номенклатура без групп;
    |Группировка Док упорядочить по Док.ДатаДок;
    |"
    ;

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Сообщить("Запрос пустой !");
        Возврат;
    КонецЕсли;

    ТЗ=СоздатьОбъект("ТаблицаЗначений");


    Запрос.Выгрузить(ТЗ,1,1);

    ТЗ.Сортировать("Номенклатура,-ДатаДок");

    глПросмотрТСЗ(ТЗ);



    ТЗ.ВыбратьСтроки();

    СтараяНоменклатура=ПолучитьПустоеЗначение("Справочник.Номенклатура");

    Пока ТЗ.ПолучитьСтроку()=1 Цикл

        Номенклатура=ТЗ.Номенклатура;

        Если Номенклатура=СтараяНоменклатура Тогда
            Продолжить;
        КонецЕсли;

        УстановитьЦену(Номенклатура,ТЗ.ЦенаСумма);

        СтараяНоменклатура=Номенклатура;

    КонецЦикла

5 Chameleon1980

27.07.16

✎

13:21

думал у кого интересней есть.
ну да не до этого пока

6 Chameleon1980

27.07.16

✎

13:23

спасибо

7 VladZ

27.07.16