visualfoxpro企业会计电算化实例

				USE &zza(i,6)
				GOTO BOTTOM
				STORE 余额  TO yu_e
				IF 日期<>syhjrq
					IF 日期=the_end
						GOTO RECC()-1
						STORE 余额  TO yu_e
						GOTO BOTT
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhjz
						REPLACE 贷方 WITH dhjz
						REPLACE 余额 WITH yu_e+jhjz-dhjz
						BROWSE ;
							NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
						DO rk
						USE
					ELSE
						WAIT WINDOW '月份不符'
						BROW TITLE zza(i,2)+zza(i,6)+'合计'
					ENDIF
				ELSE
					APPEND BLANK
					REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
					REPLACE 借方 WITH jhjz
					REPLACE 贷方 WITH dhjz
					REPLACE 余额 WITH yu_e+jhjz-dhjz
					BROWSE ;
						NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
					DO rk
					USE
				ENDIF

			CASE ALLTRIM(zza(i,5))='选用明细'.AND.;
					ALLTRIM(zza(i,2))='递延资产'
*? zza(i,4)
*wait
				USE &zza(i,4)
				STORE RECC() TO N
				COPY TO ARRAY mx
				STORE 0 TO jhj,dhj,jhjz,dhjz
				FOR j=1 TO 1                       && 递延资产第一个明细作科目用
					? j,mx(j,2)
* wait
					USE &mx(j,2)
					STORE 0 TO jhj,dhj
					SUM 借方,贷方 FOR 日期>=BEGIN.AND.日期<=the_end TO jhj,dhj
					jhjz=jhjz+jhj
					dhjz=dhjz+dhj
					USE &mx(j,3)
					GOTO BOTTOM
					STORE 余额  TO yu_e
					IF 日期<>syhjrq
						IF 日期=the_end
							GOTO RECC()-1
							STORE 余额  TO yu_e
							GOTO BOTT
							REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
							REPLACE 借方 WITH jhj
							REPLACE 贷方 WITH dhj
							REPLACE 余额 WITH yu_e+jhj-dhj
						ELSE
*             wait window '月份不符'
*             brow title mx(j,1)+mx(j,3)+'合计'
						ENDIF
					ELSE
						APPEND BLANK
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhj
						REPLACE 贷方 WITH dhj
						REPLACE 余额 WITH yu_e+jhj-dhj
					ENDIF
				NEXT
*  总帐

				USE &zza(i,6)
				GOTO BOTTOM
				STORE 余额  TO yu_e
				IF 日期<>syhjrq
					IF 日期=the_end
						GOTO RECC()-1
						STORE 余额  TO yu_e
						GOTO BOTT
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhjz
						REPLACE 贷方 WITH dhjz
						REPLACE 余额 WITH yu_e+jhjz-dhjz
						BROWSE ;
							NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
						DO rk
						USE
					ELSE
						WAIT WINDOW '月份不符'
						BROW TITLE zza(i,2)+zza(i,6)+'合计'
					ENDIF
				ELSE
					APPEND BLANK
					REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
					REPLACE 借方 WITH jhjz
					REPLACE 贷方 WITH dhjz
					REPLACE 余额 WITH yu_e+jhjz-dhjz
					BROWSE ;
						NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
					DO rk
					USE
				ENDIF


