{"id":5810,"date":"2019-09-17T08:42:56","date_gmt":"2019-09-17T00:42:56","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5810"},"modified":"2019-09-17T08:42:56","modified_gmt":"2019-09-17T00:42:56","slug":"t100%e6%89%8b%e5%86%8c-%e8%a1%a8%e6%a0%bc%e5%bc%8f%e5%8f%8c%e6%a1%a3%e6%97%a0%e6%9f%a5%e8%af%a2%e9%a1%b5%e7%ad%beazzq950","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5810","title":{"rendered":"T100\u624b\u518c \u8868\u683c\u5f0f\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)(azzq950)"},"content":{"rendered":"

1. \u67e5\u8be2\u7c7b\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)\u8868\u683c\u6a21\u578b<\/p>\n

<\/p>\n

 <\/p>\n

Q\u7c7b\u7c7b\u53cc\u6863\u6837\u677f\ufe5dpattern\ufe5e\u53ea\u80fd\u652f\u6301\u5355\u4e00\u7684\u4e3b\u8868\uff0c\u53e6\u5916\u53ef\u652f\u6301\u591a\u4e2a\u5355\u5934\u5b50\u8868\u3002<\/p>\n

2. \u67e5\u8be2\u7c7b\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)\u53c2\u8003\u753b\u9762<\/p>\n

\u6b64\u6837\u677f\u65e0\u67e5\u8be2\u9875\u7b7e\u529f\u80fd\u3002<\/p>\n

\u5de6\u56fe\u662f\u6709\u8bbe\u5b9a\u5355\u8eab\u4e3b\u8868\u53ca\u5355\u8eab\u5b50\u8868\u7684\u8303\u4f8b\u753b\u9762\uff0c\u53f3\u56fe\u5219\u4e3a\u5355\u4e00\u4e3b\u8868\u7684\u8303\u4f8b\u753b\u9762\u3002<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-1<\/p>\n

<\/p>\n

\u6b64\u6837\u677f\u65e0\u67e5\u8be2\u9875\u7b7e\u529f\u80fd\u3002<\/p>\n\n\n\n
\u5de6\u56fe\u662f\u6709\u8bbe\u5b9a\u5355\u8eab\u4e3b\u8868\u53ca\u5355\u8eab\u5b50\u8868\u7684\u8303\u4f8b\u753b\u9762\uff0c\u53f3\u56fe\u5219\u4e3a\u5355\u4e00\u4e3b\u8868\u7684\u8303\u4f8b\u753b\u9762\u3002<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

ERP T100<\/p>\n

3. \u67e5\u8be2\u7c7b\u53cc\u6587\u4ef6\u7a0b\u5e8f\u6d41\u7a0b<\/p>\n

 <\/p>\n

<\/p>\n

4. \u5206\u6bb5\u7a0b\u5e8f\u6d41\u7a0b<\/p>\n

4.1\u5171\u4eab\u53ca\u6a21\u5757\u53d8\u91cf\u5ba3\u544a<\/p>\n

\u7a0b\u5e8f\u6ce8\u8bb0\u6bb5\u843d<\/p>\n

01 {<section id=”azzq950.description” >}<\/p>\n

02 #\u5e94\u7528 a00 \u6837\u677f\u81ea\u52a8\u4ea7\u751f(Version:1)<\/p>\n

03 #+ Version..: T100-ERP-1.00.00(SD\u7248\u6b21:3,PR\u7248\u6b21:3) Build-000071<\/p>\n

04 #+<\/p>\n

05 #+ Filename…: azzq950<\/p>\n

06 #+ Description: \u80cc\u666f\u6392\u7a0b\u67e5\u8be2\u4f5c\u4e1a<\/p>\n

07 #+ Creator….: 00824(2014-05-02 14:20:00)<\/p>\n

08 #+ Modifier…: 01856(2014-08-13 16:01:58) -SD\/PR- 01856(2014-08-13 16:04:59)<\/p>\n

09 {<\/section>}<\/p>\n

\u5f15\u5165\u53ca\u5168\u5c40\u53d8\u91cf\u8bbe\u5b9a<\/p>\n

10 {<section id=”azzq950.global” >}<\/p>\n

11 IMPORT os<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-2<\/p>\n

 <\/p>\n

12 IMPORT util<\/p>\n

13 #add-point:\u589e\u52a0\u6c47\u5165\u9879\u76ee<\/p>\n

14 \u7a0b\u5e8f\u4e2d\u82e5\u9700\u8981\u4f7f\u7528 JAVA\u6216 Genero\u539f\u751f lib\u5747\u987b\u5728\u6b64\u5904\u8bbe\u7f6e IMPORT<\/p>\n

15 #end add-point<\/p>\n

cfg\/top_global.inc\u4e2d\u5b58\u653e\u4e86\u6240<\/p>\n

\u6709\u7cfb\u7edf\u4e2d\u6240\u9700\u4f7f\u7528\u7684\u53d8\u91cf\uff0c\u4e8e\u6b64<\/p>\n

\u5904\u5f15\u5165<\/p>\n

16 SCHEMA ds<\/p>\n

17 GLOBALS “..\/..\/cfg\/top_global.inc”<\/p>\n

\u8bf4\u660e\uff1a<\/p>\n

\u5728 top.global\u4e0b\u8bbe\u5b9a\u7684\u53d8\u91cf\u6709\u8bb8\u591a\u662f\u5728\u7a0b\u5e8f\u6267\u884c\u65f6\u5e38\u4f1a\u5f15\u7528\u6216\u53d8\u52a8\u7684\u3002\u4ee5\u4e0b\u5217\u51fa\u8f83\u4e3a\u5e38\u7528\u7684\u76f8\u5173\u53d8\u6570\uff0c\u8be6\u7ec6<\/p>\n

\u5b9a\u4e49\u90e8\u5206\u8bf7\u53c2\u7167\u7cfb\u7edf\u8bf4\u660e\u3002<\/p>\n

g_enterprise \u76ee\u524d\u7684\u4f01\u4e1a\u4ee3\u7801\uff0c\u5c06\u9650\u5236\u7528\u6237\u6240\u80fd\u9605\u8bfb\u7684\u6570\u636e\u5185\u5bb9<\/p>\n

g_prog \u76ee\u524d\u6267\u884c\u7684\u4f5c\u4e1a\u7f16\u53f7\uff0c\u7528\u4e8e\u53d8\u6362\u753b\u9762\u663e\u793a\u6570\u636e\u4e0e\u4ea7\u751f\u7cfb\u7edf\u4fe1\u606f\uff0c\u4e0d\u53ef\u53d8\u66f4<\/p>\n

g_code \u76ee\u524d\u6267\u884c\u7684\u7a0b\u5e8f\u4ee3\u7801(4gl)\u540d\u79f0\uff0c\u4e0d\u53ef\u53d8\u66f4<\/p>\n

g_user \u76ee\u524d\u7528\u6237\u4ee3\u7801\uff0c\u5c06\u7eaa\u5f55\u7528\u6237\u7684\u64cd\u4f5c\u5386\u7a0b\u4e0e\u6743\u9650\u63a7\u5236\uff0c\u4e0d\u53ef\u53d8\u66f4<\/p>\n

g_qryparam \u52a8\u6001\u5f00\u7a97\u67e5\u8be2\u51fd\u5f0f\u6570\u636e\u4f20\u9012\u53d8\u91cf\uff0c\u4f7f\u7528\u5f00\u7a97\u529f\u80fd\u65f6\u987b\u5148\u7ed9\u4e88\u76f8\u5173\u53d8\u91cf<\/p>\n

g_dlang \u76ee\u524d\u7528\u6237\u6240\u9009\u53d6\u7684\u6570\u636e\u591a\u8bed\u8a00\u8bed\u7cfb\u4ee3\u7801\uff0c\u53ef\u900f\u8fc7\u5de5\u5177\u8fdb\u884c\u8bed\u7cfb\u8bbe\u5b9a<\/p>\n

g_site \u76ee\u524d\u7684\u8425\u8fd0\u636e\u70b9\u540d\u79f0\uff0c\u53ef\u900f\u8fc7\u5207\u6362\u8bfb\u53d6\u4e0d\u540c\u636e\u70b9\u7684\u6570\u636e<\/p>\n

g_errparam\u9519\u8bef\u4ee3\u7801\u4f20\u9012\u53d8\u91cf\uff0c\u900f\u8fc7\u6b64\u53d8\u91cf\u53ef\u63a7\u5236\u9519\u8bef\u4ee3\u7801\u7684\u663e\u793a\u5185\u5bb9\u4e0e\u6a21\u5f0f<\/p>\n

\u9664\u4e0a\u5217\u5916\u8fd8\u6709\uff1a<\/p>\n

g_bgjob \u8be5\u652f\u7a0b\u5e8f\u662f\u5426\u4ee5\u80cc\u666f\u6a21\u5f0f\u6267\u884c,g_today \u4eca\u65e5\u65e5\u671f,g_max_browse \u6d4f\u89c8\u9875\u7b7e\u6570\u636e\u6700\u5927\u7b14\u6570\u4e0a\u9650,<\/p>\n

g_max_rec \u5355\u8eab\u8d44\u6599\u6700\u5927\u7b14\u6570\u4e0a\u9650 \u2026 \u7b49\u7b49\u3002<\/p>\n

18 #add-point:\u589e\u52a0\u6c47\u5165\u53d8\u91cf\u6587\u4ef6<\/p>\n

19 \u90e8\u5206\u5927\u578b\u7a0b\u5e8f\u9700\u8981\u62e5\u6709\u81ea\u5df1\u7684 inc\u53c2\u6570\u914d\u7f6e\u6587\u4ef6\uff0c\u53ef\u4ee5\u81ea\u884c\u4e8e\u6b64\u5904\u6c47\u5165<\/p>\n

20 #end add-point<\/p>\n

21<\/p>\n

22 #\u5355\u8eab type \u5ba3\u544a<\/p>\n

23 PRIVATE TYPE type_g_gzpc_d RECORD<\/p>\n

\u7a0b\u5e8f\u9700\u4f7f\u7528\u7684\u5168\u5c40\u53d8\u91cf\uff0c\u53d8\u91cf\u6570\u636e<\/p>\n

24<\/p>\n

25<\/p>\n

sel LIKE type_t.chr1,<\/p>\n

gzpc000 LIKE gzpc_t.gzpc000,<\/p>\n

…<\/p>\n

\u4ece\u753b\u9762\u5b57\u6bb5\u53d6\u51fa\uff0c\u4e0d\u53ef\u589e\u51cf<\/p>\n

40<\/p>\n

END RECORD<\/p>\n

41 PRIVATE TYPE type_g_gzpc2_d RECORD<\/p>\n

42<\/p>\n

43<\/p>\n

gzpd003 LIKE gzpd_t.gzpd003,<\/p>\n

gzpd011 LIKE gzpd_t.gzpd011,<\/p>\n

…<\/p>\n

60<\/p>\n

END RECORD<\/p>\n

61 #\u6a21\u5757\u53d8\u91cf(Module Variables)<\/p>\n

62 DEFINE g_gzpc_d DYNAMIC ARRAY OF type_g_gzpc_d<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-3<\/p>\n

 <\/p>\n

 <\/p>\n

63 DEFINE g_gzpc2_d<\/p>\n

DYNAMIC ARRAY OF type_g_gzpc2_d<\/p>\n

\u7565<\/p>\n

70 #add-point:\u5b9a\u4e49\u6a21\u5757\u53d8\u91cf(Module Variable)<\/p>\n

71 \u7a0b\u5e8f\u4e2d\u82e5\u9700\u8981\u81ea\u884c\u589e\u52a0\u8981\u7528\u7684\u5168\u5c40\u53d8\u91cf\u5219\u53ef\u4e8e\u6b64\u5904\u8bbe\u5b9a<\/p>\n

72 #end add-point<\/p>\n

Form\u548c current window\u90fd\u6709\u6307\u5b9a<\/p>\n

\u5168\u5c40\u5bf9\u8c61\uff0c\u56e0\u6b64\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528\u5bf9\u8c61<\/p>\n

73 #add-point:\u4f20\u5165\u53c2\u6570\u8bf4\u660e(global.argv)<\/p>\n

74 #end add-point<\/p>\n

75 {<\/section >}<\/p>\n

4.2\u4e3b\u7a0b\u5e8f<\/p>\n

01 {<section id=”arti305.main” >}<\/p>\n

02 #+ \u6b64\u6bb5\u843d\u7531\u5b50\u6837\u677f a26\u4ea7\u751f<\/p>\n

03 #OPTIONS SHORT CIRCUIT<\/p>\n

04 #+ \u4f5c\u4e1a\u5f00\u59cb<\/p>\n

05 MAIN<\/p>\n

 <\/p>\n

 <\/p>\n

#add-point:main\u6bb5 define<\/p>\n

\u6bcf\u4e00\u4e2a FUNCTION\u5f00\u59cb\u5904\u5747\u6709\u9884\u8bbe add-point\u63d0\u4f9b\u7f6e\u653e\u672c\u533a\u9700\u8981\u7684\u53d8\u91cf\u8bbe\u5b9a\uff0c\u540e\u7eed\u4e0d\u518d\u5448\u73b0<\/p>\n

#end add-point<\/p>\n

OPTIONS<\/p>\n

INPUT NO WRAP<\/p>\n

DEFER INTERRUPT<\/p>\n

#\u8bbe\u5b9a SQL\u9519\u8bef\u8bb0\u5f55\u65b9\u5f0f (\u6a21\u5757\u5185\u5b9a\u4e49\u6709\u6548)<\/p>\n

\u5f53\u7a0b\u5e8f\u8fd0\u884c\u4e2d\u906d\u9047\u4e0d\u53ef\u9884\u671f\u7684\u9519\u8bef<\/p>\n

WHENEVER ERROR CALL cl_err_msg_log<\/p>\n

\u65f6\u5c06\u9519\u8bef\u4fe1\u606f\u5199\u5165 Log\u6587\u4ef6\u5185<\/p>\n

#\u4f9d\u6a21\u5757\u8fdb\u884c\u7cfb\u7edf\u521d\u59cb\u5316\u8bbe\u5b9a(\u7cfb\u7edf\u8bbe\u5b9a)<\/p>\n

\u7cfb\u7edf\u521d\u59cb\u5316\uff1a\u7eaa\u5f55\u76f8\u5173\u7684\u4fe1\u606f(\u4f8b\u5982<\/p>\n

\u7a0b\u5e8f\u5f00\u542f\u65f6\u95f4\u3001\u7528\u6237\u540d\u79f0\u7b49\u4fe1\u606f)<\/p>\n

CALL cl_ap_init(“azz”,””)<\/p>\n

\u67e5\u8be2\u7c7b\u7a0b\u5e8f\u4e0d\u4f1a\u6709 UPDATE\u52a8\u4f5c\uff0c\u56e0\u6b64\u4e0d\u9700\u8981\u9488\u5bf9\u6570\u636e\u505a\u9501\u5b9a\uff0c<\/p>\n

\u4f46\u56e0\u4e0e\u5355\u636e\u7c7b\u7a0b\u5e8f\u5171\u4eab\u5b50\u6837\u677f\uff0c\u6240\u4ee5\u6b64\u6bb5\u7a0b\u5e8f\u4ee3\u7801\u4ecd\u4f1a\u4ea7\u751f\uff0c\u53ef\u5ffd\u7565\u6b64\u6bb5 SQL(\u7b2c 20 ~ 49\u884c)<\/p>\n

#LOCK CURSOR (identifier)<\/p>\n

#add-point:SQL_define<\/p>\n

\u82e5\u4e0d\u613f\u4f7f\u7528\u4ea7\u751f\u5668\u4ea7\u51fa\u7684 LOCK CURSOR\uff0c\u5219\u6b64\u5904\u53ef\u4ee5\u4f7f\u7528 mark=y\u6807\u8bb0\u3002<\/p>\n

#end add-point<\/p>\n

LET g_forupd_sql = ” “,<\/p>\n

” FROM “,<\/p>\n

” ”<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-4<\/p>\n

 <\/p>\n

#add-point:SQL_define<\/p>\n

\u5f53\u4f7f\u7528 mark=y\u6807\u8bb0\u65f6\uff0c\u5fc5\u987b\u4ece\u6b64\u5904\u8bbe\u5b9a\u60a8\u6240\u9700\u8981\u7684 LOCK CURSOR<\/p>\n

#end add-point<\/p>\n

LET g_forupd_sql = cl_sql_forupd(g_forupd_sql)<\/p>\n

LET g_forupd_sql = cl_sql_add_mask(g_forupd_sql)<\/p>\n

DECLARE azzq950_cl CURSOR FROM g_forupd_sql<\/p>\n

#\u8f6c\u6362\u4e0d\u540c\u6570\u636e\u5e93\u8bed\u6cd5<\/p>\n

#\u906e\u853d\u7279\u5b9a\u8d44\u6599<\/p>\n

# LOCK CURSOR<\/p>\n

LET g_sql = ” SELECT “,<\/p>\n

” FROM t0″,<\/p>\n

” WHERE ”<\/p>\n

LET g_sql = cl_sql_add_mask(g_sql)<\/p>\n

#add-point:SQL_define<\/p>\n

#end add-point<\/p>\n

#\u906e\u853d\u7279\u5b9a\u8d44\u6599<\/p>\n

PREPARE azzq950_master_referesh FROM g_sql<\/p>\n

#add-point:main\u6bb5 define_sql<\/p>\n

#end add-point<\/p>\n

LET g_forupd_sql = “”<\/p>\n

#add-point:main\u6bb5 define_sql<\/p>\n

#end add-point<\/p>\n

LET g_forupd_sql = cl_sql_forupd(g_forupd_sql)<\/p>\n

LET g_forupd_sql = cl_sql_add_mask(g_forupd_sql)<\/p>\n

DECLARE azzq950_bcl CURSOR FROM g_forupd_sql<\/p>\n

#\u906e\u853d\u7279\u5b9a\u8d44\u6599<\/p>\n

IF g_bgjob = “Y” THEN<\/p>\n

#add-point:Service Call<\/p>\n

\u753b\u9762\u5173\u95ed\u524d\u5982\u679c\u6709\u9700\u8981\u76f8\u5173\u7684\u5904\u7406\uff0c\u8bf7\u589e\u52a0\u4e8e\u6b64\u5904<\/p>\n

#end add-point<\/p>\n

ELSE<\/p>\n

#\u753b\u9762\u5f00\u542f (identifier)<\/p>\n

OPEN WINDOW w_azzq950 WITH FORM cl_ap_formpath(“azz”,g_code)<\/p>\n

#\u6d4f\u89c8\u9875\u7b7e\u6570\u636e\u521d\u59cb\u5316<\/p>\n

\u6839\u636e\u8be5\u7a0b\u5e8f\u7684\u8bbe\u5b9a\u8fdb\u884c\u753b\u9762\u521d\u59cb\u5316, \u5e76<\/p>\n

CALL cl_ui_init()<\/p>\n

#\u7a0b\u5e8f\u521d\u59cb\u5316<\/p>\n

\u6c47\u5165 ToolBar, TopMenu\u7684\u4fe1\u606f<\/p>\n

\u5b50\u753b\u9762\u663e\u793a\u6807\u9898\u4e5f\u9700\u8981\u547c\u53eb cl_ui_init<\/p>\n

CALL azzq950_init()<\/p>\n

#\u8fdb\u5165\u9009\u5355 Menu (=”N”)<\/p>\n

CALL azzq950_ui_dialog()<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-5<\/p>\n

 <\/p>\n

#add-point:\u753b\u9762\u5173\u95ed\u524d<\/p>\n

\u7a0b\u5e8f\u5173\u95ed\u524d\u5982\u679c\u6709\u9700\u8981\u76f8\u5173\u7684\u5904\u7406\uff0c\u8bf7\u589e\u52a0\u4e8e\u6b64\u5904<\/p>\n

#end add-point<\/p>\n

#\u753b\u9762\u5173\u95ed<\/p>\n

CLOSE WINDOW w_azzq950<\/p>\n

END IF<\/p>\n

CLOSE azzq950_cl<\/p>\n

#add-point:\u4f5c\u4e1a\u79bb\u5f00\u524d<\/p>\n

#end add-point<\/p>\n

\u7a0b\u5e8f\u7ed3\u675f\u65f6\u9700\u547c\u53eb<\/p>\n

CALL cl_ap_exitprogram(“0″)<\/p>\n

cl_ap_exitprogram, \u7eaa\u5f55\u6240\u9700\u7684\u4fe1\u606f<\/p>\n

75 END MAIN<\/p>\n

76 {<\/section>}<\/p>\n

4.3 _init\u521d\u59cb\u5316<\/p>\n

\u7a0b\u5e8f\u6240\u9700\u7684\u76f8\u5173\u521d\u59cb\u5316\u7686\u5b9a\u4e49\u4e8e\u6b64<\/p>\n

(combobox\u8bbe\u5b9a\u3001\u53d8\u91cf\u8bbe\u5b9a\u3001\u753b\u9762\u8bbe\u5b9a<\/p>\n

\u7b49)<\/p>\n

01 {<section id=”azzq950.init” >}<\/p>\n

02 #+ \u753b\u9762\u8d44\u6599\u521d\u59cb\u5316<\/p>\n

03 PRIVATE FUNCTION azzq950_init()<\/p>\n

 <\/p>\n

#add-point:init\u6bb5 define<\/p>\n

#end add-point<\/p>\n

LET g_error_show = 1<\/p>\n

LET g_wc_filter = ” 1=1″<\/p>\n

LET g_wc_filter_t = ” 1=1″<\/p>\n

CALL cl_set_combo_scc(‘b_gzpc003′,’66’)<\/p>\n

CALL cl_set_combo_scc(‘b_gzpc004′,’65’)<\/p>\n

CALL cl_set_combo_scc(‘b_gzpd007′,’64’)<\/p>\n

#add-point:\u753b\u9762\u8d44\u6599\u521d\u59cb\u5316<\/p>\n

\u5b9a\u4e49 combobox\u72b6\u6001\uff0c\u6b64\u4e3a\u4ea7\u751f\u5668\u4f9d\u636e\u753b<\/p>\n

\u9762\u8d44\u6599\u4ea7\u51fa<\/p>\n

#end add-point<\/p>\n

CALL azzq950_default_search()<\/p>\n

16 END FUNCTION<\/p>\n

17 {<\/section>}<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-6<\/p>\n

 <\/p>\n

4.4 _default_search \u6267\u884c\u540e\u9996\u6b21\u67e5\u8be2\u6570\u636e<\/p>\n

01 {<section id=”azzq950.default_search” >}<\/p>\n

02 PRIVATE FUNCTION azzq950_default_search()<\/p>\n

 <\/p>\n

#+ \u7ec4\u627f\u63a5\u5916\u90e8\u53c2\u6570\u65f6\u6570\u636e\u5e93\u5b57\u6bb5\u5bf9\u5e94\u6761\u4ef6(\u5355\u8eab)<\/p>\n

IF NOT cl_null(g_argv[01]) THEN<\/p>\n

LET g_wc = g_wc, ” gzpc000 = ‘”, g_argv[01], “‘ AND ”<\/p>\n

END IF<\/p>\n

IF NOT cl_null(g_wc) THEN<\/p>\n

\u6839\u636e\u5916\u90e8\u53c2\u6570\u7ec4\u5408 g_wc\uff0c\u82e5\u6ca1\u6709\u4f20\u9012<\/p>\n

\u53c2\u6570\u5219\u56de\u4f20 1=2 (\u4e0d\u641c\u5bfb\u4efb\u4f55\u6570\u636e)<\/p>\n

LET g_wc = g_wc.subString(1,g_wc.getLength()-5)<\/p>\n

ELSE<\/p>\n

#\u9884\u8bbe\u67e5\u8be2\u6761\u4ef6<\/p>\n

LET g_wc = ” 1=2″<\/p>\n

END IF<\/p>\n

14 END FUNCTION<\/p>\n

15 {<\/section>}<\/p>\n

4.5 _ui_dialog\u64cd\u4f5c\u529f\u80fd\u9009\u5355<\/p>\n

\u6b64\u6bb5\u843d\u4e3b\u8981\u662f\u4f9d\u636e\u4f7f\u7528\u8005\u6240\u4e0b\u7684\u67e5\u8be2<\/p>\n

\u6761\u4ef6\uff0c\u5c06\u6570\u636e\u663e\u793a\u5728\u753b\u9762\u4e0a\uff0c\u4ee5\u53ca\u5e03<\/p>\n

\u7f6e\u7528\u6237\u53ef\u64cd\u4f5c\u7684\u529f\u80fd\u9009\u5355\u3002<\/p>\n

01 {<section id=”azzq950.ui_dialog” >}<\/p>\n

02 #+ \u529f\u80fd\u9009\u5355<\/p>\n

03 PRIVATE FUNCTION azzq950_ui_dialog()<\/p>\n

\u7565<\/p>\n

\u6b64\u5904\u5305\u542b\u4e86\u8bb8\u591a\u7cfb\u7edf\u6807\u51c6 ACTION,<\/p>\n

query(\u67e5\u8be2), filter(\u6570\u636e\u4e8c\u6b21\u7b5b\u9009),<\/p>\n

exporttoexcel(\u6c47\u51fa Excel),<\/p>\n

 <\/p>\n

LET gwin_curr = ui.Window.getCurrent()<\/p>\n

LET gfrm_curr = gwin_curr.getForm()<\/p>\n

LET g_action_choice = ” ”<\/p>\n

datarefresh(\u91cd\u65b0\u6574\u7406) \u2026 \u7b49\u7b49<\/p>\n

CALL cl_set_act_visible(“accept,cancel”, FALSE)<\/p>\n

#add-point:ui_dialog\u6bb5 before dialog<\/p>\n

\u5f00\u59cb\u8fdb\u5165\u9009\u5355\u524d\u7684\u524d\u7f6e\u5904\u7406<\/p>\n

#end add-point<\/p>\n

IF NOT cl_null(g_wc) AND g_wc != ” 1=2″ THEN<\/p>\n

LET g_detail_idx = 1<\/p>\n

\u4f9d\u5916\u90e8\u53c2\u6570\u7ec4\u5408\u6761\u4ef6 g_wc\uff0c\u5224\u65ad\u5e94\u76f4<\/p>\n

\u63a5\u8fdb\u884c\u6570\u636e\u586b\u5145(_b_fill\u6bb5) \u6216\u662f<\/p>\n

\u8ba9\u4f7f\u7528\u8005\u4e0b\u67e5\u8be2\u6761\u4ef6(_query\u6bb5)<\/p>\n

LET g_detail_idx2 = 1<\/p>\n

CALL azzq950_b_fill()<\/p>\n

ELSE<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-7<\/p>\n

 <\/p>\n

 <\/p>\n

CALL azzq950_query()<\/p>\n

END IF<\/p>\n

WHILE TRUE<\/p>\n

DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)<\/p>\n

DISPLAY ARRAY g_gzpc_d TO s_detail1.* ATTRIBUTE(COUNT=g_detail_cnt)<\/p>\n

\u5355\u8eab\u4e3b\u8868\u6570\u636e\u663e\u793a<\/p>\n

BEFORE DISPLAY<\/p>\n

LET g_current_page = 1<\/p>\n

\u53d6\u5f97\u76ee\u524d\u5355\u8eab\u6240\u5728\u7b14\u6570\u5e76\u505a\u663e\u793a<\/p>\n

BEFORE ROW<\/p>\n

LET g_detail_idx = DIALOG.getCurrentRow(“s_detail1”)<\/p>\n

LET l_ac = g_detail_idx<\/p>\n

DISPLAY g_detail_idx TO FORMONLY.h_index<\/p>\n

DISPLAY g_gzpc_d.getLength() TO FORMONLY.h_count<\/p>\n

\u4e3a\u907f\u514d\u70b9\u9009\u5355\u8eab\u4e3b\u8868\u7684\u6570\u636e\u65f6\uff0c\u5f71<\/p>\n

LET lc_action_choice_old = g_action_choice<\/p>\n

LET g_action_choice = “fetch”<\/p>\n

CALL azzq950_fetch()<\/p>\n

\u54cd\u5230\u5355\u8eab\u5b50\u8868\u6570\u636e\u9009\u53d6\u7684\u6267\u884c\u6548<\/p>\n

\u80fd\uff0c\u4f1a\u4f9d\u636e g_action_choice \u7684\u8d44<\/p>\n

\u6599\uff0c\u6765\u5224\u65ad\u5355\u8eab\u5b50\u8868\u662f\u5426\u9700\u8981\u505a<\/p>\n

SQL \u5b57\u7b26\u4e32\u91cd\u7ec4\u7684\u52a8\u4f5c<\/p>\n

LET g_action_choice = lc_action_choice_old<\/p>\n

LET g_master_idx = l_ac<\/p>\n

#add-point:input\u6bb5 before row<\/p>\n

\u5728\u5bf9\u8bdd\u6846\u4e4b\u5185\u7684\u63a7\u5236\u533a\u5757\uff0c\u6bcf\u4e00\u533a\u5757\u540e\u65b9\u90fd\u4f1a\u7ed9\u4e88 add-point<\/p>\n

#end add-point<\/p>\n

END DISPLAY<\/p>\n

DISPLAY ARRAY g_gzpc2_d TO s_detail2.* ATTRIBUTES(COUNT=g_detail_cnt)<\/p>\n

\u5355\u8eab\u5b50\u8868\u6570\u636e\u663e\u793a<\/p>\n

BEFORE DISPLAY<\/p>\n

LET g_current_page = 2<\/p>\n

BEFORE ROW<\/p>\n

LET g_detail_idx2 = DIALOG.getCurrentRow(“s_detail2″)<\/p>\n

LET l_ac = g_detail_idx2<\/p>\n

DISPLAY g_detail_idx2 TO FORMONLY.idx<\/p>\n

DISPLAY g_gzpc2_d.getLength() TO FORMONLY.cnt<\/p>\n

END DISPLAY<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-8<\/p>\n

 <\/p>\n

 <\/p>\n

ON ACTION query<\/p>\n

LET g_action_choice=”query”<\/p>\n

IF cl_auth_chk_act(“query”) THEN<\/p>\n

CALL azzq950_query()<\/p>\n

END IF<\/p>\n

ON ACTION filter<\/p>\n

\u63d0\u4f9b\u5bf9\u5df2\u7ecf\u67e5\u8be2\u51fa\u6765\u7684\u6570\u636e\u8fdb\u884c<\/p>\n

\u4e8c\u6b21\u7b5b\u9009\u7684\u52a8\u4f5c<\/p>\n

LET g_action_choice=”filter”<\/p>\n

CALL azzq950_filter()<\/p>\n

EXIT DIALOG<\/p>\n

ON ACTION exporttoexcel #\u6c47\u51fa excel<\/p>\n

LET g_action_choice=”exporttoexcel”<\/p>\n

IF cl_auth_chk_act(“exporttoexcel”) THEN<\/p>\n

CALL g_export_node.clear()<\/p>\n

LET g_export_node[1] = base.typeInfo.create(g_gzpc_d)<\/p>\n

LET g_export_id[1] = “s_detail1”<\/p>\n

LET g_export_node[2] = base.typeInfo.create(g_gzpc2_d)<\/p>\n

LET g_export_id[2] = “s_detail2″<\/p>\n

CALL cl_export_to_excel_getpage()<\/p>\n

CALL cl_export_to_excel()<\/p>\n

END IF<\/p>\n

\u7565<\/p>\n

105<\/p>\n

END DIALOG<\/p>\n

\u7565<\/p>\n

125<\/p>\n

END WHILE<\/p>\n

126 END FUNCTION<\/p>\n

127 {<\/section>}<\/p>\n

4.6 _query\u6570\u636e\u67e5\u8be2<\/p>\n

01 {<section id=”azzq950.query” >}<\/p>\n

02 PRIVATE FUNCTION azzq950_query()<\/p>\n

03<\/p>\n

DEFINE ls_wc<\/p>\n

LIKE type_t.chr500<\/p>\n

\u7565<\/p>\n

10<\/p>\n

11<\/p>\n

LET INT_FLAG = 0<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-9<\/p>\n

 <\/p>\n

CLEAR FORM<\/p>\n

\u90e8\u5206\u5b57\u6bb5\u4ec5\u4f9b\u6570\u636e\u663e\u793a\u7528\uff0c\u56e0<\/p>\n

\u6b64\u5728\u4e0b\u67e5\u8be2\u6761\u4ef6\u65f6\u4f1a\u5148\u5c06\u5b57\u6bb5<\/p>\n

\u505a\u9690\u85cf<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.sel”, TRUE)<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.statepic”, TRUE)<\/p>\n

CALL g_gzpc_d.clear()<\/p>\n

LET g_wc_filter = ” 1=1″<\/p>\n

LET g_qryparam.state = “c”<\/p>\n

LET g_detail_idx = 1<\/p>\n

LET g_detail_idx2 = 1<\/p>\n

\u53d8\u6570\u503c\u521d\u59cb\u5316<\/p>\n

#wc\u5907\u4efd<\/p>\n

LET ls_wc = g_wc<\/p>\n

LET g_master_idx = l_ac<\/p>\n

DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)<\/p>\n

#\u5355\u8eab\u6839\u636e table\u5206\u62c6 construct<\/p>\n

CONSTRUCT g_wc_table ON gzpc000,gzpc001,gzpa002,gzpc003,gzpc002,gzpc006<\/p>\n

FROM s_detail1[1].b_gzpc000,s_detail1[1].b_gzpc001,s_detail1[1].b_gzpa002,<\/p>\n

s_detail1[1].b_gzpc003,s_detail1[1].b_gzpc002,s_detail1[1].b_gzpc006<\/p>\n

BEFORE CONSTRUCT<\/p>\n

#add-point:cs\u6bb5 more_construct<\/p>\n

#end add-point<\/p>\n

BEFORE FIELD b_gzpc000<\/p>\n

#add-point:BEFORE FIELD b_gzpc000<\/p>\n

\u6bcf\u4e2a\u5b57\u6bb5\u90fd\u4f1a\u5e03\u7f6e BEFORE<\/p>\n

#END add-point<\/p>\n

FIELD\u3001AFTER FIELD\u3001ON ACTION<\/p>\n

\u8fd9\u4e09\u4e2a\u533a\u5757\uff0c\u4ee5\u4f9b\u4f7f\u7528\u8005\u4f9d\u636e<\/p>\n

AFTER FIELD b_gzpc000<\/p>\n

\u9700\u6c42\u8c03\u6574<\/p>\n

#add-point:AFTER FIELD b_gzpc000<\/p>\n

#END add-point<\/p>\n

ON ACTION controlp INFIELD b_gzpc000<\/p>\n

#add-point:ON ACTION controlp INFIELD b_gzpc000<\/p>\n

#END add-point<\/p>\n

\u7565<\/p>\n

76<\/p>\n

END CONSTRUCT<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-10<\/p>\n

 <\/p>\n

 <\/p>\n

CONSTRUCT g_wc2_table2 ON gzpd003,gzpd011,gzpd004,gzpd007,gzpd008,gzpd010,<\/p>\n

gzpd005,gzpd009,gzpd006,gzpd012<\/p>\n

FROM s_detail2[1].b_gzpd003,s_detail2[1].b_gzpd011,s_detail2[1].b_gzpd004,<\/p>\n

s_detail2[1].b_gzpd007,s_detail2[1].b_gzpd008,s_detail2[1].b_gzpd010,<\/p>\n

s_detail2[1].b_gzpd005,s_detail2[1].b_gzpd009,s_detail2[1].b_gzpd006,<\/p>\n

s_detail2[1].b_gzpd012<\/p>\n

BEFORE CONSTRUCT<\/p>\n

#add-point:cs\u6bb5 more_construct<\/p>\n

#end add-point<\/p>\n

\u7565<\/p>\n

 <\/p>\n

END CONSTRUCT<\/p>\n

ON ACTION accept<\/p>\n

ACCEPT DIALOG<\/p>\n

ON ACTION cancel<\/p>\n

LET INT_FLAG = 1<\/p>\n

EXIT DIALOG<\/p>\n

END DIALOG<\/p>\n

\u7565<\/p>\n

 <\/p>\n

LET g_error_show = 1<\/p>\n

CALL azzq950_b_fill()<\/p>\n

LET l_ac = g_master_idx<\/p>\n

\u7565<\/p>\n

\u6839\u636e\u6240\u4e0b\u8fbe\u7684\u67e5\u8be2\u6761\u4ef6\u8fdb\u884c\u8d44\u6599\u7b5b<\/p>\n

\u9009\uff0c\u5e76\u586b\u5145\u5355\u8eab\u4fe1\u606f<\/p>\n

 <\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.sel”, FALSE)<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.statepic”, FALSE)<\/p>\n

167 END FUNCTION<\/p>\n

168 {<\/section>}<\/p>\n

\u5c06\u4e00\u5f00\u59cb\u9690\u85cf\u7684\u5b57\u6bb5\u663e\u793a\u51fa\u6765\uff0c\u5426<\/p>\n

\u5219\u6570\u636e\u663e\u793a\u65f6\u4f1a\u770b\u4e0d\u5230\u8fd9\u4e24\u4e2a\u5b57\u6bb5<\/p>\n

\u7684\u8d44\u6599<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-11<\/p>\n

 <\/p>\n

4.7 _b_fill\u6570\u636e\u586b\u5145<\/p>\n

01 {<section id=”azzq950.b_fill” >}<\/p>\n

02 PRIVATE FUNCTION azzq950_b_fill()<\/p>\n

03<\/p>\n

DEFINE ls_wc<\/p>\n

STRING<\/p>\n

\u7565<\/p>\n

IF cl_null(g_wc_filter) THEN<\/p>\n

LET g_wc_filter = ” 1=1″<\/p>\n

END IF<\/p>\n

\u786e\u8ba4\u662f\u5426\u6709\u4e0b\u67e5\u8be2\u6761\u4ef6\uff0c\u82e5\u662f\u6ca1\u6709\u5219\u5c06<\/p>\n

\u53d8\u6570\u503c\u8bbe\u4e3a” 1=1″\uff0c\u907f\u514d\u540e\u7eed\u5728\u505a SQL<\/p>\n

\u8bed\u6cd5\u7ec4\u5408\u65f6\u6709\u9519\u8bef<\/p>\n

IF cl_null(g_wc) THEN<\/p>\n

LET g_wc = ” 1=1″<\/p>\n

END IF<\/p>\n

IF cl_null(g_wc2) THEN<\/p>\n

LET g_wc2 = ” 1=1″<\/p>\n

END IF<\/p>\n

LET ls_wc = g_wc, ” AND “, g_wc2, ” AND “, g_wc_filter<\/p>\n

LET g_sql = “SELECT UNIQUE ”,gzpc000,gzpc001,”,gzpc003,gzpc004,gzpc002,gzpc006″,<\/p>\n

” FROM gzpc_t”,<\/p>\n

” LEFT JOIN gzpd_t ON gzpdent = gzpcent AND gzpc000 = gzpd001″,<\/p>\n

” WHERE gzpcent= ? AND 1=1 AND “, ls_wc,cl_sql_add_filter(“gzpc_t”)<\/p>\n

\u5728\u67e5\u8be2\u6570\u636e\u65f6\uff0c\u4f1a\u4f9d\u636e\u300cazzi800 \u4f7f\u7528\u8005<\/p>\n

LET g_sql = g_sql, cl_sql_add_filter(“gzpc_t”),<\/p>\n

\u6570\u636e\u8bbe\u5b9a\u4f5c\u4e1a\u300d\u53ca\u300cazzi850 \u804c\u80fd\u89d2\u8272\u4e0e<\/p>\n

” ORDER BY gzpc_t.gzpc000″<\/p>\n

\u6743\u9650\u8bbe\u5b9a\u4f5c\u4e1a\u300d\u4e2d\u8bbe\u5b9a\u90e8\u95e8\u53ca\u4e2a\u4eba\u6743\u9650<\/p>\n

#add-point:b_fill\u6bb5 sql_after<\/p>\n

\u8fc7\u6ee4\u53ef\u67e5\u8be2\u7684\u6570\u636e<\/p>\n

\u5982\u679c\u6709\u9700\u8981\u91cd\u65b0\u8c03\u6574 SQL\u6307\u4ee4\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

#end add-point<\/p>\n

LET g_sql = cl_sql_add_mask(g_sql)<\/p>\n

PREPARE azzq950_pb FROM g_sql<\/p>\n

\u9488\u5bf9\u4f7f\u7528\u8005\u8bbe\u5b9a\u8981\u52a0\u5bc6\u7684\u7279\u5b9a\u5b57\u6bb5\u8d44<\/p>\n

\u6599\u505a\u906e\u853d<\/p>\n

DECLARE b_fill_curs CURSOR FOR azzq950_pb<\/p>\n

OPEN b_fill_curs USING g_enterprise<\/p>\n

CALL g_gzpc_d.clear()<\/p>\n

\u5b57\u6bb5\u6570\u636e\u52a0\u5bc6\u53ef\u4e8e\u300c<\/sub>azzi850<\/p>\n

\u804c\u80fd\u89d2\u8272\u4e0e<\/p>\n

\u6743\u9650\u8bbe\u5b9a\u4f5c\u4e1a\u300d\u4e2d\u7684 \u5b57\u6bb5\u6388\u6743 \u9875\u7b7e<\/p>\n

\u201d<\/p>\n

\u201c<\/p>\n

\u4e2d\u8bbe\u5b9a<\/p>\n

LET g_cnt = l_ac<\/p>\n

LET l_ac = 1<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-12<\/p>\n

 <\/p>\n

FOREACH b_fill_curs INTO g_gzpc_d[l_ac].sel,g_gzpc_d[l_ac].gzpc000,g_gzpc_d[l_ac].gzpc001,<\/p>\n

…<\/p>\n

\u7565<\/p>\n

 <\/p>\n

 <\/p>\n

#add-point:b_fill\u6bb5\u6570\u636e\u586b\u5145<\/p>\n

\u5982\u679c\u6709\u9700\u8981\u505a\u5176\u4ed6\u8d44\u6599\u586b\u5145\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

SELECT gzpa002 INTO g_gzpc_d[l_ac].gzpa002 FROM gzpa_t<\/p>\n

WHERE gzpa001 = g_gzpc_d[l_ac].gzpc001<\/p>\n

\u5c06\u8bbe\u5b9a\u4e3a reference \u5b57\u6bb5\u7684\u76f8\u5173\u6570\u636e\u53d6<\/p>\n

#end add-point<\/p>\n

\u51fa\u3002\u56e0_detail_show()\u662f\u5404\u5c42\u5355\u8eab\u5171\u4eab\uff0c\u4e3a<\/p>\n

\u987e\u53ca\u6267\u884c\u6548\u80fd\uff0c\u4ee5\u4f20\u5165\u53c2\u6570\u5224\u65ad\u8981\u6267\u884c\u7684<\/p>\n

CALL azzq950_detail_show(“‘1′”)<\/p>\n

\u8303\u56f4\u3002<\/p>\n

\u6b64\u5904\u4f20\u5165’1’\uff0c\u8868\u793a\u8981\u53d6\u5355\u8eab\u4e3b\u8868\u7684\u76f8\u5173<\/p>\n

IF l_ac > g_max_rec THEN<\/p>\n

\u8d44\u6599<\/p>\n

IF g_error_show = 1 THEN<\/p>\n

INITIALIZE g_errparam TO NULL<\/p>\n

LET g_errparam.extend = “”<\/p>\n

LET g_errparam.code = 9035<\/p>\n

LET g_errparam.popup = TRUE<\/p>\n

CALL cl_err()<\/p>\n

\u5f53\u6570\u636e\u91cf\u592a\u5927\uff0c\u82e5\u6bcf\u6b21\u67e5\u8be2\u65f6\u90fd\u65e0\u9650\u5236\u7684<\/p>\n

\u635e\u53d6\u6570\u636e\uff0c\u4f1a\u5f71\u54cd\u7a0b\u5e8f\u6267\u884c\u6548\u80fd\uff0c\u56e0\u6b64\u6709<\/p>\n

\u5355\u8eab\u6700\u5927\u7b14\u6570\u7684\u9650\u5236\uff0c\u8ba9\u4f7f\u7528\u8005\u53ef\u4f9d\u636e\u7cfb<\/p>\n

\u7edf\u6570\u636e\u505a\u9002\u5ea6\u7684\u8c03\u6574\u3002<\/p>\n

END IF<\/p>\n

EXIT FOREACH<\/p>\n

END IF<\/p>\n

LET l_ac = l_ac + 1<\/p>\n

END FOREACH<\/p>\n

\u5355\u8eab\u6700\u5927\u7b14\u6570\u53ef\u4e8e\u300c<\/sub>aoos010\u4f01\u4e1a\u5c42\u7ea7\u53c2<\/sub><\/p>\n

\u6570\u7ef4\u62a4\u4f5c\u4e1a\u300d\u4e2d\u8bbe\u5b9a<\/p>\n

LET g_error_show = 0<\/p>\n

CALL g_gzpc_d.deleteElement(g_gzpc_d.getLength())<\/p>\n

#add-point:b_fill\u6bb5\u6570\u636e\u586b\u5145(\u5176\u4ed6\u5355\u8eab)<\/p>\n

\u82e5\u6709\u5176\u4ed6\u5355\u5934\u4e3b\u8868\u9700\u8981\u505a\u8d44\u6599\u586b\u5145\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

#end add-point<\/p>\n

LET g_detail_cnt = g_gzpc_d.getLength()<\/p>\n

DISPLAY g_detail_cnt TO FORMONLY.h_count<\/p>\n

\u7565<\/p>\n

\u5355\u8eab\u4e3b\u8868\u586b\u5145\u5b8c\u6210\u540e\uff0c\u4f1a\u7ee7\u7eed\u8fdb\u884c\u5355\u8eab\u5b50<\/p>\n

\u8868\u7684\u586b\u5145\uff0c\u5e76\u4ee5\u5355\u8eab\u4e3b\u8868\u5f53\u4e0b\u9009\u62e9\u7684\u6570\u636e<\/p>\n

\u5e26\u51fa\u5355\u8eab\u5b50\u8868\u7684\u5185\u5bb9<\/p>\n

90<\/p>\n

91<\/p>\n

92<\/p>\n

IF g_gzpc_d.getLength() > 0 THEN<\/p>\n

CALL azzq950_fetch()<\/p>\n

END IF<\/p>\n

93 END FUNCTION<\/p>\n

94 {<\/section>}<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-13<\/p>\n

 <\/p>\n

4.7 _fetch\u5355\u8eab\u5b50\u8868\u6570\u636e\u586b\u5145<\/p>\n

01 {<section id=”azzq950.fetch” >}<\/p>\n

\u6b64 FUNCTION \u6bb5\u4e3b\u8981\u662f\u5904\u7406\u5355\u8eab\u5b50\u8868\u7684\u8d44<\/p>\n

\u6599\u586b\u5145\u90e8\u5206\u3002<\/p>\n

02 PRIVATE FUNCTION azzq950_fetch()<\/p>\n

\u7565<\/p>\n

\u5355\u8eab\u5b50\u8868\u4f1a\u5c06\u5355\u8eab\u4e3b\u8868\u7684\u6570\u636e\u5f53\u4f5c\u635e\u53d6<\/p>\n

\u8d44\u6599\u7684\u6761\u4ef6\u503c\u4e4b\u4e00\uff0c\u8fdb\u800c\u53d6\u5f97\u76f8\u5173\u7684\u8d44\u6599<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

CALL g_gzpc2_d.clear()<\/p>\n

LET li_ac = l_ac<\/p>\n

#\u4e3a\u907f\u514d\u5f71\u54cd\u6267\u884c\u6548\u80fd\uff0c\u82e5\u662f\u6309\u4e0a\u4e0b\u7b14\u5c31\u4e0d\u91cd\u7ec4 SQL<\/p>\n

IF g_action_choice <> “fetch” OR cl_null(g_action_choice) THEN<\/p>\n

LET g_sql = “SELECT UNIQUE gzpd003,gzpd011,gzpd004,”,gzpd007,gzpd008,gzpd010,”,<\/p>\n

gzpd005,gzpd009,”,gzpd006,gzpd012 FROM gzpd_t”,<\/p>\n

” WHERE gzpdent=? AND gzpd001=?”<\/p>\n

IF NOT cl_null(g_wc2_table2) THEN<\/p>\n

LET g_sql = g_sql CLIPPED,” AND “,g_wc2_table2 CLIPPED<\/p>\n

END IF<\/p>\n

LET g_sql = g_sql, ” ORDER BY gzpd_t.gzpd003″<\/p>\n

#add-point:\u5355\u8eab\u586b\u5145\u524d<\/p>\n

\u5982\u679c\u6709\u9700\u8981\u91cd\u65b0\u8c03\u6574 SQL\u6307\u4ee4\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

#end add-point<\/p>\n

LET g_sql = cl_sql_add_mask(g_sql)<\/p>\n

PREPARE azzq950_pb2 FROM g_sql<\/p>\n

#\u906e\u853d\u7279\u5b9a\u8d44\u6599<\/p>\n

DECLARE b_fill_curs2 CURSOR FOR azzq950_pb2<\/p>\n

END IF<\/p>\n

\u53d6\u5355\u8eab\u5b50\u8868\u7684\u8d44\u6599\u65f6\uff0c\u4e5f\u4f1a\u5c06\u5355\u8eab\u4e3b\u8868\u7684<\/p>\n

\u6570\u636e\u5f53\u6210\u6761\u4ef6\u503c\u4e4b\u4e00<\/p>\n

OPEN b_fill_curs2 USING g_enterprise,g_gzpc_d[g_detail_idx].gzpc000<\/p>\n

LET l_ac = 1<\/p>\n

FOREACH b_fill_curs2 INTO g_gzpc2_d[l_ac].gzpd003,g_gzpc2_d[l_ac].gzpd011,<\/p>\n

…<\/p>\n

\u7565<\/p>\n

 <\/p>\n

#add-point:b_fill\u6bb5\u6570\u636e\u586b\u5145<\/p>\n

\u5982\u679c\u6709\u9700\u8981\u505a\u5176\u4ed6\u8d44\u6599\u586b\u5145\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

#end add-point<\/p>\n

\u5c06\u8bbe\u5b9a\u4e3a reference \u5b57\u6bb5\u7684\u76f8\u5173\u6570\u636e\u53d6<\/p>\n

CALL azzq950_detail_show(“‘2′”)<\/p>\n

\u51fa\u3002\u5176\u4e2d\u4f20\u5165\u53c2\u6570\u4e3a’2’\uff0c\u8868\u793a\u8981\u53d6\u5355\u8eab<\/p>\n

\u7565<\/p>\n

\u5b50\u8868\u7684\u76f8\u5173\u8d44\u6599<\/p>\n

65<\/p>\n

END FOREACH<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-14<\/p>\n

 <\/p>\n

 <\/p>\n

#add-point:\u5355\u8eab\u586b\u5145\u540e<\/p>\n

\u82e5\u6709\u5176\u4ed6\u5355\u5934\u5b50\u8868\u9700\u8981\u505a\u8d44\u6599\u586b\u5145\uff0c\u53ef\u4ee5\u7531\u6b64\u5904\u66f4\u65b0<\/p>\n

#end add-point<\/p>\n

CALL g_gzpc2_d.deleteElement(g_gzpc2_d.getLength())<\/p>\n

\u5355\u8eab\u603b\u7b14\u6570\u663e\u793a<\/p>\n

LET g_detail_cnt2 = g_gzpc2_d.getLength()<\/p>\n

DISPLAY g_detail_cnt2 TO FORMONLY.cnt<\/p>\n

IF g_detail_cnt2 > 0 THEN<\/p>\n

LET g_detail_idx2 = 1<\/p>\n

DISPLAY g_detail_idx2 TO FORMONLY.idx<\/p>\n

ELSE<\/p>\n

LET g_detail_idx2 = 0<\/p>\n

DISPLAY ‘ ‘ TO FORMONLY.idx<\/p>\n

END IF<\/p>\n

\u7565<\/p>\n

90 END FUNCTION<\/p>\n

91 {<\/section>}<\/p>\n

4.8 _detail_show\u5355\u8eab\u76f8\u5173\u6570\u636e\u663e\u793a<\/p>\n

01 {<section id=”azzq950.detail_show” >}<\/p>\n

\u5f53\u753b\u9762\u5b57\u6bb5\u662f\u8bbe\u5b9a reference \u578b\u6001\uff0c\u5f53\u6210<\/p>\n

\u662f\u7ec4\u5408\u65f6\uff0c\u4f1a\u5c06\u53d6\u5b57\u6bb5\u76f8\u5173\u6570\u636e\u7684\u52a8\u4f5c\u5728<\/p>\n

\u6b64\u7edf\u4e00\u5904\u7406\u3002<\/p>\n

02 PRIVATE FUNCTION azzq950_detail_show(ps_page)<\/p>\n

03<\/p>\n

DEFINE ps_page<\/p>\n

STRING<\/p>\n

\u7565<\/p>\n

\u4e3a\u907f\u514d\u5f71\u54cd\u6267\u884c\u6548\u80fd\uff0c\u4f1a\u5c06\u5355\u8eab\u4e3b\u8868\u53ca\u5355<\/p>\n

\u8eab\u5b50\u8868\u7684\u90e8\u4efd\u5206\u5f00\u5904\u7406<\/p>\n

 <\/p>\n

 <\/p>\n

#\u8bfb\u5165 reference\u503c<\/p>\n

IF ps_page.getIndexOf(“‘1′”,1) > 0 THEN<\/p>\n

#\u5e26\u51fa\u516c\u7528\u5b57\u6bb5 reference\u503c page1<\/p>\n

\u82e5\u5b57\u6bb5\u4ee3\u53f7\u662f ownid\u3001owndp\u3001crtid\u3001<\/p>\n

crtdp\u3001crtdt\u3001modid\u3001moddt\u3001cnfid\u3001cnfdt\u3001<\/p>\n

pstid\u3001pstdt\u3001stus \u7ed3\u5c3e\u7684\u5b57\u6bb5\u5c5e\u516c\u7528\u5b57\u6bb5<\/p>\n

#add-point:show\u6bb5\u5355\u8eab reference<\/p>\n

#end add-point<\/p>\n

END IF<\/p>\n

\u516c\u7528\u5b57\u6bb5\u5728\u753b\u9762\u89c4\u683c\u4ea7\u751f\u65f6\uff0c\u4f1a\u81ea\u52a8\u5728\u680f<\/p>\n

\u4f4d\u65c1\u518d\u52a0\u4e0a\u4e00\u4e2a reference \u5b57\u6bb5\uff0c\u4f46\u82e5\u975e<\/p>\n

\u516c\u7528\u5b57\u6bb5\uff0c\u5219\u9700\u81ea\u884c\u4e8e\u89c4\u683c\u8bbe\u8ba1\u5668\u5b9a\u4e49<\/p>\n

reference \u5b57\u6bb5\u53ca\u76f8\u5173\u8bbe\u5b9a<\/p>\n

IF ps_page.getIndexOf(“‘2′”,1) > 0 THEN<\/p>\n

#\u5e26\u51fa\u516c\u7528\u5b57\u6bb5 reference\u503c page2<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-15<\/p>\n

 <\/p>\n

 <\/p>\n

#add-point:show\u6bb5\u5355\u8eab reference<\/p>\n

INITIALIZE g_ref_fields TO NULL<\/p>\n

LET g_ref_fields[1] = g_gzpc2_d[l_ac].gzpd004<\/p>\n

CALL ap_ref_array2(g_ref_fields,”SELECT gzzal003 \u2026 “,””) RETURNING g_rtn_fields<\/p>\n

LET g_gzpc2_d[l_ac].gzpd004_desc = ”, g_rtn_fields[1] , ”<\/p>\n

DISPLAY BY NAME g_gzpc2_d[l_ac].gzpd004_desc<\/p>\n

\u7565<\/p>\n

45<\/p>\n

46<\/p>\n

#end add-point<\/p>\n

END IF<\/p>\n

47 END FUNCTION<\/p>\n

48 {<\/section>}<\/p>\n

4.9 _filter\u6570\u636e\u8fc7\u6ee4(\u6570\u636e\u4e8c\u6b21\u7b5b\u9009)<\/p>\n

01 {<section id=”azzq950.filter” >}<\/p>\n

\u63d0\u4f9b\u7528\u6237\u4f9d\u636e\u4e4b\u524d\u67e5\u8be2\u51fa\u6765\u7684\u6570\u636e\uff0c\u505a\u66f4\u5c0f\u8303\u56f4\u7684\u6570\u636e\u7b5b<\/p>\n

02 PRIVATE FUNCTION azzq950_filter()<\/p>\n

\u9009\u7684\u529f\u80fd<\/p>\n

\u7565<\/p>\n

\u6bcf\u6b21\u4f7f\u7528 filter \u65f6\u4f1a\u5c06\u67e5\u8be2\u6761\u4ef6\u50a8\u5b58\u81f3\u53d8\u91cf\u4e2d\uff0c\u5728\u4e0b\u4e00\u6b21\u8fdb<\/p>\n

\u884c filter \u65f6\u4f1a\u5c06\u524d\u4e00\u6b21\u8fc7\u6ee4\u7684\u6761\u4ef6\u663e\u793a\u4e8e\u753b\u9762\u4e0a\uff0c\u4e14\u6b64\u6b21\u7b5b<\/p>\n

\u9009\u7684\u6761\u4ef6\uff0c\u4e5f\u4f1a\u52a0\u6ce8\u5728\u8be5\u5b57\u6bb5\u7684\u6807\u9898\u5b57\u6bb5\u4e0a\u3002<\/p>\n

\u4f46\u987b\u6ce8\u610f\u7684\u662f\u82e5\u8fdb\u884c filter \u529f\u80fd\u540e\u91cd\u65b0 Query \u5219\u4f1a\u6e05\u7a7a filter<\/p>\n

\u5148\u524d\u7684\u6761\u4ef6<\/p>\n

