µ±Ç°Î»ÖãºÊ×Ò³ > titpopÄÚÖú¯Êý´óÈ«
º¯Ê½Ãû³Æ£ºcl_create_4sm ³ÌÐòÃû³Æ£ºcl_create_4sm.4gl
ÓÃ;£º²úÉúudm_tree ËùÐèÒªµÄStartMenu µµ°¸ ´«Èë²ÎÊý£ºpc_menu_root StartMenu µÄ¸ù½Úµã pi_rebuild ÊÇ·ñÐèÒªÖØÐ¸²¸ÇÒÑ´æÔÚµÄ4sm µµ°¸ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_create_4sm(\
º¯Ê½Ãû³Æ£ºcl_create_qry ³ÌÐòÃû³Æ£ºcl_create_qry.4gl
ÓÃ;£º¶¯Ì¬²úÉú´°¿ÚÒÔ¹©²éѯ£¬²¢»Ø´«²éѯ½á¹û ´«Èë²ÎÊý£ºnone
»Ø´«Öµ£ºms_ret1,ms_ret2,ms_ret3 »Ø´«ÊýÄ¿ÒÀÕÕ¶ÔÓ¦µÄ»Ø´«×Ö¶ÎÊý Ó÷¨£ºCALL cl_create_qry() RETURNING g_oea.oea14
º¯Ê½Ãû³Æ£ºcl_dynamic_qry ³ÌÐòÃû³Æ£ºcl_create_qry.4gl
ÓÃ;£º×Ô¶¨Òå/ÐÐÒµ±ð×ֶζ¯Ì¬²úÉú¿ª´°¹¦ÄÜ£¬²¢»Ø´«²éѯ½á¹û ´«Èë²ÎÊý£ºnone
»Ø´«Öµ£ºms_ret1,ms_ret2,ms_ret3 »Ø´«ÊýÄ¿ÒÀÕÕ¶ÔÓ¦µÄ»Ø´«×Ö¶ÎÊý Ó÷¨£ºCALL cl_dynamic_qry() RETURNING g_oea.oeaida001
º¯Ê½Ãû³Æ£ºcl_days ³ÌÐòÃû³Æ£ºcl_days.4gl ÓÃ;£ºÈ¡µÃ¸ÃÄêÔµÄÌìÊý ´«Èë²ÎÊý£ºp_year Äê·Ý p_month Ô·Ý
»Ø´«Öµ£ºl_days ÌìÊý
Ó÷¨£ºlet l_days=cl_days(p_yy,p_mm)
º¯Ê½Ãû³Æ£ºcl_delb ³ÌÐòÃû³Æ£ºcl_delb.4gl
ÓÃ;£ºÑ¯ÎÊ\ÊÇ·ñÈ·¶¨È¡Ïû´Ë±Êµ¥Éí×ÊÁÏ(Y/N)£º\ (for µ¥Îļþ½¨Îļþ³ÌÐòµ¥ÉíÈ¡Ïû¹¦ÄÜON KEY F2) ´«Èë²ÎÊý£ºp_row,p_col »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºIF cl_delb(0,0) THEN
º¯Ê½Ãû³Æ£ºcl_delete ³ÌÐòÃû³Æ£ºcl_delete.4gl
ÓÃ;£ºÑ¯ÎÊ£¢ÊÇ·ñɾ³ý´Ë±Ê×ÊÁÏ£¿¡å ´«Èë²ÎÊý£ºnone
»Ø´«Öµ£º1 FOR TRUE ÊÇ
0 FOR FALSE ·ñ
Ó÷¨£ºIF (cl_delete()) THEN
º¯Ê½Ãû³Æ£ºcl_delh ³ÌÐòÃû³Æ£ºcl_delh.4gl
ÓÃ;£ºÑ¯ÎÊ\ÊÇ·ñÈ·¶¨É¾³ý´Ë±Êµ¥Í·¼°ËùÓе¥ÉíÊý¾Ý(Y/N)£º\ (for µ¥Îļþ½¨Îļþ³ÌÐòµ¥Í·É¾³ý¹¦ÄÜ) ´«Èë²ÎÊý£ºp_row,p_col »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ Ó÷¨£ºif cl_delh(0,0)
º¯Ê½Ãû³Æ£ºcl_delh1 ³ÌÐòÃû³Æ£ºcl_delh1.4gl
ÓÃ;£ºÑ¯ÎÊ\ÊÇ·ñÈ·¶¨È¡Ïû´Ë±Êµ¥Í·¼°ËùÓе¥ÉíÊý¾Ý(Y/N)£º\(for µ¥Îļþ½¨Îļþ³ÌÐòµ¥Í·È¡Ïû¹¦ÄÜ) ´«Èë²ÎÊý£ºp_row,p_col »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºif cl_delh1(0,0)
º¯Ê½Ãû³Æ£ºcl_detail_input_auth ³ÌÐòÃû³Æ£ºcl_detail_input_auth.4gl
ÓÃ;£º¼ì²éÊÇ·ñÔÊÐíÔÚµ¥ÉíÖÐÓÐinsert »òdelete µÄȨÏÞ
´«Èë²ÎÊý£ºps_act_type STRING Òª¼ì²éµÄ×Ö·û´®£¨insert/delete£© »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºCALL cl_detail_input_auth(\
º¯Ê½Ãû³Æ£ºcl_digcut ³ÌÐòÃû³Æ£ºcl_digcut.4gl
ÓÃ;£º½«ÊýÖµÒÀÖ¸¶¨µÄСÊýλÊý×öËÄÉáÎåÈë ´«Èë²ÎÊý£ºp_value ÊýÖµ p_digit ÔÊÐíСÊýλÊý
»Ø´«Öµ£ºp_value ËÄÉáÎåÈëºóµÄÊýÖµ Ó÷¨£ºLET a = cl_digcut(p_value,p_digit)
º¯Ê½Ãû³Æ£ºcl_doc ³ÌÐòÃû³Æ£ºcl_doc.4gl ÓÃ;£ºÏà¹Øµµ°¸Î¬»¤ ´«Èë²ÎÊý£ºnone »Ø´«Öµ£ºnone
Ó÷¨£ºLET g_doc.column1 = \LET g_doc.value1 = g_oea.oea01
CALL cl_doc()
º¯Ê½Ãû³Æ£ºcl_dynamic_locale ³ÌÐòÃû³Æ£ºcl_dynamic_locale.4gl ÓÃ;£º¶¯Ì¬×ª»»»ÃæÓïÑԱ𠴫Èë²ÎÊý£ºnone »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_dynamic_locale()
º¯Ê½Ãû³Æ£ºcl_end ³ÌÐòÃû
³Æ£ºcl_end.4gl
ÓÃ;£ºÏÔʾ\×÷Òµ½áÊø£¬Çë°´Èκμü¼ÌÐø£º\´«Èë²ÎÊý£ºp_row,p_col ÎÞ×÷Óà »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_end(0,0)
º¯Ê½Ãû³Æ£ºcl_end2 ³ÌÐòÃû³Æ£ºcl_end2.4gl
ÓÃ;£ºÏÔʾִÐнá¹û£¬²¢Ñ¯ÎÊÊÇ·ñÒª¼ÌÐø×÷Òµ ´«Èë²ÎÊý£ºp_code £¨1 ´ú±í³É¹¦£¬2 ´ú±íʧ°Ü£© »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºCALL cl_end2(1) RETURNING l_flag
º¯Ê½Ãû³Æ£ºcl_err ³ÌÐòÃû³Æ£ºcl_err.4gl ÓÃ;£ºÏÔʾ´íÎóѶϢ
´«Èë²ÎÊý£ºp_msg ´íÎóѶϢµÄ¸½¼Ó˵Ã÷ err_code ´íÎóѶϢ´úÂë
p_n ÏÔʾ´íÎóѶϢºóµÄÍ£ÁôÃëÊý»òÊǵÈÓû§°´ÏÂÈ·¶¨ 0 £º²»¿ªÆôѶϢ´°¿Ú£¬Ö»ÔÚ״̬ÁÐÏÔʾ > 1 £ºÍ£ÁôÃëÊý
1 £º¿ªÆôѶϢ´°¿ÚµÈ´ýÓû§È·¶¨ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_err(p_msg,err_code,p_n)
º¯Ê½Ãû³Æ£ºcl_err_msg ³ÌÐòÃû³Æ£ºcl_err_msg.4gl ÓÃ;£ºÏÔʾ´íÎóѶϢ
´«Èë²ÎÊý£ºps_title ´íÎóѶϢµÄ¸½¼Ó˵Ã÷ ps_err_code ´íÎóѶϢ´úÂë
ps_replace_arg ÓûÌæ»»µÄѶϢ×Ö·û´®£¬ÒÔ¡±| ¡±·Ö¸ô×Ö·û´® pi_idle_sec idle ÃëÊý
0 £º²»¿ªÆôѶϢ´°¿Ú£¬Ö»ÔÚ״̬ÁÐÏÔʾ > 1 £ºÍ£ÁôÃëÊý
1 £º¿ªÆôѶϢ´°¿ÚµÈ´ýÓû§È·¶¨ »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_err_msg(\
º¯Ê½Ãû³Æ£ºcl_err3 ³ÌÐòÃû³Æ£º
ÓÃ;£ºÏÔʾÊý¾Ý¿â´¦ÀíºóµÄ´íÎóѶϢ£¨insert/update/delete/select£© ´«Èë²ÎÊý£ºType ѶϢµÄÀàÐÍ£¨ins¡¢del¡¢upd¡¢sel£© Tables ´¦ÀíµÄtable ´úÂë Key1 Key1 µÄvalue Key2 Key2 µÄvalue
Description ¶îÍâѶϢ£¨Ñ¶Ï¢´úÂë/ѶϢ×Ö·û´®£© Action ѶϢAction ´úÂ루δÀ´ÑÓÉ칦ÄÜ£¬¿É²»´«£© Mark °´Ï£¢¸ü¶à¡å°´¼üʱÏÔʾµÄѶϢ Open ÊÇ·ñ¿ª´°£¨0/1£© »Ø´«Öµ£ºnone
Ó÷¨£ºCALL cl_err3(\
º¯Ê½Ãû³Æ£ºcl_err_msg_log ³ÌÐòÃû³Æ£ºcl_err_msg.4gl ÓÃ;£º¼Í¼´íÎóѶϢ ´«Èë²ÎÊý£ºnone »Ø´«Öµ£ºnone
Ó÷¨£ºWHENEVER ERROR CALL cl_err_msg_log
º¯Ê½Ãû³Æ£ºcl_exp ³ÌÐòÃû³Æ£ºcl_exp.4gl
ÓÃ;£ºÑ¯ÎÊ\´Ë±Ê×ÊÁÏÊÇ·ñÈ·¶¨ÎÞЧ(Y/N)£º\»ò\´Ë±Ê×ÊÁÏÊÇ·ñ»Ö¸´ÓÐЧ(Y/N)£º\(for µ¥Îļþ½¨ÎļþÎÞЧ¹¦ÄÜ) ´«Èë²ÎÊý£ºp_row,p_col
p_old_acticode ÓÐЧÂë£ÛY/N£Ý »Ø´«Öµ£º1 FOR TRUE ÊÇ 0 FOR FALSE ·ñ
Ó÷¨£ºIF cl_exp(0,0,g_pmw.pmwacti) THEN
º¯Ê½Ãû³Æ£ºcl_export_to_excel ³ÌÐòÃû³Æ£ºcl_export_to_excel.4gl ÓÃ;£º
´«Èë²ÎÊý£ºn »ÃæµÄ¸ù½Úµã×é¼þ£Ûui.Interface.getRootNode()£Ý t¡¢t1¡¢t2 µ¥ÉíµÄÊý¾Ý£ÛÈôÓÐÁ½¸öÒÔÉϵĵ¥Éí²Å»áÓõ½t1¡¢t2 £Ý
¹²·ÖÏí92ƪÏà¹ØÎĵµ