Епт, у нас похожее было, когда я тока на работу пришёл (и сейчас ещё осталось местами). Какие-то глобалы ХЗ откуда имеющиеся (fal,p_idx), совершенно невнятные названия переменных (причём это повсюду, а не где-то в отдельных местах) - сочувствую.
В массив берутся только те коды меньше 100, у которых таинственное "B7" (ненавижу!) равно 1.
Что за база и индекс - ХЗ, глобалы откуда-то "сверху"
Берём поле с названием "sch+<код, записанный в массиве>". Какие коды берутся в массив - см. выше. Пробегаем весь массив, получаем сумму этих schNNNN-полей. Запихиваем эту сумму в sum8, а в sch105 пишем одну(!) сотую от неё, т.е. int(per)/100.

Во-первых, если sum8 это поле с начисленой сумой, sch105 - 6% от суммы, то оператор должен давать 1 процент, а не 6?
Во-вторых, я так понимаю, есть код, а есть его св-во. Св-во "B7" означает, что этот код надо учитывать в пенсионных начислениях. Нет ли в базе записей с неправильными сочетаниями полей Cod и B7 (а то может ещё и с начислениями бяка)?

Liosha_nove4ok,
Не знаю куда и что юзер пишет, но вот это
запишет Ыкс в Sum8 и Ыкс/100 (с "округлением" до сотых) в Sch105. Никаких шести процентов там и в помине нет. Посмотрите, может, где-то ещё Sch105 изменяется?
По программе:
... in da scan
Типа так: в цикле (по каждому человеку с начала года до какого-то месяца, если я правильно понял это нагромождение) в pens2 суммируются pens1(посчитанные с каким-то ограничением), в pensf суммируются sch105 (вроде они и относятся к пенсионному?). Потом одно из другого вычитается, и результат снова пишется в sch105.
Логика сего процесса от меня ускользает, впрочем, не от балды ведь программа писана - разбирайтесь, как оно "в жизни" должно рассчитываться.