В начало

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

 

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

   ДБФ.Первая ();

   Уплачено = 0;

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

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

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

      КонецЕсли;

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

   КонецЦикла;

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

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