神州数码易拓TIPTOP ERP全局大小写

#除AZZ/MENU模组，其他模组录入字母自动转换为大写
IF (UPSHIFT(g_sys)<>'AZZ' AND UPSHIFT(g_sys)<>'MENU' 
AND UPSHIFT(g_sys)<>'AWS' AND mc_frm_name<>'cl_cmdask') 
AND (ls_tagName='ButtonEdit' OR ls_tagName='Edit' 
OR ls_tagName='TextEdit') THEN
    CALL cl_set_attribute("shift",lnode_child,"up")  
END IF

程序特点说明：
1.TIPTOP ERP所有字段输入的字母自动转换大写
2.在4gl遍历UI界面各节点时，设置各个控件（ButtonEdit、Edit、TextEdit）的shift属性为up
3.排除某些模块输入字母不转换大写的方法是UPSHIFT(g_sys)<>’大写的模块简称’（如：UPSHIFT(g_sys)<>’AXM’）

程序代码下载地址：http://download.csdn.net/detail/wahaa591/8645423