Имя: Пароль:
1C
1C 7.7
v7: Себестоимость номенклаутры
0 zenon46
 
04.09.18
15:52
Доброго дня!
Помогите разобраться с себестоимостью, есть один аналитический отчет, в числе прочего нужно посчитать себестоимость по каждому документу попавшему в обработку.
Я сделал вот так :
        СебестТовара       = 0;
        СебестПоДокументу = 0;
        Доку                 = СоздатьОбъект("Документ");    //найдем текущий документ
        Доку.НайтиДокумент(ПечДокумент);
        РегПартии.ВыбратьДвиженияДокумента(Доку);
        Пока РегПартии.ПолучитьДвижение() =1 Цикл
            СебестТовара       = РегПартии.СуммаРуб;                
            СебестПоДокументу = СебестПоДокументу + СебестТовара;
        КонецЦикла;

Но похоже что это не верно, т.к. цифры не совпадают со стандартным отчетом "Анализ продаж", там ее получают вот так

    ТекстЗапроса = ТекстЗапроса +
    "
    |Себест      = Регистр.Продажи.Себестоимость;
    |Количество  = Регистр.Продажи.Количество;
    |ПродСт      = Регистр.Продажи.ПродСтоимость;
    |СебестВ     = Регистр.Продажи.СебестоимостьВ;
    |КоличествоВ = Регистр.Продажи.КоличествоВ;
    |ПродСтВ     = Регистр.Продажи.ПродСтоимостьВ;
    |Функция СуммаСебест      = Сумма(Себест);
    |Функция СуммаКоличество  = Сумма(Количество);
    |Функция СуммаПродСт      = Сумма(ПродСт);
    |Функция СуммаСебестВ     = Сумма(СебестВ);
    |Функция СуммаКоличествоВ = Сумма(КоличествоВ);
    |Функция СуммаПродСтВ     = Сумма(ПродСтВ);";

Но такую конструкцию, я использовать не могу, будет очень долго отчет работать, в чем у меня ошибка ?
1 zenon46
 
04.09.18
16:44
Разобрался
2 Злопчинский
 
04.09.18
19:16
РегПартии.ВыбратьДвиженияДокумента(Доку);
плохо. возможности грабель.
  РегПартии.ВыбратьДвиженияДокумента(Доку.ТекущийДокумент());

хотя могу быть не прав.