&& 负债科目(有明细):201,203,209,229,241 所有者权益:301
			CASE zza(i,5)='选用明细'.AND.;
					(ALLTRIM(zza(i,2))='短期借款';
					.OR.ALLTRIM(zza(i,2))='应付票据';
					.OR.ALLTRIM(zza(i,2))='应付帐款';
					.OR.ALLTRIM(zza(i,2))='预收帐款';
					.OR.ALLTRIM(zza(i,2))='其他应付款';
					.OR.ALLTRIM(zza(i,2))='应付工资';
					.OR.ALLTRIM(zza(i,2))='应付福利费';
					.OR.ALLTRIM(zza(i,2))='应交税金';
					.OR.ALLTRIM(zza(i,2))='产品销售收入';
					.OR.ALLTRIM(zza(i,2))='应付利润';
					.OR.ALLTRIM(zza(i,2))='其他应交款';
					.OR.ALLTRIM(zza(i,2))='预提费用';
					.OR.ALLTRIM(zza(i,2))='待扣税金';
					.OR.ALLTRIM(zza(i,2))='长期借款';
					.OR.ALLTRIM(zza(i,2))='应付债券';
					.OR.ALLTRIM(zza(i,2))='长期应付款';
					.OR.ALLTRIM(zza(i,2))='实收资本';
					.OR.ALLTRIM(zza(i,2))='资本公积';
					.OR.ALLTRIM(zza(i,2))='盈余公积';
					.OR.ALLTRIM(zza(i,2))='本年利润';
					.OR.ALLTRIM(zza(i,2))='利润分配';
					.OR.ALLTRIM(zza(i,2))='其他业务收入';
					.OR.ALLTRIM(zza(i,2))='营业外收入')
				USE &zza(i,4)
				STORE RECC() TO N
				COPY TO ARRAY mx
				STORE 0 TO jhj,dhj,jhjz,dhjz
				FOR j=1 TO N-1
					USE &mx(j,2)
					STORE 0 TO jhj,dhj
					SUM 借方,贷方 FOR 日期>=BEGIN.AND.日期<=the_end TO jhj,dhj
					jhjz=jhjz+jhj
					dhjz=dhjz+dhj
					IF ALLTRIM(zza(i,2))='产品销售收入'
						DO CASE
							CASE j=1
								STORE dhj TO dhj1
							CASE j=2
								STORE dhj TO dhj2
							CASE j=3
								STORE dhj TO dhj3
							CASE j=4
								STORE dhj TO dhj4
						ENDCASE
					ENDIF
					USE &mx(j,3)
					GOTO BOTTOM
					STORE 余额  TO yu_e
					IF 日期<>syhjrq
						IF 日期=the_end
							GOTO RECC()-1
							STORE 余额  TO yu_e
							GOTO BOTT
							REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
							REPLACE 借方 WITH jhj
							REPLACE 贷方 WITH dhj
							REPLACE 余额 WITH yu_e-jhj+dhj
						ELSE
*             wait window '月份不符'
*             brow title mx(j,1)+mx(j,3)+'合计'
						ENDIF
					ELSE
						APPEND BLANK
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhj
						REPLACE 贷方 WITH dhj
						REPLACE 余额 WITH yu_e-jhj+dhj
					ENDIF
				NEXT
