»Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_export_to_excel
(ui.Interface.getRootNode(),base.TypeInfo.create(g_pmx),'','')
º¯Ê½Ãû³Æ£ºcl_facfor ³ÌÐòÃû³Æ£ºcl_facfor.4gl
ÓÃ;£º½«INPUT DECLIAM(16,8) ÊýֵתΪ9 λ×Ö·ûµÄ¸ñʽ ÈôֵΪ12345678 , ½«´«»Ø'^12345678' ÈôֵΪ1234567 , ½«´«»Ø'1234567.0' ÈôֵΪ123456 , ½«´«»Ø'123456.00' ÈôֵΪ12345.67 , ½«´«»Ø'12345.670' ÈôֵΪ1.234567 , ½«´«»Ø'1.2345670' ÈôֵΪ.1234567 , ½«´«»Ø'.12345670' ´«Èë²ÎÊý£ºp_fac ÊýÖµ
»Ø´«Öµ£ºl_str FORMAT ºóµÄÊýÖµ£¬ÒÔCHAR ÐÍ̬RETURN Ó÷¨£ºLET a = cl_facfor(p_fac); PRINT a
PRINT cl_facfor(p_fac)
º¯Ê½Ãû³Æ£ºcl_field_format ³ÌÐòÃû³Æ£ºcl_field_format.4gl
ÓÃ;£º×ª»»p_per ÄÚ×ÔÓɸñʽÉ趨µÄformat
´«Èë²ÎÊý£ºps_currency CHAR(04) £Ûµ±Ç°ÎÞÓô¦£Ý pc_frm_name CHAR(10) »ÃæµµÃû »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_field_format(g_aza.aza17, mc_frm_name)
º¯Ê½Ãû³Æ£ºcl_fld_doc ³ÌÐòÃû³Æ£ºcl_fld_doc.4gl ÓÃ;£º×ֶεÄÏà¹Øµµ°¸Î¬»¤
´«Èë²ÎÊý£ºps_field STRING ×Ö¶ÎÃû³Æ »Ø´«Öµ£ºurl µµ°¸µÄURL
Ó÷¨£ºCALL cl_fld_doc(\
º¯Ê½Ãû³Æ£ºcl_fldhelp ³ÌÐòÃû³Æ£ºcl_fldhelp.4gl ÓÃ;£ºÏÔʾ×Ö¶Î˵Ã÷
´«Èë²ÎÊý£ºg_frm_name »ÃæµµÃû³Æ g_fld_name ×Ö¶ÎÃû³Æ g_lang ÓïÑÔ±ð »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)
º¯Ê½Ãû³Æ£ºcl_flow_notify ³ÌÐòÃû³Æ£ºcl_flow_notify.4gl
ÓÃ;£ºÍ¸¹ýJavaMail ´«Ë͹¤×÷Á÷³Ì֪ͨ ´«Èë²ÎÊý£ºps_doc_no STRING µ¥¾Ý±àºÅ pc_state CHAR(1) ¹¦ÄÜÀà±ð
(I.ÐÂÔöU.¸ü¸ÄD.ɾ³ýY.È·ÈÏS.¹ýÕÊV.×÷·Ï) »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_flow_notify(g_pmw.pmw01,'I')
º¯Ê½Ãû³Æ£ºcl_forupd_sql ³ÌÐòÃû³Æ£ºcl_forupd_sql.4gl
ÓÃ;£ºÅжÏSELECT ... FOR UPDATE ÊÇ·ñ¼ÓÉÏÆäËüÓï·¨(by Database)
´«Èë²ÎÊý£ºps_forupd_sql STRING Ô´«ÈëSQL ×Ö·û´® »Ø´«Öµ£ºps_forupd_sql STRING µ÷Õû¹ýµÄSQL ×Ö·û´® Ó÷¨£ºCALL cl_forupd_sql(ps_forupd_sql)
º¯Ê½Ãû³Æ£ºcl_get_column_info ³ÌÐòÃû³Æ£ºcl_get_column_info.4gl ÓÃ;£ºÈ¡µÃ×Ö¶ÎÐÍ̬¼°³¤¶È
´«Èë²ÎÊý£ºp_tabname TABLE Ãû³Æ p_colname ×Ö¶ÎÃû³Æ
»Ø´«Öµ£º×Ö¶ÎÐÍ̬not null FOR TRUE£ºÓлش«Öµ£º null FOR FALSE£º·ñ
³¤¶Ènot null FOR TRUE£ºÓлش«Öµ£º null FOR FALSE£º·ñ
Ó÷¨£ºCALL cl_get_column_info(p_tabname,p_colname) RETURNING l_coldatatype,l_collength
º¯Ê½Ãû³Æ£ºcl_get_feldname ³ÌÐòÃû³Æ£ºcl_get_feldname.4gl
ÓÃ;£ºÒÀ×ֶδúÂëÈ¡³öϵͳ×Ö¶ÎÃû³ÆÉ趨ά»¤×÷Òµ(p_feldname)ÄÚµÄ ×Ö¶ÎÃû³Æ
´«Èë²ÎÊý£ºp_gaq01 ×ֶδúÂë p_lang ÓïÑÔ±ð
»Ø´«Öµ£ºl_gaq03 ×Ö¶Î˵Ã÷
Ó÷¨£ºLET g_msg = cl_get_feldname(p_gaq01,p_lang)
º¯Ê½Ãû³Æ£ºcl_get_progdesc ³ÌÐòÃû³Æ£ºcl_get_progdesc.4gl
ÓÃ;£ºÈ¡µÃ³ÌÐò´úÂë˵Ã÷(ÈôÓпÍÖÆÂë='Y'µÄÓÅÏȻش«) ´«Èë²ÎÊý£ºp_gaz01 ³ÌÐò´úÂë p_lang ÓïÑÔ±ð
»Ø´«Öµ£ºl_gaz03 ³ÌÐò´úÂë˵Ã÷
Ó÷¨£ºLET g_msg = cl_get_progdesc(g_prog,p_lang)
º¯Ê½Ãû³Æ£ºcl_getmsg ³ÌÐòÃû³Æ£ºcl_getmsg.4gl
ÓÃ;£ºÒÀѶϢ´úÂëÈ¡³öϵͳ´íÎóѶϢÎļþ(ze_file)ÄڵĴíÎóѶϢ ´«Èë²ÎÊý£ºp_code ѶϢ´úÂë p_lang ÓïÑÔ±ð
»Ø´«Öµ£ºl_msg ´íÎóѶϢ.
Ó÷¨£ºLET g_msg = cl_getmsg(p_code,p_lang)
º¯Ê½Ãû³Æ£ºcl_insert_top_menu ³ÌÐòÃû³Æ£ºcl_insert_top_menu.4gl ÓÃ;£º²åÈëTopMenu
´«Èë²ÎÊý£ºpc_prog CHAR(10) ³ÌÐò´úºÅ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_insert_top_menu(NULL)
º¯Ê½Ãû³Æ£ºcl_itemname_by_lang ³ÌÐòÃû³Æ£ºcl_itemname_by_lang.4gl ÓÃ;£º¶àÓïÑԼǼ¹¦Äܲéѯ
´«Èë²ÎÊý£ºl_gbc01 µµ°¸´úÂë(Table ID) \l_gbc02 ×ֶδúÂë\
l_gbc03 KEY ÖµÐòÁУ¬¶à×éʱÒÔ£¬¸ô¿ª\l_gbc04 ÓïÑÔ±ðg_lang
l_gbc05 Êý¾Ý¶àÓïÑÔÃû³Æ\ÖÐÎÄÃû³Æ\»Ø´«Öµ£ºlc_gbc05 ¶ÔÓ¦ÓïÑÔ±ðµÄÃû³Æ
Ó÷¨£ºCALL cl_itemname_by_lang(\CLIPPED,g_lang,g_ima.ima02) RETURNING g_ima.ima02
º¯Ê½Ãû³Æ£ºcl_load_act_list ³ÌÐòÃû³Æ£ºcl_load_act_list.4gl
ÓÃ;£ºÔØÈëActionList £Û³ÌÐòËùÊôµÄ4ad£¬ex. axmt410.4ad£Ý ´«Èë²ÎÊý£ºps_prog STRING ³ÌÐò´úºÅ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_load_act_list(NULL)
º¯Ê½Ãû³Æ£ºcl_load_act_sys ³ÌÐòÃû³Æ£ºcl_load_act_sys.4gl
ÓÃ;£º¼ÓÔØActionList £Ûϵͳ±ê×¼µÄ4ad£¬tiptop.4ad£Ý ´«Èë²ÎÊý£ºps_prog STRING ³ÌÐò´úºÅ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_load_act_sys(NULL)
º¯Ê½Ãû³Æ£ºcl_load_action_view ³ÌÐòÃû³Æ£ºcl_load_action_view.4gl ÓÃ;£ºÔØÈëTopMenu ÓëToolBar
´«Èë²ÎÊý£ºnone »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_load_action_view()
º¯Ê½Ãû³Æ£ºcl_load_style_list ³ÌÐòÃû³Æ£ºcl_load_style_list.4gl ÓÃ;£ºÔØÈëStyleList
´«Èë²ÎÊý£ºps_prog STRING ³ÌÐò´úºÅ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_load_style_list(NULL)
º¯Ê½Ãû³Æ£ºcl_msgany ³ÌÐòÃû³Æ£ºcl_msgany.4gl
ÓÃ;£ºÏÔʾѶϢ£¬È»ºó°´Èκμü¼ÌÐø ´«Èë²ÎÊý£ºp_row,p_col ÎÞ×÷Óà p_msg ѶϢ´úÂë »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_prompt(0,0,l_msg)
º¯Ê½Ãû³Æ£ºcl_navigator_setting ³ÌÐòÃû³Æ£ºcl_navigator_setting.4gl
ÓÃ;£ºÉ趨ToolBar ÉÏä¯ÀÀÉÏϱÊÊý¾ÝµÄ°´Å¥×´Ì¬ ´«Èë²ÎÊý£ºpi_curr_index µ±Ç°Cursor Ë÷ÒýÖµ pi_row_count ×ÊÁϱÊÊý »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_navigator_setting( g_curs_index, g_row_count )
º¯Ê½Ãû³Æ£ºcl_null ³ÌÐòÃû³Æ£ºcl_null.4gl
ÓÃ;£º¼ì²é×Ö·û´®ÊÇ·ñΪNull »òÊÇ¿Õ×Ö·û´® ´«Èë²ÎÊý£ºps_source £¨À´Ô´×Ö·û´®£© »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºIF NOT cl_null(g_pmx[l_ac].pmx02) THEN
º¯Ê½Ãû³Æ£ºcl_numchk ³ÌÐòÃû³Æ£ºcl_numchk.4gl
ÓÃ;£º¼ì²é'p_str' ÊÇ·ñΪÊýÖµÐÍ̬ ´«Èë²ÎÊý£ºp_str Óû¼ì²é×Ö·û´® p_len ¼ì²éµÄ³¤¶È
»Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºIF cl_numchk(p_str,p_len) THEN