-- Шаблон создан мастером бланков
-- 06.06.2012 16:07:01
--
БланкСШаблоном "Льготы детского сада", Редактор РПО_ДЕТСАД_ЛЬГОТА;
var Buf[]:S;



Func СУММАПРОЦЕНТЫ_OnEnter(FieldName: String; Iter: Integer): logical;
 var i:I;
  ClearVariable(Buf);
  buf[1]='  0%';
  buf[2]=' 25%';
  buf[3]=' 50%';
  buf[4]=' 75%';
  buf[5]='100%';
  i=Alternate('Выберите объем оплаты',Buf);
  if i=0 then
     ^False;
    else
    СУММАПРОЦЕНТЫ=Int(Substr(Buf[i],1,3));
  fi;
  Return False ;
end;


Конец
