FOLD
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AFT
Посмотреть как они получают цену в партии и записать в справочник цен
А получают они ее из регистра ПартииНаличие
Если хочешь чтоб при проведении док ПоступлениеДопРасходы ,
цены партии записывались в справочник цен Тогда
в модуле документа -> Процедура ОбработкаПроведения
работай с ДокОснование
Например так
ДокОснование .ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку()=1 Цикл
Товар = ДокОснование.Номенклатура ;
ПартииНаличие = СоздатьОбъект("Регистр.ПартииНаличие");
ТабПарт =СоздатьОбъект("ТаблицаЗначений");
ПартииНаличие.УстановитьЗначениеФильтра("Номенклатура",Товар,1);
ПартииНаличие.ВыгрузитьИтоги(ТабПарт,1,1);
ТабПарт.Свернуть("Партия","Количество,СуммаУпр");
ТабПарт.ВыбратьСтроки();
Пока ТабПарт.ПолучитьСтроку() = 1 Цикл
ЦенаПарт = глФРМ(ТабПарт.СуммаУпр / ТабПарт.Количество);
СпрЦены = СоздатьОбъект("Справочник.Цены");
ТипЦ = ДокОснование.ТипЦен.ТекущийЭлемент();
СпрЦены.ИспользоватьВладельца(Товар);
СпрЦены.НайтиПоРеквизиту("ТипЦен",ТипЦ,0);
ДокДата = ДокОснование.ДатаДок ;
СпрЦены.ИспользоватьДату(ДокДата,1);
СпрЦены.ТипЦен = ТипЦ ;
СпрЦены.Валюта = ДокОснование.Валюта;
СпрЦены.Единица = ДокОснование.Единица;
СпрЦены.Цена = ЦенаПарт ;
СпрЦены.Записать();
КонецЦикла;
КонецЦикла;
КонецПроцедуры //ОбработкаПроведения()
Упустил -если у номенклатуры не назначен текущий тип цен
Напиши тогда условие
Если СпрЦены.НайтиПоРеквизиту("ТипЦен",ТипЦ,0)=0 Тогда
СпрЦены.Новый();
Иначе
Можно просто НайтиПоНаименованию("Закупочная",
Может еще что упустил ,но в основном работает
Можно обновление цен отдельной обрабткой написать,и вызывать по кнопке "действие"
по типу как ОбновлениеЦенИзДокумента
Тогда в обработке
//************************************
КонтДок = Форма.Параметр;
ДокОснование = КонтДок.ДокОснование
и все остальное также |
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 20:47 31-07-2005 | Исправлено: FOLD, 23:43 31-07-2005 |
|
