В общем есть документ "Поступление товаров", он проводится по регистру сведений "Цены". Задача заключается в том, чтобы при проведении документа "Поступление товаров" в регистре сведений создавалось 2 строки в одной из них цена будет браться из табличной части "Товары" документа "Поступление товаров", а в другой строке цена будет браться тоже из документа "Поступление товаров" но только её нужно будет умножить на 2!
вот код
Процедура ОбработкаПроведения(Отказ, Режим)
    

    // регистр Цены
Движения.Цены.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена;
    КонецЦикла;
    
КонецПроцедуры

что нужно изменить в коде, чтобы выполнялось задание???

Добавить в регистр дополнительный ресурс.

(1) только не ресурс, а измерение

1976vas, Лефмихалыч, да вот в том то и дело, что по заданию ничего добавлять нельзя, потому как тогда будет выдаваться одна строка в регистре сведений, а мне нужно чтобы 2 выдавались. Мне сказали просто продублируй строки. я продублировал мне ошибка запись с такими ключевыми полями уже существует( и как быть?

(3) прочти букварь. В РС не может быть дублей записей. Технологически не возможно. Вообще. Ни как. Живи с этим.

(3) Тогда два движения создавай. Два набора записей.

(4) Не будет дублироваться - цены же разные будут.

я так понимаю ТипЦен у этих двух строк должен отличаться, иначе бессмыслица какая-то

ну как мне понимается это два разных типа цен, типа "основная" и "удвоенная". Так что ничего в регистре не нужно править.

(7) солидарен с тобой , Леха

(9)))

Да ребят, тип цены будет разный. когда тип цены "Цена закупки" тогда берется обычная цена. Когда тип цены "Цена продажи" тогда удваивается. Что в коде изменить?

(11) А при чем здесь тогда дублирование строчек?

(11) Фигасе у вас накрутка.

В коде анализируешь ТипЦены и записываешь нужную цену.

(4) живи с этим
- ржал долго.

Подробное задание: Для каждой номенклатуры создавать записи с типами цен, указанными по формулам:"Цена закупки" тогда берется обычная цена. Когда тип цены "Цена продажи" тогда удваивается.
Я наверное не совсем понял задание, но мне сказали что должно выдаваться две строки в Регистре. Получается нужно сделать если тип цены закупки то тогда одна строка выдается, а если тип цены продажи тогда другая?

(16) Сам народ запутал, прочитал и сам засомневался? Мдее. Две строки с 2-мя типами цен.

Получается Если я выбираю в документе Тип цены "Цена продажи" то цена должна удвоиться. Как этот механизм реализовать в коде???

БледноЗолотистый, есть такое. Совсем не опытный(((

ТипЦены какой тип имеет?

(18)
Процедура ОбработкаПроведения(Отказ, Режим)
    

    // регистр Цены

Движения.Цены.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена * ?(ТипЦены=ЦенаПродажи,2,1);
    КонецЦикла;
    
КонецПроцедуры

Справочник.ТипыЦен

1976vas, Справочник.ТипыЦен

(23) см. (21) а ЦенаПродажи будет Справочники.ТвойСправочник.НайтиПоКоду("Код");

(0) проще новый регистр создать такойже

Это если не надо строки дублировать, а если надо как в (17) то в цикле еще одно движение делаешь Движение = Движения.Цены.Добавить(); и записываешь туда удвоенную цену.

1976vas, нужно как в (16).  в цикле еще одно движение делаешь Движение = Движения.Цены.Добавить() это так нужно:

Процедура ОбработкаПроведения(Отказ, Режим)
    

    // регистр Цены

Движения.Цены.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена;
КонецЦикла;

Движения.Цены.Добавить();
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена*2;
КонецЦикла;

    
КонецПроцедуры

?

(27) Откуда берется тип цены? Это модуль проведения какого документа?

Второй цикл убери, в одном делай, а во втором движении у тебя еще будет ТипЦены = Справочники.ТвойСправочник.НайтиПоКоду("Код");
Т.е. получится, у тебя в документе выбрана ЦенаЗакупки, а ЦенуПродажи ты вычисляешь.

fisher, Тип Цены берется из Справочник.ТипыЦен. Это модуль проведения документа "Поступления товаров"

(30) почему тогда один тип цены везде фигачишь? Нужно ведь два.

1976vas, сделал так
Движения.Цены.Записывать = Истина;
Движения.Цены.Добавить();
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена;
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = Справочники.ТипыЦен.НайтиПоКоду("Код");
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена*2;

КонецЦикла;

при проведении документа "поступление товаров" пишит ошибку "Период не может быть пустым. Цены: 01.01.0001...(Регистр сведений:Цены,Номер строки:1)

Движения.Цены.Добавить(); два раза подряд захерачил. Одно пустое.

hhhh, можешь пожалуйста исправить в коде как правильно, чтобы и тип цены разный был... потому что я уже нихрена не пойму(((

До цикла убери строчку Движения.Цены.Добавить(); И код элемента справочника напиши вместо "Код"

Мда... Тяжелый случай. Ладно 1С вчера увидел. Голову хоть чуть-чуть включать надо. Откуда 1С догадается, какие типы цен записывать надо? Телепатическим усилием?

(36) В первом случае из реквизита документа, во втором из справочника. Тип цен, наверное, реквизит документа, а не табличной части.

fisher не совсем вчера) где-то недели 3 в него смотрю)))

1976vas, да Тип Цен у меня реквизит документа "Поступление товаров". Код элемента справочника это у меня "Тип цен"?

(39) В справочнике заведи ЦенуПродажи, скопируй код и вставь вместо "Код".

О БОГИ, ДРУЗЬЯ ВСЕ ЗАРАБОТАЛО!!!! ВОТ ПРАВИЛЬНЫЙ КОД

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

    КонецЦикла;

Спасибо большое всем за помощь!!!

1976vas, отдельное спасибо за помощь и терпение!!!)))

