xjll.shl

用友现金流量表批处理输入任意时间段快速获得现金流量表

LET &a=GETSTR("请输入起始日期,形式为2002-05-01")
LET &b=GETSTR("请输入截止日期,形式为2002-05-31")
LET &c=GETSTR("请输入起始月份,形式为 05")
LET &d=GETSTR("请输入截止月份,形式为 05")
let c6=XJLL(&a,&b,"借","01",,,"y")
let c7=XJLL(&a,&b,"借","02",,,"y")
let c8=XJLL(&a,&b,"借","03",,,"y")
let c9=ptotal(c6:c8)
let c10=XJLL(&a,&b,"贷","04",,,"y")
let c11=XJLL(&a,&b,"贷","05",,,"y")
let c12=XJLL(&a,&b,"贷","06",,,"y")
let c13=XJLL(&a,&b,"贷","07",,,"y")
let c14=ptotal(c10:c13)
let c15=c9-c14
let c17=XJLL(&a,&b,"借","08",,,"y")
let c18=XJLL(&a,&b,"借","09",,,"y")
let c19=XJLL(&a,&b,"借","10",,,"y")
let c20=XJLL(&a,&b,"借","11",,,"y")
let c21=ptotal(c17:c20)
let c22=XJLL(&a,&b,"贷","12",,,"y")
let c23=XJLL(&a,&b,"贷","13",,,"y")
let c24=XJLL(&a,&b,"贷","14",,,"y")
let c25=ptotal(c22:c24)
let c26=c21-c25
let c28=XJLL(&a,&b,"借","15",,,"y")
let c29=XJLL(&a,&b,"借","16",,,"y")
let c30=XJLL(&a,&b,"借","17",,,"y")
let c31=ptotal(c28:c30)
let c32=XJLL(&a,&b,"贷","18",,,"y")
let c33=XJLL(&a,&b,"贷","19",,,"y")
let c34=XJLL(&a,&b,"贷","20",,,"y")
let c35=ptotal(c32:c34)
let c36=c31-c35
let c38=c15+c26+c36
let f28=QM("1001",&d,,,,,,,"y",,)+QM("1002",&d,,,,,,,"y",,)
let f29=QC("1001",&c,,,,,,,"y",,)+QC("1002",&c,,,,,,,"y",,)
let f32=f28-f29