Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 08:40

Не суммируются скидки

Автор qwert_ukg, 09 мар 2011, 09:12

0 Пользователей и 1 гость просматривают эту тему.

qwert_ukg

Всем привет!
У меня не суммируются скидки. есть у контрагентов скидка и и отдельно по номенклатуре. они должны суммироваться, но либо та либо другая работают в зависимости от приоритета.
Помогите пожалуйста. очень надо

progmikon

Очень содержательное сообщение....
Может стоит начать хотя бы с конфигурации, которую вы используете?

qwert_ukg

конфигурация: Управление торговлей для Казахстана Редакция 2.1

qwert_ukg

неужели никто не поможет???

chuevsf

Для нормальной помощи не хватает исходных данных.
Так что ждем Ваших действий.

qwert_ukg

1С:Предприятие 8.1 (8.1.15.14)
конфигурация: "Управление торговлей для Казахстана", редакция 2.1,  локализация для Казахстана: "1С-Рейтинг",  "1С-Сапа" (2.1.8.2)
Режим: Серверный

qwert_ukg


qwert_ukg

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

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

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

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

Теги:

Похожие темы (1)

Рейтинг@Mail.ru

Поиск