visualfoxpro企业会计电算化实例

		******************* 处理总账月合计 ****************
		USE &zza(i,6)                                        && 打开科目月合计表
        IF RECC()=0                                          && 如果文件为空
        	APPEND BLANK                                     && 追加空纪录
        ELSE                                                 && 否则
			DELETE FOR RECNO()<RECC()                        && 做删除标记
			PACK                                             && 永久删除做了删除标记的纪录
		ENDIF
		REPLACE 日期 WITH the_end                            && 替换字段，下同
		REPLACE 凭证号 WITH ' '
		REPLACE 摘要 WITH '期初余额录入'
		IF 借方#0                                            && 如果有试验数据
			REPLACE 借方 WITH 0.00
        ENDIF
        IF 贷方#0			                                 && 如果有试验数据
			REPLACE 贷方 WITH 0.00
		ENDIF	
		DEFINE WINDOW test3 FROM 2, 1 TO 26, 98 TITLE zza(i,2)+"总账   录入月合计期初余额  ";
		 ZOOM  MINIMIZE FLOAT GROW CLOSE                     && 定义窗口
		ACTIVATE WINDOW test3                                && 激活窗口
		BROW FIELD 日期,摘要,余额                            && 浏览，录入期初余额
	    IF MXYEHJ#余额
	    	WAIT WINDOW '总账月合计期初余额与明细余额累加和不相等，请重做！'   
	    	EXIT
	    ENDIF
	ENDIF
NEXT                                                        && 下一个FOR循环
SET SAFETY ON                                               && 打开安全提示窗口
CLEAR ALL                                                   && 释放内存变量、窗口，关闭表
RETURN                                                      && 程序结束

	PROCEDURE 固定资产和长期待摊费用
      DO CASE   
		CASE zza(i,2)='固定资产'                      && 如果科目为固定资产
			SELECT 0
			USE zza(i,4) ALIAS mx
			COPY TO ARRAY mx
			FOR j=1 TO RECC()-1
				DEFI WINDOW jg FROM 4,1 TO 16,100 TITLE ;
					'请输入固定资产明细通项数据   警告：必须输入原值、使用年限和残值，'+;
					'否则将无法进行累计折旧！' 	CLOSE ZOOM MINI FLOAT  && 定义窗口
				ACTI WINDOW jg 
				SELECT mx		                            && 激活窗口
				GOTO j
				CHANGE  IN jg FIELDS 明细名称,编号,规格,型号,;
					原值:v=原值>0:F:e='原值必须大于零',;
					使用年限:v=使用年限>0:F:e='使用年限必须大于零',;
					残值:v=cf():F,月折旧额:v=F():F          && 编辑字段,F强制校验
				SELECT 0                                    && 激活工作区
				USE mx(j,2)
				IF RECC()>1
					DELETE FOR RECNO()>1
					PACK
				ELSE
					IF RECC()=0
						APPEND BLANK
					ENDIF
				ENDIF	
				REPLACE 日期 WITH the_end			                 && 替换字段
				REPLACE 原值借方 WITH mx.原值,原值余额 WITH mx.原值  && 替换字段
				DEFI WINDOW jg FROM 4,1 TO 26,100 TITLE ;
					'请输入固定资产明细数据   警告：必须输入原值余额、累折余额和净值，'+;
					'否则将无法进行累计折旧！' 	CLOSE ZOOM MINI FLOAT  && 定义窗口
				ACTI WINDOW jg 			                               && 激活窗口
		 		EDIT                                         && 编辑
		 		USE
		 	NEXT
			DEAC WINDOW jg                                   && 挂起窗口
			USE                                              && 关闭表
		  CASE  zza(i,2)='长期待摊费用'
			SELECT 0
			USE zza(i,4) ALIAS mx
			COPY TO ARRAY mx
			FOR j=2 TO RECC()-1
				DEFI WINDOW jg FROM 4,1 TO 11,100 TITLE ;
					'请输入长期待摊费用明细通项数据   警告：必须输入原值，'+;
					'否则将无法进行计提摊销！' 	CLOSE ZOOM MINI FLOAT  && 定义窗口
				ACTI WINDOW jg 
				SELECT mx		                              && 激活窗口
				GOTO j
				CHANGE  IN jg                                 && 编辑字段,F强制校验
				SELECT 0                                      && 激活工作区
				USE mx(j,2)
				IF RECC()>1
					DELETE FOR RECNO()>1
					PACK
				ELSE
					IF RECC()=0
						APPEND BLANK
					ENDIF
				ENDIF	
				REPLACE 日期 WITH the_end			         && 替换字段
				REPLACE 凭证号 WITH ' '
				REPLACE 摘要 WITH '期初余额录入'
				IF 借方#0                                    && 如果有试验数据
					REPLACE 借方 WITH 0.00
		        ENDIF
		        IF 贷方#0			                         && 如果有试验数据
					REPLACE 贷方 WITH 0.00
				ENDIF	
				DEFI WINDOW jg FROM 4,1 TO 16,100 TITLE mx(j,1)+;
					'请输入长期待摊费用明细数据   警告：必须输入余额！';
					 	CLOSE ZOOM MINI FLOAT                && 定义窗口
				ACTI WINDOW jg 			                     && 激活窗口
		 		EDIT                                         && 编辑
		 		USE
		 	NEXT
			USE mx(1,2)
			IF RECC()>1
				DELETE FOR RECNO()>1
				PACK
			ELSE
				IF RECC()=0
					APPEND BLANK
				ENDIF
			ENDIF	
			REPLACE 日期 WITH the_end			             && 替换字段
			REPLACE 凭证号 WITH ' '
			REPLACE 摘要 WITH '期初余额录入'
			IF 借方#0                                        && 如果有试验数据
				REPLACE 借方 WITH 0.00
	        ENDIF
	        IF 贷方#0			                             && 如果有试验数据
				REPLACE 贷方 WITH 0.00
			ENDIF	
			DEFI WINDOW jg FROM 4,1 TO 16,100 TITLE mx(j,1)+;
				'请输入长期待摊费用总账数据   警告：必须输入余额！';
				 	CLOSE ZOOM MINI FLOAT                    && 定义窗口
			ACTI WINDOW jg 			                         && 激活窗口
	 		EDIT                                             && 编辑
	 		USE 
			DEAC WINDOW jg                                   && 挂起窗口
			USE yhj181                                       && 长期待摊费用月合计表
            ZAP
            APPEND FROM &mx(1,2)
			USE                                              && 关闭表
			DEAC WINDOW jg
		ENDCASE
	RETURN                                                   && 返回主程序


	PROC rk                                                  && 键控过程，按Ctrl_End结束程序
		IF READKEY()=270                                     && 如果按了Ctrl_End
			CLEAR ALL                                        && 释放内存变量、窗口，关闭表
			CLEAR                                            && 清屏幕
			CANCEL                                           && 结束程序的执行   
		ENDIF
		RETURN                                               && 过程结束

	FUNC cf                                               && 自定义函数，计算残值
		REPLACE 残值 WITH 原值*0.03                       && 替换字段
		RETURN                                            && 返回.T.

	FUNC F                                                && 自定义函数，计算月折旧额
		REPLACE 月折旧额 WITH (原值-残值)/使用年限/12     && 替换字段
		RETURN                                            && 返回.T.