Сформировать последнюю цену

[Dezmont89]

Здравствуйте уважаемые программисты.
Есть такое задание вытащить цену последнего поступления каждого товара, ну и сформировать все это в таблице.
Так вот в 7.7 я никогда не работал, помогите как это можно сделать? Пользуясь поиском то что мне могло бы помочь я не нашел, или я не знаю что искать.
Бух общ.

[Herby]

Если вы никогда не работали в 7.7, то советами и консультацией вам сложно помочь.
Ищите людей, кто готов решить для вас эту задачу платно или бесплатно...

Я бы мог помочь, но ухожу в отпуск через 20 минут.

[Dezmont89]

Я бы мог помочь, но ухожу в отпуск через 20 минут.

Повезло))

Ну вот набросал, но он меддленный. И так делать скорей всего нельзя

Код Выделить Развернуть

Если ГруппироватьПоСкладам = 1 Тогда
БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения,,1);
КонецЕсли;
БИ.ИспользоватьСубконто(ВидыСубконто.Материалы,,1);
БИ.ВыполнитьЗапрос(ДатаФормирования, ДатаФормирования, СчетПоКоду("10.1"));
Если ГруппироватьПоСкладам = 1 Тогда
БИ.ВыбратьСубконто(ВидыСубконто.МестаХранения);
ДалееЦикл = БИ.ПолучитьСубконто(ВидыСубконто.МестаХранения);
Склад = БИ.Субконто(ВидыСубконто.МестаХранения);
Таб.ВывестиСекцию("Склад");
Иначе
ДалееЦикл = 1;
КонецЕсли;
Пока ДалееЦикл = 1 Цикл
БИ.ВыбратьСубконто(ВидыСубконто.Материалы);
Пока БИ.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл
Материал = БИ.Субконто(ВидыСубконто.Материалы);
Таб.ВывестиСекцию("Строка|Наименование");
Количество = БИ.СКД("К");
Стоимость = БИ.СКД("С");
///////////////////////////////////////////////
Если (ОтображатьПосЦену=1) Тогда     
Кол=0; СТ=0;
  // БИ1 = СоздатьОбъект("БухгалтерскиеИтоги"); 
    БИ1.ИспользоватьСубконто(ВидыСубконто.Материалы,Материал,2);
             БИ1.ВыполнитьЗапрос(ДобавитьМесяц(ДатаФормирования,-6) ,ДатаФормирования,"10.1","60.1",,,3, "Операция");
        БИ1.ВыбратьСубконто(ВидыСубконто.Материалы,Материал,2); 

            Если (БИ1.СКД("К")>0)  Тогда 

                БИ1.ВыбратьПериоды();
                Пока БИ1.ПолучитьПериод() = 1 Цикл
                                       Если (Найти(Би1.Операция, "справка" )=0)  Тогда   
   Кол=БИ1.ДО("К");
  Ст=БИ1.ДО("С");
КонецЕсли;
            КонецЦикла;               
            КонецЕсли;
             КонецЕсли;

[slavyan]

либо по бух итогам либо по докам поступления, результаты занести в Табл значений отсортировать по дате и взять из последней колонки результат