还是关于会计分录

[edger_zhu]

关于这个问题已经结贴了，中午急着交程序，也没仔细看，晚上运行的时候发现个很重大的错误
生成的会计分录“二级科目”字段均为第一个记录（张三）
所有的“一级科目”字段中主营业务收入相对应的“贷方金额”字段记录均为第一条记录的金额
我只是将CREATE TABLE kjfl (一级科目 c(20),二级科目 c(20),借方金额 N(12,2),贷方金额 N(12,2) ) 这句话删了，其他的基本没怎么改动
代码的解读对我来说有些难度~~~
望老大能够帮我修改下这段代码，谢谢

问题：
“销售发票”表
字段有 发票号 日期 客户姓名 销售价格 销售税金 等
01 2008.02.03 张三 1000 170
02 2008.02.04 李四 500 85
03 2008.02.05 王五 500 85
“收款单”表
字段有
日期 收款单号 发票号 收款金额
2008.02.03 001 01 1170
2008.02.05 002 03 500

会计分录意义就是
借：银行存款 1170
贷：主营业务收入 1000
应交税费-应交增值税（销项） 170
借：应收账款-李四 585
贷：主营业务收入 500
应交税费-应交增值税（销项） 85
借：应收账款-王五 85
银行存款 500
贷：主营业务收入 500
应交税费-应交增值税（销项） 85

相关解决代码
CREATE TABLE kjfl (一级科目 c(20),二级科目 c(20),借方金额 N(12,2),贷方金额 N(12,2) )
SELECT 销售发票
SELECT DISTINCT 发票号 FROM 销售发票 INTO CURSOR fphb &&找出发票，

DO whil !EOF()
mfph=发票号
SELECT 日期,客户姓名,SUM(销售价格) as xsjg,SUM(税金) as sj FROM 销售发票 INTO CURSOR t1 WHERE ALLTRIM(发票号)==ALLTRIM(mfph) GROUP BY 发票号,日期,客户姓名
mxsjg=销售价格
mkhmc=客户姓名
msj=sj
INSERT INTO kjfl (一级科目,二级科目,贷方金额) VALUES ('主营业务收入','',mxsjg)

INSERT INTO kjfl (一级科目,二级科目,贷方金额) VALUES ('应缴税金','增值税(销项)',msj)

mrq=日期
SELECT 日期,SUM(收款金额) as skje FROM 收款表 INTO CURSOR t2 WHERE ALLTRIM(发票号)==ALLTRIM(mfph) AND 日期=mrq GROUP BY 发票号,日期

mskje=skje

mysk=mxsjg+msj-mskje

IF mysk>0 AND mskje>0
INSERT INTO kjfl (一级科目,二级科目,借方金额) VALUES ('银行存款','',mskje)

INSERT INTO kjfl (一级科目,二级科目,借方金额) VALUES ('应收账款',mkhmc,mysk)
ENDIF

IF mysk <0 AND mskje>0 &&预收账款性质,,收款金额大于 发票金额

INSERT INTO kjfl (一级科目,二级科目,借方金额) VALUES ('银行存款','',mskje)

INSERT INTO kjfl (一级科目,二级科目,贷方金额) VALUES ('应收账款',mkhmc,mysk*-1)

ENDIF

IF mskje=0

INSERT INTO kjfl (一级科目,二级科目,借方金额) VALUES ('应收账款',mkhmc,mysk)

ENDIF

SELECT fphb

skip

ENDDO