#AGGREGATE_CATE_ITEM.CSVAGGREGATE_ITEM_TABLE.CSVBASE_TABLE.CSVC"J410","J410ÐÂÔö¡¢±ä¸üºÍ×¢Ïú·¨È˵¥Î»","0","1","0","0","0""J4102","J4102ÐÂÔö¡¢±ä¸üºÍ×¢Ïú²úÒµµ¥Î»","0","2","0","0","0""J601","101£­1 ·¨È˵¥Î»»ù±¾Çé¿ö","1","1","0","0","0""J601t","101£­1רҵ¹ý¶È±í","0","1","0","0","0""J602","101£­2 ²úÒµ»î¶¯µ¥Î»»ù±¾Çé¿ö","1","2","0","0","0""J602t","101£­2רҵ¹ý¶È±í","0","2","0","0","0"CATE_ITEM_LEVEL_TABLE.CSVÚ"djzclx","reg_code","lvl1","µÚÒ»²ã","1","1""djzclx","reg_code","lvl2","µÚ¶þ²ã","2","1""djzclx","reg_code","lvl3","µÚÈý²ã","3","1""djzzlx","reg_code","r1","1Àà","1","3""djzzlx","reg_code","r2","2Àà","2","3""dzm","code","city","ÊÐ","2","2""dzm","code","country","Ïç","4","3""dzm","code","province","Ê¡","1","2""dzm","code","town","ÏØ","3","2""dzm","code","village","´å","5","3""dzm_s","ccode","ccode","Ê¡¼¶µØÖ·Âë","1","2""industry","industry_code","cy","²úÒµÀà±ð","1","3""industry","industry_code","dl","´óÀà","3","4""industry","industry_code","ml","ÃÅÀà","2","4""industry","industry_code","xl","СÀà","5","4""industry","industry_code","zl","ÖÐÀà","4","4""jzyzzdj","zzdj_code","jb","¼¶±ð","2","1""jzyzzdj","zzdj_code","xl","ÐòÁÐ","1","1""jzyzzdj","zzdj_code","zy","רҵ","3","2""lsgx","lsgx_code","lsgx_code","Á¥Êô¹Øϵ´úÂë","1","2""stat_unit","stat_unit_code","city","ÊÐ","2","2""stat_unit","stat_unit_code","country","Ïç","4","3""stat_unit","stat_unit_code","province","Ê¡","1","2""stat_unit","stat_unit_code","state","¹ú¼Ò","0","0""stat_unit","stat_unit_code","town","ÏØ","3","2""stat_unit","stat_unit_code","village","´å","5","3""xj","xj_code","xj_code","±àÂë","1","1""zydm","ccode","ccode","רҵ´úÂë","1","3"CATE_ITEM_TABLE.CSV¾"area","area_code","¹ú±ð´úÂë","0","0","1","0","3""area","area_name","¹ú±ðÃû³Æ","0","0","3","1","60""djzclx","reg_code","´úÂë","3","0","1","0","3""djzclx","reg_type","ÆóÒµµÇ¼Ç×¢²áÀàÐÍ","0","0","3","1","60""dzm","code","µØÖ·´úÂë","5","1","1","0","12""dzm","name","Ãû³Æ","0","1","3","1","60""dzm_s","ccode","Ê¡¼¶µØÖ·Âë","1","0","1","0","2""dzm_s","name","Ê¡Ãû","0","0","3","1","14""industry","industry_code","ÐÐÒµ´úÂë","5","0","1","1","4""industry","industry_name","ÐÐÒµÃû³Æ","0","0","3","1","60""industry","industry_ndesc","ÐÐҵ˵Ã÷","0","0","3","1","255""jzyzzdj","zzdj_code","×ÊÖʵȼ¶´úÂë","3","1","1","1","4""jzyzzdj","zzdj_name","×ÊÖʵȼ¶Ãû³Æ","0","1","3","1","40""lsgx","lsgx_code","Á¥Êô¹Øϵ´úÂë","1","0","1","0","2""lsgx","lsgx_name","Á¥Êô¹ØϵÃû³Æ","0","0","3","1","20""stat_unit","stat_unit_code","×ۺϵ¥Î»´úÂë","5","1","1","0","12""stat_unit","stat_unit_desc","×ۺϵ¥Î»ÃèÊö","0","1","3","1","255""stat_unit","stat_unit_name","×ۺϵ¥Î»Ãû³Æ","0","1","3","1","60""xj","xj_code","±àÂë","1","0","1","0","1""xj","xj_name","ÐǼ¶Ãû³Æ","0","0","3","1","10""zydm","ccode","רҵ´úÂë","1","0","1","0","3""zydm","name","רҵÃû³Æ","0","0","3","1","20""zydm","xian","ÏÞÉÏÏÞÏÂ","0","0","3","1","1" CATEGORY.CSVé"area","¹ú±ð(µØÇø)ͳ¼Æ´úÂë","","1","0""djzclx","µÇ¼Ç×¢²áÀàÐÍ","","1","0""dzm","µØÖ·Âë","","1","0""dzm_s","Ê¡¼¶µØÖ·","","1","0""fz601_1","601_»ú¹Ø¼¶±ð","","0","0""fz601_5","601_ÆóÒµ¼¯ÍÅÇé¿ö","","0","0""fz601_7","601_סËÞÒµÇé¿ö(ÐǼ¶µÈ¼¶)","","0","0""fz602_1","602_µ¥Î»Àà±ð","","0","0""industry","¹úÃñ¾­¼ÃÐÐÒµ·ÖÀà","","1","0""jzyzzdj","½¨ÖþÒµ×ÊÖʵȼ¶","","1","0""lsgx","Á¥Êô¹Øϵ","","1","0""stat_unit","×ۺϵ¥Î»Ä¿Â¼","","1","0""xj","ÐǼ¶","","1","0""zydm","רҵ´úÂë","","1","0" FORMULA.CSVÄwBto1011,²¿ÃÅÊý¾Ýµ½101£­1±í,3,main() %unitscope={:}; docheck var t410 = report "J410" inner; var t601 = report "J601" update; begin //if t410["ZJ01_09"]=="2" then t601["Uni_YInfo"]=t410["ZJ01_09"]==""?t601["Uni_YInfo"]:t410["ZJ01_09"];//ÐÂÔö¡¢±ä¸üÓë×¢Ïú´úÂë t601["Z01_03"]=t410["ZJ01_03"]==""?t601["Z01_03"]:t410["ZJ01_03"];//·¨¶¨´ú±íÈË£¨¸ºÔðÈË£© t601["Z01_04"]=t410["ZJ01_040"]==""?t601["Z01_04"]:t410["ZJ01_040"];//µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»® t601["Z01_0491"]=t410["ZJ01_041"]==""?t601["Z01_0491"]:t410["ZJ01_041"];//ÏêϸµØÖ· t601["Z01_051"]=t410["ZJ01_051"]==""?t601["Z01_051"]:("0"+t410["ZJ01_051"]);//ÇøºÅ t601["Z01_052"]=t410["ZJ01_052"]==""?t601["Z01_052"]:t410["ZJ01_052"];//µç»°ºÅÂë t601["Z01_055"]=t410["ZJ01_055"]==""?t601["Z01_055"]:t410["ZJ01_055"];//ÓÊÕþ±àÂë t601["Z01_070"]=t410["ZJ01_071"]==""?t601["Z01_070"]:t410["ZJ01_071"];//µÇ¼Ç»ú¹Ø´úÂë t601["Z01_079"]=t410["ZJ01_072"]==""?t601["Z01_079"]:t410["ZJ01_072"];//¹¤É̵ǼÇ×¢²áºÅ t601["Z01_079_5"]=t410["ZJ01_073"]==""?t601["Z01_079_5"]:t410["ZJ01_073"];//»ú¹Ø¼¶±ð_1 t601["Z01_141"]=t410["ZJ01_08"]==""?t601["Z01_141"]:t410["ZJ01_08"];//»ú¹¹Àà±ð t601["Z01_064"]=t410["ZJ01_11"]==""?t601["Z01_064"]:t410["ZJ01_11"];//ÐÐÒµ´úÂë t601["Z01_INFO11"]=t410["ZJ01_20_3"]==""?t601["Z01_INFO11"]:value(t410["ZJ01_20_3"]);//Éó±íÈÕÆÚ£¨ÈÕ£© t601["Z01_INFO10"]=t410["ZJ01_20_2"]==""?t601["Z01_INFO10"]:value(t410["ZJ01_20_2"]);//Éó±íÈÕÆÚ£¨Ô£© t601["Z01_INFO9"]=t410["zj01_20_1"]==""?t601["Z01_INFO9"]:(value(t410["zj01_20_1"])-2000);//Éó±íÈÕÆÚ£¨Ä꣩ //endif end endBto1012,²¿ÃÅÊý¾Ýµ½101£­2±í,3,main() %unitscope={:}; docheck var t410 = report "J4102" inner; var t601 = report "J602" update; begin //if t410["ZJ01_09"]=="2" then t601["UniInfo"]=t410["ZJ01_09"]==""?t601["UniInfo"]:t410["ZJ01_09"];//ÐÂÔö¡¢±ä¸üÓë×¢Ïú´úÂë t601["Z02_03"]=t410["ZJ01_03"]==""?t601["Z02_03"]:t410["ZJ01_03"];//²úÒµ»î¶¯µ¥Î»¸ºÔðÈË t601["Z02_04"]=t410["ZJ01_040"]==""?t601["Z02_04"]:t410["ZJ01_040"];//ÐÐÕþÇø»®´úÂ루ÆÕ²é»ú¹¹Ìîд£© t601["Z02_0491"]=t410["ZJ01_041"]==""?t601["Z02_0491"]:t410["ZJ01_041"];//ÏêϸµØÖ· t601["Z02_051"]=t410["ZJ01_051"]==""?t601["Z02_051"]:("0"+t410["ZJ01_051"]);//ÇøºÅ t601["Z02_052"]=t410["ZJ01_052"]==""?t601["Z02_052"]:t410["ZJ01_052"];//µç»°ºÅÂë t601["Z02_055"]=t410["ZJ01_055"]==""?t601["Z02_055"]:t410["ZJ01_055"];//ÓÊÕþ±àÂë t601["Z02_070"]=t410["ZJ01_071"]==""?t601["Z02_070"]:t410["ZJ01_071"];//µÇ¼Ç»ú¹Ø´úÂë t601["Z02_079"]=t410["ZJ01_072"]==""?t601["Z02_079"]:t410["ZJ01_072"];//¹¤É̵ǼÇ×¢²áºÅ t601["Z02_079_5"]=t410["ZJ01_073"]==""?t601["Z02_079_5"]:t410["ZJ01_073"];//»ú¹Ø¼¶±ð_1 t601["Z02_140"]=t410["ZJ01_08"]==""?t601["Z02_140"]:t410["ZJ01_08"];//»ú¹¹Àà±ð t601["Z02_064"]=t410["ZJ01_11"]==""?t601["Z02_064"]:t410["ZJ01_11"];//ÐÐÒµ´úÂë t601["Z02_INFO4"]=t410["zj01_20_1"]==""?t601["Z02_INFO4"]:(value(t410["zj01_20_1"])-2000);//Ìî±íÈÕÆÚ(Äê) t601["Z02_INFO5"]=t410["ZJ01_20_2"]==""?t601["Z02_INFO5"]:value(t410["ZJ01_20_2"]);//Ìî±íÈÕÆÚ(ÔÂ) t601["Z02_INFO6"]=t410["zj01_20_3"]==""?t601["Z02_INFO6"]:value(t410["zj01_20_3"]);//Ìî±íÈÕÆÚ(ÈÕ) //endif end endF601,101£­1 ·¨È˵¥Î»»ù±¾Çé¿ö,0,/* * ¸Å Òª£º J601 ±íµÄÉóºË¹«Ê½ * * ----------------------------------------------------------------------------------------------- * °æ±¾ | ÐÞ¸ÄÈÕÆÚ | ÐÞ¸ÄÈË | ÐÞ¸Ä˵Ã÷ * ----------------------------------------------------------------------------------------------- * 0.1 | 2004.9.6 22:15 | Ô¬ÏþÓ | ´´½¨Îļþ * ----------------------------------------------------------------------------------------------- * 1.6 | 2004.11.07 | Ô¬ÏþÓ | ÓÃÖ¸±ê´úÂëÌæ»»×ø±ê£¬²¢¸ù¾ÝÖƶÈУ¶ÔÎĵµÐ޸Ĺ«Ê½ * ----------------------------------------------------------------------------------------------- * 1.6 | 2004.11.24 | Ô¬ÏþÓ | Ð޸Ĺ«Ê½ * ----------------------------------------------------------------------------------------------- * | 2004.12.24 | Ëïæº | Ð޸Ĺ«Ê½ * ----------------------------------------------------------------------------------------------- * | 2005.12.18 | ÉòÄÉ | Ð޸Ĺ«Ê½£¨Õë¶ÔÄ걨ÖƶȽøÐÐÐ޸ģ© * ----------------------------------------------------------------------------------------------- */ //hyidÊÇÅжÏ×î´óÖµµÄ£¬typeÊÇÅжÏƽ¾ùÖµµÄ,incomeÊDZíÖÐÌîµÄÖ÷ÓªÒµÎñÊÕÈëµÄÖµ function GE_MAX( income_table, hyid, income,type) for i=1 to length(income_table,1) do //È¡income_tableµÄµÚһλ46×öΪÐÐ if ( income_table[i,1]==hyid ) then var cval = income_table[i,2]; if type==1 then cval = income_table[i,3]; elsif type==2 then cval = income_table[i,4]; endif if income > cval then return 1; else return 0; endif endif endfor return 0; end //¼ì²âÊÇ·ñ´æÔÚij¸öÈ«½Ç×Ö·û function HasChinese(vstr,vchar) if vstr=="" then return false; endif return at(vchar,vstr)>0; end //¼ì²âÊÇ·ñ´æÔÚij¸ö°ë½Ç»ò·Ç·¨×Ö·û function hasSpecChar(vstr) if vstr=="" then return false; endif return at("\"",vstr)>0 || at("'",vstr)>0 || at(",",vstr)>0 || at("?",vstr)>0 || at("@",vstr)>0; end //¼ì²âÊÇ·ñ´æÔÚij¸ö°ë½Ç»ò·Ç·¨×Ö·û(µç×ÓÐÅÏäÓÃ) function hasSpecChar1(vstr) if vstr=="" then return false; endif return at("\"",vstr)>0 || at("'",vstr)>0 || at(",",vstr)>0 || at("?",vstr)>0 ; end main() var wi = null; var income_table = null; docheck var A = report "J601" inner ; begin var frdm= unt[2]; //1.´úÂ볤¶ÈÐëΪ9¸ö×Ö·û£¬²»Äܺ¬ÓÐ0-9»òA-Z£¨±ØÐë´óд£©Ö®ÍâµÄ×Ö·û¡£ verify length(unt[2]) == 9, "01·¨È˵¥Î»´úÂë·Ç·¨" ; for i=1 to length(unt[2]) do verify substr(unt[2],i,1) in {"0":"9","A":"Z"},"´úÂë²»Äܺ¬ÓÐ0-9»òA-Z£¨±ØÐë´óд£©Ö®ÍâµÄ×Ö·û"; if !(substr(unt[2],i,1) in {"0":"9","A":"Z"}) then break; endif endfor //1£®±ØÐë·ûºÏУÑ鹫ʽ¡£ if length(unt[2]) == 9 then if (isnull(wi)) then wi = array(9) ; wi[1] = 3 ; wi[2] = 7 ; wi[3] = 9 ; wi[4] = 10; wi[5] = 5 ; wi[6] = 8 ; wi[7] = 4 ; wi[8] = 2 ; wi[9] = 0 ; endif var addv = 0; for i=1 to 8 do var ci = 0; if substr(unt[2],i,1) in {"A":"Z"} then ci = code(substr(unt[2],i,1))-55; // È¡×Öĸ¶ÔÓ¦µÄÖµ£¨ A=10,B=11...), ÆäÖÐ×ÖĸAµÄASCIIֵΪ65£» else ci = value(substr(unt[2],i,1)); //È¡×Ö·û(0-9)×ÖÃæµÄÖµ; endif addv = addv + ci * wi[i]; //°´Ð£ÑéÂ빫ʽ¼ÓȨÀÛ¼ÓÉú³ÉMODºóÃæµÄÖµ endfor addv = 11 - addv % 11;//¼ÆËãУÑéÂëµÄÖµ£¬%ΪȡÓà if (addv == 11) then addv =0 ; endif if ( addv == 10 ) then verify substr(unt[2],9,1) == "X", "01·¨È˵¥Î»´úÂë·Ç·¨"; else verify value(substr(unt[2],9,1))==addv, "01·¨È˵¥Î»´úÂë·Ç·¨"; endif endif //2.·¨È˵¥Î»Ãû³Æ³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ8¸ö×Ö·û£¨ÖÁÉÙ4¸öºº×Ö£© verify length(unt[3]) >= 8 ,"02·¨È˵¥Î»Ãû³Æ©¼"; //3.·¨È˵¥Î»Ãû³Æ²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(unt[3]),"02·¨È˵¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(unt[3]),"02·¨È˵¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //4.·¨È˵¥Î»Ãû³Æ²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£ÀÈ«½Ç×Ö·û verify !(HasChinese(unt[3],"¡®") || HasChinese(unt[3],"¡¯") || HasChinese(unt[3],"¡°") || HasChinese(unt[3],"¡±") || HasChinese(unt[3],"£¬") || HasChinese(unt[3],"£¿") || HasChinese(unt[3],"£À")), "02·¨È˵¥Î»Ãû³Æº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //5.·¨¶¨´ú±íÈ˳¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(a["Z01_03"]) >= 4,"03·¨¶¨´ú±íÐÕÃû©¼"; //6.·¨¶¨´ú±íÈ˲»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_03"]),"03·¨¶¨´ú±íÐÕÃûº¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_03"]),"03·¨¶¨´ú±íÐÕÃûº¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; //7.·¨¶¨´ú±íÈ˲»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£ÀÈ«½Ç×Ö·û¡£ verify !(HasChinese(a["Z01_03"],"¡®") || HasChinese(a["Z01_03"],"¡¯") || HasChinese(a["Z01_03"],"¡°") || HasChinese(a["Z01_03"],"¡±") || HasChinese(a["Z01_03"],"£¬") || HasChinese(a["Z01_03"],"£¿") || HasChinese(a["Z01_03"],"£À")), "03·¨¶¨´ú±íÐÕÃûº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //8.´úÂ볤¶ÈÐëΪ12¸ö×Ö·û£¬²¢ÇÒÐëÓë¹ú¼Ò±ê׼ʡµØÏØÏç´åµØÖ·Âë¿âÒ»Ö¡£ verify length(a["Z01_04"]) == 12 ,"04 ÐÐÕþÇø»®´úÂë·Ç·¨" ; verify hascateitem("dzm",a["Z01_04"]), "04 ÐÐÕþÇø»®´úÂë·Ç·¨" ; //9.12λµØÖ·ÂëÖУ¬µÚ1λºÍµÚ2λ²»ÄÜͬʱΪ0£» verify substr(a["Z01_04"],1,2) <> "00" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; //9.12λµØÖ·ÂëÖУ¬µÚ3λºÍµÚ4λ²»ÄÜͬʱΪ0£» verify substr(a["Z01_04"],3,2) <> "00" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; //9.12λµØÖ·ÂëÖУ¬³ýÁË441900ºÍ442000Í⣬µÚ5λºÍµÚ6λ²»ÄÜͬʱΪ0¡£ if !(substr(a["Z01_04"],1,6) in {"441900","442000"}) then verify substr(a["Z01_04"],5,2) <> "00" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; endif //9.12λµØÖ·ÂëÖУ¬µÚ7λ¡¢µÚ8λºÍµÚ9λ²»ÄÜͬʱΪ0¡£ verify substr(a["Z01_04"],7,3) <> "000" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; //9.12λµØÖ·ÂëÖУ¬²¢ÇÒ³ýÁ˵Ú7λΪ4»ò5»ò6µÄÒÔÍ⣬µÚ10λ¡¢µÚ11λºÍµÚ12λ²»ÄÜͬʱΪ0¡£ if !(substr(a["Z01_04"],7,1) in {"4","5","6"}) then verify substr(a["Z01_04"],10,3) <> "000" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; endif //10.Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(trim(a["Z01_043"])) >= 4,"04Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)©¼"; //11.²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û verify isallCChar(a["Z01_043"]),"04Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)º¬·Ç·¨×Ö·û"; //12.³ýÁËÐÐÕþÇø»®´úÂëÇ°Á½Î»Îª11¡¢12¡¢31¡¢50µÄµ¥Î»ÒÔÍ⣬ //µØ£¨Çø¡¢ÊС¢ÖÝ¡¢ÃË£©³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© if !(substr(a["Z01_04"],1,2) in {"11","12","31","50"}) then verify length(a["Z01_044"]) >= 4,"04µØ(Çø¡¢ÊС¢ÖÝ¡¢ÃË)©¼"; endif //13.Èç¹û×ֶγ¤¶È´óÓÚµÈÓÚ1£¬Ôò²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û if length(trim(a["Z01_044"]))>=1 then verify isallCChar(a["Z01_044"]),"04µØ(Çø¡¢ÊС¢ÖÝ¡¢ÃË)º¬·Ç·¨×Ö·û"; endif //14.ÏØ£¨Çø¡¢ÊС¢Æ죩³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(trim(a["Z01_045"])) >= 4,"ÏØ(Çø¡¢ÊС¢Æì)©¼"; //15.²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û verify isallCChar(a["Z01_045"]),"04ÏØ(Çø¡¢ÊС¢Æì)º¬·Ç·¨×Ö·û"; //16.Èç¹ûÐÐÕþÇø»®´úÂëµÚ7λΪ¡°1»ò2»ò3¡±£¬ÔòÏ磨Õò£©³¤¶È±ØÐë´óÓÚµÈÓÚ4£¬½ÖµÀ°ìÊ´¦³¤¶È±ØÐëΪ0¡£ if substr(a["Z01_04"],7,1) in {"1","2","3"} then verify length(trim(a["Z01_046"])) >= 4 && length(trim(a["Z01_048"])) ==0 ,"04Ó¦ÌîдÏç(Õò£©£¬²»Ó¦Ìîд½ÖµÀ°ìÊ´¦£¬ÓëÐÐÕþÇø»®´úÂë²»·û"; endif //17.²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û verify isallCChar(a["Z01_046"]),"04Ïç(Õò)º¬·Ç·¨×Ö·û"; //18.Èç¹ûÐÐÕþÇø»®´úÂëµÚ10λΪ¡°0»ò1»ò4¡±,ÔòÃÅÅƺų¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© if substr(a["Z01_04"],10,1) in {"0","1","4"} then verify length(a["Z01_047"]) >= 4,"04½Ö£¨´å£©¡¢ÃÅÅƺÅ©¼"; endif //19.½Ö£¨´å£©¡¢ÃÅÅƺŲ»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_047"]),"04½Ö£¨´å£©¡¢ÃÅÅƺź¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_047"]),"04½Ö£¨´å£©¡¢ÃÅÅƺź¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //20.½Ö£¨´å£©¡¢ÃÅÅƺŲ»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ È«½Ç×Ö·û verify !(HasChinese(a["Z01_047"],"¡®") || HasChinese(a["Z01_047"],"¡¯") || HasChinese(a["Z01_047"],"¡°") || HasChinese(a["Z01_047"],"¡±") || HasChinese(a["Z01_047"],"£¬") || HasChinese(a["Z01_047"],"£¿") || HasChinese(a["Z01_047"],"£À")), "04½Ö£¨´å£©¡¢ÃÅÅƺź¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //21.Èç¹ûÐÐÕþÇø»®´úÂëµÚ7λΪ¡°0»ò4»ò5¡±£¬Ôò½ÖµÀ°ìÊ´¦³¤¶È±ØÐë´óÓÚµÈÓÚ4£¬Ï磨Õò£©³¤¶È±ØÐëΪ0¡£ if substr(a["Z01_04"],7,1) in {"0","4","5"} then verify length(a["Z01_048"]) >= 4 && length(a["Z01_046"]) ==0 ,"04Ó¦Ìîд½ÖµÀ°ìÊ´¦£¬²»Ó¦ÌîдÏç(Õò£©£¬ÓëÐÐÕþÇø»®´úÂë²»·û"; endif //22.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_048"]),"04½ÖµÀ°ìÊ´¦º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_048"]),"04½ÖµÀ°ìÊ´¦º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //23.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ È«½Ç×Ö·û verify !(HasChinese(a["Z01_048"],"¡®") || HasChinese(a["Z01_048"],"¡¯") || HasChinese(a["Z01_048"],"¡°") || HasChinese(a["Z01_048"],"¡±") || HasChinese(a["Z01_048"],"£¬") || HasChinese(a["Z01_048"],"£¿") || HasChinese(a["Z01_048"],"£À")), "04½ÖµÀ°ìÊ´¦º¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //24.³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(a["Z01_049"]) >= 4,"04ÉçÇø¡¢¾Ó(´å)ί»á©¼"; //25.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_049"]),"04ÉçÇø¡¢¾Ó(´å)ί»áº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_049"]),"04ÉçÇø¡¢¾Ó(´å)ί»áº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //26.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ È«½Ç×Ö·û verify !(HasChinese(a["Z01_049"],"¡®") || HasChinese(a["Z01_049"],"¡¯") || HasChinese(a["Z01_049"],"¡°") || HasChinese(a["Z01_049"],"¡±") || HasChinese(a["Z01_049"],"£¬") || HasChinese(a["Z01_049"],"£¿") || HasChinese(a["Z01_049"],"£À")), "04ÉçÇø¡¢¾Ó(´å)ί»áº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //27.ÇøºÅ1. ³¤¶È²»µÃÉÙÓÚ3¸ö×Ö·û 2. ²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 3. µÚһλ±ØÐëΪ0 verify substr(a["Z01_051"],1,1) == "0" && length(a["Z01_051"]) >= 3,"ÇøºÅ©¼»ò·Ç·¨"; for X=1 to length(a["Z01_051"]) do if !(code(substr(a["Z01_051"],X,1)) >=48 && code(substr(a["Z01_051"],X,1)) <=57) then verify false,"ÇøºÅ©¼»ò·Ç·¨"; break; endif endfor //28.04ÐÐÕþÇø»®´úÂëÇ°Á½Î»²»ÊÇ54¡¢62¡¢63¡¢64¡¢65µÄµ¥Î»£¬µç»°ºÅÂëµÄ³¤¶È²»ÄÜСÓÚ5¸ö×Ö·û if !(substr(a["Z01_04"],1,2) in {"54","62","63","64","65"}) then verify length(a["Z01_052"]) >= 5,"05µç»°ºÅÂ멼»ò·Ç·¨"; endif //29.µç»°ºÅÂ볤¶È´óÓÚµÈÓÚ1¸ö×Ö·ûµÄÇé¿öÏ£¬1¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 2.Ê×λ²»ÄÜΪ0 3.Èç¹ûÇ°2λΪ¡°13¡±£¬³¤¶È±ØÐëΪ11¡£ if length(a["Z01_052"]) >= 1 then for X=1 to length(a["Z01_052"]) do if !(code(substr(a["Z01_052"],X,1)) >=48 && code(substr(a["Z01_052"],X,1)) <=57) then verify false,"1¡¢µç»°ºÅÂë²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û "; break; endif endfor verify substr(a["Z01_052"],1,1) <> "0","05µç»°ºÅÂëÓÐÎó"; if substr(a["Z01_052"],1,2) == "13" then verify length(a["Z01_052"]) == 11,"05µç»°ºÅÂëÓÐÎó"; endif endif //30.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_053"]),"05·Ö»úºÅº¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_053"]),"05·Ö»úºÅº¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; //31.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ È«½Ç×Ö·û verify !(HasChinese(a["Z01_053"],"¡®") || HasChinese(a["Z01_053"],"¡¯") || HasChinese(a["Z01_053"],"¡°") || HasChinese(a["Z01_053"],"¡±") || HasChinese(a["Z01_053"],"£¬") || HasChinese(a["Z01_053"],"£¿") || HasChinese(a["Z01_053"],"£À")), "05·Ö»úºÅº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //32.´«ÕæºÅÂ볤¶È´óÓÚµÈÓÚ1¸ö×Ö·ûµÄÇé¿öÏ£¬1¡¢³¤¶È²»ÄÜСÓÚ5¡£ 2¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 3¡¢Ê×λ²»ÄÜΪ0¡£ if length(a["Z01_054"]) >= 1 then verify length(a["Z01_054"]) >= 5,"05´«ÕæºÅÂëÓÐÎó"; for X=1 to length(a["Z01_054"]) do if !(code(substr(a["Z01_054"],X,1)) >=48 && code(substr(a["Z01_054"],X,1)) <=57) then verify false,"05´«ÕæºÅÂëÓÐÎó"; break ; endif endfor verify substr(a["Z01_054"],1,1) <> "0","05´«ÕæºÅÂëÓÐÎó"; endif //33.1.³¤¶ÈÐëΪ6¸ö×Ö·û 2¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û verify length(a["Z01_055"]) == 6,"05ÓÊÕþ±àÂ멼»ò·Ç·¨"; for X=1 to length(a["Z01_055"]) do if !(code(substr(a["Z01_055"],X,1)) >=48 && code(substr(a["Z01_055"],X,1)) <=57) then verify false,"05ÓÊÕþ±àÂ멼»ò·Ç·¨"; break ; endif endfor //34.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar1(a["Z01_056"]),"05µç×ÓÐÅÏ京°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_056"]),"05µç×ÓÐÅÏ京°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; //35.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺÅÈ«½Ç×Ö·û verify !(HasChinese(a["Z01_056"],"¡®") || HasChinese(a["Z01_056"],"¡¯") || HasChinese(a["Z01_056"],"¡°") || HasChinese(a["Z01_056"],"¡±") || HasChinese(a["Z01_056"],"£¬") || HasChinese(a["Z01_056"],"£¿")), "05µç×ÓÐÅÏ京ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //36.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_057"]),"05ÍøÖ·º¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_057"]),"05ÍøÖ·º¬°ë½Ç×Ö·û»ò°ë¸öºº×Ö"; //37.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺÅÈ«½Ç×Ö·û verify !(HasChinese(a["Z01_057"],"¡®") || HasChinese(a["Z01_057"],"¡¯") || HasChinese(a["Z01_057"],"¡°") || HasChinese(a["Z01_057"],"¡±") || HasChinese(a["Z01_057"],"£¬") || HasChinese(a["Z01_057"],"£¿") || HasChinese(a["Z01_057"],"£À")), "05ÍøÖ·º¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //38.Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©1£¬³¤¶ÈÓ¦´óÓÚµÈÓÚ4¸ö×Ö·û¡£ verify length(trim(a["Z01_061"]))>=4 ,"06µÚÒ»Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©Â©Â¼"; //39.Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©1¡¢2¡¢3£¬¶¼²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£À°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_061"]),"Ö÷ÒªÒµÎñ»î¶¯1Öк¬Óаë½Ç×Ö·û"; verify !hasSpecChar(a["Z01_062"]),"Ö÷ÒªÒµÎñ»î¶¯2Öк¬Óаë½Ç×Ö·û"; verify !hasSpecChar(a["Z01_063"]),"Ö÷ÒªÒµÎñ»î¶¯3Öк¬Óаë½Ç×Ö·û"; verify !(hasHalfCChar(a["Z01_061"]) && hasHalfCChar(a["Z01_062"]) && hasHalfCChar(a["Z01_063"])) ,"Ö÷ÒªÒµÎñ»î¶¯Öк¬Óаë½Ç×Ö·û"; //40.Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©1¡¢2¡¢3£¬¶¼²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£ÀÈ«½Ç×Ö·û verify !(HasChinese(a["Z01_061"],"¡®") || HasChinese(a["Z01_061"],"¡¯") || HasChinese(a["Z01_061"],"¡°") || HasChinese(a["Z01_061"],"¡±") || HasChinese(a["Z01_061"],"£¬") || HasChinese(a["Z01_061"],"£¿") || HasChinese(a["Z01_061"],"£À")), "06Ö÷ÒªÒµÎñ»î¶¯Öк¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; verify !(HasChinese(a["Z01_062"],"¡®") || HasChinese(a["Z01_062"],"¡¯") || HasChinese(a["Z01_062"],"¡°") || HasChinese(a["Z01_062"],"¡±") || HasChinese(a["Z01_062"],"£¬") || HasChinese(a["Z01_062"],"£¿") || HasChinese(a["Z01_062"],"£À")), "06Ö÷ÒªÒµÎñ»î¶¯Öк¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; verify !(HasChinese(a["Z01_063"],"¡®") || HasChinese(a["Z01_063"],"¡¯") || HasChinese(a["Z01_063"],"¡°") || HasChinese(a["Z01_063"],"¡±") || HasChinese(a["Z01_063"],"£¬") || HasChinese(a["Z01_063"],"£¿") || HasChinese(a["Z01_063"],"£À")), "06Ö÷ÒªÒµÎñ»î¶¯Öк¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //41.ÐÐÒµ´úÂë1.³¤¶ÈÐëΪ4¸ö×Ö·û 2.Óë±ê×¼µÄ¹úÃñ¾­¼ÃÐÐÒµ·ÖÀàÓë´úÂë¿â£¨±ØÐëºÍ4λµÄСÀàÂ룩һÖ¡£ verify length(a["Z01_064"]) == 4,"06ÐÐÒµ´úÂ멼»ò·Ç·¨"; verify hasitem("industry",a["Z01_064"]),"06ÐÐÒµ´úÂ멼»ò·Ç·¨"; /*42.ÐÐÒµ´úÂëΪ9800µÄµ¥Î» verify a["Z01_064"] <> "9800","06ÇëÈ·Èϸõ¥Î»ÊÇ·ñ¹ú¼Ê×éÖ¯£¿"; //43.Èç¹û16²úÒµ»î¶¯µ¥Î»×ܼÆÊý=1£¬ÄÇôÐÐÒµ´úÂëµÄÇ°Á½Î»²»Îª01£­05 if a["Z01_160"]==1 then verify !(substr(a["Z01_064"],1,2) in {"01":"05"}), "06ÇëÈ·Èϸõ¥Î»ÊÇ·ñΪµ¥²úҵũҵ·¨ÈË" ; endif */ //44.1¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢2±àÖƲ¿ÃÅ¡¢3ÃñÕþ²¿ÃÅ¡¢9ÆäËû£¬ÕâËĸö¿ÉÑ¡ÏîÖУ¬ÖÁÉÙÑ¡1Ïî verify length(trim(a["Z01_071"])) + length(trim(a["Z01_073"])) + length(trim(a["Z01_075"])) + length(trim(a["Z01_077"])) <> 0,"Åú×¼»ú¹Ø©Ìî1"; //45.¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãų¤¶ÈΪ0£¬»òÕßȡֵΪ¡°1¡±¡£ verify length(a["Z01_071"]) == 0 || a["Z01_071"] == "1","07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅÓÐÎ󣨿ոñ·Ç·¨£©"; //46.Èç¹û»ú¹Ø¼¶±ð-¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°1¡±¡£ if length(trim(a["Z01_079_1"])) == 1 then verify a["Z01_071"] == "1","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨¹¤ÉÌ£©Ìîд²»Ïà·û¡£" ; endif //47.³¤¶ÈΪ0£¬»òÕßȡֵΪ¡°2¡±¡£ verify length(a["Z01_073"]) == 0 || a["Z01_073"] == "2","07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-±àÖƲ¿ÃÅÓÐÎ󣨿ոñ·Ç·¨£©"; //48.Èç¹û»ú¹Ø¼¶±ð-±àÖƲ¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°2¡±¡£ if length(trim(a["Z01_079_2"])) == 1 then verify a["Z01_073"] == "2","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨±àÖÆ£©Ìîд²»Ïà·û¡£" ; endif //49.³¤¶ÈΪ0£¬»òÕßȡֵΪ¡°3¡±¡£ verify length(a["Z01_075"]) == 0 || a["Z01_075"] == "3","07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-ÃñÕþÓÐÎ󣨿ոñ·Ç·¨£©"; //50.Èç¹û»ú¹Ø¼¶±ð-ÃñÕþ²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°3¡±¡£ if length(trim(a["Z01_079_3"])) == 1 then verify a["Z01_075"] == "3","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨ÃñÕþ£©Ìîд²»Ïà·û¡£" ; endif //Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°94¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ¡ª¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢ÃñÕþ²¿Ãŵij¤¶È¶¼±ØÐëΪ0¡£ if substr(a["Z01_064"],1,2)=="94" then verify length(a["Z01_071"])==0 && length(a["Z01_075"])==0,"07¹ú¼ÒÐÐÕþ»ú¹¹µÄÅú×¼»ú¹ØÓ¦Ìî±àÖÆ»òÆäËû"; endif //51.³¤¶ÈΪ0£¬»òÕßȡֵΪ¡°9¡±¡£ verify length(a["Z01_077"]) == 0 || a["Z01_077"] == "9","07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-ÆäËûÓÐÎ󣨿ոñ·Ç·¨£©"; //52.Èç¹û»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°9¡±¡£ if length(trim(a["Z01_079_4"])) == 1 then verify a["Z01_077"] == "9","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨ÆäËû£©Ìîд²»Ïà·û¡£" ; endif //53.Èç¹ûÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅΪ¡°1¡±£¬»ò±àÖƲ¿ÃÅΪ¡°2¡±£¬»òÃñÕþ²¿ÃÅΪ¡°3¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ-ÆäËûµÄ³¤¶È±ØÐëΪ0¡£ if a["Z01_071"] == "1" || a["Z01_073"] == "2" || a["Z01_075"] == "3" then verify length(a["Z01_077"])==0,"ÈôÒÑÔÚÇ°Èý¸öµÇ¼Ç×¢²á»ú¹Ø×öÁËÑ¡Ôñ£¬Ôò²»Äܸ´Ñ¡ÆäËû"; endif //54.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°93¡¢95¡¢97¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢±àÖƲ¿ÃÅ¡¢ÃñÕþ²¿Ãŵij¤¶È¶¼±ØÐëΪ0£¬Åú×¼»ú¹ØÃû³Æ-ÆäËûµÄÈ¡Öµ±ØÐëÊÇ¡°9¡±¡£ if substr(a["Z01_064"],1,2) in{"93","95","97"} then verify ((length(trim(a["Z01_071"]))==0)&&(length(trim(a["Z01_073"]))==0)&&(length(trim(a["Z01_075"]))==0)&&(a["Z01_077"]=="9")), "07¹ú¼Ò»ú¹Ø¡¢Õþµ³»ú¹Ø¡¢¾Ó£¨´å£©ÃñίԱ»áµÄÅú×¼»ú¹ØÓ¦ÌîÆäËû"; endif //55.06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ¡°93¡¢94¡¢95¡¢97¡±£¬²¢ÇÒÅú×¼»ú¹ØÃû³Æ-ÆäËûȡֵΪ¡°9¡±µÄµ¥Î»£¬¡°Åú×¼»ú¹ØÆäËû£¬Çë×¢Ã÷¡±µÄ³¤¶ÈÓ¦´óÓÚµÈÓÚ2¸ö×Ö·û¡£ if !(substr(a["Z01_064"],1,2) in{"93","94","95","97"}) && a["Z01_077"] == "9" then verify (length(trim(a["Z01_078"]))>=2),"µÇ¼Ç£¨Åú×¼£©»ú¹ØÑ¡ÆäËûµÄ£¬Çë×¢Ã÷Åú×¼»ú¹Ø"; endif //56.Èç¹ûÅú×¼»ú¹ØÃû³Æ¡ªÆäËûµÄ³¤¶ÈΪ0£¬Ôò¡°Çë×¢Ã÷Åú×¼»ú¹Ø¡±µÄ³¤¶È±ØÐëΪ0 if length(trim(a["Z01_077"])) == 0 then verify length(trim(a["Z01_078"])) == 0, "07µÇ¼Ç£¨Åú×¼£©»ú¹ØδѡÆäËûµÄ£¬²»Ðè×¢Ã÷Åú×¼»ú¹Ø" ; endif //57.È¥µô×Ö¶ÎÖÐËùÓеĿոñºó£¬²»Äܺ¬ÓС°¹¤ÉÌ¡±¡¢¡°±àÖÆ¡±¡¢¡°±àί¡±¡¢¡°±à°ì¡±¡¢¡°ÃñÕþ¡±µÄ×ÖÑù¡£ verify at("¹¤ÉÌ",a["Z01_078"]) == 0 && at("±àÖÆ",a["Z01_078"]) == 0 && at("±àί",a["Z01_078"]) == 0 && at("±à°ì",a["Z01_078"]) == 0 && at("ÃñÕþ",a["Z01_078"]) == 0 , "07¡°Ñ¡ÆäËû£¬Çë×¢Ã÷Åú×¼»ú¹Ø¡±Öк¬ÓС°¹¤ÉÌ¡¢±àÖÆ¡¢±àί¡¢±à°ì¡¢ÃñÕþ¡±×ÖÑù£¬Ó¦Ñ¡ÌîÏàÓ¦µÄÅú×¼»ú¹Ø¡£" ; //58.Çë×¢Ã÷Åú×¼»ú¹Ø²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_078"]),"07Çë×¢Ã÷Åú×¼»ú¹ØÖк¬Óаë½Ç×Ö·ûºÍ°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_078"]),"07Çë×¢Ã÷Åú×¼»ú¹ØÖк¬Óаë½Ç×Ö·ûºÍ°ë¸öºº×Ö"; //59.Çë×¢Ã÷Åú×¼»ú¹ØÖж¼²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£ÀÈ«½Ç×Ö·û verify !(HasChinese(a["Z01_078"],"¡®") || HasChinese(a["Z01_078"],"¡¯") || HasChinese(a["Z01_078"],"¡°") || HasChinese(a["Z01_078"],"¡±") || HasChinese(a["Z01_078"],"£¬") || HasChinese(a["Z01_078"],"£¿") || HasChinese(a["Z01_078"],"£À")), "07Çë×¢Ã÷Åú×¼»ú¹ØÖк¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //60.Èç¹ûÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅΪ"1"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z01_071"] == "1" then verify a["Z01_079_1"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //61.Èç¹ûÅú×¼»ú¹ØÃû³Æ-±àÖƲ¿ÃÅΪ"2"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z01_073"] == "2" then verify a["Z01_079_2"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-±àÖƲ¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //62.Èç¹ûÅú×¼»ú¹ØÃû³Æ-ÃñÕþ²¿ÃÅΪ"3"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z01_075"] == "3" then verify a["Z01_079_3"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-ÃñÕþ²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //63.Èç¹ûÅú×¼»ú¹ØÃû³Æ¡ªÆäËûΪ"9"²¢ÇÒ ÐÐÒµ´úÂë²»ÊÇ93¡¢94¡¢95¡¢97£¬Ôò±¾Ö¸±ê³¤¶È±ØÐëΪ1¡£ //Èç¹ûÅú×¼»ú¹ØÃû³Æ¡ªÆäËûΪ"9"²¢ÇÒ£¨ÐÐÒµ´úÂë²»ÊÇ93¡¢94¡¢95¡¢97»òÕßÇë×¢Ã÷Åú×¼»ú¹Ø²»ÊÇ¡°ÎÞ¡±£©£¬Ôò±¾Ö¸±ê³¤¶È±ØÐëΪ1¡£ if a["Z01_077"] == "9" && !(substr(a["Z01_064"],1,2) in {"93","94","95","97"} || a["Z01_078"]=="ÎÞ") then verify length(a["Z01_079_4"])==1,"07»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ð©¼" ; endif //Èç¹û±¾Ö¸±ê³¤¶ÈΪ1£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if length(a["Z01_079_4"])==1 then verify a["Z01_079_4"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©"; endif //64.¹¤ÉÌ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅӦΪ¡°1¡± if length(trim(a["Z01_072"])) >= 1 then verify a["Z01_071"] == "1", "07¹¤É̵ǼÇ×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØÓ¦ÏàӦѡÌÉÌ¡£" ; endif //65.¹¤É̵ǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1£¬²¢ÇҵǼÇ×¢²áÀàÐ͵Ú1λÊÇ¡°1¡±µÄ£¬¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐëΪ9¸ö×Ö·û //»ò13¸ö×Ö·û£¬Ã¿Î»¶¼²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ if length(trim(a["Z01_072"])) >= 1 && substr(a["Z01_08"],1,1) == "1" then verify2 length(trim(a["Z01_072"])) == 9 || length(trim(a["Z01_072"])) == 13,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; for i=1 to length(trim(a["Z01_072"])) do if !(substr(a["Z01_072"],i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©","j601"; break ; endif endfor endif //66.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_072"]),"07¹¤É̵ǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_072"]),"07¹¤É̵ǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //67.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ È«½Ç×Ö·û verify !(HasChinese(a["Z01_072"],"¡®") || HasChinese(a["Z01_072"],"¡¯") || HasChinese(a["Z01_072"],"¡°") || HasChinese(a["Z01_072"],"¡±") || HasChinese(a["Z01_072"],"£¬") || HasChinese(a["Z01_072"],"£¿") || HasChinese(a["Z01_072"],"£À")), "07¹¤É̵ǼÇ×¢²áºÅº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //68.1£® Èç¹û06ÐÐÒµ´úÂëΪ7411£¬²¢ÇÒ¹¤É̵ǼǺų¤¶È´óÓÚµÈÓÚ1£¬²¢ÇҵǼÇ×¢²áÀàÐ͵Ú1λÊÇ¡°2¡±»ò¡°3¡±£¬ //ÄÇô¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐëΪ19£¨6¸öºº×Ö+5λÊý×Ö+1¸öºº×Ö£©»òÕß21£¨7¸öºº×Ö+5λÊý×Ö+1¸öºº×Ö£©£¬Ã¿ //λ¶¼²»ÄÜΪ¿Õ¸ñ,ÇÒ×ÔÓÒÊýµÚ7λ¿ªÊ¼µÄ5¸ö×Ö·û²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ »òÕß if a["Z01_064"]=="7411" && length(trim(a["Z01_072"]))>=1 && (substr(a["Z01_08"],1,1) == "2" || substr(a["Z01_08"],1,1)=="3") then verify2 length(trim(a["Z01_072"]))==19 || length(trim(a["Z01_072"]))==21 ,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; for i=1 to length(a["Z01_072"]) do if substr(a["Z01_072"],i,1) == " " then Verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; break; endif endfor var start=length(a["Z01_072"])-6; for i=0 to 4 do if !(substr(a["Z01_072"],start+i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; break ; endif endfor //68.2£®Èç¹û¹¤É̵ǼǺų¤¶È´óÓÚµÈÓÚ1£¬²¢ÇҵǼÇ×¢²áÀàÐ͵Ú1λÊÇ¡°2¡±»ò¡°3¡±£¬ÄÇô¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐëΪ20 //£¨6¸öºº×Ö+6λÊý×Ö+1¸öºº×Ö£©»ò22£¨7¸öºº×Ö+6λÊý×Ö+1λºº×Ö£©£¬Ã¿Î»¶¼²»ÄÜΪ¿Õ¸ñ,ÇÒ×ÔÓÒÊýµÚ8λ¿ªÊ¼µÄ6¸ö×Ö·û //²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ elsif length(trim(a["Z01_072"]))>=1 && (substr(a["Z01_08"],1,1) == "2" || substr(a["Z01_08"],1,1)=="3") then verify2 length(trim(a["Z01_072"]))==20 || length(trim(a["Z01_072"]))==22 ,"¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; for i=1 to length(a["Z01_072"]) do if substr(a["Z01_072"],i,1) == " " then Verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; break; endif endfor var start=length(a["Z01_072"])-7; for i=0 to 4 do if !(substr(a["Z01_072"],start+i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; break; endif endfor endif //69.±àÖƵǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1µÄ£¬³¤¶ÈÐëΪ12£¬²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ if length(a["Z01_074"]) >= 1 then verify2 length(a["Z01_074"]) == 12,"07±àÖƵǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ£¨È·ÈÏÉóºË£©¡£"; for X=1 to length(a["Z01_074"]) do if !(code(substr(a["Z01_074"],X,1)) >=48 && code(substr(a["Z01_074"],X,1)) <=57) then verify2 false,"07±àÖƵǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ£¨È·ÈÏÉóºË£©¡£"; break; endif endfor endif //70.²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_074"]),"07±àÖƵǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_074"]),"07±àÖƵǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //71.³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-±àÖƲ¿ÃÅӦΪ¡°2¡± if length(trim(a["Z01_074"])) >= 1 then verify a["Z01_073"] == "2","07±àÖƵǼÇ×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØӦѡÌî±àÖƲ¿ÃÅ¡£" ; endif //72.³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-ÃñÕþ²¿ÃÅӦΪ¡°3¡± if length(trim(a["Z01_076"])) >= 1 then verify a["Z01_075"] == "3","07ÃñÕþµÇ¼Ç×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØӦѡÌîÃñÕþ²¿ÃÅ¡£" ; endif //73.08ÃñÕþµÇ¼Ç×¢²áºÅ²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@ °ë½Ç×Ö·ûºÍ°ë¸öºº×Ö verify !hasSpecChar(a["Z01_076"]),"07ÃñÕþµÇ¼Ç×¢²áºÅÖк¬Óаë½Ç×Ö·ûºÍ°ë¸öºº×Ö"; verify !hasHalfCChar(a["Z01_076"]),"07ÃñÕþµÇ¼Ç×¢²áºÅÖк¬Óаë½Ç×Ö·ûºÍ°ë¸öºº×Ö"; //74.07ÃñÕþµÇ¼Ç×¢²áºÅÖж¼²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢£ÀÈ«½Ç×Ö·û verify !(HasChinese(a["Z01_076"],"¡®") || HasChinese(a["Z01_076"],"¡¯") || HasChinese(a["Z01_076"],"¡°") || HasChinese(a["Z01_076"],"¡±") || HasChinese(a["Z01_076"],"£¬") || HasChinese(a["Z01_076"],"£¿") || HasChinese(a["Z01_076"],"£À")), "07ÃñÕþµÇ¼Ç×¢²áºÅÖк¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ" ; //75.²»Äܺ¬ÓбíÖÐËùÁÐ110-340È¡ÖµÒÔÍâµÄÈκÎ×Ö·û verify a["Z01_08"] in {"110","120","130","141","142","143","149","151","159","160","171","172","173","174","190","210","220","230","240","310","320","330","340"},"08µÇ¼Ç×¢²áÀàÐÍ·Ç·¨"; //76.Èç¹û14»ú¹¹ÀàÐÍ=1£¬²¢ÇÒ10Á¥Êô¹ØϵΪ¡°61¡¢62¡¢63¡¢71¡¢72¡±£¬ÔòµÇ¼Ç×¢²áÀàÐͲ»ÄÜÌîд¡°230¡¢330¡±¡£ if a["Z01_14"] == "1" && a["Z01_10"] in {"61","62","63","71","72"} then verify2 a["Z01_08"] <> "230" && a["Z01_08"] <> "330","10Á¥Êô¹ØϵΪÏØÒÔϵĵ¥Î»£¬Ò»°ã08µÇ¼Ç×¢²áÀàÐͲ»Ó¦ÊÇ230¸Û°Ą̈¶À×Ê»ò330Íâ×ÊÆóÒµ£¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //77.Èç¹û06ÐÐÒµ´úÂëΪ¡°9710¡±»ò¡°9720¡±£¬ÔòµÇ¼Ç×¢²áÀàÐÍӦΪ¡°190¡±¡£ if a["Z01_064"] == "9710" || a["Z01_064"] == "9720" then verify a["Z01_08"] == "190","08ÉçÇø¡¢¾Ó£¨´å£©Î¯»áµÇ¼Ç×¢²áÀàÐÍӦΪ190"; endif //78.Èç¹û14»ú¹¹ÀàÐÍ=¡°1ÆóÒµ¡±£¬Ôò¿Ø¹ÉÇé¿öÖ»ÄÜÑ¡¡°1¡¢2¡¢3¡¢4»ò9¡±£¬ÆäËû×Ö·û¾ù·Ç·¨¡£ if a["Z01_14"] == "1" then verify a["Z01_09"] in {"1","2","3","4","9"},"09¿Ø¹ÉÇé¿ö©¼»ò·Ç·¨"; //79.Èç¹û14»ú¹¹ÀàÐÍ¡Ù¡°1¡±,Ôò¿Ø¹ÉÇé¿öµÄ³¤¶È±ØÐëΪ0£¬²»Äܺ¬ÓÐÈκÎ×Ö·û¡£ else verify length(a["Z01_09"]) == 0,"09¿Ø¹ÉÇé¿öÏÞ14»ú¹¹ÀàÐÍ=1ÆóÒµµÄµ¥Î»Ì"; endif //80.Èç¹û14»ú¹¹ÀàÐÍ=¡°1ÆóÒµ¡±£¬²¢ÇÒ08µÇ¼Ç×¢²áÀàÐÍΪ¡°171¡¢172¡¢173¡¢174¡¢230¡¢330¡±£¬¿Ø¹ÉÇé¿öÐëÌî¡°9 ÆäËû¡± if (a["Z01_08"] in {"171":"174","230","330"}) && a["Z01_14"] == "1" then verify a["Z01_09"] == "9","Èç¹û08µÇ¼Ç×¢²áÀàÐÍΪ˽ӪÆóÒµ¡¢¸Û°Ä¶À×Ê¡¢Íâ×ÊÆóÒµµÄÆóÒµ£¬09¿Ø¹ÉÇé¿öÓ¦Ìî9ÆäËû"; endif //81.Èç¹û14»ú¹¹ÀàÐÍ=¡°1ÆóÒµ¡±£¬²¢ÇÒ08µÇ¼Ç×¢²áÀàÐÍΪ¡°110¡¢141¡¢151¡±£¬¿Ø¹ÉÇé¿öÐëÌî¡°1¹úÓоø¶Ô¿Ø¹É¡± if a["Z01_08"] in {"110","141","151"} && a["Z01_14"] == "1" then verify a["Z01_09"] == "1","Èç¹û08µÇ¼Ç×¢²áÀàÐÍΪ110¹úÓС¢141¹úÓÐÁªÓª¡¢151¹úÓжÀ×ʵÄÆóÒµ£¬09¿Ø¹ÉÇé¿öÓ¦Ìî1"; endif //82."²»Äܺ¬ÓÐ10,20,40,50,61,62,63,71,72,90ÒÔÍâµÄ×Ö·û" verify a["Z01_10"] in {"10","20","40","50","61","62","63","71","72","90"},"10Á¥Êô¹Øϵ©¼»ò·Ç·¨"; //83.Èç¹û08µÇ¼Ç×¢²áÀàÐÍΪ¡°171¡¢172¡¢173¡¢174¡¢230¡¢330¡±£¬ÔòÁ¥Êô¹Øϵ´úÂëÐëΪ¡°90 ÆäËû¡± if a["Z01_08"] in {"171":"174","230","330"} then verify a["Z01_10"] == "90","Èç¹û08µÇ¼Ç×¢²áÀàÐÍΪ˽ӪÆóÒµ¡¢¸Û°Ä¡¢Íâ×ÊÆóÒµ£¬10Á¥Êô¹ØϵӦѡ90ÆäËû"; endif //84.³ýÁË06ÐÐÒµ´úÂëÇ°Á½Î»ÊÇ93¡¢94£¬95£¬97»òӪҵ״̬Ìî¡°3³ï½¨¡±µÄµ¥Î»Í⣬¿ªÒµÄê·Ý³¤¶È±ØÐë´óÓÚµÈÓÚ1 if !((substr(a["Z01_064"],1,2) in {"93":"95","97"}) || (a["Z01_12"] == "3"))then verify length(a["Z01_111"]) >= 1,"¿ªÒµ£¨³ÉÁ¢£©Äê·Ý©¼"; endif //85.¿ªÒµÄê·Ý³¤¶È´óÓÚµÈÓÚ1µÄ£¬³¤¶ÈÐëΪ4£¬²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·ûÇÒ±ØÐëСÓÚµÈÓÚ2006¡£ if length(a["Z01_111"]) >=1 then verify length(a["Z01_111"]) == 4 && a["Z01_111"] <= "2006","¿ªÒµ£¨³ÉÁ¢£©Äê·ÝΪ·Ç·¨Â루Äê·ÝÓ¦ÌîËÄ룩"; for X=1 to length(a["Z01_111"]) do if !(code(substr(a["Z01_111"],X,1)) >=48 && code(substr(a["Z01_111"],X,1)) <=57) then verify false,"11¿ªÒµ£¨³ÉÁ¢£©Äê·Ý·Ç·¨£¨Äê·ÝÓ¦ÌîËÄ룩"; break ; endif endfor //86.³¤¶È´óÓÚµÈÓÚ1µÄ£¬¿ªÒµÄê·Ý±ØÐë´óÓÚµÈÓÚ1800 verify2 a["Z01_111"] >= "1800","¿ªÒµÄê·ÝÔçÓÚ1800Ä꣬ÇëºËʵ"; endif //Èç¹ûӪҵ״̬Ìî¡°3³ï½¨¡±£¬¿ªÒµÄê·Ý³¤¶ÈÓ¦¸ÃΪ0 if a["Z01_12"]=="3" then verify2 length(a["Z01_111"])==0,"³ï½¨µ¥Î»µÄ¿ªÒµÄê·ÝÊÇ·ñ׼ȷ£¬ÇëºËʵ"; endif //87.³ý06ÐÐÒµ´úÂëÇ°Á½Î»Îª93¡¢94£¬95£¬97»òӪҵ״̬Ìî¡°3³ï½¨¡±µÄµ¥Î»Í⣬¿ªÒµÔ·ݳ¤¶È±ØÐë´óÓÚµÈÓÚ1 if !((substr(a["Z01_064"],1,2) in {"93":"95","97"}) || (a["Z01_12"] == "3")) then verify length(a["Z01_112"]) >= 1,"¿ªÒµÔ·Ý©Ìî"; endif //88.¿ªÒµÔ·ݳ¤¶È´óÓÚµÈÓÚ1µÄ£¬±ØÐëÔÚ¡°01£¬02£¬03-12¡±»ò¡°1£¬2£¬3-12¡±Ö®¼ä£¬²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û¡£ if length(a["Z01_112"]) >= 1 then verify (a["Z01_112"] <= "12" && a["Z01_112"]>="01") || (value(a["Z01_112"]) <= 12 && value(a["Z01_112"])>=1) ,"¿ªÒµ£¨³ÉÁ¢£©Ô·ÝΪ·Ç·¨Âë"; for X=1 to length(a["Z01_112"]) do if !(code(substr(a["Z01_112"],X,1)) >=48 && code(substr(a["Z01_112"],X,1)) <=57) then verify false,"¿ªÒµ£¨³ÉÁ¢£©Ô·ÝΪ·Ç·¨Âë"; break ; endif endfor endif //Èç¹ûӪҵ״̬Ìî¡°3³ï½¨¡±£¬¿ªÒµÔ·ݳ¤¶ÈÓ¦¸ÃΪ0 if a["Z01_12"]=="3" then verify2 length(a["Z01_112"])==0,"³ï½¨µ¥Î»µÄ¿ªÒµÔ·ÝÊÇ·ñ׼ȷ£¬ÇëºËʵ"; endif //89.Èç¹û14»ú¹¹ÀàÐÍ=¡°1ÆóÒµ¡±£¬ÓªÒµ×´Ì¬Ö»ÄÜÑ¡1£¬2£¬3£¬4£¬5»ò9£¬ÆäËû×Ö·û¾ù·Ç·¨¡£ if a["Z01_14"] == "1" then verify (a["Z01_12"] >= "1" && a["Z01_12"] <= "5") || a["Z01_12"] == "9","Ӫҵ״̬©¼»òΪ·Ç·¨Âë(0·Ç·¨)"; //90.Èç¹û14»ú¹¹ÀàÐÍ¡Ù¡°1ÆóÒµ¡±£¬³¤¶È±ØÐëΪ0¡£ else verify length(a["Z01_12"]) == 0 ,"12Ӫҵ״̬ÏÞ»ú¹¹ÀàÐÍ=1ÆóÒµµÄµ¥Î»Ì"; endif //91.²»Äܺ¬ÓÐ1£¬2£¬3£¬9ÒÔÍâµÄÈκÎ×Ö·û verify a["Z01_13"] in {"1","2","3","9"},"Ö´Ðлá¼ÆÖƶÈÀà±ð©¼»òΪ·Ç·¨Âë"; //92.Èç¹û07Åú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅÌî¡°1¡±£¬²¢ÇÒÅú×¼»ú¹Ø-±àÖƲ¿ÃÅ¡¢Åú×¼»ú¹Ø-ÃñÕþ²¿ÃźÍÅú×¼»ú¹Ø-ÆäËûµÄ //³¤¶È¶¼Îª0£¬Ö´Ðлá¼ÆÖƶÈÀà±ðÖ»ÄÜÑ¡¡°1»ò9¡± if a["Z01_071"] == "1" && length(trim(a["Z01_073"]))==0 && length(trim(a["Z01_075"]))==0 &&length(trim(a["Z01_077"]))==0 then verify a["Z01_13"] == "1" || a["Z01_13"] == "9","Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡¹¤É̵ģ¬13Ö´Ðлá¼ÆÖƶÈÀà±ðÒ»°ãӦΪÆóÒµ»òÆäËû»á¼ÆÖƶÈ"; endif //93.Èç¹û06ÐÐÒµ´úÂëΪ¡°9710¡±»ò¡°9720¡±£¬Ôò»á¼ÆÖƶÈÀà±ð±ØÐëÑ¡¡°9¡±¡£ if a["Z01_064"] in {"9710","9720"} then verify a["Z01_13"] == "9","¾Ó£¨´å£©Î¯»áÓ¦Ö´ÐÐÆäËû»á¼ÆÖƶÈ"; endif //94.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°93¡±¡¢¡°94¡±¡¢¡°95¡±£¬ÔòÖ´Ðлá¼ÆÖƶÈÀà±ð²»ÄÜÑ¡¡°1¡±¡£ if substr(a["Z01_064"],1,2) in {"93","94","95"} then verify2 a["Z01_13"] <> "1","13¹ú¼Ò»ú¹Ø¡¢Õþµ³»ú¹Ø²»Ó¦Ö´ÐÐÆóÒµ»á¼ÆÖƶȣ¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //95.²»Äܺ¬ÓС°1¡¢2¡¢3¡¢4¡¢5»ò9ÒÔÍâµÄÈκÎ×Ö·û verify a["Z01_14"] >= "1" && a["Z01_14"] <= "5" || a["Z01_14"] == "9","14»ú¹¹ÀàÐÍ©¼»ò·Ç·¨"; //96.Èç¹û07Åú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅÌî¡°1¡±£¬²¢ÇÒÅú×¼»ú¹Ø-±àÖƲ¿ÃÅ¡¢Åú×¼»ú¹Ø-ÃñÕþ²¿ÃźÍÅú×¼»ú¹Ø- //ÆäËûµÄ³¤¶È¶¼Îª0£¬Ôò»ú¹¹ÀàÐÍÓ¦¸ÃÑ¡Ôñ¡°1ÆóÒµ¡±»ò¡°9ÆäËû×éÖ¯»ú¹¹¡± if a["Z01_071"] == "1" && length(trim(a["Z01_073"])) == 0 && length(trim(a["Z01_075"])) == 0 && length(trim(a["Z01_077"])) == 0 then verify a["Z01_14"] in {"1","9"} ,"Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡¹¤É̵ģ¬14»ú¹¹ÀàÐÍÒ»°ãӦΪÆóÒµ»òÆäËû×éÖ¯»ú¹¹"; endif //97.Èç¹û07Åú×¼»ú¹ØÃû³Æ-±àÖÆÌî¡°2¡±£¬²¢ÇÒÅú×¼»ú¹Ø-¹¤ÉÌ¡¢Åú×¼»ú¹Ø-ÃñÕþºÍÅú×¼»ú¹Ø-ÆäËûÈýÏ¶ÈΪ0£¬ //Ôò»ú¹¹ÀàÐͲ»ÄÜΪ¡°1ÆóÒµ¡± if a["Z01_073"] == "2" && length(trim(a["Z01_071"])) == 0 && length(trim(a["Z01_075"])) == 0 && length(trim(a["Z01_077"])) == 0 then verify2 a["Z01_14"] <> "1" ,"Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡±àÖÆ£¬14»ú¹¹ÀàÐÍÒ»°ã²»ÄÜÑ¡ÆóÒµ£¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //98.Èç¹û07Åú×¼»ú¹ØÃû³Æ-ÃñÕþÌî¡°3¡±£¬²¢ÇÒÅú×¼»ú¹Ø-¹¤ÉÌ¡¢Åú×¼»ú¹Ø-±àÖÆ¡¢Åú×¼»ú¹Ø-ÆäËûÈýÏ¶ÈΪ0£¬ //Ôò»ú¹¹ÀàÐÍÓ¦¸ÃΪ¡°4¡¢5¡¢9¡± if a["Z01_075"] == "3" && length(trim(a["Z01_071"])) == 0 && length(trim(a["Z01_073"])) == 0 && length(trim(a["Z01_077"])) == 0 then verify2 a["Z01_14"] in {"4","5","9"} ,"Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡ÃñÕþ£¬14»ú¹¹ÀàÐÍÒ»°ãӦѡÉçÍÅ¡¢Ãñ°ì·Ç»òÆäËû×éÖ¯»ú¹¹£¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //99.06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°06-43¡±¡¢¡°47-50¡±¡¢63¡¢65µÄµ¥Î»£¬»ú¹¹ÀàÐÍÓ¦¸ÃÑ¡¡°1ÆóÒµ¡± if substr(a["Z01_064"],1,2) in{"06":"43","47":"50","63","65"} then verify2 a["Z01_14"] == "1","²¿·ÖÐÐÒµµÄ14»ú¹¹ÀàÐÍÒ»°ãӦѡÆóÒµ£¬Çë½áºÏ06ÐÐÒµÀà±ðÓèÒÔºËʵ£¨È·ÈÏÉóºË£©"; endif //100.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª93¡¢94¡¢95£¬»ú¹¹ÀàÐÍÓ¦Ìîд¡°2¡±»ò¡°3¡± if substr(a["Z01_064"],1,2) in{"93","94","95"} then verify a["Z01_14"] == "2"|| a["Z01_14"] == "3","14Õþµ³»ú¹Ø¡¢¹ú¼Ò»ú¹¹¡¢ÕþЭºÍÃñÖ÷µ³ÅɵĻú¹¹ÀàÐÍӦѡ¡°2¡±»ò¡°3¡±"; endif //102.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ93¡¢94¡¢95£¬ÐÐÒµ´úÂë²»ÊÇ6810£¬Ôò»ú¹¹ÀàÐͲ»ÄÜΪ¡°3¡± if !(substr(a["Z01_064"],1,2) in{"93","94","95"} || a["Z01_064"]== "6810") then verify a["Z01_14"] <> "3","14·ÇÕþµ³¡¢¹ú¼Ò»ú¹¹¡¢ÕþЭ¡¢ÖÐÑëÒøÐеĻú¹¹ÀàÐͲ»Ó¦Ñ¡¡°3¡±"; endif //103.Èç¹û06ÐÐÒµ´úÂëÇ°ÈýλΪ961ºÍ962£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°4Éç»áÍÅÌ塱 if substr(a["Z01_064"],1,3) == "961" || a["Z01_064"] in {"9621","9622"} then verify a["Z01_14"] == "4","14ÉçÍÅ»òȺÖÚÍÅÌåµÄ»ú¹¹ÀàÐÍӦѡ¡°4¡±"; endif //104.Èç¹û06ÐÐÒµ´úÂëΪ9629¡¢9630£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°4Éç»áÍÅÌ塱»ò¡°9ÆäËû×éÖ¯»ú¹¹¡± if a["Z01_064"] in {"9629","9630"} then verify a["Z01_14"] in {"4","9"},"14ÐÐÒµ9629¡¢9630µÄ»ú¹¹ÀàÐÍӦѡ¡°4»ò9¡±"; endif //105.Èç¹û06ÐÐÒµ´úÂë²»ÊÇ9110¡¢8012¡¢8019¡¢8720£¬Ç°Á½Î»Ò²²»ÊÇ96£¬Ôò»ú¹¹ÀàÐͲ»ÄÜÌîд¡°4Éç»áÍÅÌ塱 if substr(a["Z01_064"],1,2) <> "96" && !(a["Z01_064"] in {"9110","8012","8019","8720"}) then verify a["Z01_14"] <> "4","14·ÇÉçÍÅ¡¢ÈºÖÚÍÅÌåºÍ×Ú½Ì×éÖ¯µÄ»ú¹¹ÀàÐͲ»ÄÜÑ¡¡°4¡±"; endif //106.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª97£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°9ÆäËû×éÖ¯»ú¹¹¡± if substr(a["Z01_064"],1,2) == "97" then verify a["Z01_14"] == "9","14ÉçÇø¡¢¾Ó£¨´å£©Î¯»áµÄ»ú¹¹ÀàÐÍӦѡ9"; endif /* //107.²»Äܺ¬ÓÐ1»ò2Ö®ÍâµÄÈκÎ×Ö·û verify a["Z01_151"]=="1" || a["Z01_151"]=="2","ÊÇ·ñ³ÉÁ¢¹¤»á©¼»ò·Ç·¨"; //108.Èç¹ûÊÇ·ñ³ÉÁ¢¹¤»áÑ¡¡°2¡±£¬Ôò¼ÓÈ빤»áµÄÈËÊý±ØÐë´óÓÚµÈÓÚ1¡£ if a["Z01_151"] == "2" then verify a["Z01_152"] >= 1 ,"15¹¤»áÈËÊý©¼"; endif */ //109.×ܼÆÊý±ØÐë¡Ý1 verify a["Z01_160"]>=1,"16²úÒµ»î¶¯µ¥Î»×ܼÆÊý©¼"; //110.×ܼÆÊýÐëµÈÓÚ·ÖÏîÖ®ºÍ var sum = 0; for i=42 to 49 do sum = sum+a[i]; endfor verify a["Z01_160"] == sum,"16²úÒµ»î¶¯µ¥Î»×ܼÆÊýÓ¦µÈÓÚÅ©+¹¤+½¨+½»+Åú·¢+סËÞ+·¿+ÆäËû"; //×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°01-05¡±£¬Å©ÒµÐëÌî1¡£ if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2) in {"01":"05"} then verify a["Z01_161"] == 1 ,"µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨Å©Òµ£©Ìî¼´í"; endif //111.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°06-46¡±£¬¹¤ÒµÐëÌî1¡£ if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2) in {"06":"46"} then verify a["Z01_162"] == 1 ,"µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨¹¤Òµ£©Ìî¼´í"; endif //112.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°47-50¡±£¬½¨ÖþÒµÐëÌî1¡£ if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2) in {"47":"50"} then verify a["Z01_163"] == 1 ,"µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨½¨ÖþÒµ£©Ìî¼´í"; endif //113.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°51-57¡¢59¡±¡¢Ç°ÈýλΪ¡°601¡±¡¢¡°714¡±£¬½»Í¨ÔËÊä¡¢µçÐÅÒµÐëÌî1¡£ if a["Z01_160"] == 1 && (substr(a["Z01_064"],1,2) in {"51":"57","59"} || substr(a["Z01_064"],1,3) in {"601","714"}) then verify a["Z01_164"] == 1 ,"16µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨½»Í¨£©Ìî¼´í"; endif //114.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°63¡¢65¡±£¬Åú·¢¡¢ÁãÊÛÒµÐëÌî1 if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2) in {"63","65"} then verify a["Z01_165"] == 1 ,"16µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨Åú·¢¡¢ÁãÊÛ£©Ìî¼´í"; endif //115.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°67¡¢66¡±£¬×¡ËÞ²ÍÒûÒµÐëÌî1¡£ if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2) in {"66","67"} then verify a["Z01_166"] == 1 ,"16µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨×¡ËÞ²ÍÒûÒµ£©Ìî¼´í"; endif //116.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°72¡±£¬·¿µØ²úÒµÐëÌî1¡£ if a["Z01_160"] == 1 && substr(a["Z01_064"],1,2)== "72" then verify a["Z01_167"] == 1 ,"µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨·¿µØ²ú£©Ìî¼´í"; endif //117.×ܼÆÊýµÈÓÚ1µÄÇé¿öÏ£º06ÐÐÒµ´úÂëÇ°Á½Î»Îª58¡¢61¡¢62¡¢68-70¡¢73-97¡¢Ç°ÈýλΪ602¡¢603¡¢604¡¢711¡¢712 // ¡¢713¡¢715¡¢719µÄµ¥Î»£¬ÆäËûÐëÌî1¡£ if a["Z01_160"] == 1 && (substr(a["Z01_064"],1,2) in {"58","61","62","68":"70","73":"97"} || substr(a["Z01_064"],1,3) in {"602","603","604","711","712","713","715","719"}) then verify a["Z01_169"] == 1 ,"µ¥²úÒµ·¨È˲úÒµ»î¶¯µ¥Î»ÊýÒ»À¸ÖÐרҵ£¨ÆäËû£©Ìî¼´í"; endif //118.³ý12Ӫҵ״̬Ìî 4»ò5µÄµ¥Î»Í⣬´ÓÒµÈËÔ±Êý×ܼƵġ°01ÐÐÄêÄ©´ÓÒµÈËÔ±ºÏ¼Æ¡±±ØÐë´óÓÚµÈÓÚ1¡£ if a["Z01_12"] <> "4" && a["Z01_12"] <> "5" then verify a["Z01_171_01"] >= 1,"´ÓÒµÈËԱ©¼"; endif /* //119.´ÓÒµÈËÔ±Êý×ܼƵÄ01ÐÐ=02+03+04+05+06 verify a["Z01_171_01"] == (a["Z01_171_02"]+a["Z01_171_03"]+a["Z01_171_04"]+a["Z01_171_05"]+a["Z01_171_06"]) ,"17´ÓÒµÈËÔ±×ܼƵĺϼÆÐÐÓ¦µÈÓÚ°´Ñ§Àú·ÖµÄ·ÖÏîºÍ" ; //120.´ÓÒµÈËÔ±Êý×ܼƵÄ01ÐСÝ07+08+09 verify a["Z01_171_01"] >= a["Z01_171_07"]+a["Z01_171_08"]+a["Z01_171_09"] ,"17´ÓÒµÈËÔ±×ܼƵĺϼÆÐÐÓ¦´óÓÚµÈÓÚ°´×¨Òµ¼¼ÊõÖ°³Æ·ÖµÄ·ÖÏîºÍ" ; //121.´ÓÒµÈËÔ±Êý×ܼƵÄ01ÐСÝ10+11+12+13 verify a["Z01_171_01"] >= a["Z01_171_10"]+a["Z01_171_11"]+a["Z01_171_12"]+a["Z01_171_13"] ,"17´ÓÒµÈËÔ±×ܼƵĺϼÆÐÐÓ¦´óÓÚµÈÓÚ°´¼¼ÊõµÈ¼¶·ÖµÄ·ÖÏîºÍ" ; */ //122.ÆäÖÐÅ®ÐÔ01ÐСܴÓÒµÈËÔ±Êý×ܼÆ01ÐС£ verify a["Z01_171_01"]>=a["Z01_172_01"],"17´ÓÒµÈËÔ±×ܼÆ1Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; /* verify a["Z01_171_02"]>=a["Z01_172_02"],"17´ÓÒµÈËÔ±×ܼÆ2Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_03"]>=a["Z01_172_03"],"17´ÓÒµÈËÔ±×ܼÆ3Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_04"]>=a["Z01_172_04"],"17´ÓÒµÈËÔ±×ܼÆ4Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_05"]>=a["Z01_172_05"],"17´ÓÒµÈËÔ±×ܼÆ5Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_06"]>=a["Z01_172_06"],"17´ÓÒµÈËÔ±×ܼÆ6Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_07"]>=a["Z01_172_07"],"17´ÓÒµÈËÔ±×ܼÆ7Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_08"]>=a["Z01_172_08"],"17´ÓÒµÈËÔ±×ܼÆ8Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_09"]>=a["Z01_172_09"],"17´ÓÒµÈËÔ±×ܼÆ9Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_10"]>=a["Z01_172_10"],"17´ÓÒµÈËÔ±×ܼÆ10Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_11"]>=a["Z01_172_11"],"17´ÓÒµÈËÔ±×ܼÆ11Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_12"]>=a["Z01_172_12"],"17´ÓÒµÈËÔ±×ܼÆ12Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; verify a["Z01_171_13"]>=a["Z01_172_13"],"17´ÓÒµÈËÔ±×ܼÆ13Ó¦´óÓÚµÈÓÚÆäÖÐÅ®ÐÔ"; //123.ÆäÖÐÅ®ÐÔµÄ01ÐÐ=02+03+04+05+06 verify a["Z01_172_01"] == a["Z01_172_02"]+a["Z01_172_03"]+a["Z01_172_04"]+a["Z01_172_05"]+a["Z01_172_06"] ,"17ÆäÖÐÅ®ÐԵĺϼÆÐÐÓ¦µÈÓÚ°´Ñ§Àú·ÖµÄ·ÖÏîºÍ" ; //124.ÆäÖÐÅ®ÐÔµÄ01ÐСÝ07+08+09 verify a["Z01_172_01"] >= a["Z01_172_07"]+a["Z01_172_08"]+a["Z01_172_09"] ,"17ÆäÖÐÅ®ÐԵĺϼÆÐÐÓ¦´óÓÚµÈÓÚ°´×¨Òµ¼¼ÊõÖ°³Æ·ÖµÄ·ÖÏîºÍ" ; //125.ÆäÖÐÅ®ÐÔµÄ01ÐСÝ10+11+12+13 verify a["Z01_172_01"] >= a["Z01_172_10"]+a["Z01_172_11"]+a["Z01_172_12"]+a["Z01_172_13"] ,"17ÆäÖÐÅ®ÐԵĺϼÆÐÐÓ¦´óÓÚµÈÓÚ°´¼¼ÊõµÈ¼¶·ÖµÄ·ÖÏîºÍ" ; */ //(1)Èç¹û»ú¹¹ÀàÐÍΪ1²¢ÇÒ12Ӫҵ״̬Ìîд¡°1¡±£¬ÔòÈ«ÄêÓªÒµÊÕÈëºÏ¼Æ±ØÐë´óÓÚ0¡£ //£¨2£©Èç¹û»ú¹¹ÀàÐͲ»ÊÇ1£¬ÐÐÒµ´úÂëÇ°Á½Î»¡Ù93¡¢94¡¢95¡¢96¡¢97²¢ÇÒ»á¼ÆÖƶÈÀà±ð=1»ò9, //ÔòÈ«ÄêÓªÒµÊÕÈëºÏ¼Æ±ØÐë´óÓÚ0¡£ if a["Z01_12"] == "1" && a["Z01_14"]=="1" || (a["Z01_14"]<>"1" && !(substr(a["Z01_064"],1,2) in {"93":"97"}) && (a["Z01_13"] in {"1","9"})) then verify a["Z01_181"] >0, "18È«ÄêÓªÒµÊÕÈ멼" ; endif //127.È«ÄêÓªÒµÊÕÈëºÏ¼Æ¡ÝÆäÖÐÖ÷ÓªÒµÎñÊÕÈë verify a["Z01_181"]>=a["Z01_182"],"18È«ÄêÓªÒµÊÕÈëÓ¦´óÓÚµÈÓÚÆäÖÐÖ÷ÓªÒµÎñÊÕÈë" ; if isnull(income_table) then income_table = array(46,4); income_table[1,1] = "06"; income_table[1,2] = 5000000; income_table[1,3]=10000; income_table[1,4] = 5000000; income_table[2,1] = "07"; income_table[2,2] = 30000000; income_table[2,3]=10000; income_table[2,4] = 30000000; income_table[3,1] = "08"; income_table[3,2] = 1000000; income_table[3,3]=10000; income_table[3,4] = 1000000; income_table[4,1] = "09"; income_table[4,2] = 1000000; income_table[4,3]=10000; income_table[4,4] = 1000000; income_table[5,1] = "10"; income_table[5,2] = 1000000; income_table[5,3]=10000; income_table[5,4] = 1000000; income_table[6,1] = "11"; income_table[6,2] = 500000; income_table[6,3]=10000; income_table[6,4] = 500000; income_table[7,1] = "13"; income_table[7,2] = 5000000; income_table[7,3]=10000; income_table[7,4] = 5000000; income_table[8,1] = "14"; income_table[8,2] = 5000000; income_table[8,3]=10000; income_table[8,4] = 5000000; income_table[9,1] = "15"; income_table[9,2] = 5000000; income_table[9,3]=10000; income_table[9,4] = 5000000; income_table[10,1] = "16"; income_table[10,2] = 10000000; income_table[10,3]=10000; income_table[10,4] = 10000000; income_table[11,1] = "17"; income_table[11,2] = 5000000; income_table[11,3]=10000; income_table[11,4] = 5000000; income_table[12,1] = "18"; income_table[12,2] = 5000000; income_table[12,3]=10000; income_table[12,4] = 5000000; income_table[13,1] = "19"; income_table[13,2] = 5000000; income_table[13,3]=10000; income_table[13,4] = 5000000; income_table[14,1] = "20"; income_table[14,2] = 1000000; income_table[14,3]=10000; income_table[14,4] = 1000000; income_table[15,1] = "21"; income_table[15,2] = 500000; income_table[15,3]=10000; income_table[15,4] = 500000; income_table[16,1] = "22"; income_table[16,2] = 5000000; income_table[16,3]=10000; income_table[16,4] = 5000000; income_table[17,1] = "23"; income_table[17,2] = 1000000; income_table[17,3]=10000; income_table[17,4] = 1000000; income_table[18,1] = "24"; income_table[18,2] = 5000000; income_table[18,3]=10000; income_table[18,4] = 5000000; income_table[19,1] = "25"; income_table[19,2] = 30000000; income_table[19,3]=10000; income_table[19,4] = 30000000; income_table[20,1] = "26"; income_table[20,2] = 10000000; income_table[20,3]=10000; income_table[20,4] = 10000000; income_table[21,1] = "27"; income_table[21,2] = 5000000; income_table[21,3]=10000; income_table[21,4] = 5000000; income_table[22,1] = "28"; income_table[22,2] = 5000000; income_table[22,3]=10000; income_table[22,4] = 5000000; income_table[23,1] = "29"; income_table[23,2] = 5000000; income_table[23,3]=10000; income_table[23,4] = 5000000; income_table[24,1] = "30"; income_table[24,2] = 5000000; income_table[24,3]=10000; income_table[24,4] = 5000000; income_table[25,1] = "31"; income_table[25,2] = 5000000; income_table[25,3]=10000; income_table[25,4] = 5000000; income_table[26,1] = "32"; income_table[26,2] = 30000000; income_table[26,3]=10000; income_table[26,4] = 30000000; income_table[27,1] = "33"; income_table[27,2] = 5000000; income_table[27,3]=10000; income_table[27,4] = 5000000; income_table[28,1] = "34"; income_table[28,2] = 5000000; income_table[28,3]=10000; income_table[28,4] = 5000000; income_table[29,1] = "35"; income_table[29,2] = 5000000; income_table[29,3]=10000; income_table[29,4] = 5000000; income_table[30,1] = "36"; income_table[30,2] = 5000000; income_table[30,3]=10000; income_table[30,4] = 5000000; income_table[31,1] = "37"; income_table[31,2] = 30000000; income_table[31,3]=10000; income_table[31,4] = 30000000; income_table[32,1] = "39"; income_table[32,2] = 10000000; income_table[32,3]=10000; income_table[32,4] = 10000000; income_table[33,1] = "40"; income_table[33,2] = 30000000; income_table[33,3]=10000; income_table[33,4] = 30000000; income_table[34,1] = "41"; income_table[34,2] = 5000000; income_table[34,3]=10000; income_table[34,4] = 5000000; income_table[35,1] = "42"; income_table[35,2] = 5000000; income_table[35,3]=10000; income_table[35,4] = 5000000; income_table[36,1] = "43"; income_table[36,2] = 5000000; income_table[36,3]=10000; income_table[36,4] = 5000000; income_table[37,1] = "44"; income_table[37,2] = 30000000; income_table[37,3]=10000; income_table[37,4] = 30000000; income_table[38,1] = "45"; income_table[38,2] = 5000000; income_table[38,3]=10000; income_table[38,4] = 5000000; income_table[39,1] = "46"; income_table[39,2] = 5000000; income_table[39,3]=10000; income_table[39,4] = 5000000; income_table[40,1] = "47"; income_table[40,2] = 2500000; income_table[40,3]=10000; income_table[40,4] = 2500000; income_table[41,1] = "48"; income_table[41,2] = 900000; income_table[41,3]=10000; income_table[41,4] = 900000; income_table[42,1] = "49"; income_table[42,2] = 500000; income_table[42,3]=10000; income_table[42,4] = 500000; income_table[43,1] = "50"; income_table[43,2] = 500000; income_table[43,3]=10000; income_table[43,4] = 500000; income_table[44,1] = "63"; income_table[44,2] = 10000000; income_table[44,3]=100000; income_table[44,4] = 10000000; income_table[45,1] = "65"; income_table[45,2] = 4000000; income_table[45,3]=30000; income_table[45,4] = 4000000; income_table[46,1] = "67"; income_table[46,2] = 500000; income_table[46,3]=5000; income_table[46,4] = 500000; endif //128.¹¤Òµ¡¢½¨ÖþÒµ¡¢Ã³Ò×ÒµÆóҵȫÄêÓªÒµÊÕÈëºÏ¼ÆÈ¡ÖµÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ £¨ÐÐÒµ´óÀàÈ«ÄêÓªÒµÊÕÈë×î´óÖµ¼û¸½±í£© verify2 GE_MAX(income_table,substr(a["Z01_064"],1,2),a["Z01_181"],0 ) ==0,"18È«ÄêÓªÒµÊÕÈëӦСÓÚ±¾ÐÐÒµ(´óÀà)×î´óÖµ£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; //129.(1)Èç¹û»ú¹¹ÀàÐÍΪ1²¢ÇÒ12Ӫҵ״̬Ìîд¡°1¡±£¬ÔòÖ÷ÓªÒµÎñÊÕÈë±ØÐë´óÓÚ0¡£(2)Èç¹û»ú¹¹ÀàÐͲ» //ÊÇ1£¬ÐÐÒµ´úÂëÇ°Á½Î»¡Ù93¡¢94¡¢95¡¢96¡¢97²¢ÇÒ»á¼ÆÖƶÈÀà±ð=1»ò9,ÔòÖ÷ÓªÒµÎñÊÕÈë±ØÐë´óÓÚ0¡£ if (a["Z01_12"] == "1" && a["Z01_14"]=="1") || (a["Z01_14"]<>"1" && !(substr(a["Z01_064"],1,2) in {"93":"97"}) && (a["Z01_13"] in {"1","9"})) then verify a["Z01_182"] >0, "18Ö÷ÓªÒµÎñÊÕÈ멼" ; endif //130.¹¤Òµ¡¢½¨ÖþÒµ¡¢Ã³Ò×ÒµÆóÒµÖ÷ÓªÒµÎñÊÕÈëÈ¡ÖµÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ £¨ÐÐÒµ´óÀàÖ÷ÓªÒµÎñÊÕÈë×î´óÖµ¼û¸½±í£© verify2 GE_MAX(income_table,substr(a["Z01_064"],1,2),a["Z01_182"],2 ) ==0,"Ö÷ÓªÒµÎñÊÕÈë´óÓÚµÈÓÚ±¾ÐÐÒµ(´óÀà)×î´óÖµ£¬ÇëºËʵ"; //131.06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°06-46¡±µÄµ¥Î»£¬È˾ùÈ«ÄêÓªÒµÊÕÈëºÏ¼Æ¡¢È˾ùÖ÷ÓªÒµÎñÊÕÈëÒ»°ãӦСÓÚ10000¡£ if substr(a["Z01_064"],1,2) in {"06":"46"} then verify2 a["Z01_181"]*1.0/a["Z01_171_01"] < 10000, "18¹¤ÒµÆóÒµÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈëǧÍòÔª¼°ÒÔÉÏ£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©" ; verify2 a["Z01_182"]*1.0/a["Z01_171_01"] < 10000, "18¹¤ÒµÆóÒµÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈëǧÍòÔª¼°ÒÔÉÏ£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©" ; endif //132.óÒ×ÒµÈ˾ùÈ«ÄêÓªÒµÊÕÈë¡¢È˾ùÖ÷ÓªÒµÎñÊÕÈëÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ £¨ÐÐÒµ´óÀàÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈë×î´óÖµ¼û¸½±í£© if substr(a["Z01_064"],1,2) == "63" then verify2 (a["Z01_181"]*1.0/a["Z01_171_01"]) < 100000 && (a["Z01_182"]*1.0/a["Z01_171_01"]) < 100000,"óÒ×ÒµÆóÒµÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈë´óÓÚµÈÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ£¬ÇëºËʵ"; endif if substr(a["Z01_064"],1,2) == "65" then verify2 (a["Z01_181"]*1.0/a["Z01_171_01"]) < 30000 && (a["Z01_182"]*1.0/a["Z01_171_01"]) < 30000,"óÒ×ÒµÆóÒµÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈë´óÓÚµÈÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ£¬ÇëºËʵ"; endif if substr(a["Z01_064"],1,2) == "67" then verify2 (a["Z01_181"]*1.0/a["Z01_171_01"]) < 5000 && (a["Z01_182"]*1.0/a["Z01_171_01"]) < 5000,"óÒ×ÒµÆóÒµÈ˾ùÈ«Ä꣨Ö÷Óª£©ÊÕÈë´óÓÚµÈÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ£¬ÇëºËʵ"; endif //133.(1)Èç¹û»ú¹¹ÀàÐÍΪ1²¢ÇÒ12Ӫҵ״̬Ìîд¡°1¡±£¬Ôò×ʲú×ܼƱØÐë´óÓÚ0¡££¨2£©Èç¹û»ú¹¹ÀàÐͲ» //ÊÇ1£¬ÐÐÒµ´úÂëÇ°Á½Î»¡Ù93¡¢94¡¢95¡¢96¡¢97²¢ÇÒ»á¼ÆÖƶÈÀà±ð=1»ò9,Ôò×ʲú×ܼƱØÐë´óÓÚ0¡£ if (a["Z01_12"] == "1" && a["Z01_14"]=="1") || (a["Z01_14"]<>"1" && !(substr(a["Z01_064"],1,2) in {"93":"97"}) && (a["Z01_13"] in {"1","9"})) then verify a["Z01_183"] >0, "18×ʲú×ܼÆ©¼" ; endif /* //134.¡Ý0 verify a["Z01_192"] >=0,"19¼ÆËã»úÊý²»ÄÜΪ¸ºÊý" ; //135.¡Ý0 verify a["Z01_193"] >=0,"19ÆäÖУºÎ¢»ú²»ÄÜΪ¸ºÊý" ; //136.ÆäÖУºÎ¢»ú¡ÜÆÚÄ©ÔÚÓüÆËã»úÊý verify a["Z01_192"] >=a["Z01_193"],"19ÆäÖУºÎ¢»ú£¾ÆÚÄ©ÔÚÓüÆËã»úÊý£¬ÓÐÎó" ; //137.³¤¶ÈΪ0£¬»òÕßȡֵΪ¡°1¡±»ò¡°2¡±¡£ verify length(a["Z01_201"])==0 || a["Z01_201"] == "1" || a["Z01_201"] == "2","ÆóÒµ¼¯ÍÅÇé¿ö£¨Ä¸¹«Ë¾»ò³ÉÔ±ÆóÒµ£©ÌîдÓÐÎó"; //138.Èç¹û¡°Ä¸¹«Ë¾»¹ÊdzÉÔ±ÆóÒµ¡±Îª¡°1¡±£¬ÄÇô¡°¼¯ÍÅĸ¹«Ë¾µ¥Î»´úÂ롱µÄ³¤¶ÈΪ0£¬»òÕßÓë¡°01·¨È˵¥Î»´úÂ롱һÖ¡£ if a["Z01_201"] == "1" then verify length(a["Z01_202"])==0 || a["Z01_202"]==unt[2],"20¼¯ÍÅĸ¹«Ë¾µ¥Î»´úÂëÏÞ³ÉÔ±ÆóÒµÌ" ; endif //139.ĸ¹«Ë¾»¹ÊdzÉÔ±ÆóҵΪ¡°2¡±µÄÇé¿öÏ£¬¼¯ÍÅĸ¹«Ë¾´úÂëÂú×㣺1¡¢´úÂ볤¶ÈÐëΪ9£¬²»Äܺ¬ÓÐ0-9»òA-Z£¨´óд£© //Ö®ÍâµÄÈκÎ×Ö·û¡£2¡¢Ð£ÑéÓÐЧ£¨·ûºÏУÑ鹫ʽ£© if a["Z01_201"] =="2" then verify length(a["Z01_202"])==9,"ĸ¹«Ë¾·¨ÈË´úÂëΪ·Ç·¨Âë"; for i=1 to length(a["Z01_202"]) do if !(substr(a["Z01_202"],i,1) in {"0":"9","A":"Z"}) then verify false,"ĸ¹«Ë¾·¨ÈË´úÂëΪ·Ç·¨Âë"; break ; endif endfor if ( length(a["Z01_202"]) == 9 ) then if (isnull(wi)) then wi = array(9); wi[1] = 3; wi[2] = 7; wi[3] = 9; wi[4] = 10; wi[5] = 5; wi[6] = 8; wi[7] = 4; wi[8] = 2; wi[9] = 0; endif var addv = 0; for i=1 to 8 do var ci = 0; if substr(a["Z01_202"],i,1) in {"A":"Z"} then ci = code(substr(a["Z01_202"],i,1))-55;// È¡×Öĸ¶ÔÓ¦µÄÖµ£¨ A=10,B=11...), ÆäÖÐ×ÖĸAµÄASCIIֵΪ65£» else ci = value(substr(a["Z01_202"],i,1)); //È¡×Ö·û(0-9)×ÖÃæµÄÖµ; endif addv = addv + ci * wi[i]; //°´Ð£ÑéÂ빫ʽ¼ÓȨÀÛ¼ÓÉú³ÉMODºóÃæµÄÖµ endfor addv = 11 - addv % 11;//¼ÆËãУÑéÂëµÄÖµ£¬%ΪȡÓà if addv == 11 then addv =0 ; endif if ( addv == 10 ) then verify substr(a["Z01_202"],9,1) == "X", "20¼¯ÍÅĸ¹«Ë¾µ¥Î»´úÂëΪ·Ç·¨Âë"; else verify value(substr(a["Z01_202"],9,1))==addv,"20¼¯ÍÅĸ¹«Ë¾µ¥Î»´úÂëΪ·Ç·¨Âë"; endif endif endif //140.ĸ¹«Ë¾»¹ÊdzÉÔ±ÆóҵΪ¡°2¡±µÄÇé¿öÏ£¬¼¯ÍÅĸ¹«Ë¾´úÂë²»Ó¦Óë±¾µ¥Î»µÄ01·¨È˵¥Î»´úÂëÏàͬ if a["Z01_201"] == "2" then verify a["Z01_202"]<>unt[2],"20¼¯ÍÅĸ¹«Ë¾µ¥Î»´úÂëÓ¦Óë±¾µ¥Î»·¨ÈË´úÂ벻ͬ" ; endif */ //141.06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ47£¬48£¬49£¬50£¬³¤¶È±ØÐëΪ0¡£ if !(substr(a["Z01_064"],1,2) in {"47":"50"}) then verify length(a["Z01_211"]) == 0,"½¨ÖþÒµ×ÊÖʵȼ¶ÏÞ½¨ÖþÒµÌ"; //142.06ÐÐÒµ´úÂëÇ°Á½Î»Îª47£¬48£¬49£¬50µÄµ¥Î»£¬×ÊÖʵȼ¶³¤¶È±ØÐëΪ4£¬È¡ÖµÓ¦Îª¡°9999¡±£¬»òÊǹú¼Ò½¨ÖþÒµ×ÊÖʵȼ¶±ê×¼¡£ else verify a["Z01_211"] == "9999" || hascateitem("jzyzzdj",a["Z01_211"]),"21½¨ÖþÒµÆóÒµ×ÊÖʵȼ¶Â©Â¼»ò·Ç·¨" ; endif //143.06ÐÐÒµ´úÂë²»ÊÇ7210£¬³¤¶È±ØÐëΪ0¡£ if a["Z01_064"] <> "7210" then verify length(a["Z01_212"]) == 0,"·¿µØ²ú×ÊÖʵȼ¶ÏÞ·¿µØ²ú¿ª·¢ÒµÌ"; //144.06ÐÐÒµ´úÂëΪ7210µÄµ¥Î»£¬³¤¶È±ØÐëµÈÓÚ1£¬²¢ÇÒ²»Äܺ¬ÓÐ1£¬2£¬3£¬4£¬5£¬9Ö®ÍâµÄ×Ö·û¡£ else verify a["Z01_212"] in {"1":"5","9"} ,"21·¿µØ²ú¿ª·¢ÒµÆóÒµ×ÊÖʵȼ¶Â©Â¼»ò·Ç·¨£¨0ºÍ¿Õ¸ñΪ·Ç·¨Â룩"; endif //145.06ÐÐÒµ´úÂë²»ÊÇ7220£¬³¤¶È±ØÐëΪ0¡£ if a["Z01_064"] <> "7220" then verify length(a["Z01_213"]) == 0,"21ÎïÒµ¹ÜÀí×ÊÖʵȼ¶ÏÞÎïÒµ¹ÜÀíµ¥Î»Ì"; //146.06ÐÐÒµ´úÂëΪ7220µÄµ¥Î»£¬³¤¶È±ØÐëµÈÓÚ1£¬²¢ÇÒ²»Äܺ¬ÓÐ1£¬2£¬3£¬9Ö®ÍâµÄ×Ö·û else verify a["Z01_213"] in {"1":"3","9"} ,"21ÎïÒµ¹ÜÀí×ÊÖʵȼ¶Â©Â¼»ò·Ç·¨£¨0ºÍ¿Õ¸ñΪ·Ç·¨Â룩"; endif //147.06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ66£¬³¤¶È±ØÐëΪ0¡£ if substr(a["Z01_064"],1,2) <> "66" then verify length(a["Z01_214"]) == 0,"22סËÞÒµÇé¿öÏÞסËÞÒµÌ"; //148.06ÐÐÒµ´úÂëÇ°Á½Î»Îª66£¬Ôò³¤¶È±ØÐëΪ1£¬È¡Öµ·¶Î§Îª¡°1£¬2£¬3£¬4£¬5£¬9¡±¡£ else verify a["Z01_214"] in {"1":"5","9"} ,"22סËÞÒµÇé¿ö©¼»ò·Ç·¨"; endif //149.Èç¹û14»ú¹¹ÀàÐÍ=¡°1ÆóÒµ¡±£¬²¢ÇÒ08µÇ¼Ç×¢²áÀàÐÍΪ¡°120¡¢142¡±£¬¿Ø¹ÉÇé¿öÐëÌî¡°3¡± if a["Z01_08"] in {"120","142"} && a["Z01_14"] == "1" then verify a["Z01_09"] == "3","Èç¹û08µÇ¼Ç×¢²áÀàÐÍΪ120¼¯Ìå¡¢142¼¯ÌåÁªÓªµÄÆóÒµ£¬09¿Ø¹ÉÇé¿öÓ¦Ìî3"; endif end endF601_602,101£­1±íÓë101£­2±í¼äÉóºË¹Øϵ,0,/* * ÎÄ ¼þ£º 601-602.CHK * ¸Å Òª£º 601-602¹ØÁªÉóºË¹«Ê½ * ×÷ Õߣº ÀÀö * ´´½¨Ê±¼ä£º 2004Äê9ÔÂ26ÈÕ * ×îºóÐ޸ģº 2004Äê11ÔÂ8ÈÕ by ÀÀö * ÖØдʱ¼ä£º¡¡2004Äê12ÔÂ21ÈÕ¡¡Ëïæº * Ä걨ÖƶÈÐÞ¸Äʱ¼ä£º2005Äê12ÔÂ18ÈÕÉòÄÉ * */ main() %unittable="1";//ÒÔ601±íΪÖ÷±í docheck var t601 = report "J601" ; var t602 = report "j602" relation unt[1]=*this[-6]; begin //Èç¹û602±íµÄ25·¨È˵¥Î»´úÂë=601±íµÄ01·¨È˵¥Î»´úÂ룬Ôò¸Ã602±íµÄ25·¨È˵¥Î»Ãû³Æ=¸Ã601±íµÄ 02·¨È˵¥Î»Ãû³Æ //Èç¹û602±íµÄ25·¨È˵¥Î»´úÂë=601±íµÄ01·¨È˵¥Î»´úÂ룬Ôò¸Ã602±íµÄ25·¨È˵¥Î»ÐÐÕþÇø»®´úÂë=¸Ã601±íµÄ //04ÐÐÕþÇø»®´úÂëµÄÇ°6λ if hasdata(t601) then for i=1 to length(t602) do verify t602[i]["ParentName"]==unt[3],"602±íÖеÄ25·¨È˵¥Î»Ãû³ÆÓ¦ÓëÆä¹éÊôµÄ·¨È˵¥Î»ÌµÄ601±íÖÐ02·¨È˵¥Î»Ãû³ÆÒ»ÖÂ"; verify t602[i]["Z02_252"]==substr(t601["Z01_04"],1,6),"602±íÖеÄ25·¨È˵¥Î»ÐÐÕþÇø»®´úÂëÓ¦ÓëÆä¹éÊôµÄ·¨È˵¥Î»ÌµÄ601±íÖÐ04ÐÐÕþÇø»®´úÂëÇ°6λһÖÂ"; endfor endif //Èç¹û601±íÖÐ16À¸²úÒµ»î¶¯µ¥Î»Êý×ܼÆ=1£¬ÔòÓ¦¸Ã²»´æÔÚÂú×ãÏÂÁÐÌõ¼þµÄ602±í£º602±íµÄ25·¨ //È˵¥Î»´úÂë=¸Ã601±íµÄ01·¨È˵¥Î»´úÂë if t601["z01_160"]==1 then verify length(t602)==0,"·¨È˵¥Î»µÄ16²úÒµ»î¶¯µ¥Î»ÊýÊÇ·ñÓÐÎ󣿻òÊÇ602±íµÄ¹éÊô·¨È˵¥Î»´úÂëÓÐÎó£¿"; endif //25·¨È˵¥Î»´úÂëÏàͬµÄ2¸ö»ò2¸öÒÔÉϵÄ602±í£¬Èç¹ûÕâ¸ö25·¨È˵¥Î»´úÂë=ij601±íµÄ01·¨È˵¥Î»´úÂ룬ÔòÕâЩ602±íÖбØÐë´æÔÚÒ»¸ö602±íµÄ¡°00µ¥Î»Àà±ð¡±=1¡£ if length(t602)>1 then var a=0; for i=1 to length(t602) do if t602[i]["Z02_00"]=="1" then a=1; break; endif endfor verify a>=1,"±¾²¿µÄ²úÒµ»î¶¯µ¥Î»±í£¨602±í£©Â©Ìî"; endif if t601["Z01_160"]>1 then verify length(t602)==t601["Z01_160"],"·¨È˵¥Î»ÌµÄ16À¸²úÒµ»î¶¯µ¥Î»Êý£¨×ÜÊý£©Óëʵ¼ÊÌ602±íµÄµ¥Î»¸öÊý²»Ò»ÖÂ"; else verify length(t602)==0,"·¨È˵¥Î»ÌµÄ16À¸²úÒµ»î¶¯µ¥Î»Êý£¨×ÜÊý£©Óëʵ¼ÊÌ602±íµÄµ¥Î»¸öÊý²»Ò»ÖÂ"; endif var e8=0; //01-05 var e=0; // 06-46: var e1=0; // 47-50: var e2=0; // 51-57,59 var e3=0; // 63-65 var e4=0; // 66-67 var e5=0; // 72 var e6=0; // 58,61,62,68-70,73-97 var e7=0; //601±í01·¨È˵¥Î»´úÂë=602±í25·¨È˵¥Î»´úÂëµÄ601±íºÍ602±íÖ®¼ä½øÐÐÉóºË¡£ÐÐÒµ´úÂëÇ°Á½Î»Îª06-46µÄËù //ÓвúÒµ»î¶¯µ¥Î»ÊýºÍ601±íµÄ16À¸2¹¤ÒµÏàµÈ¡£ for i=1 to length(t602) do //Å©Òµ if substr(t602[i]["Z02_064"],1,2) in {"01":"05"} then e8=e8+1; endif //¹¤Òµ if substr(t602[i]["Z02_064"],1,2) in {"06":"46"} then e=e+1; endif //½¨ÖþÒµ if substr(t602[i]["Z02_064"],1,2) in {"47":"50"} then e1=e1+1; endif //½»Í¨ÔËÊä¡¢µçÐÅÒµ if substr(t602[i]["Z02_064"],1,2) in {"51":"57","59"} || substr(t602[i]["Z02_064"],1,3) in {"601","714"} then e2=e2+1; endif //Åú·¢ÁãÊÛÒµ if substr(t602[i]["Z02_064"],1,2) in {"63":"65"} then e3=e3+1; endif //סËÞ²ÍÒûÒµ if substr(t602[i]["Z02_064"],1,2) in {"66","67"} then e4=e4+1; endif //·¿µØ²úÒµ if substr(t602[i]["Z02_064"],1,2) in {"72"} then e5=e5+1; endif //ÆäËû if substr(t602[i]["Z02_064"],1,2) in {"58","61","62","68":"70","73":"97"}|| substr(t602[i]["Z02_064"],1,3) in {"711","712","713","715","719","602":"604"} then e6=e6+1; endif e7=e7+t602[i]["Z02_17"]; endfor if t601["Z01_160"]>1 then verify e8==t601["Z01_161"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨Å©Òµ£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e==t601["Z01_162"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨¹¤Òµ£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e1==t601["Z01_163"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨½¨ÖþÒµ£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e2==t601["Z01_164"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨½»Í¨µçÐÅ£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e3==t601["Z01_165"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨Åú·¢ÁãÊÛ£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e4==t601["Z01_166"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨×¡ËÞ²ÍÒû£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e5==t601["Z01_167"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨·¿µØ²ú£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; verify e6==t601["Z01_169"],"·¨È˵¥Î»16À¸²úÒµ»î¶¯µ¥Î»Êý£¨ÆäËû£©ÓëÌ¸ÃÐÐÒµµÄ602±í¸öÊý²»Ò»ÖÂ"; //601±í01·¨È˵¥Î»´úÂë=602±í25·¨È˵¥Î»´úÂëµÄ601±íºÍ602±íÖ®¼ä½øÐÐÉóºË¡£Èç¹û601±íÐÐÒµ´úÂë²» //ÊÇ01-05£¬ÔòËùÓвúÒµ»î¶¯µ¥Î»µÄ17ÄêÄ©´ÓÒµÈËÔ±Ö®ºÍÓ¦´óÓÚµÈÓÚ·¨ÈË17ÄêÄ©´ÓÒµÈËÔ±×Ü¼Æ //if !(substr(t601["Z01_064"],1,2) in {"01":"05"}) then verify t601["Z01_171_01"]<=e7,"·¨È˵¥Î»17ÄêÄ©´ÓÒµÈËÔ±ºÏ¼ÆÒ»°ãӦСÓÚµÈÓÚÏÂÊô²úÒµ»î¶¯µ¥Î»ÌµÄ17ÄêÄ©´ÓÒµÈËÔ±Ö®ºÍ"; else verify length(t602)==0,"·¨È˵¥Î»ÌµÄ16À¸²úÒµ»î¶¯µ¥Î»Êý£¨×ÜÊý£©Óëʵ¼ÊÌ602±íµÄµ¥Î»¸öÊý²»Ò»ÖÂ"; endif end endF601_602gr,¹Â¶ù²úÒµµ¥Î»²éѯ,0,main() %unitscope={:}; DoCheck var t602=report "J602" inner update; var t601=report "J601" relation unt[6]=*this[-1]; Begin if !hasdata(t601)&&( t602["ParentCode"]<>"000000000"|| t602["ParentCode"]<>"111111111" )then t602["Z02_255"]="1"; else t602["Z02_255"]="0"; endif end endF602,101£­2 ²úÒµ»î¶¯µ¥Î»»ù±¾Çé¿ö,0,/* * ÎÄ ¼þ£º J602.CHK * * ¸Å Òª£º J602 ±íµÄÉóºË¹«Ê½ * * ×÷ Õߣº Ô¬ÏþÓ * ´´½¨Ê±¼ä£º 2004Äê 9Ô 7ÈÕ * ÐÞ ¸Ä£º 2004Äê10ÔÂ12ÈÕ * 2004Äê11ÔÂ18ÈÕ¼ÖÊéÃñ * 2004Äê12ÔÂ16ÈÕËïæº */ //hyidÊÇÅжÏ×î´óÖµµÄ£¬typeÊÇÅжÏƽ¾ùÖµµÄ,incomeÊDZíÖÐÌîµÄÖ÷ÓªÒµÎñÊÕÈëµÄÖµ function GE_MAX( income_table, hyid, income,type) for i=1 to length(income_table,1) do if ( income_table[i,1]==hyid ) then var cval = 0; if type == 0 then cval = income_table[i,2]; elsif type ==1 then cval = income_table[i,3]; endif if income >= cval then return 1; else return 0; endif endif endfor return 0; end //·¨ÈË´úÂëУÑé¹æÔò¼ì²é //¼ì²éУÑé루µÚ¾Å룩ÊÇ·ñ·ûºÏ¹æÔò //ÊäÈ룺¾Åλ×Ö·û´® //·µ»Ø£º1--·ûºÏ 0--²»·ûºÏ function isCodeLogical( szCode ) var wi = array(9); wi[1] = 3; wi[2] = 7; wi[3] = 9; wi[4] = 10; wi[5] = 5; wi[6] = 8; wi[7] = 4; wi[8] = 2; wi[9] = 0; var addv = 0; var ret=0; for i=1 to 8 do var ci = 0; if substr(szCode,i,1) in {"A":"Z"} then ci = code(substr(szCode,i,1))-55; else ci = value(substr(szCode,i,1)); endif addv = addv + ci * wi[i]; endfor addv = 11 - addv % 11; if addv==11 then addv=0; endif if ( addv == 10 ) then if substr(szCode,9,1) == "X" then ret = 1; endif else if value(substr(szCode,9,1))==addv then ret = 1; endif endif return ret; end //¼ì²évStrÖÐÊÇ·ñ´æÔÚij¸öºº×Ö function HasChinese0(vstr,vchar) var vlen = length(vstr) ; var vtag = 0; for i = 1 to vlen do if code(substr(vstr,i,1)) >127 then if vtag == 0 then vtag = 1 ; continue ; endif if vchar == substr(vstr,i-1,2) then return true ; endif endif vtag = 0 ; endfor return false; end //¼ì²évStrÖÐÊÇ·ñ´æÔÚijЩºº×ÖÖеÄÒ»¸ö function HasChinese( vstr,vchar ) var vlen = length(vstr) ; var vtag = 0; for i = 1 to vlen do if code(substr(vstr,i,1)) >127 then if vtag == 0 then vtag = 1 ; continue ; endif for j = 1 to length(vchar) step 2 do if substr(vchar,j,2) == substr(vstr,i-1,2) then return true ; endif endfor endif vtag = 0 ; endfor return false; end //¼ì²éÊÇ·ñÓаë½Ç×Ö·û function hasSpecChar(vstr) if vstr=="" then return false; endif return at("\"",vstr)>0 || at("'",vstr)>0 || at(",",vstr)>0 || at("?",vstr)>0 || at("@",vstr)>0; end //¼ì²éÊÇ·ñÓаë½Ç×Ö·û(µç×ÓÐÅÏäÓÃ) function hasSpecChar1(vstr) if vstr=="" then return false; endif return at("\"",vstr)>0 || at("'",vstr)>0 || at(",",vstr)>0 || at("?",vstr)>0 ; end main() var wi = null; var income_table = null; docheck var a = report "J602" inner ; begin //1.²úÒµ»î¶¯µ¥Î»Àà±ð²»Äܺ¬ÓÐ1»ò2Ö®ÍâµÄÈκÎ×Ö·û verify a["Z02_00"] in {"1","2"},"00²úÒµ»î¶¯µ¥Î»Àà±ð·Ç·¨"; //2.1¡¢²úÒµ»î¶¯µ¥Î»´úÂ볤¶ÈÐëΪ9£¬²»Äܺ¬ÓÐ0-9»òA-Z£¨´óд£©Ö®ÍâµÄÈκÎ×Ö·û¡£ 2£®Ð£ÑéÓÐЧ£¨·ûºÏУÑ鹫ʽ£©£¬µ«ÊÇÈç¹û //µ¥Î»Àà±ðÑ¡1£¬²¢ÇÒ²úÒµ»î¶¯µ¥Î»´úÂëÓë25¹éÊô·¨È˵¥Î»´úÂëÇ°8λÏàͬ£¬µÚ9λΪB£¬ÊÓΪºÏ·¨´úÂë¡£ verify length(unt[2]) == 9,"01²úÒµ»î¶¯µ¥Î»´úÂë·Ç·¨"; for i=1 to length(unt[2]) do verify substr(unt[2],i,1) in {"0":"9","A":"Z"},"01²úÒµ»î¶¯µ¥Î»´úÂë·Ç·¨"; if !(substr(unt[2],i,1) in {"0":"9","A":"Z"}) then break; endif endfor if substr(unt[2],9,1) == "B" && substr(unt[2],1,8) == substr(a["ParentCode"],1,8) then verify a["Z02_00"] == "1","01²úÒµ»î¶¯µ¥Î»´úÂë·Ç·¨"; endif if !(substr(unt[2],1,8) == substr(a["ParentCode"],1,8) && substr(unt[2],9,1)=="B") then verify isCodeLogical(unt[2]) == 1 ,"01²úÒµ»î¶¯µ¥Î»´úÂë·Ç·¨"; endif //3.²úÒµ»î¶¯µ¥Î»Ãû³Æ³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ8¸ö×Ö·û£¨ÖÁÉÙ4¸öºº×Ö£© verify length(unt[3]) >=8 ,"02²úÒµ»î¶¯µ¥Î»Ãû³Æ©¼"; //4.²úÒµ»î¶¯µ¥Î»Ãû³Æ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(unt[3]),"02²úÒµ»î¶¯µ¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(unt[3]),"02²úÒµ»î¶¯µ¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //5.²úÒµ»î¶¯µ¥Î»Ãû³Æ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(unt[3],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"02²úÒµ»î¶¯µ¥Î»Ãû³Æº¬ÓÐÈ«½Ç×Ö·û"; //6.²úÒµ»î¶¯µ¥Î»¸ºÔðÈËÐÕÃû³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(a["Z02_03"]) >= 4,"03²úÒµ»î¶¯µ¥Î»¸ºÔðÈËÐÕÃû©¼"; //7.²úÒµ»î¶¯µ¥Î»¸ºÔðÈËÐÕÃû²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_03"]),"03²úÒµ»î¶¯µ¥Î»¸ºÔðÈ˺¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_03"]),"03²úÒµ»î¶¯µ¥Î»¸ºÔðÈ˺¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //8.²úÒµ»î¶¯µ¥Î»¸ºÔðÈËÐÕÃû²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺÅÈ«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_03"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"03²úÒµ»î¶¯µ¥Î»¸ºÔðÈ˺¬ÓÐÈ«½Ç×Ö·û"; //9.ÐÐÕþÇø»®´úÂ볤¶ÈÐëΪ12¸ö×Ö·û£¬²¢ÇÒÐëÓë¹ú¼Ò±ê׼ʡµØÏØÏç´åµØÖ·Âë¿âÒ»Ö¡£ verify length(a["Z02_04"]) == 12,"04 ÐÐÕþÇø»®´úÂë·Ç·¨"; verify hasCateItem("dzm",a["Z02_04"]),"04 ÐÐÕþÇø»®´úÂë·Ç·¨" ; //10.12λµØÖ·ÂëÖУ¬µÚ1λºÍµÚ2λ²»ÄÜͬʱΪ0£»µÚ3λºÍµÚ4λ²»ÄÜͬʱΪ0£»µÚ7λ¡¢µÚ8λºÍµÚ9λ²»ÄÜͬʱΪ0¡£ verify substr(a["Z02_04"],1,2) <> "00" && substr(a["Z02_04"],3,2) <> "00" && substr(a["Z02_04"],7,3) <> "000","04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; //10.³ýÁË441900ºÍ442000Í⣬µÚ5λºÍµÚ6λ²»ÄÜͬʱΪ0¡£ if !(substr(a["Z02_04"],1,6) in {"441900","442000"}) then verify substr(a["Z02_04"],5,2) <> "00" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; endif //10.²¢ÇÒ³ýÁ˵Ú7λΪ4»ò5»ò6µÄÒÔÍ⣬µÚ10λ¡¢µÚ11λºÍµÚ12λ²»ÄÜͬʱΪ0¡£ if !(substr(a["Z02_04"],7,1) in {"4","5","6"}) then verify substr(a["Z02_04"],10,3) <> "000" ,"04 ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁ¾Ó£¨´å£©Î¯»áÒ»¼¶" ; endif //11.Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(a["Z02_043"]) >= 4,"04Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)©¼"; //12.Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û¡£ Verify isallCChar(a["Z02_043"]),"04Ê¡(×ÔÖÎÇø¡¢Ö±Ï½ÊÐ)º¬ÓзǷ¨×Ö·û"; //13.³ýÁËÐÐÕþÇø»®´úÂëÇ°Á½Î»Îª11¡¢12¡¢31¡¢50µÄµ¥Î»ÒÔÍ⣬µØ£¨Çø¡¢ÊС¢ÖÝ¡¢ÃË£©³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© if !(substr(a["Z02_04"],1,2) in {"11","12","31","50"}) then verify length(trim(a["Z02_044"])) >= 4,"04µØ(Çø¡¢ÊС¢ÖÝ¡¢ÃË)©¼"; endif //14.µØ(Çø¡¢ÊС¢ÖÝ¡¢ÃË)Èç¹û×ֶγ¤¶È´óÓÚµÈÓÚ1£¬Ôò²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û if length(a["Z02_044"]) == 1 then verify isallCChar(a["Z02_044"]),"04µØ(Çø¡¢ÊС¢ÖÝ¡¢ÃË)º¬ÓзǷ¨×Ö·û"; endif //15.ÏØ(Çø¡¢ÊС¢Æì)³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(trim(a["Z02_045"])) >= 4,"04ÏØ(Çø¡¢ÊС¢Æì)©¼"; //16.ÏØ(Çø¡¢ÊС¢Æì)²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û¡£ Verify isallCChar(a["Z02_045"]),"04ÏØ(Çø¡¢ÊС¢Æì)º¬ÓзǷ¨×Ö·û"; //17.Èç¹ûÐÐÕþÇø»®´úÂëµÚ7λΪ¡°1»ò2»ò3¡±£¬ÔòÏ磨Õò£©³¤¶È±ØÐë´óÓÚµÈÓÚ4£¬½ÖµÀ°ìÊ´¦³¤¶È±ØÐëΪ0¡£ if substr(a["Z02_04"],7,1) in {"1","2","3"} then verify length(a["Z02_046"]) >= 4 && length(a["Z02_048"]) ==0 ,"04Ó¦ÌîдÏç(Õò£©£¬²»Ó¦Ìîд½ÖµÀ°ìÊ´¦£¬ÓëÐÐÕþÇø»®´úÂë²»·û"; endif //18.Ïç(Õò)²»Äܺ¬Óкº×ÖÒÔÍâµÄÈκÎ×Ö·û¡£ Verify isallCChar(a["Z02_046"]),"04Ïç(Õò)º¬ÓзǷ¨×Ö·û"; //19.Èç¹ûÐÐÕþÇø»®´úÂëµÚ10λΪ¡°0»ò1»ò4¡±,ÔòÃÅÅƺų¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© if substr(a["Z02_04"],10,1) in {"0","1","4"} then verify length(trim(a["Z02_047"])) >= 4,"04½Ö£¨´å£©¡¢ÃÅÅƺÅ©¼"; endif //20.½Ö£¨´å£©¡¢ÃÅÅƺŲ»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_047"]),"04½Ö£¨´å£©¡¢ÃÅÅƺź¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_047"]),"04½Ö£¨´å£©¡¢ÃÅÅƺź¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //21.½Ö£¨´å£©¡¢ÃÅÅƺŲ»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_047"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"04½Ö£¨´å£©¡¢ÃÅÅƺź¬ÓÐÈ«½Ç×Ö·û"; //22.Èç¹ûÐÐÕþÇø»®´úÂëµÚ7λΪ¡°0»ò4»ò5¡±£¬Ôò½ÖµÀ°ìÊ´¦³¤¶È±ØÐë´óÓÚµÈÓÚ4£¬Ï磨Õò£©³¤¶È±ØÐëΪ0¡£ if substr(a["Z02_04"],7,1) in {"0","4","5"} then verify length(a["Z02_048"]) >= 4 && length(a["Z02_046"])==0,"04Ó¦Ìîд½ÖµÀ°ìÊ´¦£¬²»Ó¦ÌîдÏç(Õò£©£¬ÓëÐÐÕþÇø»®´úÂë²»·û"; endif //24.½ÖµÀ°ìÊ´¦²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_048"]),"04½ÖµÀ°ìÊ´¦º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_048"]),"04½ÖµÀ°ìÊ´¦º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //25.½ÖµÀ°ìÊ´¦²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_048"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"04½ÖµÀ°ìÊ´¦º¬ÓÐÈ«½Ç×Ö·û"; //26.³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙ2¸öºº×Ö£© verify length(trim(a["Z02_049"])) >= 4,"04ÉçÇø¡¢¾Ó(´å)ί»á©¼"; //27.²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_049"]),"04ÉçÇø¡¢¾Ó(´å)ίԱ»áº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_049"]),"04ÉçÇø¡¢¾Ó(´å)ίԱ»áº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //28.ÉçÇø¡¢¾Ó(´å)ίԱ»á²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_049"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"04ÉçÇø¡¢¾Ó(´å)ί»áº¬ÓÐÈ«½Ç×Ö·û£¬ÇëºËʵ"; //29. ÇøºÅ1.³¤¶È²»µÃСÓÚ3¡£ 2. ²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 3. µÚһλ±ØÐëΪ0 verify substr(a["Z02_051"],1,1) == "0" && length(a["Z02_051"]) >= 3,"05ÇøºÅ©¼»ò·Ç·¨"; for x=1 to length(a["Z02_051"]) do if !(substr(a["Z02_051"],x,1) in {"0":"9"}) then verify false,"05ÇøºÅ²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û"; break; endif endfor //30.04ÐÐÕþÇø»®´úÂëÇ°Á½Î»²»ÊÇ54¡¢62¡¢63¡¢64¡¢65µÄµ¥Î»£¬µç»°ºÅÂëµÄ³¤¶È²»ÄÜСÓÚ5¸ö×Ö·û if !(substr(a["Z02_04"],1,2) in {"54","62","63","64","65"}) then verify length(a["Z02_052"]) >= 5,"05µç»°ºÅÂ멼»ò·Ç·¨"; endif //31.µç»°ºÅÂ볤¶È´óÓÚµÈÓÚ1¸ö×Ö·ûµÄÇé¿öÏ£¬1¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 2.Ê×λ²»ÄÜΪ0 3.Èç¹ûÇ°2λΪ¡°13¡±£¬³¤¶È±ØÐëΪ11¡£ if length(a["Z02_052"]) >= 1 then for x=1 to length(a["Z02_052"]) do if !(substr(a["Z02_052"],x,1) in {"0":"9"}) then verify false,"05µç»°ºÅÂëÓÐÎó(²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û)"; break; endif endfor verify substr(a["Z02_052"],1,1) <> "0","05µç»°ºÅÂëÓÐÎó"; if substr(a["Z02_052"],1,2) == "13" then verify length(a["Z02_052"]) == 11,"05µç»°ºÅÂëÓÐÎó"; endif endif //32.·Ö»úºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_053"]),"05·Ö»úºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_053"]),"05·Ö»úºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //33.·Ö»úºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_053"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"05·Ö»úºÅº¬ÓÐÈ«½Ç×Ö·û"; //34.´«ÕæºÅÂ볤¶È´óÓÚµÈÓÚ1¸ö×Ö·ûµÄÇé¿öÏ£¬1¡¢³¤¶È²»ÄÜСÓÚ5¡£ 2¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û 3¡¢Ê×λ²»ÄÜΪ0¡£ if length(a["Z02_054"]) >= 1 then verify length(a["Z02_054"]) >= 5,"05´«ÕæºÅÂëÓÐÎó"; for x=1 to length(a["Z02_054"]) do if !(substr(a["Z02_054"],x,1) in {"0":"9"}) then verify false,"05´«ÕæºÅÂëÓÐÎó(²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û)"; break; endif endfor verify substr(a["Z02_054"],1,1) <> "0","05´«ÕæºÅÂëÓÐÎó"; endif //35.ÓÊÕþ±àÂë1.³¤¶ÈÐëΪ6¸ö×Ö·û 2¡¢²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û verify length(a["Z02_055"]) == 6,"05ÓÊÕþ±àÂ멼»ò·Ç·¨"; for x=1 to length(a["Z02_055"]) do if !(substr(a["Z02_055"],x,1) in {"0":"9"}) then verify false,"05ÓÊÕþ±àÂë²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û"; break; endif endfor //36.µç×ÓÐÅÏä²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŰë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar1(a["Z02_056"]),"05µç×ÓÐÅÏ京Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_056"]),"05µç×ÓÐÅÏ京Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //38.Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©1£¬³¤¶ÈÓ¦´óÓÚµÈÓÚ4¸ö×Ö·û£¨ÖÁÉÙÁ½¸öºº×Ö£© verify length(trim(a["Z02_061"]))>=4 ,"06µÚÒ»Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©Â©Â¼"; //39.Ö÷ÒªÒµÎñ»î¶¯£¨»òÖ÷Òª²úÆ·£©1¡¢2¡¢3£¬¶¼²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢ÎʺŵȰë½Ç×Ö·û verify !hasSpecChar(a["Z02_061"]),"06Ö÷ÒªÒµÎñ»î¶¯Öк¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasSpecChar(a["Z02_062"]),"06Ö÷ÒªÒµÎñ»î¶¯Öк¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; verify !hasSpecChar(a["Z02_063"]),"06Ö÷ÒªÒµÎñ»î¶¯Öк¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_061"]+a["Z02_062"]+a["Z02_063"]),"06Ö÷ÒªÒµÎñ»î¶¯º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //41.ÐÐÒµ´úÂë1.³¤¶ÈÐëΪ4¸ö×Ö·û 2.Óë±ê×¼µÄ¹úÃñ¾­¼ÃÐÐÒµ·ÖÀàÓë´úÂë¿â£¨±ØÐëÓë4λµÄСÀàÂ룩һÖ¡£ verify length(a["Z02_064"]) == 4,"06ÐÐÒµ´úÂ멼»òΪ·Ç·¨Âë"; verify hasitem("industry",a["Z02_064"]),"06ÐÐÒµ´úÂ멼»òΪ·Ç·¨Âë"; /*42.ÐÐÒµ´úÂëΪ9800µÄµ¥Î» verify a["Z02_064"] <> "9800","06ÇëÈ·Èϸõ¥Î»ÊÇ·ñ¹ú¼Ê×éÖ¯£¿"; */ //43.1¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢2±àÖƲ¿ÃÅ¡¢3ÃñÕþ²¿ÃÅ¡¢9ÆäËû£¬ÕâËĸö¿ÉÑ¡ÏîÖУ¬ÖÁÉÙÑ¡1Ïî verify length(trim(a["Z02_071"])) <> 0 || length(trim(a["Z02_073"])) <> 0 || length(trim(a["Z02_075"])) <> 0 || length(trim(a["Z02_077"])) <> 0,"07µÇ¼Ç×¢²á£¨»òÅú×¼»ú¹Ø£©Â©Ìî"; //44.¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãų¤¶ÈΪ0£¬»òÕßȡֵΪ¡°1¡±¡£ verify a["Z02_071"]=="1" || length(a["Z02_071"]) == 0,"07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅÓÐÎ󣨿ոñ·Ç·¨£©"; //45.Èç¹û»ú¹Ø¼¶±ð-¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°1¡±¡£ if length(a["Z02_079_1"]) == 1 then verify a["Z02_071"] == "1","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨¹¤ÉÌ£©Ìîд²»Ïà·û¡£" ; endif //46.±àÖƲ¿Ãų¤¶ÈΪ0£¬»òÕßȡֵΪ¡°2¡±¡£ verify a["Z02_073"]=="2" || length(a["Z02_073"]) == 0,"07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-±àÖƲ¿ÃÅÓÐÎ󣨿ոñ·Ç·¨£©"; //47.Èç¹û»ú¹Ø¼¶±ð-±àÖƲ¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°2¡±¡£ if length(a["Z02_079_2"]) == 1 then verify a["Z02_073"] == "2","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨±àÖÆ£©Ìîд²»Ïà·û¡£" ; endif //48.ÃñÕþ²¿Ãų¤¶ÈΪ0£¬»òÕßȡֵΪ¡°3¡±¡£ verify a["Z02_075"]=="3" || length(a["Z02_075"]) == 0,"07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-ÃñÕþ²¿ÃÅÓÐÎ󣨿ոñ·Ç·¨£©"; //49.Èç¹û»ú¹Ø¼¶±ð-ÃñÕþ²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°3¡±¡£ if length(a["Z02_079_3"]) == 1 then verify a["Z02_075"] == "3","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨ÃñÕþ£©Ìîд²»Ïà·û¡£" ; endif //Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°94¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ¡ª¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢ÃñÕþ²¿Ãŵij¤¶È¶¼±ØÐëΪ0¡£ if substr(a["Z02_064"],1,2)=="94" then verify length(a["Z02_071"])==0 && length(a["Z02_075"])==0,"07¹ú¼ÒÐÐÕþ»ú¹¹µÄÅú×¼»ú¹ØÓ¦Ìî±àÖÆ»òÆäËû"; endif //50.ÆäËû³¤¶ÈΪ0£¬»òÕßȡֵΪ¡°9¡±¡£ verify a["Z02_077"]=="9" || length(a["Z02_077"]) == 0,"07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Ø-ÆäËûÓÐÎ󣨿ոñ·Ç·¨£©"; //51.Èç¹û»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ðµÄ³¤¶ÈΪ1£¬Ôò±¾Ö¸±êȡֵΪ¡°9¡±¡£ if length(a["Z02_079_4"]) == 1 then verify a["Z02_077"] == "9","07»ú¹Ø¼¶±ðÓëÅú×¼»ú¹ØÃû³Æ£¨ÆäËû£©Ìîд²»Ïà·û¡£" ; endif //52.Èç¹ûÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅΪ¡°1¡±£¬»ò±àÖƲ¿ÃÅΪ¡°2¡±£¬»òÃñÕþ²¿ÃÅΪ¡°3¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ-ÆäËûµÄ³¤¶È±ØÐëΪ0¡£ if a["Z02_071"] == "1" || a["Z02_073"] == "2" || a["Z02_075"] == "3" then verify length(a["Z02_077"])==0,"07ÈôÒÑÔÚÇ°Èý¸öµÇ¼Ç×¢²á»ú¹Ø×öÁËÑ¡Ôñ£¬Ôò²»Äܸ´Ñ¡¡°ÆäËû¡±"; endif //53.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°93¡¢95¡¢97¡±£¬ÔòÅú×¼»ú¹ØÃû³Æ¡ª¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅ¡¢±àÖƲ¿ÃÅ¡¢ÃñÕþ²¿Ãŵij¤¶È¶¼±ØÐëΪ0£¬Åú×¼»ú¹ØÃû³Æ¡ªÆäËûµÄÈ¡Öµ±ØÐëÊÇ¡°9¡±¡£ if substr(a["Z02_064"],1,2) in {"93","95","97"} then verify length(a["Z02_071"])==0 && length(a["Z02_073"])==0 && length(a["Z02_075"])==0 && a["Z02_077"]=="9","07¹ú¼Ò»ú¹Ø¡¢Õþµ³»ú¹Ø¡¢¾Ó£¨´å£©ÃñίԱ»áµÄÅú×¼»ú¹ØÓ¦ÌîÆäËû"; endif //54.06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ¡°93¡¢94¡¢95¡¢97¡±£¬²¢ÇÒÅú×¼»ú¹ØÃû³Æ-ÆäËûȡֵΪ¡°9¡±µÄ //µ¥Î»£¬¡°Åú×¼»ú¹ØÆäËû£¬Çë×¢Ã÷¡±µÄ³¤¶ÈÓ¦´óÓÚµÈÓÚ2¸ö×Ö·û¡£ if !(substr(a["Z02_064"],1,2) in {"93","94","95","97"}) && a["Z02_077"] == "9" then verify length(a["Z02_078"])>=2,"07µÇ¼Ç£¨Åú×¼£©»ú¹ØÑ¡ÆäËûµÄ£¬Çë×¢Ã÷Åú×¼»ú¹Ø"; endif //55.Èç¹ûÅú×¼»ú¹ØÃû³Æ-ÆäËûµÄ³¤¶ÈΪ0£¬Ôò¡°Åú×¼»ú¹ØÆäËû£¬Çë×¢Ã÷¡±µÄ³¤¶È±ØÐëΪ0 if length(a["Z02_077"]) == 0 then verify length(a["Z02_078"]) == 0, "07µÇ¼Ç£¨Åú×¼£©»ú¹ØδѡÆäËûµÄ£¬²»Ðè×¢Ã÷Åú×¼»ú¹Ø" ; endif //56.Çë×¢Ã÷Åú×¼»ú¹Ø£¬È¥µô×Ö¶ÎÖÐËùÓеĿոñºó£¬²»Äܺ¬ÓС°¹¤ÉÌ¡±¡¢¡°±àÖÆ¡±¡¢¡°±àί¡±¡¢¡°±à°ì¡±¡¢¡°ÃñÕþ¡±µÄ×ÖÑù¡£ verify at("¹¤ÉÌ",a["Z02_078"]) == 0 && at("±àÖÆ",a["Z02_078"]) == 0 && at("±àί",a["Z02_078"]) == 0 && at("±à°ì",a["Z02_078"]) == 0 && at("ÃñÕþ",a["Z02_078"]) == 0 , "07¡°Ñ¡ÆäËû£¬Çë×¢Ã÷Åú×¼»ú¹Ø¡±Öк¬ÓС°¹¤ÉÌ¡¢±àÖÆ¡¢±àί¡¢±à°ì¡¢ÃñÕþ¡±×ÖÑù£¬Ó¦Ñ¡ÌîÏàÓ¦µÄµÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹ØÃû³Æ¡£" ; //57.Çë×¢Ã÷Åú×¼»ú¹Ø²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_078"]),"07Çë×¢Ã÷Åú×¼»ú¹Øº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_078"]),"07Çë×¢Ã÷Åú×¼»ú¹Øº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //58.Çë×¢Ã÷Åú×¼»ú¹Ø²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_078"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"07Çë×¢Ã÷Åú×¼»ú¹Øº¬ÓÐÈ«½Ç×Ö·û"; //59.Èç¹ûÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅΪ"1"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z02_071"] == "1" then verify a["Z02_079_1"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-¹¤ÉÌÐÐÕþ¹ÜÀí²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //60.Èç¹ûÅú×¼»ú¹ØÃû³Æ-±àÖƲ¿ÃÅΪ"2"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z02_073"] == "2" then verify a["Z02_079_2"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-±àÖƲ¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //61.Èç¹ûÅú×¼»ú¹ØÃû³Æ-ÃñÕþ²¿ÃÅΪ"3"£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if a["Z02_075"] == "3" then verify a["Z02_079_3"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-ÃñÕþ²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©" ; endif //Èç¹ûÅú×¼»ú¹ØÃû³Æ¡ªÆäËûΪ"9"²¢ÇÒ£¨ÐÐÒµ´úÂë²»ÊÇ93¡¢94¡¢95¡¢97»òÕßÇë×¢Ã÷Åú×¼»ú¹Ø²»ÊÇ¡°ÎÞ¡±£©£¬Ôò±¾Ö¸±ê³¤¶È±ØÐëΪ1¡£ if a["Z02_077"] == "9" && !(substr(a["Z02_064"],1,2) in {"93","94","95","97"} || a["Z02_078"]=="ÎÞ") then verify length(a["Z02_079_4"])==1,"07»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ð©¼" ; endif //Èç¹û±¾Ö¸±ê³¤¶ÈΪ1£¬Ôò±¾Ö¸±êÈ¡Öµ·¶Î§Îª¡°1¡¢2¡¢3¡¢4¡±¡£ if length(a["Z02_079_4"])==1 then verify a["Z02_079_4"] in {"1","2","3","4"},"07»ú¹Ø¼¶±ð-ÆäËû²¿Ãż¶±ðÓÐÎ󣨿ոñ·Ç·¨£©"; endif //63.¹¤É̵ǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-¹¤ÉÌӦΪ¡°1¡± if length(a["Z02_072"]) >= 1 then verify a["Z02_071"] == "1", "07¹¤É̵ǼÇ×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØÓ¦ÏàӦѡÌÉÌ¡£" ; endif //64.¹¤É̵ǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1£¬²¢ÇҵǼÇ×¢²áÀàÐ͵Ú1λÊÇ¡°1¡±µÄ£¬¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐëΪ9¸ö×Ö·û»ò13¸ö //×Ö·û£¬Ã¿Î»¶¼²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ if length(a["Z02_072"]) >= 1 && substr(a["Z02_08"],1,1) == "1" then verify2 length(a["Z02_072"]) == 9 || length(a["Z02_072"]) == 13,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; for i=1 to length(a["Z02_072"]) do if !(substr(a["Z02_072"],i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; break ; endif endfor endif //65.¹¤É̵ǼÇ×¢²áºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_072"]),"07¹¤É̵ǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_072"]),"07¹¤É̵ǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //66.¹¤É̵ǼÇ×¢²áºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_072"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"07¹¤É̵ǼÇ×¢²áºÅº¬ÓÐÈ«½Ç×Ö·û"; //67.¹¤É̵ǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1µÄ£¬²¢ÇҵǼÇ×¢²áÀàÐ͵Ú1λÊÇ¡°2¡±»ò¡°3¡±µÄ£¬¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐë //Ϊ19£¨6¸öºº×Ö+5λÊý×Ö+1¸öºº×Ö£©»ò21£¨7¸öºº×Ö+5λÊý×Ö+1λºº×Ö£©£¬Ã¿Î»¶¼²»ÄÜΪ¿Õ¸ñ,ÇÒ×ÔÓÒÊýµÚ7λ¿ª //ʼµÄ5¸ö×Ö·û²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£»ò¹¤É̵ǼÇ×¢²áºÅ³¤¶ÈÐëΪ20£¨6¸öºº×Ö+6λÊý×Ö+1¸öºº×Ö£©»ò22£¨7¸öºº×Ö //+6λÊý×Ö+1λºº×Ö£©£¬Ã¿Î»¶¼²»ÄÜΪ¿Õ¸ñ,ÇÒ×ÔÓÒÊýµÚ8λ¿ªÊ¼µÄ6¸ö×Ö·û²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ if length(a["Z02_072"])>=1 && (substr(a["Z02_08"],1,1) == "2" || substr(a["Z02_08"],1,1)=="3") then verify2 length(a["Z02_072"])==19 || length(a["Z02_072"])==21 ||length(a["Z02_072"])==20 || length(a["Z02_072"])==22,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; verify2 at(" ",a["Z02_072"]) == 0 ,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; var start=length(a["Z02_072"])-6; var start1=length(a["Z02_072"])-7; if length(a["Z02_072"])==19 || length(a["Z02_072"])==21 then for i=0 to 4 do if !(substr(a["Z02_072"],start+i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; break ; endif endfor elsif length(a["Z02_072"])==20 || length(a["Z02_072"])==22 then for i=0 to 5 do if !(substr(a["Z02_072"],start1+i,1) in {"0":"9"}) then verify2 false,"07¹¤É̵ǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; break ; endif endfor endif endif //68.±àÖƵǼÇ×¢²áºÅ³¤¶È´óÓÚµÈÓÚ1µÄ£¬³¤¶ÈÐëΪ12£¬²»Äܺ¬ÓÐ0-9ÒÔÍâµÄ×Ö·û¡£ if length(a["Z02_074"]) >= 1 then verify2 length(a["Z02_074"]) == 12,"07±àÖƵǼÇ×¢²áºÅΪ·Ç·¨Â룬ÇëºËʵ"; for x=1 to length(a["Z02_074"]) do if !(substr(a["Z02_074"],x,1) in {"0":"9"}) then verify2 false,"07±àÖƵǼÇ×¢²áºÅΪ·Ç·¨Âë(²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û)"; break; endif endfor endif //69.³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-±àÖÆӦΪ¡°2¡± if length(a["Z02_074"]) >= 1 then verify a["Z02_073"] == "2","07±àÖƵǼÇ×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØӦѡÌî±àÖƲ¿ÃÅ¡£" ; endif //70.±àÖƵǼÇ×¢²áºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö //68.ÒÑÉó verify !hasSpecChar(a["Z02_074"]),"07±àÖƵǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_074"]),"07±àÖƵǼÇ×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //71.³¤¶È´óÓÚµÈÓÚ1µÄ£¬Åú×¼»ú¹ØÃû³Æ-ÃñÕþӦΪ¡°3¡± if length(a["Z02_076"]) >= 1 then verify a["Z02_075"] == "3","07ÃñÕþµÇ¼Ç×¢²áºÅÒÑÌîд£¬µÇ¼Ç£¨»òÅú×¼£©»ú¹ØӦѡÌîÃñÕþ²¿ÃÅ¡£" ; endif //72.ÃñÕþµÇ¼Ç×¢²áºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_076"]),"07ÃñÕþµÇ¼Ç×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_076"]),"07ÃñÕþµÇ¼Ç×¢²áºÅº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //73.ÃñÕþµÇ¼Ç×¢²áºÅ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_076"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"07ÃñÕþµÇ¼Ç×¢²áºÅº¬ÓÐÈ«½Ç×Ö·û"; //74.µÇ¼Ç×¢²áÀàÐͲ»Äܺ¬ÓбíÖÐËùÁÐ110-340È¡ÖµÒÔÍâµÄÈκÎ×Ö·û verify a["Z02_08"] in {"110","120","130","141","142","143","149","151","159","160","171","172","173","174","190", "210","220","230","240","310","320","330","340"},"08µÇ¼Ç×¢²áÀàÐÍ·Ç·¨"; //75.06ÐÐÒµ´úÂëΪ¡°9710¡±ºÍ¡°9720¡±µÄµ¥Î»£¬µÇ¼Ç×¢²áÀàÐÍӦΪ¡°190¡±¡£ if a["Z02_064"] == "9710" || a["Z02_064"] == "9720" then verify a["Z02_08"] == "190","08ÉçÇø¡¢¾Ó£¨´å£©Î¯»áµÇ¼Ç×¢²áÀàÐÍӦΪÆäËûÄÚ×Ê"; endif //76.³ý06ÐÐÒµ´úÂëÇ°Á½Î»Îª93¡¢94£¬95£¬97»ò12Ӫҵ״̬Ìî¡°3³ï½¨¡±µÄµ¥Î»Í⣬¿ªÒµÄê·Ý³¤¶È±ØÐë´óÓÚµÈÓÚ1 if !((substr(a["Z02_064"],1,2) in {"93":"95","97"}) || a["Z02_12"] == "3") then verify length(a["Z02_111"]) >= 1,"11¿ªÒµ£¨³ÉÁ¢£©Äê·Ý©¼"; endif //77.¿ªÒµÄê·Ý³¤¶È´óÓÚµÈÓÚ1µÄ£¬³¤¶ÈÐëΪ4£¬²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·ûÇÒ±ØÐëСÓÚµÈÓÚ2006¡£ if length(a["Z02_111"]) >=1 then verify length(a["Z02_111"]) == 4 && a["Z02_111"] <= "2006","¿ªÒµ£¨³ÉÁ¢£©Äê·ÝΪ·Ç·¨Â루Äê·ÝÓ¦ÌîËÄ룩"; for x=1 to length(a["Z02_111"]) do if !(substr(a["Z02_111"],x,1) in {"0":"9"}) then verify false,"11¿ªÒµ£¨³ÉÁ¢£©Äê·Ý²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û"; break; endif endfor //78.³¤¶È´óÓÚµÈÓÚ1µÄ£¬²»ÄÜСÓÚ1800¡£ verify2 a["Z02_111"] >= "1800","11¿ªÒµÄê·ÝÔçÓÚ1800Ä꣬ÇëºËʵ"; endif //Èç¹ûӪҵ״̬Ìî¡°3³ï½¨¡±£¬¿ªÒµÄê·Ý³¤¶ÈÓ¦¸ÃΪ0 if a["Z02_12"]=="3" then verify2 length(a["Z02_111"])==0,"³ï½¨µ¥Î»µÄ¿ªÒµÄê·ÝÊÇ·ñ׼ȷ£¬ÇëºËʵ"; endif //79.³ý06ÐÐÒµ´úÂëÇ°Á½Î»Îª93¡¢94£¬95£¬97ÒÔ¼°ÓªÒµ×´Ì¬Ìî¡°3³ï½¨¡±µÄµ¥Î»Í⣬¿ªÒµÔ·ݳ¤¶È±ØÐë´óÓÚµÈÓÚ1 if !((substr(a["Z02_064"],1,2) in {"93":"95","97"}) || a["Z02_12"] == "3") then verify length(a["Z02_112"]) >= 1,"11¿ªÒµÔ·Ý©Ìî"; endif //80.¿ªÒµÔ·ݳ¤¶È´óÓÚµÈÓÚ1µÄ£¬±ØÐëÔÚ¡°01£¬02£¬03-12¡±»ò¡°1£¬2£¬3-12¡±Ö®¼ä£¬²»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û¡£ if length(a["Z02_112"]) >= 1 then verify (a["Z02_112"] <= "12" && a["Z02_112"]>="01") || (value(a["Z02_112"]) <= 12 && value(a["Z02_112"])>=1) ,"11¿ªÒµ£¨³ÉÁ¢£©Ô·ÝΪ·Ç·¨Âë"; for x=1 to length(a["Z02_112"]) do if !(substr(a["Z02_112"],x,1) in {"0":"9"}) then verify false,"11¿ªÒµ£¨³ÉÁ¢£©Ô·ݲ»Äܺ¬ÓÐ0-9Ö®ÍâµÄ×Ö·û"; break; endif endfor endif //Èç¹ûӪҵ״̬Ìî¡°3³ï½¨¡±£¬¿ªÒµÔ·ݳ¤¶ÈÓ¦¸ÃΪ0 if a["Z02_12"]=="3" then verify2 length(a["Z02_112"])==0,"³ï½¨µ¥Î»µÄ¿ªÒµÔ·ÝÊÇ·ñ׼ȷ£¬ÇëºËʵ"; endif //81.Èç¹û14»ú¹¹ÀàÐÍÑ¡¡°1¡±£¬ÓªÒµ×´Ì¬È¡ÖµÎª1£¬2£¬3£¬4£¬5»ò9£¬ÆäËû×Ö·û¾ù·Ç·¨¡£ if a["Z02_14"] == "1" then verify a["Z02_12"] in {"1":"5","9"},"12Ӫҵ״̬©¼»òΪ·Ç·¨Âë(0ºÍ¿Õ¸ñ·Ç·¨)"; //82.Èç¹û14»ú¹¹ÀàÐÍ¡Ù¡°1ÆóÒµ¡±£¬³¤¶È±ØÐëΪ0¡£ else verify length(a["Z02_12"]) == 0 ,"12Ӫҵ״̬ÏÞ»ú¹¹ÀàÐÍ=1ÆóÒµ²úÒµ»î¶¯µ¥Î»Ì"; endif //83.²»Äܺ¬ÓС°1¡¢2¡¢3¡¢4¡¢9ÒÔÍâµÄÈκÎ×Ö·û verify a["Z02_14"] in {"1","2","3","4","9"},"14»ú¹¹ÀàÐÍ©¼»ò·Ç·¨¡£"; //84.Èç¹û07Åú×¼»ú¹ØÃû³Æ-¹¤ÉÌÐÐÕþ¹ÜÀí²¿ÃÅÌî¡°1¡±£¬²¢ÇÒÅú×¼»ú¹ØÃû³Æ-±àÖƲ¿ÃÅ¡¢Åú×¼»ú¹ØÃû³Æ-ÃñÕþ²¿ //ÃźÍÅú×¼»ú¹ØÃû³Æ-ÆäËûµÄ³¤¶È¶¼Îª0£¬Ôò»ú¹¹ÀàÐÍÓ¦¸ÃÑ¡Ôñ¡°1¡±»ò¡°9¡± if a["Z02_071"] == "1" && length(a["Z02_073"]) == 0 && length(a["Z02_075"]) == 0 && length(a["Z02_077"]) == 0 then verify a["Z02_14"] in {"1","9"} ,"14Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡¹¤É̵ģ¬14»ú¹¹ÀàÐÍÒ»°ãӦΪÆóÒµ²úÒµ»î¶¯µ¥Î»»òÆäËû²úÒµ»î¶¯µ¥Î»"; endif //85.Èç¹û07Åú×¼»ú¹ØÃû³Æ-±àÖÆÌî¡°2¡±£¬²¢ÇÒÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌ¡¢Åú×¼»ú¹ØÃû³Æ-ÃñÕþºÍÅú×¼»ú¹ØÃû³Æ-ÆäËû //ÈýÏ¶ÈΪ0£¬Ôò»ú¹¹ÀàÐͲ»Ó¦¸ÃΪ¡°1¡± if a["Z02_073"] == "2" && length(a["Z02_071"]) == 0 && length(a["Z02_075"]) == 0 && length(a["Z02_077"]) == 0 then verify2 a["Z02_14"] <> "1" ,"14Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡±àÖÆ£¬14»ú¹¹ÀàÐÍÒ»°ã²»ÄÜÑ¡ÆóÒµ²úÒµµ¥Î»£¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //86.Èç¹û07Åú×¼»ú¹ØÃû³Æ-ÃñÕþÌî¡°3¡±£¬²¢ÇÒÅú×¼»ú¹ØÃû³Æ-¹¤ÉÌ¡¢Åú×¼»ú¹ØÃû³Æ-±àÖÆ¡¢Åú×¼»ú¹ØÃû³Æ-Æä //ËûÈýÏ¶ÈΪ0£¬Ôò»ú¹¹ÀàÐÍÓ¦¸ÃΪ¡°4»ò9¡± if a["Z02_075"] == "3" && length(a["Z02_071"]) == 0 && length(a["Z02_073"]) == 0 && length(a["Z02_077"]) == 0 then verify2 a["Z02_14"] in {"4","9"} ,"14Èç¹û07µÇ¼Ç×¢²á£¨»òÅú×¼£©»ú¹Øµ¥Ñ¡ÃñÕþ£¬14»ú¹¹ÀàÐÍÒ»°ãӦѡÉçÍŲúÒµ¡¢»òÆäËû²úÒµµ¥Î»£¬ÇëºËʵ£¨È·ÈÏÉóºË£©"; endif //87.06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°06-43¡±¡¢¡°47-50¡±¡¢63¡¢65µÄµ¥Î»£¬»ú¹¹ÀàÐÍÓ¦¸ÃÑ¡¡°1¡± if substr(a["Z02_064"],1,2) in{"06":"43","47":"50","63","65"} then verify2 a["Z02_14"] == "1","14²¿·ÖÐÐÒµµÄ14»ú¹¹ÀàÐÍÒ»°ãӦѡÆóÒµ²úÒµµ¥Î»£¬Çë½áºÏ06ÐÐÒµÀà±ðÓèÒÔºËʵ£¨È·ÈÏÉóºË£©"; endif //88.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»Îª93¡¢94¡¢95,»ú¹¹ÀàÐÍÓ¦Ìîд"2"»ò¡°3¡± if substr(a["Z02_064"],1,2) in{"93","94","95"} then verify a["Z02_14"] == "2" || a["Z02_14"] == "3","14Õþµ³»ú¹Ø¡¢¹ú¼Ò»ú¹¹¡¢ÕþЭºÍÃñÖ÷µ³ÅɵĻú¹¹ÀàÐÍӦѡ¡°2¡±»ò¡°3¡±¡±"; endif //90.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ93¡¢94¡¢95£¬ÐÐÒµ´úÂë²»ÊÇ6810£¬Ôò»ú¹¹ÀàÐͲ»ÄÜΪ¡°3¡± if !(substr(a["Z02_064"],1,2) in{"93","94","95"}) && substr(a["Z02_064"],1,4) <> "6810" then verify a["Z02_14"] <> "3","14·ÇÕþµ³¡¢¹ú¼Ò»ú¹¹¡¢ÕþЭ¡¢ÖÐÑëÒøÐеĻú¹¹ÀàÐͲ»Ó¦Ñ¡¡°3¡±"; endif //91.Èç¹û06ÐÐÒµ´úÂëÇ°ÈýλΪ961ºÍ9621¡¢9622£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°4Éç»áÍÅÌ塱 if substr(a["Z02_064"],1,3) == "961" || a["Z02_064"] in {"9621","9622"} then verify a["Z02_14"] == "4","14ÉçÍÅ»òȺÖÚÍÅÌåµÄ»ú¹¹ÀàÐÍӦѡ¡°4Éç»áÍÅÌ塱"; endif //92.Èç¹û06ÐÐÒµ´úÂëÇ°Á½Î»²»ÊÇ96£¬ÐÐÒµ´úÂëÒ²²»ÊÇ9110¡¢8012¡¢8019¡¢8720,Ôò»ú¹¹ÀàÐͲ»ÄÜÌîд¡°4Éç»áÍÅÌ塱 if !(a["Z02_064"] in{"9110","8012","8019","8720"}) && substr(a["Z02_064"],1,2) <> "96" then verify a["Z02_14"] <> "4","14·ÇÉçÍÅ¡¢ÈºÖÚÍÅÌåºÍ×Ú½Ì×éÖ¯µÄ»ú¹¹ÀàÐͲ»ÄÜÑ¡¡°4¡±"; endif //93.Èç¹û06ÐÐÒµ´úÂëÇ°¶þλΪ97£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°9¡± if substr(a["Z02_064"],1,2) == "97" then verify a["Z02_14"] == "9","14ÉçÇø¡¢¾Ó£¨´å£©Î¯»áµÄ»ú¹¹ÀàÐÍӦѡ¡°9¡±"; endif //94.Èç¹û06ÐÐÒµ´úÂëΪ9629¡¢9630£¬Ôò»ú¹¹ÀàÐÍÓ¦Ìîд¡°4Éç»áÍÅÌå²úÒµµ¥Î»¡±»ò¡°9ÆäËû²úÒµµ¥Î»¡± if a["Z02_064"] == "9629" || a["Z02_064"] == "9630" then verify a["Z02_14"] == "4" || a["Z02_14"] == "9","14ÐÐÒµ9629¡¢9630µÄ»ú¹¹ÀàÐÍӦѡ¡°4»ò9¡±"; endif //95.³ý12Ӫҵ״̬Ìî 4»ò5µÄµ¥Î»Í⣬ÄêÄ©´ÓÒµÈËÔ±±ØÐë´óÓÚµÈÓÚ1¡£ if a["Z02_12"] <> "4" && a["Z02_12"] <> "5" then verify a["Z02_17"] >= 1,"17ÄêÄ©´ÓÒµÈËԱ©¼"; endif //96.³ýÁË06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°59¡¢60¡¢68¡¢69¡¢71¡¢70¡¢72¡±¡¢Ç°ÈýλΪ¡°441¡¢442¡¢741¡±¡¢ //ÐÐÒµ´úÂëΪ¡°6564¡±µÄµ¥Î»Í⣬12Ӫҵ״̬Ìîд¡°1¡±£¬²¢ÇÒ14»ú¹¹ÀàÐÍÌîд¡°1¡±µÄµ¥Î»£¬¾­ÓªÐÔ //µ¥Î»ÊÕÈë±ØÐë´óÓÚ0¡£ if !(substr(a["Z02_064"],1,2) in {"59","60","68":"72"} || substr(a["Z02_064"],1,3) in {"441","442","741"} || a["Z02_064"] in {"6564"}) && a["Z02_12"] == "1" && a["Z02_14"] == "1" then verify a["Z02_23"]>0, "23¾­ÓªÐÔµ¥Î»ÊÕÈ멼"; endif if isnull(income_table) then income_table = array(46,3); income_table[1,1] = "06"; income_table[1,2] = 5000000; income_table[1,3]=10000; income_table[2,1] = "07"; income_table[2,2] = 30000000; income_table[2,3]=10000; income_table[3,1] = "08"; income_table[3,2] = 1000000; income_table[3,3]=10000; income_table[4,1] = "09"; income_table[4,2] = 1000000; income_table[4,3]=10000; income_table[5,1] = "10"; income_table[5,2] = 1000000; income_table[5,3]=10000; income_table[6,1] = "11"; income_table[6,2] = 500000; income_table[6,3]=10000; income_table[7,1] = "13"; income_table[7,2] = 5000000; income_table[7,3]=10000; income_table[8,1] = "14"; income_table[8,2] = 5000000; income_table[8,3]=10000; income_table[9,1] = "15"; income_table[9,2] = 5000000; income_table[9,3]=10000; income_table[10,1] = "16"; income_table[10,2] = 10000000; income_table[10,3]=10000; income_table[11,1] = "17"; income_table[11,2] = 5000000; income_table[11,3]=10000; income_table[12,1] = "18"; income_table[12,2] = 5000000; income_table[12,3]=10000; income_table[13,1] = "19"; income_table[13,2] = 5000000; income_table[13,3]=10000; income_table[14,1] = "20"; income_table[14,2] = 1000000; income_table[14,3]=10000; income_table[15,1] = "21"; income_table[15,2] = 500000; income_table[15,3]=10000; income_table[16,1] = "22"; income_table[16,2] = 5000000; income_table[16,3]=10000; income_table[17,1] = "23"; income_table[17,2] = 1000000; income_table[17,3]=10000; income_table[18,1] = "24"; income_table[18,2] = 5000000; income_table[18,3]=10000; income_table[19,1] = "25"; income_table[19,2] = 30000000; income_table[19,3]=10000; income_table[20,1] = "26"; income_table[20,2] = 10000000; income_table[20,3]=10000; income_table[21,1] = "27"; income_table[21,2] = 5000000; income_table[21,3]=10000; income_table[22,1] = "28"; income_table[22,2] = 5000000; income_table[22,3]=10000; income_table[23,1] = "29"; income_table[23,2] = 5000000; income_table[23,3]=10000; income_table[24,1] = "30"; income_table[24,2] = 5000000; income_table[24,3]=10000; income_table[25,1] = "31"; income_table[25,2] = 5000000; income_table[25,3]=10000; income_table[26,1] = "32"; income_table[26,2] = 30000000; income_table[26,3]=10000; income_table[27,1] = "33"; income_table[27,2] = 5000000; income_table[27,3]=10000; income_table[28,1] = "34"; income_table[28,2] = 5000000; income_table[28,3]=10000; income_table[29,1] = "35"; income_table[29,2] = 5000000; income_table[29,3]=10000; income_table[30,1] = "36"; income_table[30,2] = 5000000; income_table[30,3]=10000; income_table[31,1] = "37"; income_table[31,2] = 30000000; income_table[31,3]=10000; income_table[32,1] = "39"; income_table[32,2] = 10000000; income_table[32,3]=10000; income_table[33,1] = "40"; income_table[33,2] = 30000000; income_table[33,3]=10000; income_table[34,1] = "41"; income_table[34,2] = 5000000; income_table[34,3]=10000; income_table[35,1] = "42"; income_table[35,2] = 5000000; income_table[35,3]=10000; income_table[36,1] = "43"; income_table[36,2] = 5000000; income_table[36,3]=10000; income_table[37,1] = "44"; income_table[37,2] = 30000000; income_table[37,3]=10000; income_table[38,1] = "45"; income_table[38,2] = 5000000; income_table[38,3]=10000; income_table[39,1] = "46"; income_table[39,2] = 5000000; income_table[39,3]=10000; income_table[40,1] = "47"; income_table[40,2] = 2500000; income_table[40,3]=10000; income_table[41,1] = "48"; income_table[41,2] = 900000; income_table[41,3]=10000; income_table[42,1] = "49"; income_table[42,2] = 500000; income_table[42,3]=10000; income_table[43,1] = "50"; income_table[43,2] = 500000; income_table[43,3]=10000; income_table[44,1] = "63"; income_table[44,2] = 10000000; income_table[44,3]=100000; income_table[45,1] = "65"; income_table[45,2] = 4000000; income_table[45,3]=30000; income_table[46,1] = "67"; income_table[46,2] = 500000; income_table[46,3]=5000; endif //97.¹¤Òµ¡¢½¨ÖþÒµ¡¢Ã³Ò×Òµµ¥Î»¾­ÓªÐÔµ¥Î»ÊÕÈëÈ¡ÖµÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ £¨ÐÐÒµ´óÀྭӪÊÕÈë×î´óÖµ¼û¸½±í£© verify2 GE_MAX(income_table,substr(a["Z02_064"],1,2),a["Z02_23"],0) == 0,"23¾­ÓªÐÔµ¥Î»ÊÕÈëӦСÓÚ±¾ÐÐÒµ(´óÀà)×î´óÖµ£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; //98.06ÐÐÒµ´úÂëÇ°Á½Î»Îª¡°06-46¡±µÄµ¥Î»£¬È˾ù¾­ÓªÐÔµ¥Î»ÊÕÈëÒ»°ãӦСÓÚ10000¡£ if substr(a["Z02_064"],1,2) in {"06":"46"} then verify2 a["Z02_23"]*1.0/a["Z02_17"] < 10000 ,"23¹¤ÒµÈ˾ù¾­ÓªÐÔÊÕÈëÒ»°ãӦСÓÚһǧÍòÔª£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; endif //100.óÒ×ÒµÈ˾ù¾­ÓªÐÔµ¥Î»ÊÕÈëÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ £¨ÐÐÒµ´óÀàÈ˾ù¾­ÓªÊÕÈë×î´óÖµ¼û¸½±í£© if substr(a["Z02_064"],1,2) in {"63","65","67"} then verify2 GE_MAX(income_table,substr(a["Z02_064"],1,2),a["Z02_23"]*1.0/a["Z02_17"],1) == 0 ,"23óÒ×ÒµÈ˾ù¾­ÓªÐÔÊÕÈëÒ»°ãӦСÓÚ±¾ÐÐÒµ£¨´óÀࣩ×î´óÖµ£¬ÇëºËʵ¡££¨È·ÈÏÉóºË£©"; endif //102.14»ú¹¹ÀàÐÍÑ¡¡°3¡±µÄµ¥Î»£¬ÐÐÕþÊÂÒµÐÔµ¥Î»Ö§³ö±ØÐë´óÓÚ0 if a["Z02_14"] =="3" then verify a["Z02_24"] > 0,"24»ú¹ØÓ¦ÌîдÐÐÕþÊÂÒµÖ§³ö"; endif //102.³ýÁËÐÐÒµ´úÂëÇ°ÈýλÊÇ962¡¢963¡¢841¡¢842µÄµ¥Î»Í⣬Èç¹û14»ú¹¹ÀàÐÍÑ¡¡°2¡¢4¡¢9¡±£¬ //¾­ÓªÐÔµ¥Î»ÊÕÈë+ÐÐÕþÊÂÒµÐÔµ¥Î»Ö§³ö±ØÐë´óÓÚ0 if !(substr(a["Z02_064"],1,3) in {"962","963","841","842"}) && a["Z02_14"] in {"2","4","9"} then verify (a["Z02_23"]+a["Z02_24"]) > 0,"ÐÐÕþÊÂÒµÐÔÖ§³ö»ò¾­ÓªÐÔµ¥Î»ÊÕÈë©Ìî"; endif //103.14»ú¹¹ÀàÐÍÑ¡¡°1¡±£¬ÐÐÕþÊÂÒµÐÔµ¥Î»Ö§³ö±ØÐëΪ0¡£ if a["Z02_14"] == "1" then verify a["Z02_24"] == 0,"24ÆóÒµ²úÒµ»î¶¯µ¥Î»²»Ó¦ÌîдÐÐÕþÊÂÒµÐÔµ¥Î»Ö§³ö"; endif //104.¹éÊô·¨È˵¥Î»´úÂë1.´úÂ볤¶ÈÐëΪ9¸ö×Ö·û£¬²»Äܺ¬ÓÐ0-9»òA-Z£¨±ØÐë´óд£©Ö®ÍâµÄ×Ö·û¡£2£®±ØÐë·ûºÏУÑ鹫ʽ¡£ verify length(a["ParentCode"])==9,"25¹éÊô·¨È˵¥Î»´úÂë·Ç·¨"; for i=1 to length(a["ParentCode"]) do if !(substr(a["ParentCode"],i,1) in {"0":"9","A":"Z"}) then verify false,"25¹éÊô·¨È˵¥Î»´úÂë·Ç·¨"; break; endif endfor if length(a["ParentCode"]) == 9 then verify isCodeLogical( a["ParentCode"] ) == 1,"25¹éÊô·¨ÈËÂë²»·ûºÏУÑé¹æÔò"; endif //105.²»ÄÜÓë01²úÒµ»î¶¯µ¥Î»´úÂëÒ»Ö¡£ verify a["ParentCode"]<> unt[2],"25¹éÊô·¨È˵¥Î»´úÂëÓë01²úÒµ»î¶¯µ¥Î»´úÂ벻ӦʹÓÃÏàͬµÄ´úÂë¡£" ; //106.³¤¶È±ØÐëΪ6£¬Ó¦Óë¹ú¼ÒµÄ±ê׼ʡµØÏØÏç´åµØÖ·Âë¿âÖкóÁùλΪ¡°000000¡±µÄÇ°ÁùλµØÖ·ÂëÒ»Ö¡£ //ÌØÀý£ºÈç¹û¹éÊô·¨È˵¥Î»´úÂëÊÇ¡°000000000¡±£¬Ôò¹éÊô·¨ÈËÐÐÕþÇø»®´úÂë¡°000000¡±ÊÓΪºÏ·¨¡£ verify length(a["Z02_252"]) == 6 ,"25¹éÊô·¨È˵¥Î»ÐÐÕþÇø»®´úÂ멼»òΪ·Ç·¨Âë"; if !(substr(a["ParentCode"],1,9)=="000000000") then verify hasCateItem("dzm",a["Z02_252"] + "000000") && a["Z02_252"]<>"000000","25¹éÊô·¨È˵¥Î»ÐÐÕþÇø»®´úÂ멼»òΪ·Ç·¨Âë"; else verify hasCateItem("dzm",a["Z02_252"] + "000000") || a["Z02_252"]=="000000","25¹éÊô·¨È˵¥Î»ÐÐÕþÇø»®´úÂ멼»òΪ·Ç·¨Âë"; endif //107.³ýÁË000000Í⣬6λµØÖ·ÂëÖУ¬µÚ1λºÍµÚ2λ²»ÄÜͬʱΪ0£»µÚ3λºÍµÚ4λ²»ÄÜͬʱΪ0£» //³ýÁË441900(Ç°Áù룩ºÍ442000Í⣬µÚ5λºÍµÚ6λ²»ÄÜͬʱΪ0¡£ if length(a["Z02_252"]) ==6 then if a["Z02_252"] <> "000000" then verify substr(a["Z02_252"],1,2) <> "00" && substr(a["Z02_252"],3,2) <> "00" && (substr(a["Z02_252"],5,2) <> "00" || (a["Z02_252"] in {"441900","442000"})), "25¹éÊô·¨È˵¥Î»ÐÐÕþÇø»®´úÂëÓ¦ÌîÖÁÏØÒ»¼¶"; endif endif //108.³¤¶ÈÓ¦¸Ã´óÓÚµÈÓÚ8¸ö×Ö·û£¨ÖÁÉÙ4¸öºº×Ö£© verify length(a["ParentName"]) >=8 ,"25¹éÊô·¨È˵¥Î»Ãû³Æ©¼"; //109.¹éÊô·¨È˵¥Î»Ãû³Æ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["ParentName"]),"25¹éÊô·¨È˵¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["ParentName"]),"25¹éÊô·¨È˵¥Î»Ãû³Æº¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //110.Èç¹ûµ¥Î»Àà±ð=2£¬¹éÊô·¨È˵¥Î»Ãû³ÆÓë02²úÒµ»î¶¯µ¥Î»Ãû³Æ²»ÄÜÏàͬ if a["z02_00"] == "2" then Verify a["ParentName"] <> unt[3] ,"25¹éÊô·¨È˵¥Î»Ãû³ÆÓë02²úÒµ»î¶¯µ¥Î»Ãû³Æ²»ÄÜÏàͬ"; endif //111.¹éÊô·¨È˵¥Î»Ãû³Æ²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["ParentName"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"25¹éÊô·¨È˵¥Î»Ãû³Æº¬ÓÐÈ«½Ç×Ö·û"; //112.¹éÊô·¨È˵¥Î»ÏêϸµØÖ·³¤¶ÈÓ¦´óÓÚµÈÓÚ12¸ö×Ö·û£¨ÖÁÉÙ6¸öºº×Ö£© verify length(a["Z02_254"])>=12,"25¹éÊô·¨È˵¥Î»ÏêϸµØַ©¼"; //113.¹éÊô·¨È˵¥Î»ÏêϸµØÖ·²»Äܺ¬Óе¥ÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@°ë½Ç×Ö·ûºÍ°ë¸öºº×Ö¡£ verify !hasSpecChar(a["Z02_254"]),"25¹éÊô·¨È˵¥Î»ÏêϸµØÖ·º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; Verify !hasHalfCChar(a["Z02_254"]),"25¹éÊô·¨È˵¥Î»ÏêϸµØÖ·º¬Óаë½Ç×Ö·û»ò°ë¸öºº×Ö"; //114.¹éÊô·¨È˵¥Î»ÏêϸµØÖ·²»Äܺ¬ÓÐÒýºÅ¡¢Ë«ÒýºÅ¡¢¶ººÅ¡¢Îʺš¢@È«½Ç×Ö·û¡£ Verify2 !HasChinese(a["Z02_254"],"¡®¡¯¡°¡±£¬£¿£À£à£§£¢"),"25¹éÊô·¨È˵¥Î»ÏêϸµØÖ·º¬ÓÐÈ«½Ç×Ö·û"; end endI601,101£­1 ·¨È˵¥Î»»ù±¾Çé¿ö,2,/** * ÏîÄ¿: ¾­¼ÃÆÕ²éÊý¾Ý´¦Àíϵͳ * ÃèÊö: 601±í¼È빫ʽ * ¼Èë¿ØÖÆ: * 1.¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢; * 2.601±í±íµ¥³õʼ»¯Ê±×Ô¶¯Ìî³ä 08, 09, 10, 11, 12, 13, 14, 15, 20, 22 µÄ¸´Ñ¡¿ò; * 3."15 ¹¤»á³ÉÁ¢Çé¿ö"£¬µ±Ñ¡Ôñδ³ÉÁ¢¹¤»áºó£¬½¹µãÌøµ½ "16" ÉÏ; * 4."20 ÆóÒµ¼¯ÍÅÇé¿ö"£¬µ±Ñ¡Ôñ1£¬½¹µãÌøµ½ "21" ÉÏ * 5.Z01_064ÐÐÒµ´úÂëµÄ¼ìÑéÏÞÖÆ * 6.ÐÞ¸ÄZ01_152,Z01_202µÄÌøתÏÞ¶¨·½Ê½ 7.Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ 8.Ôö¼Ó·¨È˵¥Î»´úÂëºÏ·¨ÐÔУÑ鼰УÑ麯Êý * * ×÷Õß: ³Â¿É * ´´½¨ÈÕÆÚ: 2004.9.18 10:00 * °æ±¾: 0.1 * Ð޸ļǼ: * ----------------------------------------------------------------------------------------------- * °æ±¾ | ÐÞ¸ÄÈÕÆÚ | ÐÞ¸ÄÈË | ÐÞ¸Ä˵Ã÷ * ----------------------------------------------------------------------------------------------- * 0.1 | 2004.9.18 10:00 | ³Â¿É | ´´½¨Îļþ * ----------------------------------------------------------------------------------------------- * 0.2 | 2004.9.21 23:00 | ׿¹â | Ôö¼ÓУÑé¹æÔò * ----------------------------------------------------------------------------------------------- * 0.3 | 2004.9.28 10:00 | ³Â¿É | Table_OnInit()ÖÐÔö¼ÓÁËSetItemCategoryRef£¬±ãÓÚ²éѯĿ¼ * ----------------------------------------------------------------------------------------------- * 0.4 | 2004.12.25 | Ëïæº | ¸Ä±ä¹â±êÌø¸ñλÖÃ(¸Ä±äÌø602µÄ´ÎÊý) * ----------------------------------------------------------------------------------------------- */ //ÔÚÊý¾Ý¼Èëʱ£¬Èç¹ûÐÂÔö±ä¸üÓë×¢Ïú´úÂë¡¢·¨¶¨´ú±íÈ˺ÍÐÐÒµ´úÂ붼ûÌÔòÅжϸõ¥Î»ÎªÐÂÔöµ¥Î» CName_OnExit() if length(GetIndiValue("Uni_YInfo"))==0 && length(GetIndiValue("Z01_03"))==0 && length(GetIndiValue("Z01_064"))==0 then SetIndiValue("Uni_YInfo","1"); endif /* Èç¹û¸÷רҵʹÓñ¾³ÌÐò¼ÈëÊý¾Ý£¬ Ç뽫Óï¾ä¡°SetIndiValue("Uni_Spec","JB")¡±ÖеÄJB¸ÄΪÏàӦרҵ´úÂë ¡¡¡¡×¨Òµ´úÂ룺 B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ, C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ, D10=½»Í¨ÔËÊäµçÐÅÆóÒµ, E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ, G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î», H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎïÒµ¡¢ÖнéºÍÆäËû·¿µØ, JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); */ SetIndiValue("Uni_Spec","JB"); end Z01_160_OnExit() if GetindiValue("Z01_160") == 1 then SetSubUnitCount(0); else SetSubUnitCount(GetIndiValue("Z01_160")); endif end /** * ¼Èë¿ØÖÆ1: * ¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢ */ Z01_04_OnExit() if length(GetIndiValue("Z01_03"))==0 || length(GetIndiValue("Z01_04"))==0 then SetIndiValue("Uni_YInfo","1"); endif var indiValue = GetIndiValue("Z01_04"); if indiValue == "" || length(indiValue) <> 12 then MsgBox("´íÎó£ºÐÐÕþÇø»®Îª12λ!"); return; endif; // ½ØÈ¡ indiValue µÄ¸÷¸ö²¿·ÖÈ¡µÃ¶ÔÓ¦µÄµØÖ·ÐÅÏ¢ // Èç: 110107000000 // ²½Öè: // 1.È¡Á½Î»µÃµ½ 11£¬²¹Æë0µÃµ½110000000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐ // 2.È¡Ç°4λµÃµ½ 1101£¬²¹Æë0µÃµ½110100000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐÐÐÕþÇø // 3.È¡Ç°6λµÃµ½ 110107£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʯ¾°É½Çø // 4.È¡Ç°9λµÃµ½ 110107000£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // 5.²éÍêÕûµÄ110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // Ê×ÏȽ«ÒÑÓеĵØÖ·ÇåÁã SetIndiValue("Z01_043", ""); SetIndiValue("Z01_044", ""); SetIndiValue("Z01_045", ""); SetIndiValue("Z01_046", ""); //SetIndiValue("Z01_047", ""); SetIndiValue("Z01_048", ""); SetIndiValue("Z01_049", ""); var s = ""; var name = ""; var nextCtl = "Z01_047"; name = LookupCategory("dzm",indiValue,"name"); if name == "" then MsgBox("ûÓÐÕÒµ½ÐÐÕþÇø»®[" + indiValue + "]"); // ²»·µ»Ø£¬½Ó×ÅÍùÏÂ×ߣ¬²é³ö¶àÉÙ¾ÍÏÔʾ¶àÉÙ //return; endif; s = SubStr(indiValue, 1, 2) + "0000000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_043", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 4) + "00000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_044", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 6) + "000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_045", name); if s == indiValue then SetCursor(nextCtl); return; endif; // ¸ù¾ÝµÚÆßλµÄÊýÖµµÄ²»Í¬²ÉÓò»Í¬µÄ²ßÂÔ // µÚ7λΪ"1»ò2»ò3"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"Ï磨Õò£©"Ò»À¸ÖÐ // µÚ7λΪ"0»ò4»ò5"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"½ÖµÀ°ìÊ´¦"Ò»À¸ÖÐ // ¼´µÚ7λÊý×Ö¾ö¶¨7,8,9ÈýλÊý×Ö²é³öÀ´µÄµØÖ·ºÍ10,11,12λ²é³öÀ´µÄÊý×ÖÊÇÌîµ½ // Ïç(Õò)ºÍ½Ö(´å)¡¢ÃÅÅƺÅÉÏ»¹ÊǽֵÀ°ìÊ´¦ºÍ¾Ó(´å)ί»áÉÏ var s1 = SubStr(indiValue, 7, 1); s = SubStr(indiValue, 1, 9) + "000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; if (s1 == "1" || s1 == "2" || s1 == "3") then SetIndiValue("Z01_046", name); else SetIndiValue("Z01_048", name); endif; if s == indiValue then SetCursor(nextCtl); return; endif; s = indiValue; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_049", name); SetCursor(nextCtl); end Z01_047_OnExit() SetCursor("Z01_051"); end /** * ¼Èë¿ØÖÆ2: * ±íµ¥³õʼ»¯Ê±Ìî³ä"08 µÇ¼Ç×¢²áÀàÐÍ" */ Table_OnInit() FillItems("Z01_070","B=»ú¹¹±àÖƲ¿ÃÅ,M=ÃñÕþ²¿ÃÅ,S=¹úË°,D=µØË°,G=¹¤É̲¿ÃÅ,Z=Öʼ첿ÃÅ"); FillItems("Z01_079_5", "1=ÖÐÑë,2=Ê¡,3=µØ£¨ÊУ©,4=ÏØ£¨ÊУ©"); // 08 FillItems("Z01_08","110=¹úÓÐ,120=¼¯Ìå,130=¹É·ÝºÏ×÷,141=¹úÓкÏÓª,142=¼¯ÌåÁªÓª,143=¹úÓÐÓ뼯ÌåÁªÓª,149=ÆäËûÁªÓª,151=¹úÓжÀ×ʹ«Ë¾,159=ÆäËûÓÐÏÞÔðÈι«Ë¾,160=¹É·ÝÓÐÏÞ¹«Ë¾,171=˽Ӫ¶À×Ê,172=˽ӪºÏ»ï,173=˽ӪÓÐÏÞÔðÈι«Ë¾,174=˽Ӫ¹É·ÝÓÐÏÞ¹«Ë¾,190=ÆäËû,210=Óë¸Û°Ą̈É̺Ï×ʾ­Óª,220=Óë¸Û°Ą̈É̺Ï×÷¾­Óª,230=¸Û°Ą̈É̶À×Ê,240=¸Û°Ą̈ÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾,310=ÖÐÍâºÏ×ʾ­Óª,320=ÖÐÍâºÏ×ö¾­Óª,330=Íâ×ÊÆóÒµ,340=ÍâÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾"); FillItems("Uni_Spec","B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ,C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ,D10=½»Í¨ÔËÊäµçÐÅÆóÒµ,E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ,G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î»,H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎÝÒµ¡¢ÖнéºÍÆäËû·¿µØ,JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); // 09 FillItems("Z01_09", "1=¹úÓоø¶Ô¿Ø¹É,2=¹úÓÐÏà¶Ô¿Ø¹É,3=¼¯Ìå¾ø¶Ô¿Ø¹É,4=¼¯ÌåÏà¶Ô¿Ø¹É,9=ÆäËû"); // 10 FillItems("Z01_10", "10=ÖÐÑë,20=Ê¡£¨×ÔÖÎÇø¡¢Ö±Ï½ÊУ©,40=µØ£¨Çø¡¢ÊС¢ÖÝ¡¢ÃË£©,50=ÏØ£¨Çø¡¢ÊС¢Æ죩,61=½ÖµÀ,62=Õò,63=Ïç,71=¾Óί»á,72=´åί»á,90=ÆäËû"); // 12 FillItems("Z01_12", "1=ÓªÒµ,2=Í£Òµ£¨ÐªÒµ£©,3=³ï½¨,4=µ±Äê¹Ø±Õ,5=µ±ÄêÆƲú,9=ÆäËû"); // 13 FillItems("Z01_13","1=ÆóÒµ»á¼ÆÖƶÈ,2=ÊÂÒµµ¥Î»»á¼ÆÖƶÈ,3=ÐÐÕþµ¥Î»»á¼ÆÖƶÈ,9=ÆäËû"); // 14 FillItems("Z01_14","1=ÆóÒµ,2=ÊÂÒµµ¥Î»,3=»ú¹Ø,4=Éç»áÍÅÌå,5=Ãñ°ì·ÇÆóÒµµ¥Î»,9=ÆäËû×éÖ¯½á¹¹"); FillItems("Z01_141", "10=ÆóÒµ·¨ÈË,20=ÊÂÒµ·¨ÈË,30=»ú¹Ø·¨ÈË,40=ÉçÍÅ·¨ÈË,51=Ãñ°ì·ÇÆóÒµ,52=»ù½ð»á,53=¾Óί»á,54=´åί»á,90=ÆäËû·¨ÈË"); // 15 FillItems("Z01_151","1=δ³ÉÁ¢¹¤»á,2=ÒѳÉÁ¢¹¤»á"); // 20 FillItems("Uni_Yb","1=Ä걨µ¥Î»,2=·ÇÄ걨µ¥Î»"); FillItems("Z01_201","1=´òÀ¦ºóµ¥Î»,2=±»´òÀ¦µ¥Î»"); // 21 FillItems("Z01_212","1=Ò»¼¶,2=¶þ¼¶,3=Èý¼¶,4=Ëļ¶,5=Ôݶ¨,9=ÆäËû"); FillItems("Z01_213","1=Ò»¼¶,2=¶þ¼¶,3=Èý¼¶,9=ÆäËû"); FillItems("Uni_Yinfo","1=ÐÂÔö,2=±ä¸ü,3=×¢Ïú"); // 22 FillItems("Z01_214","1=ÎåÐÇ,2=ËÄÐÇ,3=ÈýÐÇ,4=¶þÐÇ,5=Ò»ÐÇ,9=ÆäËû"); SetItemCategoryRef("Z01_04", "dzm","name" , ""); SetItemCategoryRef("Z01_064", "industry", "industry_name" , "ITEM_LEVEL=5"); SetItemCategoryRef("Z01_211", "jzyzzdj", "zzdj_name", ""); end /** * ¼Èë¿ØÖÆ4: * "20 ÆóÒµ¼¯ÍÅÇé¿ö"£¬µ±Ñ¡Ôñ1£¬½¹µãÌøµ½ "21" ÉÏ */ Z01_201_OnExit() var indiValue = GetIndiValue("Z01_201"); if indiValue == "1" then SetCursor("Z01_211"); endif; end /** * ¼Èë¿ØÖÆ5: * Z01_064ÐÐÒµ´úÂëµÄ¼ìÑéÏÞÖÆ */ Z01_064_OnExit() var Z01_064_ind=GetIndiValue("Z01_064"); if LookupCategory("industry",Z01_064_ind,"industry_code") == "" || LookupCategory("industry",Z01_064_ind,"item_Level") <> "5" then MsgBox("ÐÐÒµ´úÂë[" + Z01_064_ind + "]"+"ÔÚĿ¼Öв»´æÔÚ£¡"); return; endif; end /** * ¼Èë¿ØÖÆ6: * Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ */ Z01_211_OnExit() var Z01_211_ind=GetIndiValue("Z01_211"); if Z01_211_ind == "" then return; endif; if LookupCategory("jzyzzdj",Z01_211_ind,"zzdj_code") == "" then MsgBox("×ÊÖʵȼ¶´úÂë[" + Z01_211_ind + "]"+"ÔÚĿ¼Öв»´æÔÚ£¡"); return; endif; if LookupCategory("jzyzzdj",Z01_211_ind,"item_level") <> "3" then MsgBox("×ÊÖʵȼ¶´úÂë[" + Z01_211_ind + "]"+"²»¿É¼È룡"); return; endif; end /*Z01_202_OnExit() var Z01_064_ind=GetIndiValue("Z01_064"); if ! (Z01_064_ind in {"4710":"5090","7210","7220","6610","6620","6690"}) then SetCursor("Z01_info1"); endif; end */ /** * Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ * Ö»ÓÐÐÐÒµ´úÂëÔÚ4710 - 5090·¶Î§ÄڵIJÅÊǽ¨ÖþÒµ£¬²ÅÐèÒªÌîд½¨ÖþÒµ×ÊÖʵȼ¶ */ Z01_211_OnEnter() var Z01_064_ind=GetIndiValue("Z01_064"); if (Z01_064_ind < "4710" || Z01_064_ind > "5090") then //MsgBox("·Ç½¨ÖþÒµ²»Ìîд£¡"); SetCursor("Z01_212"); return; endif; end /** * ¼Èë¿ØÖÆ7: * ·¨È˵¥Î»´úÂëºÏ·¨ÐÔУÑé */ CCode_OnExit() var indiValue = GetIndiValue("CCode"); if indiValue == "" || length(indiValue) <> 9 then MsgBox("´íÎ󣺷¨È˵¥Î»´úÂëΪ9λ!"); return; endif; if isCodeLogical(indiValue)==0 then MsgBox("·¨È˵¥Î»´úÂë[" + GetIndiValue("CCode") + "]"+"²»ºÏ·¨£¡"); return; //ÊÇ·ñÔÊÐí¼ÌÐø¼Èë //SetCursor("CCode"); endif; end /** * ¼Èë¿ØÖÆ7: * ´òÀ¦µ¥Î»´úÂëºÏ·¨ÐÔУÑé */ Z01_202_OnExit() var indiValue = GetIndiValue("Z01_202"); if indiValue == "" || length(indiValue) <> 9 then MsgBox("´íÎ󣺷¨È˵¥Î»´úÂëΪ9λ!"); return; endif; if isCodeLogical(indiValue)==0 then MsgBox("·¨È˵¥Î»´úÂë[" + GetIndiValue("CCode") + "]"+"²»ºÏ·¨£¡"); return; //ÊÇ·ñÔÊÐí¼ÌÐø¼Èë //SetCursor("CCode"); endif; end //·¨È˵¥Î»´úÂëУÑ麯Êý function isCodeLogical( szCode ) var wi = array(9); wi[1] = 3; wi[2] = 7; wi[3] = 9; wi[4] = 10; wi[5] = 5; wi[6] = 8; wi[7] = 4; wi[8] = 2; wi[9] = 0; var addv = 0; var ret=0; for i=1 to 8 do var ci = 0; if substr(szCode,i,1) in {"A":"Z"} then ci = code(substr(szCode,i,1))-55;// È¡×Öĸ¶ÔÓ¦µÄÖµ£¨ A=10,B=11...), ÆäÖÐ×ÖĸAµÄASCIIֵΪ65£» else ci = value(substr(szCode,i,1)); //È¡×Ö·û(0-9)×ÖÃæµÄÖµ; endif addv = addv + ci * wi[i];//°´Ð£ÑéÂ빫ʽ¼ÓȨÀÛ¼ÓÉú³ÉMODºóÃæµÄÖµ endfor addv = (11 - addv % 11) % 11;//¼ÆËãУÑéÂëµÄÖµ£¬%ΪȡÓà if ( addv == 10 ) then if substr(szCode,9,1) == "X" then ret = 1; endif else if value(substr(szCode,9,1))==addv then ret = 1; endif endif return ret; endI601t,101£­1 רҵ¹ý¶È±í,2,/** * ÏîÄ¿: ¾­¼ÃÆÕ²éÊý¾Ý´¦Àíϵͳ * ÃèÊö: 601±í¼È빫ʽ * ¼Èë¿ØÖÆ: * 1.¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢; * 2.601±í±íµ¥³õʼ»¯Ê±×Ô¶¯Ìî³ä 08, 09, 10, 11, 12, 13, 14, 15, 20, 22 µÄ¸´Ñ¡¿ò; * 3."15 ¹¤»á³ÉÁ¢Çé¿ö"£¬µ±Ñ¡Ôñδ³ÉÁ¢¹¤»áºó£¬½¹µãÌøµ½ "16" ÉÏ; * 4."20 ÆóÒµ¼¯ÍÅÇé¿ö"£¬µ±Ñ¡Ôñ1£¬½¹µãÌøµ½ "21" ÉÏ * 5.Z01_064ÐÐÒµ´úÂëµÄ¼ìÑéÏÞÖÆ * 6.ÐÞ¸ÄZ01_152,Z01_202µÄÌøתÏÞ¶¨·½Ê½ 7.Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ 8.Ôö¼Ó·¨È˵¥Î»´úÂëºÏ·¨ÐÔУÑ鼰УÑ麯Êý * * ×÷Õß: ³Â¿É * ´´½¨ÈÕÆÚ: 2004.9.18 10:00 * °æ±¾: 0.1 * Ð޸ļǼ: * ----------------------------------------------------------------------------------------------- * °æ±¾ | ÐÞ¸ÄÈÕÆÚ | ÐÞ¸ÄÈË | ÐÞ¸Ä˵Ã÷ * ----------------------------------------------------------------------------------------------- * 0.1 | 2004.9.18 10:00 | ³Â¿É | ´´½¨Îļþ * ----------------------------------------------------------------------------------------------- * 0.2 | 2004.9.21 23:00 | ׿¹â | Ôö¼ÓУÑé¹æÔò * ----------------------------------------------------------------------------------------------- * 0.3 | 2004.9.28 10:00 | ³Â¿É | Table_OnInit()ÖÐÔö¼ÓÁËSetItemCategoryRef£¬±ãÓÚ²éѯĿ¼ * ----------------------------------------------------------------------------------------------- * 0.4 | 2004.12.25 | Ëïæº | ¸Ä±ä¹â±êÌø¸ñλÖÃ(¸Ä±äÌø602µÄ´ÎÊý) * ----------------------------------------------------------------------------------------------- */ //ÔÚÊý¾Ý¼Èëʱ£¬Èç¹ûÐÂÔö±ä¸üÓë×¢Ïú´úÂë¡¢·¨¶¨´ú±íÈ˺ÍÐÐÒµ´úÂ붼ûÌÔòÅжϸõ¥Î»ÎªÐÂÔöµ¥Î» CName_OnExit() if length(GetIndiValue("Uni_YInfo"))==0 && length(GetIndiValue("Z01_03"))==0 && length(GetIndiValue("Z01_064"))==0 then SetIndiValue("Uni_YInfo","1"); endif /* Èç¹û¸÷רҵʹÓñ¾³ÌÐò¼ÈëÊý¾Ý£¬ Ç뽫Óï¾ä¡°SetIndiValue("Uni_Spec","JB")¡±ÖеÄJB¸ÄΪÏàӦרҵ´úÂë ¡¡¡¡×¨Òµ´úÂ룺 B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ, C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ, D10=½»Í¨ÔËÊäµçÐÅÆóÒµ, E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ, G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î», H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎïÒµ¡¢ÖнéºÍÆäËû·¿µØ, JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); */ SetIndiValue("Uni_Spec","JB"); end Z01_160_OnExit() if GetindiValue("Z01_160") == 1 then SetSubUnitCount(0); else SetSubUnitCount(GetIndiValue("Z01_160")); endif end /** * ¼Èë¿ØÖÆ1: * ¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢ */ Z01_04_OnExit() if length(GetIndiValue("Z01_03"))==0 || length(GetIndiValue("Z01_04"))==0 then SetIndiValue("Uni_YInfo","1"); endif var indiValue = GetIndiValue("Z01_04"); if indiValue == "" || length(indiValue) <> 12 then MsgBox("´íÎó£ºÐÐÕþÇø»®Îª12λ!"); return; endif; // ½ØÈ¡ indiValue µÄ¸÷¸ö²¿·ÖÈ¡µÃ¶ÔÓ¦µÄµØÖ·ÐÅÏ¢ // Èç: 110107000000 // ²½Öè: // 1.È¡Á½Î»µÃµ½ 11£¬²¹Æë0µÃµ½110000000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐ // 2.È¡Ç°4λµÃµ½ 1101£¬²¹Æë0µÃµ½110100000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐÐÐÕþÇø // 3.È¡Ç°6λµÃµ½ 110107£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʯ¾°É½Çø // 4.È¡Ç°9λµÃµ½ 110107000£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // 5.²éÍêÕûµÄ110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // Ê×ÏȽ«ÒÑÓеĵØÖ·ÇåÁã SetIndiValue("Z01_043", ""); SetIndiValue("Z01_044", ""); SetIndiValue("Z01_045", ""); SetIndiValue("Z01_046", ""); //SetIndiValue("Z01_047", ""); SetIndiValue("Z01_048", ""); SetIndiValue("Z01_049", ""); var s = ""; var name = ""; var nextCtl = "Z01_047"; name = LookupCategory("dzm",indiValue,"name"); if name == "" then MsgBox("ûÓÐÕÒµ½ÐÐÕþÇø»®[" + indiValue + "]"); // ²»·µ»Ø£¬½Ó×ÅÍùÏÂ×ߣ¬²é³ö¶àÉÙ¾ÍÏÔʾ¶àÉÙ //return; endif; s = SubStr(indiValue, 1, 2) + "0000000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_043", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 4) + "00000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_044", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 6) + "000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_045", name); if s == indiValue then SetCursor(nextCtl); return; endif; // ¸ù¾ÝµÚÆßλµÄÊýÖµµÄ²»Í¬²ÉÓò»Í¬µÄ²ßÂÔ // µÚ7λΪ"1»ò2»ò3"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"Ï磨Õò£©"Ò»À¸ÖÐ // µÚ7λΪ"0»ò4»ò5"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"½ÖµÀ°ìÊ´¦"Ò»À¸ÖÐ // ¼´µÚ7λÊý×Ö¾ö¶¨7,8,9ÈýλÊý×Ö²é³öÀ´µÄµØÖ·ºÍ10,11,12λ²é³öÀ´µÄÊý×ÖÊÇÌîµ½ // Ïç(Õò)ºÍ½Ö(´å)¡¢ÃÅÅƺÅÉÏ»¹ÊǽֵÀ°ìÊ´¦ºÍ¾Ó(´å)ί»áÉÏ var s1 = SubStr(indiValue, 7, 1); s = SubStr(indiValue, 1, 9) + "000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; if (s1 == "1" || s1 == "2" || s1 == "3") then SetIndiValue("Z01_046", name); else SetIndiValue("Z01_048", name); endif; if s == indiValue then SetCursor(nextCtl); return; endif; s = indiValue; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z01_049", name); SetCursor(nextCtl); end Z01_047_OnExit() SetCursor("Z01_051"); end /** * ¼Èë¿ØÖÆ2: * ±íµ¥³õʼ»¯Ê±Ìî³ä"08 µÇ¼Ç×¢²áÀàÐÍ" */ Table_OnInit() FillItems("Z01_070","B=»ú¹¹±àÖƲ¿ÃÅ,M=ÃñÕþ²¿ÃÅ,S=¹úË°,D=µØË°,G=¹¤É̲¿ÃÅ,Z=Öʼ첿ÃÅ"); FillItems("Z01_079_5", "1=ÖÐÑë,2=Ê¡,3=µØ£¨ÊУ©,4=ÏØ£¨ÊУ©"); // 08 FillItems("Z01_08","110=¹úÓÐ,120=¼¯Ìå,130=¹É·ÝºÏ×÷,141=¹úÓкÏÓª,142=¼¯ÌåÁªÓª,143=¹úÓÐÓ뼯ÌåÁªÓª,149=ÆäËûÁªÓª,151=¹úÓжÀ×ʹ«Ë¾,159=ÆäËûÓÐÏÞÔðÈι«Ë¾,160=¹É·ÝÓÐÏÞ¹«Ë¾,171=˽Ӫ¶À×Ê,172=˽ӪºÏ»ï,173=˽ӪÓÐÏÞÔðÈι«Ë¾,174=˽Ӫ¹É·ÝÓÐÏÞ¹«Ë¾,190=ÆäËû,210=Óë¸Û°Ą̈É̺Ï×ʾ­Óª,220=Óë¸Û°Ą̈É̺Ï×÷¾­Óª,230=¸Û°Ą̈É̶À×Ê,240=¸Û°Ą̈ÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾,310=ÖÐÍâºÏ×ʾ­Óª,320=ÖÐÍâºÏ×ö¾­Óª,330=Íâ×ÊÆóÒµ,340=ÍâÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾"); FillItems("Uni_Spec","B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ,C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ,D10=½»Í¨ÔËÊäµçÐÅÆóÒµ,E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ,G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î»,H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎÝÒµ¡¢ÖнéºÍÆäËû·¿µØ,JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); // 09 FillItems("Z01_09", "1=¹úÓоø¶Ô¿Ø¹É,2=¹úÓÐÏà¶Ô¿Ø¹É,3=¼¯Ìå¾ø¶Ô¿Ø¹É,4=¼¯ÌåÏà¶Ô¿Ø¹É,9=ÆäËû"); // 10 FillItems("Z01_10", "10=ÖÐÑë,20=Ê¡£¨×ÔÖÎÇø¡¢Ö±Ï½ÊУ©,40=µØ£¨Çø¡¢ÊС¢ÖÝ¡¢ÃË£©,50=ÏØ£¨Çø¡¢ÊС¢Æ죩,61=½ÖµÀ,62=Õò,63=Ïç,71=¾Óί»á,72=´åί»á,90=ÆäËû"); // 12 FillItems("Z01_12", "1=ÓªÒµ,2=Í£Òµ£¨ÐªÒµ£©,3=³ï½¨,4=µ±Äê¹Ø±Õ,5=µ±ÄêÆƲú,9=ÆäËû"); // 13 FillItems("Z01_13","1=ÆóÒµ»á¼ÆÖƶÈ,2=ÊÂÒµµ¥Î»»á¼ÆÖƶÈ,3=ÐÐÕþµ¥Î»»á¼ÆÖƶÈ,9=ÆäËû"); // 14 FillItems("Z01_14","1=ÆóÒµ,2=ÊÂÒµµ¥Î»,3=»ú¹Ø,4=Éç»áÍÅÌå,5=Ãñ°ì·ÇÆóÒµµ¥Î»,9=ÆäËû×éÖ¯½á¹¹"); FillItems("Z01_141", "10=ÆóÒµ·¨ÈË,20=ÊÂÒµ·¨ÈË,30=»ú¹Ø·¨ÈË,40=ÉçÍÅ·¨ÈË,51=Ãñ°ì·ÇÆóÒµ,52=»ù½ð»á,53=¾Óί»á,54=´åί»á,90=ÆäËû·¨ÈË"); // 15 FillItems("Z01_151","1=δ³ÉÁ¢¹¤»á,2=ÒѳÉÁ¢¹¤»á"); // 20 FillItems("Uni_Yb","1=Ä걨µ¥Î»,2=·ÇÄ걨µ¥Î»"); FillItems("Z01_201","1=´òÀ¦ºóµ¥Î»,2=±»´òÀ¦µ¥Î»"); // 21 FillItems("Z01_212","1=Ò»¼¶,2=¶þ¼¶,3=Èý¼¶,4=Ëļ¶,5=Ôݶ¨,9=ÆäËû"); FillItems("Z01_213","1=Ò»¼¶,2=¶þ¼¶,3=Èý¼¶,9=ÆäËû"); FillItems("Uni_Yinfo","1=ÐÂÔö,2=±ä¸ü,3=×¢Ïú"); // 22 FillItems("Z01_214","1=ÎåÐÇ,2=ËÄÐÇ,3=ÈýÐÇ,4=¶þÐÇ,5=Ò»ÐÇ,9=ÆäËû"); SetItemCategoryRef("Z01_04", "dzm","name" , ""); SetItemCategoryRef("Z01_064", "industry", "industry_name" , "ITEM_LEVEL=5"); SetItemCategoryRef("Z01_211", "jzyzzdj", "zzdj_name", ""); end /** * ¼Èë¿ØÖÆ4: * "20 ÆóÒµ¼¯ÍÅÇé¿ö"£¬µ±Ñ¡Ôñ1£¬½¹µãÌøµ½ "21" ÉÏ */ Z01_201_OnExit() var indiValue = GetIndiValue("Z01_201"); if indiValue == "1" then SetCursor("Z01_211"); endif; end /** * ¼Èë¿ØÖÆ5: * Z01_064ÐÐÒµ´úÂëµÄ¼ìÑéÏÞÖÆ */ Z01_064_OnExit() var Z01_064_ind=GetIndiValue("Z01_064"); if LookupCategory("industry",Z01_064_ind,"industry_code") == "" || LookupCategory("industry",Z01_064_ind,"item_Level") <> "5" then MsgBox("ÐÐÒµ´úÂë[" + Z01_064_ind + "]"+"ÔÚĿ¼Öв»´æÔÚ£¡"); return; endif; end /** * ¼Èë¿ØÖÆ6: * Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ */ Z01_211_OnExit() var Z01_211_ind=GetIndiValue("Z01_211"); if Z01_211_ind == "" then return; endif; if LookupCategory("jzyzzdj",Z01_211_ind,"zzdj_code") == "" then MsgBox("×ÊÖʵȼ¶´úÂë[" + Z01_211_ind + "]"+"ÔÚĿ¼Öв»´æÔÚ£¡"); return; endif; if LookupCategory("jzyzzdj",Z01_211_ind,"item_level") <> "3" then MsgBox("×ÊÖʵȼ¶´úÂë[" + Z01_211_ind + "]"+"²»¿É¼È룡"); return; endif; end /*Z01_202_OnExit() var Z01_064_ind=GetIndiValue("Z01_064"); if ! (Z01_064_ind in {"4710":"5090","7210","7220","6610","6620","6690"}) then SetCursor("Z01_info1"); endif; end */ /** * Z01_211½¨ÖþÒµ×ÊÖʵȼ¶´úÂëµÄ¼ìÑéÏÞÖÆ * Ö»ÓÐÐÐÒµ´úÂëÔÚ4710 - 5090·¶Î§ÄڵIJÅÊǽ¨ÖþÒµ£¬²ÅÐèÒªÌîд½¨ÖþÒµ×ÊÖʵȼ¶ */ Z01_211_OnEnter() var Z01_064_ind=GetIndiValue("Z01_064"); if (Z01_064_ind < "4710" || Z01_064_ind > "5090") then //MsgBox("·Ç½¨ÖþÒµ²»Ìîд£¡"); SetCursor("Z01_212"); return; endif; end /** * ¼Èë¿ØÖÆ7: * ·¨È˵¥Î»´úÂëºÏ·¨ÐÔУÑé */ CCode_OnExit() var indiValue = GetIndiValue("CCode"); if indiValue == "" || length(indiValue) <> 9 then MsgBox("´íÎ󣺷¨È˵¥Î»´úÂëΪ9λ!"); return; endif; if isCodeLogical(indiValue)==0 then MsgBox("·¨È˵¥Î»´úÂë[" + GetIndiValue("CCode") + "]"+"²»ºÏ·¨£¡"); return; //ÊÇ·ñÔÊÐí¼ÌÐø¼Èë //SetCursor("CCode"); endif; end /** * ¼Èë¿ØÖÆ7: * ´òÀ¦µ¥Î»´úÂëºÏ·¨ÐÔУÑé */ Z01_202_OnExit() var indiValue = GetIndiValue("Z01_202"); if indiValue == "" || length(indiValue) <> 9 then MsgBox("´íÎ󣺷¨È˵¥Î»´úÂëΪ9λ!"); return; endif; if isCodeLogical(indiValue)==0 then MsgBox("·¨È˵¥Î»´úÂë[" + GetIndiValue("CCode") + "]"+"²»ºÏ·¨£¡"); return; //ÊÇ·ñÔÊÐí¼ÌÐø¼Èë //SetCursor("CCode"); endif; end //·¨È˵¥Î»´úÂëУÑ麯Êý function isCodeLogical( szCode ) var wi = array(9); wi[1] = 3; wi[2] = 7; wi[3] = 9; wi[4] = 10; wi[5] = 5; wi[6] = 8; wi[7] = 4; wi[8] = 2; wi[9] = 0; var addv = 0; var ret=0; for i=1 to 8 do var ci = 0; if substr(szCode,i,1) in {"A":"Z"} then ci = code(substr(szCode,i,1))-55;// È¡×Öĸ¶ÔÓ¦µÄÖµ£¨ A=10,B=11...), ÆäÖÐ×ÖĸAµÄASCIIֵΪ65£» else ci = value(substr(szCode,i,1)); //È¡×Ö·û(0-9)×ÖÃæµÄÖµ; endif addv = addv + ci * wi[i];//°´Ð£ÑéÂ빫ʽ¼ÓȨÀÛ¼ÓÉú³ÉMODºóÃæµÄÖµ endfor addv = (11 - addv % 11) % 11;//¼ÆËãУÑéÂëµÄÖµ£¬%ΪȡÓà if ( addv == 10 ) then if substr(szCode,9,1) == "X" then ret = 1; endif else if value(substr(szCode,9,1))==addv then ret = 1; endif endif return ret; endI602,101£­2 ²úÒµ»î¶¯µ¥Î»»ù±¾Çé¿ö,2,/** * ÏîÄ¿: ¾­¼ÃÆÕ²éÊý¾Ý´¦Àíϵͳ * ÃèÊö: 602±í¼È빫ʽ * ¼Èë¿ØÖÆ: * 1.¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢; * 2.602±í±íµ¥³õʼ»¯Ê±×Ô¶¯Ìî³ä 00, 08, 12, 14µÄ¸´Ñ¡¿ò; 3.Z02_064ÐÐÒµ´úÂëµÄ¼ìÑéÏÞÖÆ 4.Ôö¼Ó²úÒµ»î¶¯µ¥Î»´úÂëºÏ·¨ÐÔУÑ鼰УÑ麯Êý * ×÷Õß: ׿¹â * ´´½¨ÈÕÆÚ: 2004.9.19 * °æ±¾: 0.1 * Ð޸ļǼ: * ----------------------------------------------------------------------------------------------- * °æ±¾ | ÐÞ¸ÄÈÕÆÚ | ÐÞ¸ÄÈË | ÐÞ¸Ä˵Ã÷ * ----------------------------------------------------------------------------------------------- * 0.1 | 2004.9.19 | ׿¹â | ´´½¨Îļþ * ----------------------------------------------------------------------------------------------- * 0.2 | 2004.12.25 | Ëïæº | Ôö¼ÓÊDZ¾²¿Ê±²úÒµ»î¶¯µ¥Î»Ð£Ñéλ¿ÉÒÔÊÇB * ----------------------------------------------------------------------------------------------- */ /** * ¼Èë¿ØÖÆ1: * ¸ù¾Ý"04 µ¥Î»ËùÔڵؼ°ÐÐÕþÇø»®"µÄ"ÐÐÕþÇø»®"×Ô¶¯ÌîдµØÖ·ÐÅÏ¢ */ Z02_02_OnExit() if length(GetIndiValue("UniInfo"))==0 && length(GetIndiValue("Z02_03"))==0 && length(GetIndiValue("Z02_064"))==0 then SetIndiValue("UniInfo","1"); endif /* Èç¹û¸÷רҵʹÓñ¾³ÌÐò¼ÈëÊý¾Ý£¬ Ç뽫Óï¾ä¡°SetIndiValue("Uni_Spec","JB")¡±ÖеÄJB¸ÄΪÏàӦרҵ´úÂë ¡¡¡¡×¨Òµ´úÂ룺 B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ, C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ, D10=½»Í¨ÔËÊäµçÐÅÆóÒµ, E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ, G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î», H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎïÒµ¡¢ÖнéºÍÆäËû·¿µØ, JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); */ SetIndiValue("Cy_Spec","JB"); end Z02_00_OnExit() if length(GetIndiValue("UniInfo"))==0 && length(GetIndiValue("Z02_03"))==0 && length(GetIndiValue("Z02_064"))==0 then SetIndiValue("UniInfo","1"); endif /* Èç¹û¸÷רҵʹÓñ¾³ÌÐò¼ÈëÊý¾Ý£¬ Ç뽫Óï¾ä¡°SetIndiValue("Uni_Spec","JB")¡±ÖеÄJB¸ÄΪÏàӦרҵ´úÂë ¡¡¡¡×¨Òµ´úÂ룺 B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ, C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ, D10=½»Í¨ÔËÊäµçÐÅÆóÒµ, E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ, G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î», H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎÝÒµ¡¢ÖнéºÍÆäËû·¿µØ, JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); */ SetIndiValue("Cy_Spec","JB"); end Z02_04_OnExit() var indiValue = GetIndiValue("Z02_04"); if indiValue == "" || length(indiValue) <> 12 then MsgBox("´íÎó£ºÐÐÕþÇø»®Îª12λ!"); return; endif; // ½ØÈ¡ indiValue µÄ¸÷¸ö²¿·ÖÈ¡µÃ¶ÔÓ¦µÄµØÖ·ÐÅÏ¢ // Èç: 110107000000 // ²½Öè: // 1.È¡Á½Î»µÃµ½ 11£¬²¹Æë0µÃµ½110000000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐ // 2.È¡Ç°4λµÃµ½ 1101£¬²¹Æë0µÃµ½110100000000£¬²éµØÖ·ÂëµÃµ½ ±±¾©ÊÐÐÐÕþÇø // 3.È¡Ç°6λµÃµ½ 110107£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʯ¾°É½Çø // 4.È¡Ç°9λµÃµ½ 110107000£¬²¹Æë0µÃµ½110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // 5.²éÍêÕûµÄ110107000000£¬²éµØÖ·ÂëµÃµ½ ʵ¼ÊµØÖ· // Ê×ÏȽ«ÒÑÓеĵØÖ·ÇåÁã SetIndiValue("Z02_043", ""); SetIndiValue("Z02_044", ""); SetIndiValue("Z02_045", ""); SetIndiValue("Z02_046", ""); //SetIndiValue("Z02_047", ""); SetIndiValue("Z02_048", ""); SetIndiValue("Z02_049", ""); var s = ""; var name = ""; var nextCtl = "Z02_047"; name = LookupCategory("dzm",indiValue,"name"); if name == "" then MsgBox("ûÓÐÕÒµ½ÐÐÕþÇø»®[" + indiValue + "]"); // ²»·µ»Ø£¬½Ó×ÅÍùÏÂ×ߣ¬²é³ö¶àÉÙ¾ÍÏÔʾ¶àÉÙ //return; endif; s = SubStr(indiValue, 1, 2) + "0000000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z02_043", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 4) + "00000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z02_044", name); if s == indiValue then SetCursor(nextCtl); return; endif; s = SubStr(indiValue, 1, 6) + "000000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z02_045", name); if s == indiValue then SetCursor(nextCtl); return; endif; // ¸ù¾ÝµÚÆßλµÄÊýÖµµÄ²»Í¬²ÉÓò»Í¬µÄ²ßÂÔ // µÚ7λΪ"1»ò2»ò3"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"Ï磨Õò£©"Ò»À¸ÖÐ // µÚ7λΪ"0»ò4»ò5"£¬Ôò¶ÔÓ¦µÄºº×ÖÐÅÏ¢Ì×Èë"½ÖµÀ°ìÊ´¦"Ò»À¸ÖÐ // ¼´µÚ7λÊý×Ö¾ö¶¨7,8,9ÈýλÊý×Ö²é³öÀ´µÄµØÖ·ºÍ10,11,12λ²é³öÀ´µÄÊý×ÖÊÇÌîµ½ // Ïç(Õò)ºÍ½Ö(´å)¡¢ÃÅÅƺÅÉÏ»¹ÊǽֵÀ°ìÊ´¦ºÍ¾Ó(´å)ί»áÉÏ var s1 = SubStr(indiValue, 7, 1); s = SubStr(indiValue, 1, 9) + "000"; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; if (s1 == "1" || s1 == "2" || s1 == "3") then SetIndiValue("Z02_046", name); else SetIndiValue("Z02_048", name); endif; if s == indiValue then SetCursor(nextCtl); return; endif; s = indiValue; name = LookupCategory("dzm",s,"name"); if name == "" then SetCursor(nextCtl); return; endif; SetIndiValue("Z02_049", name); SetCursor(nextCtl); end Z02_047_OnExit() SetCursor("Z02_051"); end Z02_064_OnExit() var Z02_064_ind=GetIndiValue("Z02_064"); if LookupCategory("industry",Z02_064_ind,"industry_code") == "" || LookupCategory("industry",Z02_064_ind,"item_Level") <> "5" then MsgBox("ÐÐÒµ´úÂë[" + Z02_064_ind + "]"+"ÔÚĿ¼Öв»´æÔÚ£¡"); return; endif; end Table_OnInit() FillItems("Z02_070","B=»ú¹¹±àÖƲ¿ÃÅ,M=ÃñÕþ²¿ÃÅ,S=¹úË°,D=µØË°,G=¹¤É̲¿ÃÅ,Z=Öʼ첿ÃÅ"); FillItems("Cy_Spec","B10=¹æÄ£ÒÔÉϹ¤ÒµÆóÒµ,B20=¹æÄ£ÒÔϹ¤ÒµÆóÒµ,C10=×ÊÖʽ¨ÖþÆóÒµ,C20=ÀÍÎñ·Ö°ü½¨ÖþÆóÒµ,C30=×ÊÖÊÒÔÍ⽨ÖþÆóÒµ,D10=½»Í¨ÔËÊäµçÐÅÆóÒµ,E11=ÏÞ¶îÒÔÉÏÅú·¢ÁãÊÛÆóÒµ,E12=ÏÞ¶îÒÔÏÂÅú·¢ÁãÊÛÆóÒµ,E21=ÏÞ¶îÒÔÉÏסËÞ²ÍÒûÆóÒµ,E22=ÏÞ¶îÒÔÏÂסËÞ²ÍÒûÆóÒµ,G10=·þÎñÒµÆóÒµ,G20=ÐÐÕþÊÂÒµµ¥Î»,H10=·¿µØ²ú¿ª·¢ÆóÒµ,H20=ÎÝÒµ¡¢ÖнéºÍÆäËû·¿µØ,JB=»ù±¾µ¥Î»,M10=Ìú·ϵͳ,M20=¹ú¼ÒÓÊÕþÆóÒµ,M30=ÒøÐÐÒµÆóÒµ,M40=±£ÏÕÐÐÒµÆóÒµ,M50=֤ȯҵÆóÒµ,N10=Å©Òµ"); // 00 FillItems("Z02_00","1=·¨È˵¥Î»±¾²¿,2=·¨È˵¥Î»·ÖÖ§»ú¹¹"); // 08 FillItems("Z02_08","110=¹úÓÐ,120=¼¯Ìå,130=¹É·ÝºÏ×÷,141=¹úÓкÏÓª,142=¼¯ÌåÁªÓª,143=¹úÓÐÓ뼯ÌåÁªÓª,149=ÆäËûÁªÓª,151=¹úÓжÀ×ʹ«Ë¾,159=ÆäËûÓÐÏÞÔðÈι«Ë¾,160=¹É·ÝÓÐÏÞ¹«Ë¾,171=˽Ӫ¶À×Ê,172=˽ӪºÏ»ï,173=˽ӪÓÐÏÞÔðÈι«Ë¾,174=˽Ӫ¹É·ÝÓÐÏÞ¹«Ë¾,190=ÆäËû,210=Óë¸Û°Ą̈É̺Ï×ʾ­Óª,220=Óë¸Û°Ą̈É̺Ï×÷¾­Óª,230=¸Û°Ą̈É̶À×Ê,240=¸Û°Ą̈ÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾,310=ÖÐÍâºÏ×ʾ­Óª,320=ÖÐÍâºÏ×ö¾­Óª,330=Íâ×ÊÆóÒµ,340=ÍâÉÌͶ×ʹɷÝÓÐÏÞ¹«Ë¾"); // 12 FillItems("Z02_12", "1=ÓªÒµ,2=Í£Òµ£¨ÐªÒµ£©,3=³ï½¨,4=µ±Äê¹Ø±Õ,5=µ±ÄêÆƲú,9=ÆäËû"); // 14 FillItems("Z02_14","1=ÆóÒµ²úÒµ»î¶¯µ¥Î»,2=ÊÂÒµ²úÒµ»î¶¯µ¥Î»,3=²úÒµ»î¶¯µ¥Î»,4=Éç»áÍÅÌå²úÒµ»î¶¯µ¥Î»,9=ÆäËû²úÒµ»î¶¯µ¥Î»"); FillItems("Z02_140", "1=Éú²ú¾­ÓªÐÔ,2=·ÇÉú²ú¾­ÓªÐÔ"); FillItems("UniInfo","1=ÐÂÔö,2=±ä¸ü,3=×¢Ïú"); FillItems("Z02_079_5", "1=ÖÐÑë,2=Ê¡,3=µØ£¨ÊУ©,4=ÏØ£¨ÊУ©"); FillItems("CyYb","1=Ä걨µ¥Î»,2=·ÇÄ걨µ¥Î»"); SetItemCategoryRef("Z02_04", "dzm","name", ""); SetItemCategoryRef("Z02_064", "industry", "industry_name", "ITEM_LEVEL = 5"); end CCode_OnExit() var indiValue = GetIndiValue("CCode"); if indiValue == "" || length(indiValue) <> 9 then MsgBox("´íÎ󣺲úÒµ»î¶¯µ¥Î»´úÂëΪ9λ!"); return; endif; if upper(substr(indiValue,9,1)) == "B" then if GetIndiValue("z02_00") <> "1" then MsgBox("·Ç·¨È˱¾²¿Ê¹Óñ¾²¿ÌØÊâ´úÂë"); endif return; endif if isCodeLogical(ind