В начало

Функция «Максимальная покупка»

 

Функция МаксимальнаяПокупка ()

   ДБФервая ();

   Уплачено = 0;

   Пока ДБФконце () = 0 Цикл

      Если ДБФ.AMOUNT > Уплачено Тогда

         Уплачено = ДБФ.AMOUNT;

      КонецЕсли;

      ДБФледующая ();

   КонецЦикла;

   Возврат Уплачено;

КонецПроцедуры