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

pi_construct TRUE ¶àÑ¡Êý¾Ý/FALSE µ¥Ñ¡Êý¾Ý»Ø´« »Ø´«Öµ£ºlc_result ¿ª´°Öµ»Ø´«

Ó÷¨£ºCALL cl_userdefined_field_query(\RETURNING g_ima.imaud02

º¯Ê½Ãû³Æ£ºcl_validate ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£º¼ì²éÐÐÒµ±ð×Ö¶ÎÊý¾Ý¡¢´ø³ö¹ØÁª×Ö¶ÎÊý¾Ý£¨p_per É趨£© ´«Èë²ÎÊý£ºnone

»Ø´«Öµ£ºli_result TRUE/FALSE

Ó÷¨£ºIF NOT cl_validate() THEN NEXT FIELD CURRENT END IF

º¯Ê½Ãû³Æ£ºcl_ui_set_init ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£º×¥È¡×é¼þÉ趨ֵ£¨p_per ÐÐÒµ±ð×Ö¶ÎÉ趨£© ´«Èë²ÎÊý£ºnone

»Ø´«Öµ£ºls_value »­ÃæÉÏÏÔʾµÄÖµlc_gav28 »ù±¾Îļþ×ÊÁϼì²é·½Ê½ lc_gav20 ¶¯Ì¬¼ì²éÉ趨lc_gav21 SQL »òº¯Ê½¼ì²éÉ趨 lc_gav29 ¹ØÁª×Ö¶Îץȡ·½Ê½lc_gav31 ¹ØÁª×ֶδúÂë

lc_gav22 ¹ØÁª×ֶζ¯Ì¬É趨lc_gav23 SQL »òº¯Ê½×¥È¡·½Ê½ lc_gav30 Êý¾ÝÖØ¸´¼ì²é·½Ê½lc_gav26 ¶¯Ì¬Êý¾Ý¼ì²é lc_gav27 SQL »òº¯Ê½¼ì²éÉ趨 Ó÷¨£ºCALL cl_ui_set_init()

RETURNING g_ui.g_value,g_ui.g_check_mtd,g_ui.g_check_dym, g_ui.g_check_fun, g_ui.g_refer_mtd,g_ui.g_refer_fld, g_ui.g_refer_dym,g_ui.g_refer_fun,g_ui.g_rpt_mtd, g_ui.g_rpt_dym, g_ui.g_rpt_fun

º¯Ê½Ãû³Æ£ºcl_data_check ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£º»ù±¾ÎļþÊý¾Ý¼ì²é£¨p_per ÐÐÒµ±ð×Ö¶ÎÉ趨£© ´«Èë²ÎÊý£ºps_field ×ֶδúÂë pc_value ×Ö¶ÎÖµ

»Ø´«Öµ£ºli_result TRUE/FALSE

Ó÷¨£ºCALL cl_data_check(\RETURNING li_result

º¯Ê½Ãû³Æ£ºcl_repeat_check ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£ºÊý¾ÝÖØ¸´¼ì²é£¨p_per ÐÐÒµ±ð×Ö¶ÎÉ趨£© ´«Èë²ÎÊý£ºps_field ×ֶδúÂë pc_value ×Ö¶ÎÖµ

»Ø´«Öµ£ºli_result TRUE/FALSE

Ó÷¨£ºCALL cl_repeat_check(\

RETURNING li_result

º¯Ê½Ãû³Æ£ºcl_reference ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£º¹ØÁª×Ö¶Îֵץȡ²¢ÏÔʾ£¨p_per ÐÐÒµ±ð×Ö¶ÎÉ趨£© ´«Èë²ÎÊý£ºps_field ×ֶδúÂë pc_value ×Ö¶ÎÖµ

»Ø´«Öµ£ºli_result TRUE

Ó÷¨£ºCALL cl_reference(\RETURNING li_result

º¯Ê½Ãû³Æ£ºcl_qry_string ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£º×Ö¶ÎÁ¬²é£¨p_per ×Ö¶ÎÉ趨£© ´«Èë²ÎÊý£ºps_fldname ×ֶδúÂë »Ø´«Öµ£ºnone

Ó÷¨£ºCALL cl_qry_string(\

º¯Ê½Ãû³Æ£ºcl_get_table_name ³ÌÐòÃû³Æ£ºcl_validate.4gl

ÓÃ;£ºÑ°ÕÒ×Ö¶ÎÔÚÊý¾Ý¿â¶ÔÓ¦µÄtable name ´«Èë²ÎÊý£ºps_fldname ×ֶδúÂë »Ø´«Öµ£ºlc_frmname ±í¸ñ´úÂë

Ó÷¨£ºCALL cl_get_table_name(lc_gaq01)