{"id":5261,"date":"2019-08-28T08:31:36","date_gmt":"2019-08-28T00:31:36","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5261"},"modified":"2019-08-28T08:31:36","modified_gmt":"2019-08-28T00:31:36","slug":"t100-%e4%bf%ae%e6%94%b9%e5%8d%95%e8%ba%ab%e6%a0%8f%e4%bd%8d%ef%bc%8c%e5%bc%80%e7%aa%97%ef%bc%8c%e5%bd%93%e5%89%8d%e8%a1%8c","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5261","title":{"rendered":"T100\u2014\u2014\u4fee\u6539\u5355\u8eab\u680f\u4f4d\uff0c\u5f00\u7a97\uff0c\u5f53\u524d\u884c"},"content":{"rendered":"<pre class=\"pure-highlightjs\"><code class=\"null\">PRIVATE FUNCTION axmt500_update_xmdc028()\r\n###\u66f4\u6539\u51fa\u8d27\u5e93\u4f4d\r\nDEFINE l_i INT\r\nDEFINE l_index INT\r\n\r\nDIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)\r\n    INPUT ARRAY g_xmdc2_d FROM s_detail2.*\r\n        ATTRIBUTE(COUNT = g_rec_b,WITHOUT DEFAULTS, #MAXCOUNT = g_max_rec,\r\n                  INSERT ROW = FALSE, \r\n                  DELETE ROW = FALSE,\r\n                  APPEND ROW = FALSE)\r\n    \r\n            ON ACTION controlp INFIELD xmdc028                      \r\n                INITIALIZE g_qryparam.* TO NULL\r\n                LET g_qryparam.state = 'i' \r\n                LET g_qryparam.reqry = FALSE\r\n                LET g_qryparam.default1 = g_xmdc2_d[l_index].xmdc028    #\u7d66\u4e88default\u503c\r\n                LET g_qryparam.arg1 = g_site\r\n                CALL q_inaa001_6()\r\n    \r\n                LET g_xmdc2_d[l_index].xmdc028 = g_qryparam.return1\r\n                LET g_xmdc2_d[l_index].xmdc028_desc = g_qryparam.return2\r\n                \r\n                DISPLAY g_xmdc2_d[l_index].xmdc028 TO xmdc028\r\n                DISPLAY g_xmdc2_d[l_index].xmdc028_desc TO xmdc028_desc\r\n                \r\n                NEXT FIELD xmdc028\r\n\r\n        BEFORE ROW   \r\n            LET l_index = ARR_CURR()\r\n\r\n    END INPUT\r\n    \r\n    BEFORE DIALOG \r\n36         CALL cl_set_comp_entry(\"xmdc028\",TRUE)\r\n        CALL cl_set_comp_entry(\"xmdcseq,imaa001,imaal003,imaal004,imaa005,imaa005_desc,xmdc0272,l_pmao0092\",FALSE)\r\n        CALL cl_set_comp_entry(\"l_pmao0102,xmdc028_desc,xmdc029,xmdc029_desc,xmdc030,xmdc057,xmdc025,oofb0173\",FALSE)\r\n        CALL cl_set_comp_entry(\"xmdc026,oofb0174,xmdc031,xmdc031_desc,xmdc032,xmdc033,xmdc003,xmdc003_desc,xmdc054\",FALSE)\r\n        CALL cl_set_comp_entry(\"xmdc036,xmdc036_desc,xmdc037,xmdc037_desc,xmdc038,xmdc038_desc,xmdc039,xmdc035\",FALSE)\r\n        CALL cl_set_comp_entry(\"xmdc040,xmdc041,xmdc042,xmdc043,xmdc044\",FALSE)\r\n    \r\n    \r\n    ON ACTION accept\r\n        FOR l_i=1 TO g_xmdc2_d.getLength()\r\n            UPDATE xmdc_t SET xmdc028=g_xmdc2_d[l_i].xmdc028 \r\n                WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=g_xmda_m.xmdadocno AND xmdcseq=g_xmdc2_d[l_i].xmdcseq\r\n                \r\n        END FOR\r\n        \r\n        LET g_xmda_m.xmdamodid = g_user\r\n        LET g_xmda_m.xmdamoddt = cl_get_current()\r\n        SELECT ooag011 INTO g_xmda_m.xmdamodid_desc FROM ooag_t \r\n            WHERE ooagent=g_enterprise AND ooag001=g_xmda_m.xmdamodid\r\n            \r\n        UPDATE xmda_t SET xmdamodid=g_xmda_m.xmdamodid,xmdamoddt=g_xmda_m.xmdamoddt\r\n            WHERE xmdaent=g_enterprise AND xmdasite=g_site AND xmdadocno=g_xmda_m.xmdadocno\r\n            \r\n        DISPLAY BY NAME g_xmda_m.xmdamodid,g_xmda_m.xmdamoddt,g_xmda_m.xmdamodid_desc\r\n        \r\n        ACCEPT DIALOG\r\n    \r\n    ON ACTION cancel      #\u5728dialog button (\u653e\u68c4)\r\n        \r\n        EXIT DIALOG\r\n    \r\n    ON ACTION close       #\u5728dialog \u53f3\u4e0a\u89d2 (X)\r\n\r\n        EXIT DIALOG\r\n    \r\n    ON ACTION exit        #toolbar \u96e2\u958b\r\n        \r\n        EXIT DIALOG\r\n    \r\n    #\u4ea4\u8ac7\u6307\u4ee4\u5171\u7528ACTION\r\n    &amp;include \"common_action.4gl\" \r\n        CONTINUE DIALOG \r\n        \r\nEND DIALOG\r\n\r\nEND FUNCTION<\/code><\/pre>\n<p>&nbsp;<\/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=5261\">T100\u2014\u2014\u4fee\u6539\u5355\u8eab\u680f\u4f4d\uff0c\u5f00\u7a97\uff0c\u5f53\u524d\u884c<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>PRIVATE FUNCTION axmt500_update_xmdc028() ###\u66f4\u6539\u51fa\u8d27\u5e93\u4f4d DEFINE l_i INT DEFINE l_index INT DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDE [&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":[795,413,796],"class_list":["post-5261","post","type-post","status-publish","format-standard","hentry","category-490","tag-false","tag-row","tag-xmdc"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5261","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=5261"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5261\/revisions"}],"predecessor-version":[{"id":5262,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5261\/revisions\/5262"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5261"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5261"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5261"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}