Помогите с кодом (ax 2009)

[dech]

Во-первых, if и do-while содержат одинаковые условия, превратите это в один цикл while.
Во-вторых, зачем пишете forupdate, когда не применяете ни udpate(), ни delete()?
В-третьих, разделите rowQuota на две разные переменные для выборки и вставки, тогда понятнее будет код.
В-четвертых, можно заменить monthDiff и dayDiff вызовом функций и сделать один вызов вместо двух.