8.х Тема: Не суммируются скидки

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем qwert_ukg, 9 мар 2011.

  1. TopicStarter Overlay
    qwert_ukg
    Offline

    qwert_ukg

    Регистрация:
    9 мар 2011
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    Всем привет!
    У меня не суммируются скидки. есть у контрагентов скидка и и отдельно по номенклатуре. они должны суммироваться, но либо та либо другая работают в зависимости от приоритета.
    Помогите пожалуйста. очень надо
  2. TopicStarter Overlay
    qwert_ukg
    Offline

    qwert_ukg

    Регистрация:
    9 мар 2011
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    конфигурация: Управление торговлей для Казахстана Редакция 2.1
  3. TopicStarter Overlay
    qwert_ukg
    Offline

    qwert_ukg

    Регистрация:
    9 мар 2011
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    Функция РассчитыватьАвтоматическиеСкидки(ТекВид)

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

    Если ТекВид= Перечисления.УсловияСкидкиНаценки.ПоКоличествуТовара Тогда
    Результат = ИспользованиеСкидок.ИспользоватьСкидкиПоКоличествуТовара;
    ИначеЕсли ТекВид = Перечисления.УсловияСкидкиНаценки.ПоСуммеДокумента Тогда
    Результат = ИспользованиеСкидок.ИспользоватьСкидкиПоСуммеДокумента;
    ИначеЕсли ТекВид = Перечисления.УсловияСкидкиНаценки.ПоДисконтнойКарте Тогда
    Результат = ИспользованиеСкидок.ИспользоватьСкидкиПоДисконтнойКарте;
    ИначеЕсли ТекВид= Перечисления.УсловияСкидкиНаценки.ПоКоличествуДнейОтсрочкиПлатежа Тогда
    Результат = ИспользованиеСкидок.ИспользоватьСкидкиПоКоличествуДнейОтсрочкиПлатежа;
    //ИначеЕсли ТекВид= Перечисления.УсловияСкидкиНаценки.НакопительнаяСкидка Тогда
    // Результат = ИспользованиеСкидок.ИспользоватьСкидкиНакопительные;
    ИначеЕсли ТекВид = Перечисления.УсловияСкидкиНаценки.ПоВидуОплаты Тогда
    Результат = ИспользованиеСкидок.ИспользоватьСкидкиПоВидуОплаты;
    Иначе
    Результат = Ложь;
    КонецЕсли;

    Возврат Результат;

    КонецФункции // РассчитыватьАвтоматическиеСкидки()

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