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

 

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/yiruai/article/details/53993998
个人分类: ERP(TIPTOP)
上一篇instr函数
下一篇TIPTOP使用技巧(二)
想对作者说点什么? 我来说一句

TIPTOP ERP 不完全实施开发手册

2015年03月25日 19.25MB 下载

没有更多推荐了,返回首页

关闭
关闭