tiptop 软件 程序 基础 培训(2)

3/11

报表台头1公司名称在P_zo中进行设置的，而不是在报表中进行的设置

报表台头2报表名称在p_zz---打印设置中的报表打印抬头进行设置的，如果报表打印抬头为空，则抓取程序名称。而不是在报表中进行的设置。

报表图片在P_zo中进行设置的，必须在报表中新增一个location 的公式字段，用来到替换本地报表中的图表为服务器上的图表，服务器图标在P_zo中进行设置。步骤为：在报表中插入一个图表，鼠标停在图标上点右键，选择图标格式化—图片---graphic—打开公试设置画面把location拖到下方

设置土县格式

必须建立26个参数字段 ，接口函数cl_prt_cs1已经设置死的,否则会报“无效索引”的错误

Function cl_prt_cs1

Call cr(参数1，参数2…，参数26)顺序也有要求的 End function

分组跳页 节专家 选择分组 勾选reset page number after

当数据比较长，而宽度有限时，折行显示，右键 设置字段格式，勾选“可以增大” 若重复抑制显示 可以在同组内相同字段内容只显示一次

侦错：STATUS和SQLCA.sqlcode的区别 STATUS 用在SQL和BDL中

SQLCA.sqlcode 只能用在SQL中，但是在SQL中侦错时，建议用这个。 IF STATUS THEN :SQL,BDL(LET a=‘tiptop‘)

IF SQLCA.sqlcode THEN :SQL-SELECT,INSERT,DELETE,UPDATE,PREPARE

3．15

P_zm 可以把新增的程式增加的start menu

Start menu 中所有的menu都是在p_zz中新建的。

1. p_zta（sch） 建表，改表，解锁，简单SQL运行 2. 权限

（1） p_zy 权限群组资料录入 （2） p_zx 用户基本资料录入 （3） p_zxw 3. 画面

P_perlang 画面多语言设置

P_per画面属性设置 第一次r.gf 抓取GENERO STUDIO 的设置 必输拦位，是否可输入，KEY 拦位，隐藏否 主要用做后续的修改，开始可在程式中进行设置 4． P_cron

背景作业设置 5． P_zmd

新建摸组

6．P_zz 程序执行主入口

1．程序写好后维护链结档路径，ACTION，权限 2．新建菜单（模组：MENU 程序类型：“M：选单”；UNIX运行指令：￥FGLRUN ￥MENUi/n98）

3.p_query 自定义查询报表的接口

单档查询q()

1．先接收查询条件 construct… cs() 2. 定义cursor cs() 3. 拨动cursor数据到变量里去 fetch() 4．Display 变量的值到画面上 show()

报表游标 非滚动性游标cursor

LET l_sql=‖select …from …where …‖,tm.wc Prepare pre1 from l_sql

Declare cursor1 cursor FOR pre1 Foreach end foreach

单档cursor-?滚动性游标 scrolling cursor LET l_sql=‖select …from …where …‖,tm.wc Prepare pre2 from l_sql

Declare cursor2 scroll cursor FOR pre2 Open cursor2

Fetch （first(第一笔,next下笔,previous上笔,last末笔） cursor2 into 变量列表 Absolute 指定笔

Close cursor2

新建

G_qryparam_state=‖c‖ p_qry中g_gem的construct时的WHERE条件可以进

行多选

G_qryparam_state=‖i‖ 或者不赋值 p_qry中g_gem的construct时的WHERE条件只

能进行单选

注：INPUT录入开窗时的WHERE条件，CONSTRUCT查询开窗时的WHERE条件 查询开窗 可以设置9个arg1…arg9。 WHEN INFIELD(tc_ooa001)

CALL cl_init_qry_var() #变量集合初始化g_qryparam LET g_qryparam.form = \ ###########

LET g_qryparam.state = \ #p_qry中g_gem的CONSTRUCT

时的WHERE 条件，可以进行多选

LET g_qryparam.arg1=‖00002‖ #给arg1赋值

LET g_qryparam.default1 = g_tc_ooa.tc_ooa001 #预设值 CALL cl_create_qry() RETURNING g_qryparam.multiret #根据

g_qryparam的值弹出查询视窗 g_qryparam.multiret STRING类型

DISPLAY g_qryparam.multiret TO tc_ooa001 #全写 NEXT FIELD tc_ooa001

自定义报表p_query cooi100,cooi1001

ON ACTION output1 #自定义报表

LET g_action_choice=\ IF cl_chk_act_auth() THEN

IF cl_null(g_wc) THEN LET g_wc= \ LET l_cmd = 'p_query \

###传入画面输入的条件 做为报表的WHERE 条件然后把查询出的数据打印 CALL cl_cmdrun(l_cmd) #运行另外一支程式的接口函数 END IF

ON ACTION output2 #自定义报表2 LET g_action_choice=\ IF cl_chk_act_auth() THEN

IF cl_null(g_tc_ooa.tc_ooa001) THEN CONTINUE MENU END IF LET l_cmd = 'p_query \ #画面KEY值 做为报表的WHERE 条件然后把当前画面查询出的数据打印 CALL cl_cmdrun(l_cmd) #运行另外一支程式的接口函数 END IF …… 此处隐藏：828字，全部文档内容请下载后查看。喜欢就下载吧 ……