请各位帮助修改本程序！
目的：运行本程序后，能自动计算fkjl表中“应付余额”列数值，最后，把已经付款完毕的合同标志改为T,其他为F。代码问题：只运算到第三行就结束！并且无法修改合同标志
供应商编码 供应商名称 付款日期 付款金额 合同编号 合同金额 应付余额 执行标志
1001 1001 爱奇新星（北京） - - 200000 A001 500000 300000 FALSE
1001 1001 爱奇新星（北京） - - 100000 A001 500000 200000 FALSE
1001 1001 爱奇新星（北京） - - 200000 A001 500000 0 FALSE
1002 1002 安富利电子（上海） - - 300000 B001 600000 0 FALSE
1002 1002 安富利电子（上海） - - 300000 B001 600000 0 FALSE
1001 1001 爱奇新星（北京） - - 10000 A002 50000 0 FALSE
代码如下：
close all
local htbh,yfye,jl
jl=1
use fkjl
***---从第一行计算
go top
replace 应付余额 with 合同金额-付款金额
yfye=应付余额
htbh="合同编号"
***---计算第二行
if !eof()
skip
***---判断合同编号是否相同
if "合同编号"=htbh
replace 应付余额 with yfye-付款金额
yfye=应付余额
jl=jl+1
skip
else
go jl+1
replace 应付余额 with 合同金额-付款金额
yfye=应付余额
htbh="合同编号"
endif
endif
close all