(42) Подожди )), у тебя не может быть код ("Цена продажи");

Код так и называется Код, посмотри в справочник.

Или НайтиПоКоду() замени на НайтиПоНаименованию()

(43) Очень даже может, ты недооцениваешь возможности ТСа

1976vas ,справочник "Типы цен", наименование "Цена продажи",  код 000000002. теперь понимаю о чем Вы говорите) Но вот я сделал как в (41) и все работает)))

(47) Посмотри регистр, что туда пишется?

(46) )

пятнично

И, Nolan, когда будешь по человечески искать ТипЦен для цены продажи, то делай это ОДИН раз ПЕРЕД циклом, а потом уже используй его при формировании записей РС.

1976vas, (48) пишется цена продажи)

очень хорошо. Хоть цена записалась.

1976vas, а вообще-то да, все же раньше было пустое поле. а когда в код вписал "000002" тогда все работает правильно. Пишет и цену закупки и цену продажи. Спасибо!)

(54) Вот так сделай (51), там и вправду надо перед циклом получить, а потом присваивать уже в цикле.

D_E_S_131, хорошо, спасибо за совет! Было бы информативней увидеть то что ты говоришь на коде. Если будет время напиши как правильней! Буду благодарен)

а в чем разница? так ведь тоже работает или это не правильно?

1976vas, (55) а в чем разница? так ведь тоже работает или это не правильно?

(57) Ты в цикле каждый раз обращаешься к справочнику, а достаточно один раз, перед циклом.

(57) Это "запрос в цикле", если тебе это о чем-то говорит.

(59) По времени дольше происходит, на величину, равной количеству строк в ТЧ.

(27) Возьми этот вариант, только во 2 Движении правильный тип цены поставь. И вынеси "НайтиПоКоду" перед циклом.
ТипПродажная = Справочник.ТипыЦенНоменклатуры......
Для Каждого
...
   = ТипПродажная;
...
КонецЦикла;

Все понял, переделал как нужно. Если так правильней буду делать так.   alex_shkut спасибо!

(0) создать новый вид цен, и рассчитывать его как *2 от первого типа.

(64) Доброе утро, брат.

(65) и тебе не хворать.. зачем огород городили?))

(66) Он код хотел, а просто так его не дашь же, надо чтобы человек что-то вынес.

(67) истинно говорю: у него неправильные хотения))

может кому пригодиться, вот исправленный код. все работает)

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр Цены
Движения.Цены.Записывать = Истина;
ТипПродажная = Справочники.ТипыЦен.НайтиПоКоду("000000002");
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Цены.Добавить();
Движение.Период = Дата;
Движение.ТипЦены = ТипЦены;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена;
Движение = Движения.Цены.Добавить();
        
Движение.Период = Дата;
Движение.ТипЦены=ТипПродажная;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Цена= ТекСтрокаТовары.Цена*2;

    КонецЦикла;
КонецПроцедуры

(68) Так я же кода и не дал :) только указал на ошибки. Код его.

(69) интересно: типовая? если типовая, то которая из?

(71) А в чем сомнения? В УТ 10.3 ПТиУ может быть регистратором для РС "ЦЕныНоменклатуры".

(72) у меня  сомнений не в верности кода..мне интересен только механизм решения задачи без доработки кода..

(73) Внешняя обработка

(74) интересная конфа)).. поизучаю)