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

все получилось!
вот конечный вариант

Код:

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

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

An4eus, у нас просто цены записываются вручную, не рассчитываются. Менеджеры попросили чтобы в приходном доке была колонка вместе с закупом и розница, и чтобы по кнопке все цены розничные в справочнике обновились. Розничная используется одна.
А как это можно по другому реализовать??? И про скидки что-то не понял.

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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