visualfoxpro企业会计电算化实例

b(32,1)=a(42,1)                                              && 其他长期资产，期初数
b(32,2)=a(42,2)                                              && 期末数

b(34,1)=b(31,1)+b(32,1)+b(33,1)                              && 无形及其他资产合计，期初数
b(34,2)=b(31,2)+b(32,2)+b(33,2)                              && 期末数

* b(37,1)=                                                   && 递延税款借项，期初数
* b(37,2)=                                                   && 期末数

b(38,1)=b(15,1)+b(19,1)+b(29,1)+b(34,1)   && 资产总计=流计+长期投资+固计+无形和其他资产，期初数
b(38,2)=b(15,2)+b(19,2)+b(29,2)+b(34,2)                      && 期末数

b(40,1)=a(44,1)                                              && 短期借款，期初数
b(40,2)=a(44,2)                                              && 期末数

b(41,1)=a(45,1)                                              && 应付票据，期初数
b(41,2)=a(45,2)                                              && 期末数

b(42,1)=a(46,1)                                              && 应付帐款，期初数
b(42,2)=a(46,2)                                              && 期末数

b(43,1)=a(47,1)                                              && 预收帐款，期初数
b(43,2)=a(47,2)                                              && 期末数

b(44,1)=a(49,1)                                              && 应付工资，期初数
b(44,2)=a(49,2)                                              && 期末数

b(45,1)=a(50,1)                                              && 应付福利费，期初数
b(45,2)=a(50,2)                                              && 期末数

b(46,1)=a(51,1)                                              && 应付股利，期初数
b(46,2)=a(51,2)                                              && 期末数

b(47,1)=a(52,1)                                              && 应交税金，期初数
b(47,2)=a(52,2)                                              && 期末数

b(48,1)=a(53,1)                                              && 其他应交款，期初数
b(48,2)=a(53,2)                                              && 期末数

b(49,1)=a(54,1)                                              && 其他应付款，期初数
b(49,2)=a(54,2)                                              && 期末数

b(50,1)=a(55,1)                                              && 预提费用，期初数
b(50,2)=a(55,2)                                              && 期末数

b(51,1)=a(57,1)                                              && 预计负债，期初数
b(51,2)=a(57,2)                                              && 期末数
? a(57,1),a(57,2),57
*cancel
* b(52,1)=                                              && 一年内到期的长期负债，期初数
* b(52,2)=                                              && 期末数
* b(51,1)=                                                   && 其他流动负债，期初数
* b(51,2)=                                                   && 期末数
FOR i=40 TO 53                                               && 循环
	b(55,1)=b(55,1)+b(i,1)                                   && 流动负债合计，期初数
	b(55,2)=b(55,2)+b(i,2)                                   && 期末数
NEXT                                                         && 下一个FOR循环

b(57,1)=a(58,1)                                              && 长期借款，期初数
b(57,2)=a(58,2)                                              && 期末数

b(58,1)=a(59,1)                                              && 应付债券，期初数
b(58,2)=a(59,2)                                              && 期末数

b(59,1)=a(60,1)                                              && 长期应付款，期初数
b(59,2)=a(60,2)                                              && 期末数

b(60,1)=a(61,1)                                              && 专项应付款，期初数
b(60,2)=a(61,2)                                              && 期末数

* b(61,1)=                                                   && 其他长期负债，期初数
* b(61,2)=                                                   && 期末数

FOR i=56 TO 61                                               && 循环
	b(62,1)=b(62,1)+b(i,1)                                   && 长期负债合计，期初数
	b(62,2)=b(62,2)+b(i,2)                                   && 期末数
NEXT                                                         && 下一个FOR循环

* b(64,1)=                                                   && 递延税款贷项，期初数
* b(64,2)=                                                   && 期末数
                                                       
b(65,1)=b(55,1)+b(62,1)                                      && 负债合计，期初数
b(65,2)=b(55,2)+b(62,2)                                      && 期末数
? b(65,1),b(65,2),65
b(68,1)=a(63,1)                                              && 实收资本，期初数
b(68,2)=a(63,2)                                              && 期末数

b(69,1)=a(64,1)                                              && 已归还投资，期初数
b(69,2)=a(64,2)                                              && 期末数

b(70,1)=a(63,1)-a(64,1)                                      && 实收资本净额，期初数
b(70,2)=a(63,2)-a(64,2)                                      && 期末数

b(71,1)=a(65,1)                                              && 资本公积，期初数
b(71,2)=a(65,2)                                              && 期末数

b(72,1)=a(66,1)                                              && 盈余公积，期初数
b(72,2)=a(66,2)                                              && 期末数

* b(73,1)=                                                   && 法定公益金，期初数
* b(73,2)=                                                   && 期末数
       
b(74,1)=a(67,1)+a(68,1)                              && 未分配利润=本年利润+利润分配 ，期初数
b(74,2)=a(67,2)+a(68,2)                              && 期末数

                                              
b(75,1)=b(70,1)+b(72,1)+b(74,1)        && 所有者权益合计=实收资本+盈余公积+未分配利润，期初数
b(75,2)=b(70,2)+b(72,2)+b(74,2)                              && 期末数


