Назначение скидок на документ

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

RSS

Назначение скидок на документ, Скидки на работы в заказ-наряде

Skrepka Skrepka

Посетитель

Сообщений: 904 Регистрация: 28.07.2010

20.09.2010 17:22:55

Здравствуйте, подскажите как быть.
Есть некоторые работы на которые установленны автоматические вытесняющие скидки 100%.
Заполняем Заказ-наряд, 5 работ, одна из них со 100% скидкой. Делаем скидку на документ на работы 15%. В результате, на одну из работ устанавливается скидка не 15%, а 15,36% или 16,10%.
Просмотрев код выяснилось, что программа сначала высчитывает общую сумму скидку по полю Сумма, потом по каждой строке пеерсчитывает сумму скидки, и сравнивает общую сумму скидки и сумму скидок по работам. А так как по одной работе стоим 100% вытесняющая скидка, то по данной строке сумма скидки = 0, соответствено общая сумма скидки сумма скидок по работам не равны. Программа выбирает строку с самой большой суммой скидки и добавляет в нее разницу скидок. В результате получаются не правильные данные.
Что в этой ситуации делать?

Виктор Радько Посетитель Сообщений: 964 Регистрация: 09.02.2010	#2 21.09.2010 12:04:33 Это ошибка. У нас она уже зарегистрирована под номером С0000912. Спасибо за помощь.

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#3 21.09.2010 12:21:44 что сейчас мне можно сделать? удалить пересчет на надестоющую сумму?

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#4 22.09.2010 11:52:19 Вы мне поможете? Или я зря писала?

Виктор Радько

Посетитель

Сообщений: 964 Регистрация: 09.02.2010

22.09.2010 12:04:57

Цитата
Skrepka Skrepka пишет: что сейчас мне можно сделать? удалить пересчет на надестоющую сумму?

Это не поможет, так как не правильно получена расчетная база для распределения общей абсолютной скидки по строкам.

Сейчас исправляем эту ошибку. Обработку выложим в этой ветке.

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#6 22.09.2010 14:34:07 Спасибо.

Виктор Радько

Посетитель

Сообщений: 964 Регистрация: 09.02.2010

23.09.2010 11:29:35

Выкладываю исправления, только предварительно, до внесения исправлений сохраните текущую конфигурацию. Исправление не прошло полного тестирования.
Помимо замены обработки нужно внести изменения в общий модуль орОтраслевыеРешения в процедуру орПолучитьСуммуДокументаБезСкидки()

для Сервиса:

Функция орПолучитьСуммуДокументаБезСкидки(ЭтотОбъект,Товары=Неопределено, МассивСтрокСВытеснением=Неопределено) Экспорт
Если ТипЗнч(ЭтотОбъект)=Тип("ДокументОбъект.ЗаказНаряд") Тогда
Если Товары="Работы" Тогда

ЕстьВытеснение = Ложь;
Если ТипЗнч(МассивСтрокСВытеснением) = Тип("Массив") Тогда
ЕстьВытеснение = Истина;
КонецЕсли;

ЦенаВключаетНДС = (обЗначениеНеЗаполнено(ЭтотОбъект.ТипЦен) ИЛИ ЭтотОбъект.ТипЦен.ЦенаВключаетНДС);

СуммаДокументаБезСкидки = 0;
Если ЕстьВытеснение Тогда
КоличествоСтрок = ЭтотОбъект.Работы.Количество()-1;
Для Инд = 0 По КоличествоСтрок Цикл
Если НЕ МассивСтрокСВытеснением.Найти(Инд) = Неопределено Тогда
Продолжить;
КонецЕсли;
ТекСтрока = ЭтотОбъект.Работы[Инд];
Если ЦенаВключаетНДС Тогда
// Получим сумму документу без учета НДС и скидки
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ТекСтрока.Сумма;
Иначе
//Если цена не включает НДС, то получим суммарную НДС по всем строкам
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ТекСтрока.Сумма + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЕсли;
КонецЦикла;
Иначе
СуммаДокументаБезСкидки = ЭтотОбъект.Работы.Итог("Сумма");

Если НЕ ЦенаВключаетНДС Тогда
Для каждого ТекСтрока Из ЭтотОбъект.Работы Цикл
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЦикла;
КонецЕсли;
КонецЕсли;
Возврат СуммаДокументаБезСкидки;
КонецЕсли;
КонецЕсли;

Возврат Неопределено;
КонецФункции // орПолучитьСуммуДокументаБезСкидки()

для Салона:

