完整的往来账取数脚本: int prepare() { int kmdm,i //-----处理预收账款------------------ num yingshou_qc,yushou_qc,km_jfye_num,km_dfye_num,yingshou_qm,yushou_qm //明细科目借方余额存入yingshou_qc,yingshou_qm,贷方余额存入yushou_qc,yushou_qm kmdm=2203000 //预收账款科目代码2203,明细科目3位数001-100 for(i=1;i<100;i++) { kmdm++ if(期初(kmdm)<0) { km_jfye_num=0-期初(kmdm) yingshou_qc=yingshou_qc+km_jfye_num } else { km_dfye_num=期初(kmdm) yushou_qc=yushou_qc+km_dfye_num } if(期末(kmdm)<0) { km_jfye_num=0-期末(kmdm) yingshou_qm=yingshou_qm+km_jfye_num } else { km_dfye_num=期末(kmdm) yushou_qm=yushou_qm+km_dfye_num } } //msg(yingshou_num) //msg(yushou_num) //---------预收账款处理结束-处理应收账款--------- kmdm=1122000 //应收账款科目代码1122,明细科目3位数001-100 for(i=1;i<100;i++) { kmdm++ if(期初(kmdm)>0) { km_jfye_num=期初(kmdm) yingshou_qc=yingshou_qc+km_jfye_num } else { km_dfye_num=0-期初(kmdm) yushou_qc=yushou_qc+km_dfye_num } if(期末(kmdm)>0) { km_jfye_num=期末(kmdm) yingshou_qm=yingshou_qm+km_jfye_num } else { km_dfye_num=0-期末(kmdm) yushou_qm=yushou_qm+km_dfye_num } } para_set('b_ysqc',yingshou_qc) para_set('b_yusqc',yushou_qc) para_set('b_ysqm',yingshou_qm) para_set('b_yusqm',yushou_qm) //---------预收应收处理结束---------- //-----处理其他应收账款------------------ num qtys_qc,qtyf_qc,km_jfye_num,km_dfye_num,qtys_qm,qtyf_qm //明细科目借方余额存入qtys_qc,qtys_qm,贷方余额存入qtyf_qc,qtyf_qm kmdm=1221000 //其他应收账款科目代码1221,明细科目3位数001-100 for(i=1;i<100;i++) { kmdm++ if(期初(kmdm)>0) { km_jfye_num=期初(kmdm) qtys_qc=qtys_qc+km_jfye_num } else { km_dfye_num=0-期初(kmdm) qtyf_qc=qtyf_qc+km_dfye_num } if(期末(kmdm)>0) { km_jfye_num=期末(kmdm) qtys_qm=qtys_qm+km_jfye_num } else { km_dfye_num=0-期末(kmdm) qtyf_qm=qtyf_qm+km_dfye_num } } //---------其他应收处理结束-处理其他应付--------- kmdm=2241000 //其他应付账款科目代码2241,明细科目3位数001-100 for(i=1;i<100;i++) { kmdm++ if(期初(kmdm)<0) { km_jfye_num=0-期初(kmdm) qtys_qc=qtys_qc+km_jfye_num } else { km_dfye_num=期初(kmdm) qtyf_qc=qtyf_qc+km_dfye_num } if(期末(kmdm)<0) { km_jfye_num=0-期末(kmdm) qtys_qm=qtys_qm+km_jfye_num } else { km_dfye_num=期末(kmdm) qtyf_qm=qtyf_qm+km_dfye_num } } para_set('b_qtys_qc',qtys_qc) para_set('b_qtyf_qc',qtyf_qc) para_set('b_qtys_qm',qtys_qm) para_set('b_qtyf_qm',qtyf_qm) return 1; }; |