Задача предоставления скидок покупателям

&НаКлиенте
Процедура Расш2_ПередЗаписьюВместо(Отказ, ПараметрыЗаписи)   
 
    Процент = ПроцентСкидки(Объект.Расш2_Скидка);   
    
    Для Каждого СтрокаТЧ Из Объект.Товары Цикл
        СуммаСкидки = СтрокаТЧ.Сумма / 100 * Процент;
        СтрокаТЧ.Расш2_СуммаСУчетомСкидки = СтрокаТЧ.Сумма - СуммаСкидки;
    КонецЦикла;           
 
КонецПроцедуры 
 
&НаСервере
Функция ПроцентСкидки(Процент) Экспорт 
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ПродажиОбороты.Покупатель КАК Покупатель,
        |   ПродажиОбороты.СуммаОборот КАК СуммаОборот
        |ИЗ
        |   РегистрНакопления.Продажи.Обороты(&НачалоПериода, &КонецПериода, Месяц, ) КАК ПродажиОбороты
        |ГДЕ
        |   ПродажиОбороты.Покупатель = &Покупатель";
    
    ТекДата = Объект.Дата;  
    ПредМесяц = ДобавитьМесяц(ТекДата, -1);
 
    Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(ПредМесяц)); 
    Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(ПредМесяц));
    Запрос.УстановитьПараметр("Покупатель", Объект.Покупатель);
    
    РезультатЗапроса = Запрос.Выполнить();   
    Выборка = РезультатЗапроса.Выбрать(); 
    
    Пока Выборка.Следующий() Цикл
        Если Выборка.СуммаОборот >= 30000 Тогда  
            Процент = 15;
        ИначеЕсли Выборка.СуммаОборот >= 20000 И Выборка.СуммаОборот < 30000 Тогда  
            Процент = 10;
        ИначеЕсли Выборка.СуммаОборот >= 10000 И Выборка.СуммаОборот < 20000 Тогда  
            Процент = 5; 
        Иначе
            Процент = 0; 
        КонецЕсли; 
    КонецЦикла;   
    
    Возврат Процент;
            
КонецФункции