1C Программирование и поддержка - [73] :: Прикладное программирование

korvin76
В свойствах поля Номенклатура в разделе "События" есть процедура очистка.
Нажмешь лупу и сразу перейдешь в текст модуля формы .Там напиши
ИмяреквизитаХарактерист.= Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();
lamer666
ВК не знаю, но вот здесь посмотри может подойдет
http://www.sinor.ru/~my1c/knowhow/get_prn.html

Добавлено:
tswanea
1.По первому пункту непонятно что хочешь,если цены записаны, они там и так будут
если ты хочешь отсортировать/скрыть- используй процедуру
ИспользоватьСписокЭлементов(список)
2.КАК ПРИМЕР рабочий код мой для всех типов цен а также для создания если цены неустановлены для элемента,разберешся .

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

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

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


Добавлено:
korvin76
При изменении наверно анологично

Модерирует : ShIvADeSt
ShIvADeSt (29-09-2006 09:19): продолжаем здесь http://forum.ru-board.com/topic.cgi?forum=33&topic=7403	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105