那不是损益类科目都要挂项目核算了
这个是我给别人做的项目资金分析表的脚本
CLEAR A1:!!##
IF MNUMBER()=0
LET &Msg="您必须先打开报表,然后才能进行这项操作。"
DISPLAY "错误提示",&Msg
RETURN
END
IF 年=0
LET &Msg="您没有正确输入年关键字,不能继续操作。"
DISPLAY "错误提示",&Msg
RETURN
END
IF 月=0
LET &Msg="您没有正确输入年关键字,不能继续操作。"
DISPLAY "错误提示",&Msg
RETURN
END
LET &XMCode=GETSTR("请输入项目编号")
LET E4 = FS("501",月,"贷",,,&XMCode,,"y")
LET E5 = FS("54101",月,"贷",,,&XMCode,,"y")+FS("54102",月,"贷",,,&XMCode,,"y")+FS("54103",月,"贷",,,&XMCode,,"y")
LET E8 = PTOTAL(E4:E7)
LET E13 = PTOTAL(E9:E12)
LET E14 = FS("4010101",月,"借",,,&XMCode,,"y")
LET E15 = FS("4010101",月,"借",,,&XMCode,,"y")
LET E16 = FS("4010102",月,"借",,,&XMCode,,"y")
LET E17 = FS("4010103",月,"借",,,&XMCode,,"y")
LET E18 = FS("4010104",月,"借",,,&XMCode,,"y")
LET E19 = FS("4010105",月,"借",,,&XMCode,,"y")
LET E20 = FS("4010106",月,"借",,,&XMCode,,"y")
LET E21 = FS("4010107",月,"借",,,&XMCode,,"y")
LET E22 = FS("4010113",月,"借",,,&XMCode,,"y")
LET E23 = FS("4010109",月,"借",,,&XMCode,,"y")
LET E24 = FS("4010199",月,"借",,,&XMCode,,"y")
LET E25 = PTOTAL(E14:E24)
LET E26 = FS("401011001",月,"借",,,&XMCode,,"y")
LET E27 = FS("401011002",月,"借",,,&XMCode,,"y")
LET E28 = FS("401011003",月,"借",,,&XMCode,,"y")
LET E29 = FS("401011004",月,"借",,,&XMCode,,"y")
LET E30 = FS("401011005",月,"借",,,&XMCode,,"y")
LET E31 = FS("401011006",月,"借",,,&XMCode,,"y")
LET E32 = FS("401011008",月,"借",,,&XMCode,,"y")
LET E33 = FS("401011009",月,"借",,,&XMCode,,"y")
LET E34 = PTOTAL(E26:E33)
LET E35 = FS("4010224",月,"借",,,&XMCode,,"y")
LET E36 = FS("4010226",月,"借",,,&XMCode,,"y")
LET E37 = FS("4010227",月,"借",,,&XMCode,,"y")
LET E38 = FS("4010228",月,"借",,,&XMCode,,"y")
LET E39 = FS("4010229",月,"借",,,&XMCode,,"y")
LET E40 = FS("4010230",月,"借",,,&XMCode,,"y")
LET E41 = FS("4010231",月,"借",,,&XMCode,,"y")
LET E42 = FS("4010232",月,"借",,,&XMCode,,"y")
LET E43 = FS("4010233",月,"借",,,&XMCode,,"y")
LET E44 = FS("4010234",月,"借",,,&XMCode,,"y")
LET E45 = FS("4010235",月,"借",,,&XMCode,,"y")
LET E46 = PTOTAL(E35:E45)
LET E47 = QM("115",月,,,,"",&XMCode,,"y",,)
LET E48 = E47+ E46+ E34+ E25+ E13
LET E49 = E8-E48
LET E50 = E49+E13
LET E51 = E49
LET F4 = LFS("501",月,"贷",,,&XMCode,,"y")
LET F5 = LFS("54101",月,"贷",,,&XMCode,,"y")+LFS("54102",月,"贷",,,&XMCode,,"y")+LFS("54103",月,"贷",,,&XMCode,,"y")
LET F8 = PTOTAL(F4:F7)
LET F13 = PTOTAL(F9:F12)
LET F14 = LFS("4010101",月,"借",,,&XMCode,,"y")
LET F15 = LFS("4010101",月,"借",,,&XMCode,,"y")
LET F16 = LFS("4010102",月,"借",,,&XMCode,,"y")
LET F17 = LFS("4010103",月,"借",,,&XMCode,,"y")
LET F18 = LFS("4010104",月,"借",,,&XMCode,,"y")
LET F19 = LFS("4010105",月,"借",,,&XMCode,,"y")
LET F20 = LFS("4010106",月,"借",,,&XMCode,,"y")
LET F21 = LFS("4010107",月,"借",,,&XMCode,,"y")
LET F22 = LFS("4010113",月,"借",,,&XMCode,,"y")
LET F23 = LFS("4010109",月,"借",,,&XMCode,,"y")
LET F24 = LFS("4010199",月,"借",,,&XMCode,,"y")
LET F25 = PTOTAL(F14:F24)
LET F26 = LFS("401011001",月,"借",,,&XMCode,,"y")
LET F27 = LFS("401011002",月,"借",,,&XMCode,,"y")
LET F28 = LFS("401011003",月,"借",,,&XMCode,,"y")
LET F29 = LFS("401011004",月,"借",,,&XMCode,,"y")
LET F30 = LFS("401011005",月,"借",,,&XMCode,,"y")
LET F31 = LFS("401011006",月,"借",,,&XMCode,,"y")
LET F32 = LFS("401011008",月,"借",,,&XMCode,,"y")
LET F33 = LFS("401011009",月,"借",,,&XMCode,,"y")
LET F34 = PTOTAL(F26:F33)
LET F35 = LFS("4010224",月,"借",,,&XMCode,,"y")
LET F36 = LFS("4010226",月,"借",,,&XMCode,,"y")
LET F37 = LFS("4010227",月,"借",,,&XMCode,,"y")
LET F38 = LFS("4010228",月,"借",,,&XMCode,,"y")
LET F39 = LFS("4010229",月,"借",,,&XMCode,,"y")
LET F40 = LFS("4010230",月,"借",,,&XMCode,,"y")
LET F41 = LFS("4010231",月,"借",,,&XMCode,,"y")
LET F42 = LFS("4010232",月,"借",,,&XMCode,,"y")
LET F43 = LFS("4010233",月,"借",,,&XMCode,,"y")
LET F44 = LFS("4010234",月,"借",,,&XMCode,,"y")
LET F45 = LFS("4010235",月,"借",,,&XMCode,,"y")
LET F46 = PTOTAL(F35:F45)
LET F47 = QM("115",月,,,,"",&XMCode,,"y",,)
LET F48 = F47+ F46+ F34+ F25+ F13
LET F49 = F8-F48
LET F50 = F49+F13
LET F51 = F49
如何自定义,那利润表只能出一张总的,如何分项目出多张利润表,我是T3标准版
追答可以定义,也可以定义综合多栏账来查询项目收支,还可以在项目收支辅助查询中查询。
本回答被提问者采纳