b(76,1)=b(65,1)+b(75,1)                && 负债及所有者权益总计=负债合计+所有者权益合计
b(76,2)=b(65,2)+b(75,2)                                      && 期末数
STORE '年初 资产总计:'+ALLTRIM(STR(b(38,1),11,2))+'  负债及所有者权益:'+ALLTRIM(STR(b(76,1),11,2)) TO ph1 && 编辑字符串
STORE '期末 资产总计:'+ALLTRIM(STR(b(38,2),11,2))+'  负债及所有者权益:'+ALLTRIM(STR(b(76,2),11,2)) TO ph2 && 编辑字符串
IF b(38,2)=b(76,2)                                           && 如果资产总计等于负债及所有者权益总计
	WAIT  WINDOW ph1+CHR(13)+ph2+CHR(13)+'     平衡!'        && 平衡信息
ELSE                                                         && 否则
*	FOR ds=1 TO 2000
*		? CHR(7)                                             && 笛声
*	NEXT
	WAIT  WINDOW ph1+CHR(13)+ph2+CHR(13)+'     不平衡!'      && 不平衡信息   
	USE zcfzb                                                && 打开表，资产负载表结构
	COPY TO ARRAY arraya                                     && 复制到数组
	SET SAFE OFF                                             && 关闭安全提示窗口
	COPY STRU TO &zcfzbdbf                                   && 复制表结构
	USE &zcfzbdbf                                            && 打开表
	ZAP                                                      && 删除全部纪录
	FOR i=1 TO 38                                            && 循环
		APPEND BLANK                                         && 追加空纪录
		REPLACE 行次  WITH arraya(i,2),行次2 WITH arraya(i,6)      && 替换字段，行次
		REPLACE 资产 WITH arraya(i,1)                        && 替换字段，资产名称
		REPLACE 负债和权益 WITH arraya(i,5)                   && 替换字段，负债及所有者权益名称 
		IF EMPTY(b(i,1))=.F.                                 && 如果期初数不为空（资产）
			REPLACE 年初数 WITH b(i,1)                       && 替换字段
		ENDIF
		IF EMPTY(b(i,2))=.F.                                 && 如果期末数不为空（资产）
			REPLACE 期末数 WITH b(i,2)                       && 替换字段
		ENDIF
		IF EMPTY(b(i+38,1))=.F.                              && 如果期初数不为空（负债及所有者权益）
			REPLACE 年初数2 WITH b(i+38,1)                   && 替换字段
		ENDIF
		IF EMPTY(b(i+38,2))=.F.                              && 如果期末数不为空（负债及所有者权益）
			REPLACE 期末数2 WITH b(i+38,2)                   && 替换字段
		ENDIF
	NEXT                                                     && 下一个FOR循环
	BROW NOEDIT                                              && 浏览，仅供查找错误，禁止编辑
    CLEAR ALL                                                && 释放内存变量、窗口，关闭表 
	CANCEL                                                   && 结束程序的执行
ENDIF
USE zcfzb                                                && 打开表，资产负载表结构
COPY TO ARRAY arraya                                     && 复制到数组
SET SAFE OFF                                             && 关闭安全提示窗口
COPY STRU TO &zcfzbdbf                                   && 复制表结构
USE &zcfzbdbf                                            && 打开表
ZAP                                                      && 删除全部纪录
FOR i=1 TO 38                                            && 循环
	APPEND BLANK                                         && 追加空纪录
	REPLACE 行次 WITH arraya(i,2),行次2 WITH arraya(i,6)      && 替换字段，行次
	REPLACE 资产 WITH arraya(i,1)                        && 替换字段，资产名称
	REPLACE 负债和权益 WITH arraya(i,5)                  && 替换字段，负债及所有者权益名称 
	IF EMPTY(b(i,1))=.F.                                 && 如果期初数不为空（资产）
		REPLACE 年初数 WITH b(i,1)                       && 替换字段
	ENDIF
	IF EMPTY(b(i,2))=.F.                                 && 如果期末数不为空（资产）
		REPLACE 期末数 WITH b(i,2)                       && 替换字段
	ENDIF
	IF EMPTY(b(i+38,1))=.F.                              && 如果期初数不为空（负债及所有者权益）
		REPLACE 年初数2 WITH b(i+38,1)                   && 替换字段
	ENDIF
	IF EMPTY(b(i+38,2))=.F.                              && 如果期末数不为空（负债及所有者权益）
		REPLACE 期末数2 WITH b(i+38,2)                   && 替换字段
	ENDIF
NEXT                                                     && 下一个FOR循环
BROW NOEDIT                                              && 浏览，禁止编辑
USE                                                      && 关闭表
COPY FILE '&zcfzbdbf'+'.dbf' TO 资产负债表.DBF           && 复制文件  
CLEAR ALL                                                && 释放内存变量、窗口，关闭表 
CANCEL                                                   && 结束程序的执行
RETURN                                                   && 程序结束