titpopÄÚÖú¯Êý´óÈ« ÏÂÔر¾ÎÄ

»Ø´«Öµ£º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