7.7 Автоперерасчет розн. цен в справочнике ТМЦ при изменении курса валюты

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем warayg, 2 июл 2011.

0/5, Голосов: 0
  1. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте, подскажите пожалуйста как сделать автоперерасчет розн. цен в справочнике ТМЦ при изменении курса валюты в 1С Бухгалтерия. Изменяю курс валюты, захожу в справочник ТМЦ, а там стоит старая розн. цена, при сохранении ТМЦ цена пересчитывается на текущий курс, это гемор, не пересохранять же каждый раз все ТМЦ. Розн. цена пересчитывается так:

    Код:
    Процедура ВГривнах() 
КурсДляВалюты = Валюта_Прод.Курс.Получить(РабочаяДата());
Цена_Розн = Цена_Прод*КурсДляВалюты*(1 + СтавкаНДС.Ставка.Получить(РабочаяДата()));
КонецПроцедуры
    Процедура выполняется при сохранении ТМЦ.
    Вот форма справочника

    [​IMG]
    warayg, 2 июл 2011
    #1
  2. Dmitriy_76
    Offline

    Dmitriy_76 Опытный в 1С Команда форума

    Регистрация:
    26 мар 2011
    Сообщения:
    2.224
    Симпатии:
    15
    Баллы:
    29
    если правильно тебя понял...при изменении курса..обходи всю номенклатуру(перебором) изменяй (пересчитывай) цену и сохраняй...
    Dmitriy_76, 2 июл 2011
    #2
  3. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Я как раз от этого и хочу избавиться, может кто подскажет как этот пересчет автоматизировать, чтоб поменял курс и автоматом во всем справочнике ТМЦ пересчитались розн. цены.
    warayg, 2 июл 2011
    #3
  4. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Не думаю что разработчики такую элементарщину не предусмотрели. Может плохо искали?

    Если нет - написание обработки перерасчета занимает 2-3 мин.

    Код:
    НачатьТранзакцию();
Спр=СоздатьОбъект("Справочник.ТМЦ"); //кажется так в украинской конфе номенклатура названа
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
КурсДляВалюты = Спр.Валюта_Прод.Курс.Получить(РабочаяДата());
Спр.Цена_Розн.Установить(РабочаяДата(), Спр.Цена_Прод.Получить(РабочаяДата())*
?(КурсДляВалюты=0,1,КурсДляВалюты)*(1 + Спр.СтавкаНДС.Ставка.Получить(РабочаяДата()));
Спр.Записать();
КонецЦикла;
ЗафиксироватьТранзакцию();
    Бухгалтерский угодник, 2 июл 2011
    #4
  5. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Спасибо попробую.
    warayg, 2 июл 2011
    #5
  6. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Выдаёт ошибку:

    Спр.Цена_Розн.Установить(РабочаяДата(), Спр.Цена_Прод.Получить(РабочаяДата())*?(КурсДляВалюты=0,1,КурсДляВалюты)*(1 + Спр.СтавкаНДС.Ставка.Получить(РабочаяДата())));
    {Справочник.ТМЦ.Форма.Модуль(232)}: Значение не представляет агрегатный объект (Получить)
    warayg, 2 июл 2011
    #6
  7. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Ну нельзя же тупо копировать....
    Посмотрите - похоже реквизит не периодический (судя по ошибке). Конфы под рукой нет чтобы глянуть.

    Исправляйте сами или выложите МДшник
    Бухгалтерский угодник, 2 июл 2011
    #7
  8. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Выложу на всяк случай МДешник )

    MD-ешник
    warayg, 2 июл 2011
    #8
  9. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Вот так:
    Код:
    НачатьТранзакцию();
Спр=СоздатьОбъект("Справочник.ТМЦ"); 
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл  
Если Спр.ЭтоГруппа()=1 Тогда    
Продолжить;  
КонецЕсли;  
КурсДляВалюты = Спр.Валюта_Прод.Курс.Получить(РабочаяДата());  
Спр.Цена_Розн.Установить(РабочаяДата(), Спр.Цена_Прод *
?(КурсДляВалюты=0,1,КурсДляВалюты)*(1 + Спр.СтавкаНДС.Ставка.Получить(РабочаяДата()));
Спр.Записать();
КонецЦикла;
ЗафиксироватьТранзакцию();
    Бухгалтерский угодник, 2 июл 2011
    #9
  10. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Теперь при открытии карточки ТМЦ выдаёт -

    Спр.Записать();
    {Справочник.ТМЦ.Форма.Модуль(234)}: Объект заблокирован: Аппарат для приготовления горячего шоколада Sciro
    warayg, 2 июл 2011
    #10
  11. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    Вы где применили вышеприведенный код?
    Это должна быть просто внешняя обработка.
    Бухгалтерский угодник, 2 июл 2011
    #11
  12. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    тю блин, а я в модуль справочника ТМЦ засунул )), ща сделаю обработку и попробую, спасибо ))
    warayg, 2 июл 2011
    #12
  13. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    при запуске обработки элементы справочника не должны быть открыты...
    Бухгалтерский угодник, 2 июл 2011
    #13
  14. TopicStarter Overlay
    warayg
    Offline

    warayg Опытный в 1С

    Регистрация:
    1 июл 2011
    Сообщения:
    104
    Симпатии:
    0
    Баллы:
    26
    Большое спасибо, я транзакцию вставил в модуль формы списка справочника ТМЦ, теперь при открытии справочника ТМЦ автоматом пересчитывается розн. цена для всех товаров справочника.
    warayg, 2 июл 2011
    #14
  15. Бухгалтерский угодник
    Offline

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

    Регистрация:
    29 дек 2008
    Сообщения:
    22.628
    Симпатии:
    542
    Баллы:
    204
    обращайтесь...
    Бухгалтерский угодник, 2 июл 2011
    #15
Похожие темы
  1. Mikichig

    8.х БП В 1С Бухгалтерия в б/у не отражается сумма отклонения курса продажи валюты.

    Mikichig, 12 мар 2012, в разделе: "1С:Бухгалтерия БП"
    Ответов:
    2
    Просмотров:
    997
    alexburn
    12 мар 2012
  2. Olya-lya

    7.7 Появляется ошибка, при изменении значений в справочнике Пользователи

    Olya-lya, 31 янв 2013, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    4
    Просмотров:
    978
    Olya-lya
    31 янв 2013
  3. Nadir

    8.х РОЗ Изменение цен при перемене курса валюты

    Nadir, 20 окт 2016, в разделе: "1С:Розница"
    Ответов:
    8
    Просмотров:
    1.039
    nsk1C
    17 май 2018
Загрузка...