CALL cl_replace_str(g_wc,'a','b'):在g_wc中把a换成b
CALL cl_set_comp_att_text(l_f,l_tc_duh11 CLIPPED):使l_f栏位的名称显示为l_tc_duh11
LET g_zm.d_s=MDY(MONTH(g_today),1,YEAR(g_today)) :g_zm.d_s的值为这个月的第一天
切换营运中心
IF l_dbname IS NOT NULL THEN
CALL cl_switchdb(l_dbname) RETURNING li_result
END IF
弹出信息框:
CALL s_showmsg_init()------放在这个函数的开始
CALL s_errmsg('oea01',l_oea.oea01,'此订单编号不存在','',1)-----如果有foreach ,则放在foreach
CALL s_showmsg() -------在需要显示的地方call这个函数
如果想把栏位的备注放在栏位的上方,则显示栏位命名原则是dummy01,dummy02......
自动获取单别:s_get_slip()取单别, s_get_doc_no()有关单别的作业aapt120 s_get_doc_no(g_oga.oga01)
自动验证单别:s_check_no() 在这支作业s_auto_assign_no.4gl中
增加字段并且赋值说明:
alter table shb_file add(ta_shb20 number(10));/*计费数量*/
删除主键约束:alter table tc_gan_file drop constraint tpc_gan_pk;
删除索引: drop index tic_gan_01;
新建索引: create unique index tic_gan_01 on tc_gan_file(tc_gan01,tc_gan02,tc_gan03);
新建主件constraint:ALTER TABLE TC_OGA_FILE ADD
CONSTRAINT tpc_oga_pk
PRIMARY KEY (TC_OGA01,TC_OGA02,TC_OGA03,TC_OGA06)
ENABLE
VALIDATE;
(备注:新增constraint语句要写在一行)
更改字段类型:alter table tc_gan_file modify tc_gan04 number(5);