7.7 Печать прайса в другой валюте

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем moroz34, 26 апр 2012.

  1. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Все типы цен в валюте USD (для расчеты рублевой цены по курсу), прайс лист в 1С 7.7 ТиС печатается, как не странно, тоже в USD. Как заставить его печатать в рублях?
  2. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    строка отчета 467. Нужно вне зависимости от типа цены (рассчитывается или нет), нужно вызвать процедуру глПересчет с применением глобальной переменного глРубли;
  3. TopicStarter Overlay
    moroz34
    Offline

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Строка из модуля "печать проайса":

    Цена = глПересчет(Цена, ТаблицаЦен.Валюта, ДатаОтчета, ТекТип.Валюта, ДатаОтчета);

    я так понимаю в неё надо это? но как?
  4. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    да
    Код:
    	
    Если ТекТип.Рассчитывается = 1 Тогда
    // нужно пересчитать цену
    Цена = глПересчет(Цена, ТаблицаЦен.Валюта, ДатаОтчета, глРубли, ДатаОтчета);
    Цена = глОкруглить(Цена * (100 + ТекТип.Процент) / 100, ТекТип.ПорядокОкругления);
    ПечЦена = глФРМ(Цена, глРубли);
    Иначе
    Цена = глПересчет(Цена, ТаблицаЦен.Валюта, ДатаОтчета, глРубли, ДатаОтчета);
    ПечЦена = глФРМ(Цена,  глРубли);
    КонецЕсли;
    
  5. Хряк
    Offline

    Хряк Профессионал в 1С

    Регистрация:
    26 сен 2007
    Сообщения:
    1.447
    Симпатии:
    37
    Баллы:
    54
    флаг на форму отчета добавь
    и вот ето перед тем, что Бухгалтерский угодник написал, заменив глРубли на пВалюта
    Если флРубли=1 Тогда
    пВалюта=глРубли;
    Иначе
    пВалюта=ТекТип.Валюта;
    КонецЕсли;
  6. Бухгалтерский угодник
    Offline

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

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

    moroz34

    Регистрация:
    3 апр 2012
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Всё получилось, спасибо!

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