主题：求序时账的高效流水账代码

求一个高效流水账的代码:按表内"科目代码"区分的流水账

当:一级科目<1602、1602<一级科目<2001、一级科目>=6401时,期末余额=上行期末余额+本行借方金额-本行贷方金额(按科目代码区分),同时计算得期末余额为正数,方向列就赋于"借",为负时方向列赋于"贷"并且期末余额的负数以正数显示.当一级科目=1405或1601时,同时统计期末数量=上行期末数量+本行借方数量-本行贷方数量(按科目代码区分),并算出结余单价.

当:一级科目=1602、2001<=一级科目<6401时,期末余额=上行期末余额+本行贷方金额-本行借方金额(按科目代码区分),同时计算得期末余额为正数,方向列就赋于"贷",为负时方向列赋于"借"并且期末余额的负数以正数显示.