Сущ.процедура
Процедура РасчетБонусНажатие(Элемент)
   
   ПервыйПредел = 3000 ;
   ВторойПредел = 5000 ;
   ТретийПредел = 7000 ;
   СтавкаБонуса1 = 0.03 ;
   СтавкаБонуса2 = 0.05;
   СтавкаБонуса3 = 0.07;
   ДатаДок = Дата ;
   НачалоПериода =  ДобавитьМесяц((НачалоМесяца(ДатаДок)),-1);
   КонецПериода = КонецМесяца(НачалоПериода) ;
   Макет = Документы.ЧекККМ.ПолучитьМакет("Макет");
    Запрос = Новый Запрос;
    Запрос.Текст =
       "ВЫБРАТЬ
       |    Бонусы.Период,
       |    Бонусы.НомерКарты,
       |    СУММА(Бонусы.СуммаПокупки) КАК СуммаПокупки
       |ИЗ
       |    РегистрНакопления.Бонусы КАК Бонусы
       |ГДЕ
       |    Бонусы.Период МЕЖДУ &НачалоПериода И &КонецПериода
       |    И Бонусы.НомерКарты = &НомерКарты
       |
       |СГРУППИРОВАТЬ ПО
       |    Бонусы.Период,
       |    Бонусы.НомерКарты
       |ИТОГИ
       |    СУММА(СуммаПокупки)
       |ПО
       |    ОБЩИЕ";

   
           
   Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
   Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода );
   Запрос.УстановитьПараметр("НомерКарты", НомерКарты);
   Результат = Запрос.Выполнить();

   ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

   ВыборкаОбщийИтог.Следующий();    
   
   ВыборкаДетальныеЗаписи = ВыборкаОбщийИтог.Выбрать();

   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    ОбщСуммаПокупок = ВыборкаОбщийИтог.СуммаПокупки ;    
   КонецЦикла;
   
        Если ОбщСуммаПокупок <= ВторойПредел
           и ОбщСуммаПокупок > ПервыйПредел Тогда
        СуммаБонусаРасчет = ОбщСуммаПокупок * СтавкаБонуса1 ;
                КонецЕсли ;



Нужно Вычислить СуммаБонусаРасчет   Что не так ? Прошу строго не судить я еще учусь!!

я не знаю

в отладчике        
СуммаБонусаРасчет    Неопределено
СтавкаБонуса1      0,03    Число
ПервыйПредел      3 000    Число
ОбщСуммаПокупок      2 800    Число

СуммаБонусаРасчет=0;//пока не знаем сколько купили
 
        Если ОбщСуммаПокупок <= ВторойПредел
           и ОбщСуммаПокупок > ПервыйПредел Тогда
        СуммаБонусаРасчет = ОбщСуммаПокупок * СтавкаБонуса1 ;
                КонецЕсли ;

дык в условие у тебя не входит, потому и неопределено

(3) если сделать как в 3, то будет 0 (число), а не неопределено :)

+(3) видно ж в отладчике, что ОбщСуммаПокупок меньше первого предела

ПервыйПредел = 3000
ОбщСуммаПокупок      2 800
Не попадает в условие

сумма 2800, а первый предел 3000, условие неполное, соответсвтенно

(7) во-во

ВыборкаОбщийИтог = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

   ВыборкаОбщийИтог.Следующий();    
   
   ВыборкаДетальныеЗаписи = ВыборкаОбщийИтог.Выбрать();

   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    ОбщСуммаПокупок = ВыборкаОбщийИтог.СуммаПокупки ;    
   КонецЦикла;

Что это?

(10) Хаха

(10) sic! :)

а так??

     "ВЫБРАТЬ
       |    Бонусы.НомерКарты,
       |    СУММА(Бонусы.СуммаПокупки) КАК СуммаПокупки
       |ИЗ
       |    РегистрНакопления.Бонусы КАК Бонусы
       |ГДЕ
       |    Бонусы.Период МЕЖДУ &НачалоПериода И &КонецПериода
       |    И Бонусы.НомерКарты = &НомерКарты
       |
       |СГРУППИРОВАТЬ ПО
       |    Бонусы.НомерКарты";

     
           
   Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
   Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода );
   Запрос.УстановитьПараметр("НомерКарты", НомерКарты);
   Результат = Запрос.Выполнить();

   
   
   ВыборкаДетальныеЗаписи = Результат.Выбрать();

   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    ОбщСуммаПокупок = ВыборкаОбщийИтог.СуммаПокупки ;    
   КонецЦикла;
   
        Если ОбщСуммаПокупок <= ВторойПредел
           и ОбщСуммаПокупок > ПервыйПредел Тогда
        СуммаБонусаРасчет = ОбщСуммаПокупок * СтавкаБонуса1 ;
                КонецЕсли ;

(13) да дело в том, что он переназначает ОбщСуммаПокупок каждый раз, а не суммирует. а условие то, мб, и правильное, только надо сделать как в (3) сначала

ОбщСуммаПокупок = ВыборкаДетальныеЗаписи.СуммаПокупки ;

жуть какая.

самый большой косяк в Если. Нет там Иначе.

поскольку ПервыйПредел = 3000, а ОбщаяСуммаПокупок 2800. В условие входа нет. Код в общем кривой, но при:

...
       Если ОбщСуммаПокупок <= ВторойПредел
           и ОбщСуммаПокупок > ПервыйПредел Тогда
        СуммаБонусаРасчет = ОбщСуммаПокупок * СтавкаБонуса1 ;
Иначе СуммаБонусаРасчет = 0;
                КонецЕсли ;

...

кое как работать будет.

(14) Он перебирает одну выборку, а присваивает значения из другой

а в (3) уже было дано самое приемлимое решение.

(19) судя по запросу, ему и нужно со всей выборки только одно значение.

кривости кода в общем это не отменяет.

СуммаБонусаРасчет=0;
   Если ОбщСуммаПокупок <= ПервыйПредел
       и ОбщСуммаПокупок >= 0 Тогда
       СуммаБонусаРасчет = ОбщСуммаПокупок * 0.03 ;



Так все получилось!! Всем спасибо в часности    Шапокляк !!!