Функция орПолучитьСуммуДокументаБезСкидки(ЭтотОбъект,Товары=Неопределено, МассивСтрокСВытеснением=Неопределено) Экспорт
Если ТипЗнч(ЭтотОбъект)=Тип("ДокументОбъект.ЗаказНаряд") Тогда
Если Товары="Работы" Тогда

ЕстьВытеснение = Ложь;
Если ТипЗнч(МассивСтрокСВытеснением) = Тип("Массив") Тогда
ЕстьВытеснение = Истина;
КонецЕсли;

ЦенаВключаетНДС = (обЗначениеНеЗаполнено(ЭтотОбъект.ТипЦен) ИЛИ ЭтотОбъект.ТипЦен.ЦенаВключаетНДС);

СуммаДокументаБезСкидки = 0;
Если ЕстьВытеснение Тогда
КоличествоСтрок = ЭтотОбъект.Работы.Количество()-1;
Для Инд = 0 По КоличествоСтрок Цикл
Если НЕ МассивСтрокСВытеснением.Найти(Инд) = Неопределено Тогда
Продолжить;
КонецЕсли;
ТекСтрока = ЭтотОбъект.Работы[Инд];
Если ЦенаВключаетНДС Тогда
// Получим сумму документу без учета НДС и скидки
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ТекСтрока.Сумма;
Иначе
//Если цена не включает НДС, то получим суммарную НДС по всем строкам
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ТекСтрока.Сумма + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЕсли;
КонецЦикла;
Иначе
СуммаДокументаБезСкидки = ЭтотОбъект.Работы.Итог("Сумма");

Если НЕ ЦенаВключаетНДС Тогда
Для каждого ТекСтрока Из ЭтотОбъект.Работы Цикл
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЦикла;
КонецЕсли;
КонецЕсли;

Возврат СуммаДокументаБезСкидки;

КонецЕсли;

ИначеЕсли Товары="Автомобиль" Тогда
СуммаДокументаБезСкидки = ЭтотОбъект.ЦенаАвтомобиля;
ЦенаВключаетНДС = (обЗначениеНеЗаполнено(ЭтотОбъект.ТипЦен) ИЛИ ЭтотОбъект.ТипЦен.ЦенаВключаетНДС);
Если НЕ ЦенаВключаетНДС Тогда
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ЭтотОбъект.СуммаНДСНаАвтомобиль;
КонецЕсли;
Если ЭтотОбъект.Метаданные().ТабличныеЧасти.Найти("Опции")<>Неопределено Тогда
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + ЭтотОбъект.Опции.Итог("Сумма");
Если НЕ ЦенаВключаетНДС Тогда
Для каждого ТекСтрока Из ЭтотОбъект.Опции Цикл
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЦикла;
КонецЕсли;
КонецЕсли;
Возврат СуммаДокументаБезСкидки;

ИначеЕсли Товары="Автомобили" Тогда
СуммаДокументаБезСкидки = ЭтотОбъект.Автомобили.Итог("Сумма");
ЦенаВключаетНДС = (обЗначениеНеЗаполнено(ЭтотОбъект.ТипЦен) ИЛИ ЭтотОбъект.ТипЦен.ЦенаВключаетНДС);
Если НЕ ЦенаВключаетНДС Тогда
Для каждого ТекСтрока Из ЭтотОбъект.Автомобили Цикл
СуммаДокументаБезСкидки = СуммаДокументаБезСкидки + (ТекСтрока.Сумма * ТекСтрока.СтавкаНДС.Ставка)/100;
КонецЦикла;
КонецЕсли;
Возврат СуммаДокументаБезСкидки;
КонецЕсли;

Возврат Неопределено;
КонецФункции // орПолучитьСуммуДокументаБезСкидки()

Прикрепленные файлы

РасчетСкидок.epf (29.58 КБ)

Изменено: Виктор Радько - 23.09.2010 11:33:45

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#8 11.10.2010 15:15:30 Знаете, не помогает. Вставила то, что вы написали, не изменилось ничего!

Светлана Михайлова Гость	#9 13.10.2010 17:44:26 Ошибка исправлена. Исправления появятся в релизе 4.1.01.18

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#10 14.10.2010 13:16:36 А до выхода релиза мне что делать? Подскажите как исправить.

Виктор Радько Посетитель Сообщений: 964 Регистрация: 09.02.2010	#11 14.10.2010 14:34:45 Релиз выйдет сегодня.

Skrepka Skrepka Посетитель Сообщений: 904 Регистрация: 28.07.2010	#12 15.10.2010 09:00:55 что-то нету обещенного релиза

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее