{"id":5212,"date":"2019-08-20T08:44:24","date_gmt":"2019-08-20T00:44:24","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5212"},"modified":"2019-08-20T08:44:24","modified_gmt":"2019-08-20T00:44:24","slug":"t100-%e5%8a%a8%e6%80%81%e6%b7%bb%e5%8a%a0combobox%e9%a1%b9","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5212","title":{"rendered":"T100\u2014\u2014\u52a8\u6001\u6dfb\u52a0combobox\u9879"},"content":{"rendered":"<p>\u76f4\u63a5\u8303\u4f8b\uff1aCALL\u00a0anmt460_set_combo_scc(&#8216;nmck002&#8242;,&#8217;10&#8217;,&#8217;20&#8217;)<\/p>\n<pre class=\"pure-highlightjs\"><code class=\"null\">PRIVATE FUNCTION anmt460_set_combo_scc(p_field,p_scc1,p_scc2)\r\nDEFINE p_field        LIKE type_t.chr80\r\nDEFINE p_scc1         LIKE type_t.chr5   #\u73fe\u91d1\r\nDEFINE p_scc2         LIKE type_t.chr5   #\u9280\u884c\u96fb\u532f\u6b3e\r\nDEFINE ps_values      STRING\r\nDEFINE ps_items       STRING\r\nDEFINE pc_ooia001     LIKE ooia_t.ooia001\r\nDEFINE pc_ooial003    LIKE ooial_t.ooial003\r\nDEFINE li_cnt         LIKE type_t.num5\r\nDEFINE ps_field_name  STRING\r\nDEFINE lcbo_target    ui.ComboBox\r\nDEFINE ls_temp        STRING\r\nDEFINE l_sql          STRING\r\nDEFINE pa_array       DYNAMIC ARRAY OF RECORD\r\n                         value       STRING,\r\n                         label_tag   STRING,\r\n                         label       STRING\r\n                      END RECORD\r\nDEFINE l_cnt          LIKE type_t.num10\r\n\r\n   IF cl_null(g_nmck_m.nmcksite) THEN\r\n      LET g_nmck_m.nmcksite = g_site\r\n   END IF \r\n   LET l_cnt = 0\r\n      \r\n   LET l_sql = \"SELECT ooia001, ooial003\",\r\n               \"  FROM ooia_t LEFT JOIN ooial_t  ON ooial001 = ooia001\",\r\n               \"                                 AND ooial002 = '\",g_lang,\"'\",\r\n               \"                                 AND ooiaent = ooialent\",\r\n               \"                                 AND ooiaent = \",g_enterprise,\r\n               \" WHERE ooiaent = \",g_enterprise,\r\n               \"   AND (ooia002 = '\",p_scc1,\"' OR ooia002 = '\",p_scc2,\"')\"\r\n   PREPARE p_scc_itemp_pe FROM l_sql\r\n   DECLARE p_scc_itemp_cs CURSOR FOR p_scc_itemp_pe\r\n\r\n   LET ps_values = ''\r\n   LET ps_items = ''\r\n\r\n   #\u5c07\u9078\u9805\u586b\u5165\u9663\u5217\r\n   LET li_cnt = 1\r\n   FOREACH p_scc_itemp_cs INTO pc_ooia001, pc_ooial003\r\n   \r\n      SELECT COUNT(*) INTO l_cnt FROM ooie_t\r\n        WHERE ooieent = g_enterprise\r\n          AND ooie001 = pc_ooia001\r\n          AND ooiesite = g_nmck_m.nmcksite\r\n      IF l_cnt = 0 THEN\r\n         CONTINUE FOREACH\r\n      END IF\r\n      LET pa_array[li_cnt].value = pc_ooia001 CLIPPED\r\n      LET pa_array[li_cnt].label_tag = pc_ooia001 CLIPPED\r\n      LET pa_array[li_cnt].label = pc_ooial003 CLIPPED\r\n      LET li_cnt = li_cnt + 1\r\n   END FOREACH\r\n\r\n   LET ps_field_name = p_field\r\n\r\n   LET ps_field_name = ps_field_name.trim()\r\n\r\n   LET lcbo_target = ui.ComboBox.forName(ps_field_name)\r\n\r\n   #\u4ee5\u4e0b\u662fCombobox\u7684\u8655\u7406\r\n   FOR li_cnt = 1 TO pa_array.getLength()\r\n       IF cl_null(pa_array[li_cnt].label_tag) THEN\r\n          LET ls_temp = pa_array[li_cnt].label\r\n       ELSE\r\n          LET ls_temp = pa_array[li_cnt].label_tag,\":\",pa_array[li_cnt].label\r\n       END IF\r\n      CALL lcbo_target.addItem(pa_array[li_cnt].value,ls_temp)\r\n   END FOR\r\n\r\nEND FUNCTION<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p>\u901a\u8fc7azzi650\u5e94\u7528\u5206\u7c7b\u7801\u8bbe\u7f6ecombobox\uff1a<\/p>\n<p>CALL\u00a0cl_set_combo_acc(&#8216;xmeoud002&#8242;,&#8217;9007&#8217;)<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>\u901a\u8fc7azzi600\u7cfb\u7edf\u5206\u7c7b\u7801\u8bbe\u7f6e\uff1a<\/p>\n<p>CALL\u00a0cl_set_combo_scc(&#8216;xmeo001&#8242;,&#8217;3017&#8217;)<\/p>\n<p>&nbsp;<\/p>\n<p>\u8bbe\u7f6e\u90e8\u5206\u5185\u5bb9\uff1a<\/p>\n<p>CALL\u00a0cl_set_combo_scc_part(&#8216;xmenstus&#8217;,&#8217;13&#8217;,&#8217;N,Y,A,D,R,W,X&#8217;)<\/p>\n<p>\u6765\u81ea\u00a0https:\/\/www.cnblogs.com\/xiaoli9627\/<\/p>\n<p>\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a<a href=\"https:\/\/www.hefeiyu.com\">\u8d6b\u975e\u57df<\/a> &raquo; <a href=\"https:\/\/www.hefeiyu.com\/?p=5212\">T100\u2014\u2014\u52a8\u6001\u6dfb\u52a0combobox\u9879<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>\u76f4\u63a5\u8303\u4f8b\uff1aCALL\u00a0anmt460_set_combo_scc(&#8216;nmck002&#8242;,&#8217;10&#8217;,&#8217;20&#8217;) PRIVATE FUNCTION anmt460_set_combo_s [&hellip;]<\/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":[89,719,763],"class_list":["post-5212","post","type-post","status-publish","format-standard","hentry","category-490","tag-define","tag-like","tag-type"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5212","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=5212"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5212\/revisions"}],"predecessor-version":[{"id":5213,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5212\/revisions\/5213"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5212"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5212"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5212"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}