Имя: Пароль:
1C
1С v8
Получение Цены Номенклатуры
0 V1rus93
 
20.09.19
21:25
Здравствуйте! Помогите, не могу сам докумекать до этого. В справочнике "Виды Цен" есть "Розничная цена" и "Акционная цена". Вот часть кода
Если Объект.Товары.Количество() > 0 Тогда    
        нСтр = 0;
        нСтлб = 0;
        мак = ПолучитьОбщийМакет("ТомаковкаF5Акционный");
        Для Каждого а из Объект.Товары Цикл
        //    а = Справочники.Номенклатура.НайтиПоКоду("");
        обл = мак.ПолучитьОбласть("Стр1|База");
        // Имя Товара
        обл.Параметры.Имя = а.Номенклатура.НаименованиеПолное;

Через а.Цена я могу получить цену которую указываю в обработке "Печать ценников и этикеток" Цены на дату. Так же есть Цены на акции. Вот она мне и нужна. Чтобы вынести её на ценник.
1 ПесДобряк
 
20.09.19
21:27
Вырвиглазно
2 V1rus93
 
20.09.19
21:27
3 V1rus93
 
20.09.19
21:29
(1) Знаю )) Вот картинка Раздел цены : На дату и Цены на акцию. Объект содержит только реквизит Цена, что является ценой На дату. А как получить цену на акции
4 ПесДобряк
 
20.09.19
21:32
Что за конфигурация, что за "Объект"?
5 V1rus93
 
20.09.19
21:32
То есть в Цикле я перебираю товар и заполняю необходимые мне данные, выводя их в ценник на нужные мне ячейки. Как из Объект.Товар вытянуть Цена акционная которая является категорией цен и существует в справочнике "Виды цен".
6 V1rus93
 
20.09.19
21:33
УНФ конфигурация. В обработке "Печать ценников и этикеток".
7 V1rus93
 
20.09.19
21:34
Если а.Номенклатура.ДополнительныеРеквизиты.найти(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Объем оперативной памяти (Мобільні телефони)"),"Свойство") <> Неопределено Тогда
            обл.Параметры.Оператив = а.Номенклатура.ДополнительныеРеквизиты.найти(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Объем оперативной памяти (Мобільні телефони)"),"Свойство").Значение;
        Иначе
            обл.Параметры.Оператив = "";
        КонецЕсли;
Вот я вытягиваю дополнительные реквизиты номенклатуры и вывожу их на ценник. Тоже самое надо сделать с ценой
8 V1rus93
 
20.09.19
21:36
То есть обычную цену я могу легко вывести
обл.Параметры.Цена = а.Цена;
Так как в отладчике в Объекте есть реквизит Цена привязанный к Цены на дату
9 ПесДобряк
 
20.09.19
21:39
Я так понимаю, запросы писать нет смысла?

Как-то так. Но там надо посмотреть какие измерения в регистре цен и все вставить в отбор, характеристики или еще какие, сейчас под рукой нет УНФ.

        Отбор = новый Структура;
    Отбор.Вставить("ВидЦен", Справочник.ВидЦен.НайтиПоНаименвоание("Цены по акции"));
    Отбор.Вставить("Номенклатура", Номенклатура);
    
    Выборка = РегистрыСведений.Цены.ПолучитьПоследнее(Объект.Дата, Отбор);


Но это все извращение. Очень рекомендую пройти хотя бы 21 день программирования в 1С.
10 V1rus93
 
20.09.19
21:42
(9) Спасибо) Буду пробовать! Да курсы проходил по Конфигурации, но постоянно разные задания и даже не от куда что-то просто скопировать и вставить))
11 ПесДобряк
 
20.09.19
21:43
https://its.1c.ru/db/pubdevguide83 книги ИТС

5.    Радченко М.Г., Хрусталева Е.Ю. "1С:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы;
6.    Е.Ю. Хрусталева "Язык запросов "1С:Предприятия 8"
7.    В.А. Ажеронок, А.В. Островерх, М.Г. Радченко, Е.Ю. Хрусталева "Разработка управляемого интерфейса";
8.    Е.Ю. Хрусталева "Разработка сложных отчетов в "1С:Предприятии 8.2". Система компоновки данных";
9.    Е.Ю. Хрусталева "101 совет начинающим разработчикам в системе "1С:Предприятие 8";


https://its.1c.ru/download/book_demo/?book= доп. материалы к книгам
http://online.1c.ru/catalog/free/learning.php учебная версия платформы

https://www.youtube.com/watch?v=y16Y3nKC3QI&list=PLN1BSVwPIqvUBuhRj3PYHqdCn6upxIXzD – Программирование в 1С за 21 день (есть несколько версий)
https://www.youtube.com/playlist?list=PLkdnTy1CsgR1phYcN8Ts1HD2AugrAVgRd Спец курс Чистова
12 V1rus93
 
20.09.19
21:45
(11) Спасибо большое !