*  总帐

				USE &zza(i,6)
				GOTO BOTTOM
				STORE 余额  TO yu_e
				IF 日期<>syhjrq
					IF 日期=the_end
						GOTO RECC()-1
						STORE 余额  TO yu_e
						GOTO BOTT
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhjz
						REPLACE 贷方 WITH dhjz
						REPLACE 余额 WITH yu_e-jhjz+dhjz
						IF ALLTRIM(zza(i,2))='产品销售收入'
							REPLACE 修复机 WITH dhj1
							REPLACE 直管机 WITH	dhj2
							REPLACE u型卡  WITH dhj3
							REPLACE 备件   WITH dhj4
						ENDIF
						BROWSE ;
							NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
						DO rk
						USE
					ELSE
						WAIT WINDOW '月份不符'
						BROW TITLE zza(i,2)+zza(i,6)+'合计'
					ENDIF
				ELSE
					APPEND BLANK
					REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
					REPLACE 借方 WITH jhjz
					REPLACE 贷方 WITH dhjz
					REPLACE 余额 WITH yu_e-jhjz+dhjz
					IF ALLTRIM(zza(i,2))='产品销售收入'
						REPLACE 修复机 WITH dhj1
						REPLACE 直管机 WITH	dhj2
						REPLACE u型卡  WITH dhj3
						REPLACE 备件   WITH dhj4
					ENDIF
					BROWSE ;
						NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月合计 '
					DO rk
					USE
				ENDIF



			CASE ALLTRIM(zza(i,2))='固定资产及折旧'
				USE mx161
				STORE RECC() TO N
				DIME mx(300,3)
				COPY TO ARRAY mx
				STORE 0.00 TO yjjez,ydjez,yyjez,ljjez,ldjez,lyez,jzz
				FOR j=1 TO N-1
					USE &mx(j,2)
					STORE 0.00 TO jhj,dhj
					SUM 原值借方,原值贷方,累折借方,累折贷方 FOR 日期>=BEGIN.AND.日期<=the_end TO yjje1,ydje1,ljje1,ldje1
					yjjez=yjjez+yjje1
					ydjez=ydjez+ydje1
					ljjez=ljjez+ljje1
					ldjez=ldjez+ldje1
					GOTO BOTTOM
					lyez=lyez+累折余额
					jzz=jzz+净值
					yyjez=yyjez+原值余额
				NEXT
				USE  yhj161
				STORE RECC() TO nr
				GOTO BOTTOM
				IF 日期=the_end
					IF nr>1
						SKIP -1
						STORE 累折余额 TO lzye_y
					ENDIF
					GOTO BOTTOM
					REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
					REPLACE 原值借方 WITH yjjez
					REPLACE 原值贷方 WITH ydjez
					REPLACE 累折借方 WITH ljjez
					REPLACE 累折贷方 WITH ldjez
					REPLACE 原值余额 WITH yyjez
					REPLACE 累折余额 WITH lzye_y-累折借方+累折贷方
					REPLACE 净值 WITH 原值余额- 累折余额
				ENDIF
				IF 日期=GOMONTH(the_end,-1)
					STORE 累折余额 TO lzye_y
					APPEND BLANK
					REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
					REPLACE 原值借方 WITH yjjez
					REPLACE 原值贷方 WITH ydjez
					REPLACE 累折借方 WITH ljjez
					REPLACE 累折贷方 WITH ldjez
					REPLACE 原值余额 WITH yyjez
					REPLACE 累折余额 WITH lzye_y-累折借方+累折贷方
					REPLACE 净值 WITH 原值余额- 累折余额
				ENDIF
				BROW
				DO rk
				USE

			CASE zza(i,5)='选用科目'.AND.;
					ALLTRIM(zza(i,2))='管理费用'

				IF FILE(zza(i,3)+'.dbf')
					USE &zza(i,3)

					STORE 0 TO jhj,dhj
					SUM 借方,贷方 FOR 日期>=BEGIN.AND.日期<=the_end TO jhj,dhj
					SUM 过海费,养路费,官杂费,客餐费,修理费,办公费,邮递费,广告费 FOR 日期>=BEGIN.AND.日期<=the_end TO ghf,ylf,gzf,kcf,xlf,bgf,ydf,ggf
					SUM 差旅费,会务费,车船税,印花税,房产税,地产税,运输费,保险费,绿化费,消耗品,其他 FOR 日期>=BEGIN.AND.日期<=the_end TO clf,hwf,ccs,yhs,fcs,dcs,ysf,bxf,lhf,xhp,qt
					USE &zza(i,6)
					GOTO BOTTOM
					STORE 余额 TO yu_e
					IF 日期<>syhjrq
						IF 日期=the_end
							GOTO RECC()-1
							STORE 余额 TO yu_e
							GOTO BOTT
							REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
							REPLACE 借方 WITH jhj
							REPLACE 贷方 WITH dhj
							REPLACE 余额 WITH yu_e+jhj-dhj
							REPLACE 过海费 WITH ghf
							REPLACE 养路费 WITH ylf
							REPLACE 官杂费 WITH gzf
							REPLACE 客餐费 WITH kcf
							REPLACE 修理费 WITH xlf
							REPLACE 办公费 WITH bgf
							REPLACE 邮递费 WITH ydf
							REPLACE 广告费 WITH ggf
							REPLACE 差旅费 WITH clf
							REPLACE 会务费 WITH hwf
							REPLACE 车船税 WITH ccs
							REPLACE 印花税 WITH yhs
							REPLACE 房产税 WITH fcs
							REPLACE 地产税 WITH dcs
							REPLACE 运输费 WITH ysf
							REPLACE 保险费 WITH bxf
							REPLACE 绿化费 WITH lhf
							REPLACE 消耗品 WITH xhp
							REPLACE 其他 WITH qt
							BROWSE ;
								NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月计 '
							DO rk
							USE
						ELSE
							WAIT WINDOW '月份不符'
							BROW TITLE zza(i,2)+zza(i,6)+'合计'
						ENDIF
					ELSE
						APPEND BLANK
						REPLACE 日期 WITH the_end,摘要 WITH ALLTRIM(STR(yuefen))+'月份合计'
						REPLACE 借方 WITH jhj
						REPLACE 贷方 WITH dhj
						REPLACE 余额 WITH yu_e+jhj-dhj
						REPLACE 过海费 WITH ghf
						REPLACE 养路费 WITH ylf
						REPLACE 官杂费 WITH gzf
						REPLACE 客餐费 WITH kcf
						REPLACE 修理费 WITH xlf
						REPLACE 办公费 WITH bgf
						REPLACE 邮递费 WITH ydf
						REPLACE 广告费 WITH ggf
						REPLACE 差旅费 WITH clf
						REPLACE 会务费 WITH hwf
						REPLACE 车船税 WITH ccs
						REPLACE 印花税 WITH yhs
						REPLACE 房产税 WITH fcs
						REPLACE 地产税 WITH dcs
						REPLACE 运输费 WITH ysf
						REPLACE 保险费 WITH bxf
						REPLACE 绿化费 WITH lhf
						REPLACE 消耗品 WITH xhp
						REPLACE 其他 WITH qt
						BROWSE ;
							NOAPPEND NODELETE NOMODIFY IN SCREEN WIDTH 100 TITLE zza(i,2)+' '+zza(i,6)+'月计 '
						DO rk
						USE
					ENDIF
				ENDIF
		ENDCASE
	ENDIF
NEXT
RETURN