📄
字号:
**************************************************************
** 资产负债表.PRG **
**************************************************************
CLOSE DATA
SET TALK OFF && 阻止对话结果传送到窗口
SET CENTURY ON && 指定用四位数表示年
SET DATE ANSI && 日期格式yy.mm.dd
CLEAR && 请屏幕
PUBLIC BEGIN,the_end && 定义公共日期变量
DO FORM 表单2 NAME 记账开始结束时间 LINK && 执行表单
READ EVENTS && 激活事件
SET DEVICE TO SCREEN && 输出指向屏幕
SET PRINT OFF && 不允许打印机输出
DEFINE WINDOW prt FROM 8,40 TO 22,72 TITLE '选择页面了吗？' CLOSE && 定义窗口
ACTIVATE WINDOW prt && 激活窗口
@ 1,1 SAY ' 提示:如果页面未设置为 A2 应设置' ;
COLOR RGB(255,128,0,255,255,255) && 提示信息
@ 5,12 GET p DEFAULT 1 FUNCTION '*vt 设置;越过' SIZE 2,6,2 && 命令按钮
READ && 激活对象
DEAC WINDOW prt && 挂起窗口
IF p=1 && 如果选择了设置
=SYS(1037) && 显示页面设置对话框，进行页面设置
ENDIF
DEFI WINDOW zc FROM 5,20 TO 15,60 TITLE ' 资产负债表 ' DOUBLE CLOSE && 定义窗口
ACTI WINDOW zc && 激活窗口
@ 1,10 SAY '年:' GET nian1 DEFA YEAR(DATE()) && 编辑年
@ 3,10 SAY '月:' GET yuefen DEFA MONTH(DATE()) SIZE 1,2 && 编辑月
READ && 激活对象
nian=SUBSTR(STR(nian1,4),3,2) && 给变量赋值
DEAC WINDOW zc && 挂起窗口
*BEGIN = GOMONTH(BEGIN,yuefen) &&
*the_end=GOMONTH(the_end,yuefen)
IF yuefen<10 && 如果月份小于10
filename='syb'+nian+'0'+ALLTRIM(STR(yuefen))
zcfzbdbf='zcfz'+nian+'0'+ALLTRIM(STR(yuefen)) && 资产负载表数据表文件名
zcfzbjcy='jcy_'+nian+'0'+ALLTRIM(STR(yuefen))
yedzbdbf='yedz'+nian+'0'+ALLTRIM(STR(yuefen))
ELSE && 否则
filename='syb'+nian+ALLTRIM(STR(yuefen))
zcfzbdbf='zcfz'+nian+ALLTRIM(STR(yuefen)) && 资产负载表数据表文件名
zcfzbjcy='jcy_'+nian+ALLTRIM(STR(yuefen))
yedzbdbf='yedz'+nian+ALLTRIM(STR(yuefen))
ENDIF
IF USED('ZK85') && 如果表已打开
SELECT ZK85 && 激活工作区
ELSE && 否则
SELECT 3 && 激活工作区
USE 科目总控!zk85 && 打开表‘ZK85’（总控85,内含85个科目）
ENDIF
COPY TO ARRAY zz && 复制到数组
DIMENSION a(85,2) && 定维数组a,为85个科目准备月合计值空间
DIMENSION b(76,2) && 定维数组b,资产38行，负债和所有者权益38行
STORE 0 TO a,b && 初始化数组
FOR i=1 TO 85 && 循环
DO CASE && 根据情况判断处理
CASE i=32 && 当科目为固定资产
USE &zz(i,6) && 打开固定资产月合计表
LOCATE FOR 日期=GOMONTH(the_end,-yuefen) && 指针指向期初（上年末）
? zz(i,6)
a(i,1)=原值余额 && 赋值，下同
GOTO BOTTOM && 指针指向末纪录
a(i,2)=原值余额 && 赋值，下同
IF EMPTY(a(i,2))=.F.
?? a(i,2)
ENDIF
CASE i=42 && 当科目为长期待摊费用
USE &zz(i,6) && 打开长期待摊费用月合计表
LOCATE FOR 日期=GOMONTH(the_end,-yuefen) && 指针指向期初（上年末）
? zz(i,6)
a(i,1)=余额 && 赋值，下同
GOTO BOTTOM && 指针指向末纪录
a(i,2)=余额 && 赋值，下同
IF EMPTY(a(i,2))=.F.
?? a(i,2)
ENDIF
OTHERWISE && 其他
IF zz(i,5)#"暂不使用"
USE &zz(i,6) && 打开月合计表
? i,zz(i,6)
GOTO TOP && 指针指向纪录1
a(i,1)=余额 && 赋值，期初数
GOTO BOTTOM && 指针指向末纪录
a(i,2)=余额 && 赋值，期末余额
IF EMPTY(a(i,2))=.F.
?? a(i,2)
ENDIF
ENDIF
ENDCASE
NEXT && 下一个FOR循环
b(2,1)=a(1,1)+a(2,1)+a(3,1) && 货币资金 现金+银行存款+其他货币资金，期初数
b(2,2)=a(1,2)+a(2,2)+a(3,2) && 货币资金期末余额
? a(1,1),a(2,1),a(3,1)
? a(1,2),a(2,2),a(3,2)
* cancel
b(3,1)=a(4,1) && 短期投资,期初数
b(3,2)=a(4,2) && 期末数
b(4,1)=a(6,1) && 应收票据,期初数
b(4,2)=a(6,2) && 期末数
b(5,1)=a(7,1) && 应收股利,期初数
b(5,2)=a(7,2) && 期末数
b(6,1)=a(8,1) && 应收利息,期初数
b(6,2)=a(8,2) && 期末数
b(7,1)=a(9,1) && 应收帐款，期初数
b(7,2)=a(9,2) && 期末数
b(8,1)=a(10,1) && 其他应收款，期初数
b(8,2)=a(10,2) && 期末数
b(9,1)=a(12,1) && 预付帐款,期初数
b(9,2)=a(12,2) && 期末数
b(10,1)=a(13,1) && 应收补贴款,期初数
b(10,2)=a(13,2) && 期末数
&&存货=物资采购+原材料 +包装物 +低值易耗品+自制半成品+库存商品 分期收款发出商品
b(11,1)=a(14,1)+a(15,1)+a(16,1)+a(17,1) +a(19,1) +a(20,1) +a(26,1);
+a(22,1) +a(23,1) +a(69,1) +a(70,1)-a(48,1) -a(25,1)
&& +委托加工物资+委托代销商品+生产成本+制造费用-代销商品款-存货跌价准备
b(11,2)=a(14,2)+a(15,2)+a(16,2)+a(17,2) +a(19,2) +a(20,2) +a(26,2);
+a(22,2) + a(23,2) +a(69,2) +a(70,2) -a(48,2) -a(25,2) && 期末数
b(12,1)=a(27,1) && 待摊费用，期初数
b(12,2)=a(27,2) && 期末数
*b(13,1)= && 一年内到期债券投资，期初数
*b(13,2)= && 期末数
*b(14,1)= && 其他流动资产 ，期初数
*b(14,2)= && 期末数
FOR i=1 TO 14 && 循环
b(15,1)=b(15,1)+b(i,1) && 流动资产合计，期初数
b(15,2)=b(15,2)+b(i,2) && 期末数
NEXT && 下一个FOR循环
b(17,1)=a(28,1) && 长期股权投资，期初数
b(17,2)=a(28,2) && 期末数
b(18,1)=a(29,1) && 长期债权投资，期初数
b(18,2)=a(29,2) && 期末数
b(19,1)=a(28,1)+a(29,1) && 长期投资合计，期初数
b(19,2)=a(28,2)+a(29,2) && 期末数
b(21,1)=a(32,1) && 固定资产原价，期初数
b(21,2)=a(32,2) && 期末数
b(22,1)=a(33,1) && 累计折旧，期初数
b(22,2)=a(33,2) && 期末数
b(23,1)=a(32,1)+a(33,1) && 固定资产净值=固定资产原值+（减:累计折旧），期初数
b(23,2)=a(32,2)+a(33,2) && 期末数
b(24,1)=a(34,1) && 固定资产减值准备，期初数
b(24,2)=a(34,2) && 期末数
b(25,1)=b(23,1)-a(34,1) && 固定资产净额=固定资产净值-固定资产减值准备，期初数
b(25,2)=b(23,2)-a(34,2) && 期末数
b(26,1)=a(35,1) && 工程物资，期初数
b(26,2)=a(35,2) && 期末数
b(27,1)=a(36,1) && 在建工程，期初数
b(27,2)=a(36,2) && 期末数
b(28,1)=a(38,1) && 固定资产清理，期初数
b(28,2)=a(38,2) && 期末数
b(29,1)=b(25,1)+b(26,1)+b(27,1)+b(28,1) && 固定资产合计，期初数
b(29,2)=b(25,2)+b(26,2)+b(27,2)+b(28,2) && 期末数
b(31,1)=a(39,1) && 无形资产，期初数
b(31,2)=a(39,2) && 期末数
b(32,1)=a(42,1) && 长期待摊费用，期初数
b(32,2)=a(42,2) && 期末数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -