TIPTOP常用技巧（-）

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);