7.7 Вывод данных при выборе типа цен

Тема в разделе "Общие вопросы "1С:Предприятие 7.7"", создана пользователем doniel, 6 окт 2010.

  1. TopicStarter Overlay
    doniel
    Offline

    doniel Опытный в 1С

    Регистрация:
    29 июл 2010
    Сообщения:
    89
    Симпатии:
    0
    Баллы:
    26
    Доброго Вам здравия. 1С 7.7 бухучет.

    При выборе в форме в Расходной накладной Тип Цен
    "оптовые" или "оптовые с доставкой", надо чтобы выводилась цена при выборе, а выводится только
    Цена изготовителя

    Если ТипЦен = "оптовые с доставкой" Тогда
    ЦенаИзг = Товар.ЦенаИзготовителя*10;
    Иначе ЦенаИзг =Товар.ЦенаИзготовителя;
    в чем ошибка?
  2. Бухгалтерский угодник
    Online

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    Не стандартная конфа - нет такого реквизита у номенклатуры. Чтобы ваш кусок кода начал работать сделайте так:
    Код:
    Если ВРег(СокрЛП((ТипЦен.Наименование)) = "ОПТОВАЯ С ДОСТАВКОЙ" Тогда
    ЦенаИзг = Товар.ЦенаИзготовителя*10;
    Иначе ЦенаИзг =Товар.ЦенаИзготовителя;
    
    
  3. TopicStarter Overlay
    doniel
    Offline

    doniel Опытный в 1С

    Регистрация:
    29 июл 2010
    Сообщения:
    89
    Симпатии:
    0
    Баллы:
    26
    Не работает.
    ТипЦен у меня реквизит шапки и пренадлежит справочнику ТипыЦен.
  4. Бухгалтерский угодник
    Online

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    Правильно. Так в стандартной конфе и есть. Где вы применяете упомянутый кусок кода?
  5. TopicStarter Overlay
    doniel
    Offline

    doniel Опытный в 1С

    Регистрация:
    29 июл 2010
    Сообщения:
    89
    Симпатии:
    0
    Баллы:
    26
    Применяю в Документе Расходная накладная (1С бухучет)
    в выбираю Тип Цен. Появляется строка в реквизите шапки ОПТОВАЯ С ДОСТАВКОЙ и вывожу на печать после ввода всех данных, а строки прописываю в процедуре Печать.
    Код:
    Процедура Печать()
    Ном = 0; 
    ПроверкаНомТекФормы();
    Таб.ВывестиСекцию("Шапка");
    ВыбратьСтроки();  
    ИтогКоличество =0;                
    Пока ПолучитьСтроку()=1 Цикл 
    Ном = Ном + 1;
    МЦ = Товар;
    Артикл=ВернутьАртикл(Товар,ТипЦен);
    Код = Товар.Код;
    ЕдиницаИзмерения = Товар.ЕдиницаИзмерения;
    ЕдиницаИзмеренияКод = ЕдиницаИзмерения.Код;
    Кол=Количество;
    СтавкаНДС=Товар.СтавкаНДС.Получить(ДатаДок).Ставка;
    ....
    Если ВРег(СокрЛП(ТипЦен.Наименование)) = "ОПТОВАЯ С ДОСТАВКОЙ" Тогда
    ЦенаИзг = Товар.ЦенаИзготовителя*10;
    Иначе ЦенаИзг =Товар.ЦенаИзготовителя;
    
    
    [warn=Внимание]
    Просьба пользоваться тегами
    [/warn]
  6. Бухгалтерский угодник
    Online

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    По тексту все верно... Не вижу ошибки.
    Вы хотие сказать что выводится цена без наценки? М.б. у вас в наименовании типа цен есть точка или лишний пробел?
  7. TopicStarter Overlay
    doniel
    Offline

    doniel Опытный в 1С

    Регистрация:
    29 июл 2010
    Сообщения:
    89
    Симпатии:
    0
    Баллы:
    26
    Да выводится без наценки, как будто реквизит не читается. Пробелов нет.
    А слово ВРег - это, что?

Поделиться этой страницей