Как в "Перемещение" добавить закупочную цену.

[Tesla]

Это невероятно! Вобщем вот что нашёл в модуле "Приходная накладная" при поиске по тексту "ТипЦен"

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

СпрТипЦен=СоздатьОбъект("Справочник.Цены");
СпрТипЦен.ИспользоватьВладельца(Товар);
СпрТипЦен.ВыбратьЭлементы();
Пока СпрТипЦен.ПолучитьЭлемент()=1 Цикл
Если Строка(СпрТипЦен.ТекущийЭлемент().КатегорияЦены)= "Розничная" Тогда
РознЦена=СпрТипЦен.ТекущийЭлемент().Цена.Получить(ТекущаяДата());
Proff=Proff+(Число(РознЦена)*Число(Количество)-Число(ПечСумма)*1.2);
//Сообщить(СпрТипЦен.ТекущийЭлемент().Цена.Получить(ТекущаяДата()));
КонецЕсли;
КонецЦикла;

Перестроил под свои цели и всё считается ВСЁ СЧИТАЕТСЯ!!! 
Спасибо Вам

Добавлено: 12 окт 2014, 23:20

Вот что получилось:

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

Процедура ПриСменеТипаЦен()         
Перем Цена;

Цена = СоздатьОбъект("Справочник.Цены");
Цена.ИспользоватьДату(РабочаяДата(),1);

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

Пока ПолучитьСтроку()>0 Цикл   
Если Товар.Выбран()=0 Тогда
Продолжить;
КонецЕсли;
Цена.ИспользоватьВладельца(Товар.ТекущийЭлемент());
Цена.ВыбратьЭлементы();
//****
Пока Цена.ПолучитьЭлемент()=1 Цикл
Если Строка(Цена.ТекущийЭлемент().КатегорияЦены)= "Закупочная" Тогда
ЦенаЗак=Цена.ТекущийЭлемент().Цена.Получить(ТекущаяДата());
КонецЕсли;
    КонецЦикла;

КонецЦикла;

КонецПроцедуры // ПриСменеТипаЦен

[дфтын]

Велком)