25.07.2008, 13:48
общий
это ответ
Здравствуйте, Sol666!
Док = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
Док.Дата = НаДату;
Док.ТипыЦен.Добавить().ТипЦен = ТипЦен1;
Док.ТипыЦен.Добавить().ТипЦен = ТипЦен2;
Док.НеПроводитьНулевыеЗначения = Истина;
Док.Ответственный = глТекущийПользователь;
Для Каждого СтрокаТЧ ИЗ ТЗТовары Цикл
РС = Док.Товары.Добавить();
РС.ТипЦен = ТипЦен1;
РС.Номенклатура = СтрокаТЧ.Номенклатура;
РС.Валюта = Валюта;
РС.Цена = СтрокаТЧ.Цена1;
РС.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков;
РС.ПроцентСкидкиНаценки = СтрокаТЧ.Наценка1;
РС = Док.Товары.Добавить();
РС.ТипЦен = ТипЦен2;
РС.Номенклатура = СтрокаТЧ.Номенклатура;
РС.Валюта = Валюта;
РС.Цена = СтрокаТЧ.Цена2;
РС.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.ЕдиницаХраненияОстатков;
РС.ПроцентСкидкиНаценки = СтрокаТЧ.Наценка;
КонецЦикла;
смысл понятен надеюсь? :)