10<\/p>\n

11<\/p>\n

12<\/p>\n

13<\/p>\n

LET l_ac = 1<\/p>\n

LET g_detail_idx = 1<\/p>\n

LET g_detail_idx2 = 1<\/p>\n

\u7565<\/p>\n

 <\/p>\n

 <\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.sel”, TRUE)<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.statepic”, TRUE)<\/p>\n

LET g_wc = cl_replace_str(g_wc, g_wc_filter, ”)<\/p>\n

\u4f7f\u7528 DIALOG\u5305\u4f4f \u5355\u5934 CONSTRUCT\u53ca\u5355\u8eab CONSTRUCT<\/p>\n

DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)<\/p>\n

#\u5355\u5934<\/p>\n

CONSTRUCT g_wc_filter ON gzpc000,gzpc001,gzpa002,gzpc003,gzpc002,gzpc006<\/p>\n

FROM s_detail1[1].b_gzpc000,s_detail1[1].b_gzpc001,<\/p>\n

s_detail1[1].b_gzpa002,s_detail1[1].b_gzpc003,<\/p>\n

s_detail1[1].b_gzpc002,s_detail1[1].b_gzpc006<\/p>\n

BEFORE CONSTRUCT<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-16<\/p>\n

 <\/p>\n

 <\/p>\n

DISPLAY azzq950_filter_parser(‘gzpc000’) TO s_detail1[1].b_gzpc000<\/p>\n

…<\/p>\n

\u7565<\/p>\n

 <\/p>\n

END CONSTRUCT<\/p>\n

\u7565<\/p>\n

END DIALOG<\/p>\n

\u7565<\/p>\n

CALL azzq950_filter_show(‘gzpc000′,’b_gzpc000’)<\/p>\n

\u7565<\/p>\n

 <\/p>\n

CALL azzq950_b_fill()<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.sel”, FALSE)<\/p>\n

CALL gfrm_curr.setFieldHidden(“formonly.statepic”, FALSE)<\/p>\n

73 END FUNCTION<\/p>\n

74 {<\/section>}<\/p>\n

4.10 _filter_parser\u5b57\u6bb5\u89e3\u6790<\/p>\n

\u9488\u5bf9\u4f7f\u7528\u8005\u8981\u505a\u4e8c\u6b21\u7b5b\u9009\u7684\u5b57\u6bb5\u53ca\u6240<\/p>\n

\u4e0b\u7684\u6761\u4ef6\u8fdb\u884c\u89e3\u6790\uff0c\u5e76\u7ec4\u5408\u6210 SQL \u6761\u4ef6<\/p>\n

\u5b57\u7b26\u4e32\uff0c\u4ee5\u4f9b\u540e\u7eed\u5904\u7406\u65f6\u4f7f\u7528<\/p>\n

01 {<section id=”azzq950.filter_parser” >}<\/p>\n

02 PRIVATE FUNCTION azzq950_filter_parser(ps_field)<\/p>\n

03<\/p>\n

DEFINE ps_field STRING<\/p>\n

\u7565<\/p>\n

 <\/p>\n

 <\/p>\n

\u4e00\u822c\u6761\u4ef6\u89e3\u6790<\/p>\n

LET ls_tmp = ps_field, “='”<\/p>\n

LET li_tmp = g_wc_filter.getIndexOf(ls_tmp,1)<\/p>\n

IF li_tmp > 0 THEN<\/p>\n

LET li_tmp = ls_tmp.getLength() + li_tmp<\/p>\n

LET li_tmp2 = g_wc_filter.getIndexOf(“‘”,li_tmp + 1) – 1<\/p>\n

LET ls_var = g_wc_filter.subString(li_tmp,li_tmp2)<\/p>\n

END IF<\/p>\n

\u6a21\u7cca\u6761\u4ef6\u89e3\u6790<\/p>\n

LET ls_tmp = ps_field, ” like ‘”<\/p>\n

LET li_tmp = g_wc_filter.getIndexOf(ls_tmp,1)<\/p>\n

IF li_tmp > 0 THEN<\/p>\n

LET li_tmp = ls_tmp.getLength() + li_tmp<\/p>\n

LET li_tmp2 = g_wc_filter.getIndexOf(“‘”,li_tmp + 1) – 1<\/p>\n

\u53cc\u6587\u4ef6\u7ef4\u62a4\u4f5c\u4e1a 4-17<\/p>\n

 <\/p>\n

 <\/p>\n

LET ls_var = g_wc_filter.subString(li_tmp,li_tmp2)<\/p>\n

LET ls_var = cl_replace_str(ls_var,’%’,’*’)<\/p>\n

END IF<\/p>\n

RETURN ls_var<\/p>\n

30 END FUNCTION<\/p>\n

31 {<\/section>}<\/p>\n

4.11 _filter_show\u6807\u9898\u5b57\u6bb5\u663e\u793a\u641c\u5bfb\u6761\u4ef6<\/p>\n

01 {<section id=”azzq950.filter_show” >}<\/p>\n

\u4f9d\u636e\u4f7f\u7528\u8005\u4e0b\u7684\u4e8c\u6b21\u7b5b\u9009\u6761\u4ef6\uff0c\u5c06<\/p>\n

\u6b64\u6761\u4ef6\u503c\uff0c\u52a0\u6ce8\u5728\u5b57\u6bb5\u6807\u9898\u4e0a<\/p>\n

02 PRIVATE FUNCTION azzq950_filter_show(ps_field,ps_object)<\/p>\n

03<\/p>\n

DEFINE ps_field<\/p>\n

STRING<\/p>\n

\u7565<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

LET ls_name = “formonly.”, ps_object<\/p>\n

LET lnode_item = gfrm_curr.findNode(“TableColumn”, ls_name)<\/p>\n

LET ls_title = lnode_item.getAttribute(“text”)<\/p>\n

IF ls_title.getIndexOf(‘\u203b’,1) > 0 THEN<\/p>\n

LEt ls_title = ls_title.subString(1,ls_title.getIndexOf(‘\u203b’,1)-1)<\/p>\n

END IF<\/p>\n

\u663e\u793a\u6570\u636e\u7ec4\u5408<\/p>\n

LET ls_condition = azzq950_filter_parser(ps_field)<\/p>\n

IF NOT cl_null(ls_condition) THEN<\/p>\n

LET ls_title = ls_title, ‘\u203b’, ls_condition, ‘\u203b’<\/p>\n

END IF<\/p>\n

\u5c06\u6570\u636e\u663e\u793a\u56de\u53bb<\/p>\n

CALL lnode_item.setAttribute(“text”,ls_title)<\/p>\n

26 END FUNCTION<\/p>\n

27 {<\/section>}<\/p>\n

\u67b6\u6784\u4e0e\u7ef4\u62a4\u4f5c\u4e1a\u5f00\u53d1\u624b\u518c 4-18<\/p>\n

\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a\u8d6b\u975e\u57df<\/a> » T100\u624b\u518c \u8868\u683c\u5f0f\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)(azzq950)<\/a><\/p>","protected":false},"excerpt":{"rendered":"

1. \u67e5\u8be2\u7c7b\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)\u8868\u683c\u6a21\u578b   Q\u7c7b\u7c7b\u53cc\u6863\u6837\u677f\ufe5dpattern\ufe5e\u53ea\u80fd\u652f\u6301\u5355\u4e00\u7684\u4e3b\u8868\uff0c\u53e6\u5916\u53ef\u652f\u6301\u591a\u4e2a\u5355\u5934\u5b50\u8868\u3002 2. \u67e5\u8be2\u7c7b\u53cc\u6863(\u65e0\u67e5\u8be2\u9875\u7b7e)\u53c2\u8003\u753b\u9762 \u6b64\u6837\u677f\u65e0\u67e5\u8be2\u9875\u7b7e\u529f\u80fd\u3002 \u5de6\u56fe\u662f\u6709\u8bbe\u5b9a\u5355\u8eab\u4e3b\u8868\u53ca\u5355\u8eab\u5b50\u8868\u7684\u8303\u4f8b\u753b\u9762\uff0c\u53f3\u56fe\u5219\u4e3a\u5355\u4e00 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[490],"tags":[855,11,827],"class_list":["post-5810","post","type-post","status-publish","format-standard","hentry","category-490","tag-azzq","tag-t100","tag-827"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5810","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5810"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5810\/revisions"}],"predecessor-version":[{"id":6199,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5810\/revisions\/6199"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5810"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5810"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5810"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}