UFO二次开发

ynsmzpz

谁有UFO报表二次开发工具啊？

dsp_chenfx

我也在找

WFZ918

自动增加表页
FREE ALL
OPEN REPORT “E:\会计\报表\**表.rep”
DATA
SETPAGE 1
let &DWMC=单位名称
let &GJZN=年
let &GJZJ=季
let &GJZY=月
SET SWITCH OFF
DISPLAY "注意1！","1、单一逐月增加表页，输入数字112 如1、2、3、、、12月；2、单一逐季增加表页，输入数字14 如1、2、3、4季“
DISPLAY "注意2！","3、季度月增加表页，输入数字369 如3、6、9、12月；4、混合季月增加表页，输入数字-13 如1季3月 2季6月、、4季12月“
let &GJZ1=getint(" 请输入对应数字")
IF &GJZ1=369
IF &GJZY=12
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN+1
let 月=3
let 日=31
END
IF &GJZY=3
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+3
let 日=30
END
IF &GJZY=6
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+3
let 日=30
END
IF &GJZY=9
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+3
let 日=31
END
END
IF &GJZ1=14
IF &GJZJ=4
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN+1
let 季=1
END
IF &GJZJ=1
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
END
IF &GJZJ=2
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
END
IF &GJZJ=3
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
END
END
IF &GJZ1=13
IF &GJZJ=4
IF &GJZY=12
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN+1
let 季=1
let 月=3
let 日=31
END
END
IF &GJZJ=1
IF &GJZY=3
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
let 月=&GJZY+3
let 日=30
END
END
IF &GJZJ=2
IF &GJZY=6
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
let 月=&GJZY+3
let 日=30
END
END
IF &GJZJ=3
IF &GJZY=9
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 季=&GJZJ+1
let 月=&GJZY+3
let 日=31
END
END
END
IF &GJZ1=112
IF &GJZY=12
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN+1
let 月=1
let 日=31
END
IF &GJZY=1
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=28
END
IF &GJZY=2
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
IF &GJZY=3
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=30
END
IF &GJZY=4
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
IF &GJZY=5
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=30
END
IF &GJZY=6
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
IF &GJZY=7
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
IF &GJZY=8
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=30
END
IF &GJZY=9
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
IF &GJZY=10
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=30
END
IF &GJZY=11
INSERT @1
SKIP -1
let 单位名称=&DWMC
let 年=&GJZN
let 月=&GJZY+1
let 日=31
END
END
SAVE

SET SWITCH ON
FREE ALL


（根据原有表格第一页的“关键字”设置情况自动插入增加新的表页）

naojin

看了都头大，

xiongbing7911

看了都头大

fyz1223

看不太懂。

吉文

二次开发，我也想要。上面这个只是一个编程而已，不是工具

xinxiyuan

应该对ufo简版工具进行二次开发，方便修改模板

luanyu6688

看不太懂。

wshzh137

我超级想要

130geng

二次开发，要懂编程哟，3楼是对UFO报表自带二次开发功能，进行的批处理编程

大脸猫86

急切想要学习

crbjh

多多学习了

qtailang

我也在找