{"id":5113,"date":"2019-08-12T08:31:21","date_gmt":"2019-08-12T00:31:21","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5113"},"modified":"2019-08-12T08:31:21","modified_gmt":"2019-08-12T00:31:21","slug":"t100%e9%9b%86%e6%88%90%e6%b3%9b%e5%be%aedemo","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5113","title":{"rendered":"t100\u96c6\u6210\u6cdb\u5faedemo"},"content":{"rendered":"<div>\n<div>\n<div class=\"article\">\n<div class=\"show-content\" data-note-content=\"\">\n<div class=\"show-content-free\">\n<p>\u4e00\u3001\u83b7\u53d6\u6cdb\u5faeOA\u7684Webservices\u5730\u5740\u3002<br \/>\n\u5728\u5bf9\u5e94\u7684\u6587\u4ef6\u4e0b\u9762\u751f\u6210 T100\u76ee\u5f55\/aws\/4gl\u4e0b\u4ee5\u4e0b\u547d\u4ee4\uff1a<\/p>\n<pre class=\"hljs bash\"><code class=\"bash\">fglwsdl [-<span class=\"hljs-built_in\">command<\/span>] &lt;filename | url | regex value&gt;\r\nfglwsdl -o  aws_work_test http:\/\/192.168.X.X\/services\/NibWorkflowService?wsdl\r\n<\/code><\/pre>\n<p>\u53ea\u5728\u5bf9\u5e94\u76ee\u5f55\u4e0b\u751f\u6210\u4e24\u4e2a4gl\/inc\u6587\u4ef6<\/p>\n<div class=\"image-package\">\n<div class=\"image-container\">\n<div class=\"image-container-fill\"><\/div>\n<div class=\"image-view\" data-width=\"292\" data-height=\"51\"><img decoding=\"async\" class=\"\" src=\"\" data-original-src=\"\/\/upload-images.jianshu.io\/upload_images\/7368011-179676fa38db7a7f.png\" data-original-width=\"292\" data-original-height=\"51\" data-original-format=\"image\/png\" data-original-filesize=\"2608\" \/><\/div>\n<\/div>\n<div class=\"image-caption\"><\/div>\n<\/div>\n<p>\u76f4\u63a5\u8c03\u7528\u91cc\u9762\u7684function\u5373\u53ef\u3002<\/p>\n<p>\u4e8c\u3001\u7f16\u5199\u53d1\u9001\u7aef\u4ee3\u7801<\/p>\n<pre class=\"hljs objectivec\"><code class=\"objectivec\">PRIVATE FUNCTION aint311_OAinsert()\r\n  DEFINE l_n,l_i,l_i1   LIKE type_t.num5\r\n  DEFINE l_sql          STRING \r\n  DEFINE l_request      STRING \r\n  DEFINE l_cnt1,l_cnt2,l_cnt3,l_cnt4,l_msglength,l_msglength2 LIKE type_t.num5\r\n  DEFINE l_msg          LIKE type_t.chr1000\r\n  DEFINE l_msg1         LIKE type_t.chr1000    \r\n  DEFINE li_result      STRING              \r\n  DEFINE li_msg         STRING\r\n  <span class=\"hljs-meta\">#\u5355\u5934\u6570\u636e<\/span>\r\n  DEFINE l_inbi RECORD \r\n  \r\n    DJBH LIKE inbi_t.inbidocno,    <span class=\"hljs-meta\">#\u5355\u636e\u7f16\u53f7<\/span>\r\n    SQRY LIKE inbi_t.inbi001,      <span class=\"hljs-meta\">#\u7533\u8bf7\u4eba<\/span>\r\n    SQBM LIKE inbi_t.inbi002,      <span class=\"hljs-meta\">#\u7533\u8bf7\u90e8\u95e8<\/span>\r\n    SQRQ LIKE inbi_t.inbidocdt,    <span class=\"hljs-meta\">#\u7533\u8bf7\u65e5\u671f<\/span>\r\n    BFYY LIKE inbi_t.inbi003,      <span class=\"hljs-meta\">#\u62a5\u5e9f\u539f\u56e0<\/span>\r\n    BZ   LIKE inbi_t.inbi021       <span class=\"hljs-meta\">#\u5907\u6ce8<\/span>\r\n    \r\n  END RECORD \r\n  <span class=\"hljs-meta\">#\u5355\u8eab\u6570\u636e<\/span>\r\n  DEFINE  l_inbj DYNAMIC ARRAY OF RECORD\r\n        \r\n        WLBH LIKE inbj_t.inbj001,     <span class=\"hljs-meta\">#\u6599\u4ef6\u7f16\u53f7<\/span>\r\n        PMGG LIKE imaal_t.imaal003,   <span class=\"hljs-meta\">#\u54c1\u540d<\/span>\r\n        GG   LIKE imaal_t.imaal004,   <span class=\"hljs-meta\">#\u89c4\u683c<\/span>\r\n        DW   LIKE inbj_t.inbj008,     <span class=\"hljs-meta\">#\u5355\u4f4d         <\/span>\r\n        BFSL LIKE inbj_t.inbj009,     <span class=\"hljs-meta\">#\u62a5\u5e9f\u6570\u91cf<\/span>\r\n        ZL   LIKE inbj_t.inbjud001,   <span class=\"hljs-meta\">#\u91cd\u91cf<\/span>\r\n        KW   LIKE inbj_t.inbj005,     <span class=\"hljs-meta\">#\u5e93\u4f4d<\/span>\r\n        PH   LIKE inbj_t.inbj007,     <span class=\"hljs-meta\">#\u6279\u53f7(inbj007)<\/span>\r\n        BZ   LIKE inbj_t.inbj031,     <span class=\"hljs-meta\">#\u5907\u6ce8(inbj031)<\/span>\r\n        GSBM LIKE inbj_t.inbj017      <span class=\"hljs-meta\">#\u5f52\u5c5e\u90e8\u95e8<\/span>\r\n        \r\n  END RECORD  \r\n  DEFINE g_logtime   string   \r\n  DEFINE tmpXmlFile  string\r\n  DEFINE r_success   LIKE type_t.num5\r\n  \r\n  LET r_success = <span class=\"hljs-literal\">TRUE<\/span> \r\n   <span class=\"hljs-meta\">#\u65e5\u5fd7\u76f8\u5173\u8bb0\u5f55<\/span>\r\n  LET g_logtime = YEAR(CURRENT) USING <span class=\"hljs-string\">\"####\"<\/span>, MONTH(CURRENT) USING <span class=\"hljs-string\">\"&amp;&amp;\"<\/span>,DAY(CURRENT) USING <span class=\"hljs-string\">\"&amp;&amp;\"<\/span>,<span class=\"hljs-string\">\"-\"<\/span>, TIME(CURRENT)\r\n  LET g_time = TIME\r\n  \r\n<span class=\"hljs-meta\">#\u6293\u5355\u5934\u6570\u636e <\/span>\r\n  LET l_sql = <span class=\"hljs-string\">\" SELECT INBIDOCNO,INBI001,INBI002,INBIDOCDT,INBI003,INBI021 FROM INBI_T \"<\/span>,\r\n              <span class=\"hljs-string\">\"  WHERE INBIDOCNO = '\"<\/span>,g_inbi_m.inbidocno,<span class=\"hljs-string\">\"' \"<\/span>,\r\n              <span class=\"hljs-string\">\"    AND INBIENT = '\"<\/span>,g_enterprise,<span class=\"hljs-string\">\"' AND INBISITE = '\"<\/span>,g_site,<span class=\"hljs-string\">\"' \"<\/span>\r\n             \r\n    PREPARE l_pre1 FROM l_sql\r\n    DECLARE l_cur1 CURSOR FOR l_pre1\r\n    FOREACH l_cur1 INTO l_inbi.DJBH,l_inbi.SQRY,l_inbi.SQBM,\r\n                        l_inbi.SQRQ,l_inbi.BFYY,l_inbi.BZ\r\n\r\n            IF SQLCA.SQLCODE THEN\r\n               INITIALIZE g_errparam TO <span class=\"hljs-literal\">NULL<\/span> \r\n               LET g_errparam.extend = <span class=\"hljs-string\">\"Foreach:\"<\/span>,SQLERRMESSAGE \r\n               LET g_errparam.code = SQLCA.SQLCODE \r\n               LET g_errparam.popup = <span class=\"hljs-literal\">TRUE<\/span> \r\n               <span class=\"hljs-built_in\">CALL<\/span> cl_err()\r\n               EXIT FOREACH\r\n            END IF  \r\n\r\n<span class=\"hljs-meta\">#\u6293\u53d6\u5355\u8eab\u6570\u636e            <\/span>\r\n    LET l_sql = <span class=\"hljs-string\">\" SELECT INBJ001,IMAAL003, IMAAL004,INBJ008,INBJ009,INBJUD001,INBJ005,INBJ007,INBJ031,INBJ017 \"<\/span>,\r\n              <span class=\"hljs-string\">\"   FROM INBJ_T LEFT JOIN IMAAL_T ON INBJ001 = IMAAL001 AND IMAALENT = '\"<\/span>,g_enterprise,<span class=\"hljs-string\">\"' \"<\/span>,\r\n              <span class=\"hljs-string\">\"  WHERE INBJDOCNO = '\"<\/span>,g_inbi_m.inbidocno,<span class=\"hljs-string\">\"' AND inbjent = '\"<\/span>,g_enterprise,<span class=\"hljs-string\">\"' AND inbjsite = '\"<\/span>,g_site,<span class=\"hljs-string\">\"' \"<\/span>,     \r\n              <span class=\"hljs-string\">\" ORDER BY inbjseq \"<\/span>                \r\n        PREPARE l_pre2 FROM l_sql\r\n        DECLARE l_cur2 CURSOR FOR l_pre2\r\n        LET l_n = <span class=\"hljs-number\">1<\/span>\r\n        FOREACH l_cur2 INTO l_inbj[l_n].WLBH,l_inbj[l_n].PMGG,l_inbj[l_n].GG,l_inbj[l_n].DW,\r\n                            l_inbj[l_n].BFSL,l_inbj[l_n].ZL,l_inbj[l_n].KW,\r\n                            l_inbj[l_n].PH,l_inbj[l_n].BZ,l_inbj[l_n].GSBM\r\n                IF SQLCA.SQLCODE THEN\r\n                   INITIALIZE g_errparam TO <span class=\"hljs-literal\">NULL<\/span> \r\n                   LET g_errparam.extend = <span class=\"hljs-string\">\"Foreach:\"<\/span>,SQLERRMESSAGE \r\n                   LET g_errparam.code = SQLCA.SQLCODE \r\n                   LET g_errparam.popup = <span class=\"hljs-literal\">TRUE<\/span> \r\n                   <span class=\"hljs-built_in\">CALL<\/span> cl_err()\r\n                   EXIT FOREACH\r\n                END IF            \r\n                           \r\n                IF cl_null(l_inbj[l_n].ZL) THEN \r\n                   LET l_inbj[l_n].ZL = <span class=\"hljs-number\">0<\/span>\r\n                END IF\r\n                LET l_n = l_n + <span class=\"hljs-number\">1<\/span>\r\n        END FOREACH \r\n    END FOREACH\r\n   \r\n    <span class=\"hljs-meta\">#\u7ec4xml  <\/span>\r\n  LET l_request = <span class=\"hljs-string\">\"  &lt;?xml version='1.0' encoding='UTF-8'?&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"  &lt;root&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"  &lt;systoken&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"  &lt;syskey&gt;1aa8c155-dcfe-4472-9bfd-55c38c6c47fa &lt;\/syskey&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"      &lt;syscode&gt;40CE39723A270D4EB9F0D98A234C10A3&lt;\/syscode&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"  &lt;\/systoken&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"  &lt;description&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"      &lt;workflowid&gt;58&lt;\/workflowid&gt;\"<\/span>,                          <span class=\"hljs-meta\">#\u6d41\u7a0b\u4ee3\u7801<\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;workflowhrmtransrule&gt;3&lt;\/workflowhrmtransrule&gt;\"<\/span>,         \r\n                  <span class=\"hljs-string\">\"      &lt;workflowname&gt;\"<\/span>,g_inbi_m.inbidocno,<span class=\"hljs-string\">\"&lt;\/workflowname&gt;\"<\/span>,                    <span class=\"hljs-meta\">#\u6d41\u7a0b\u540d\u79f0<\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;workflowcreater&gt;\"<\/span>,g_inbi_m.inbi001,<span class=\"hljs-string\">\"&lt;\/workflowcreater&gt;\"<\/span>,   <span class=\"hljs-meta\">#\u6d41\u7a0b\u53d1\u8d77\u4eba<\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;workflowlevel&gt;0&lt;\/workflowlevel&gt;\"<\/span>,       \r\n                  <span class=\"hljs-string\">\"  &lt;\/description&gt;\"<\/span>,     \r\n                  <span class=\"hljs-string\">\"  &lt;maintable&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"      &lt;DJBH&gt;\"<\/span>,l_inbi.DJBH <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/DJBH&gt;\"<\/span>,           <span class=\"hljs-meta\">#\u5355\u636e\u7f16\u53f7<\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;SQRY type='hrm'&gt;\"<\/span>,l_inbi.SQRY <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/SQRY&gt;\"<\/span>,           <span class=\"hljs-meta\">#\u7533\u8bf7\u4eba                  <\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;SQBM  type='department'&gt;\"<\/span>,l_inbi.SQRY <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/SQBM&gt;\"<\/span>,           <span class=\"hljs-meta\">#\u7533\u8bf7\u90e8\u95e8                  <\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;SQRQ&gt;\"<\/span>,l_inbi.SQRQ <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/SQRQ&gt;\"<\/span>,           <span class=\"hljs-meta\">#\u7533\u8bf7\u65e5\u671f                  <\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;BFYY&gt;\"<\/span>,l_inbi.BFYY <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/BFYY&gt;\"<\/span>,           <span class=\"hljs-meta\">#\u62a5\u5e9f\u539f\u56e0<\/span>\r\n                  <span class=\"hljs-string\">\"      &lt;BZ&gt;\"<\/span>,l_inbi.BZ,<span class=\"hljs-string\">\"&lt;\/BZ&gt;\"<\/span>,                         <span class=\"hljs-meta\">#\u5907\u6ce8<\/span>\r\n                  <span class=\"hljs-string\">\"   &lt;\/maintable&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"   &lt;detailtables&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"   &lt;detailtable&gt;\"<\/span>\r\n    FOR l_i = <span class=\"hljs-number\">1<\/span> TO l_n<span class=\"hljs-number\">-1<\/span>\r\n        LET l_request = l_request,\r\n                  <span class=\"hljs-string\">\"          &lt;row&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"             &lt;WLBH&gt;\"<\/span>,l_inbj[l_i].WLBH <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/WLBH&gt;\"<\/span>,    <span class=\"hljs-meta\">#\u6599\u4ef6\u7f16\u53f7<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;PMGG&gt;\"<\/span>,l_inbj[l_i].PMGG <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/PMGG&gt;\"<\/span>,    <span class=\"hljs-meta\">#\u54c1\u540d<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;GG&gt;\"<\/span>,l_inbj[l_i].GG <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/GG&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u89c4\u683c<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;DW&gt;\"<\/span>,l_inbj[l_i].DW <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/DW&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u5355\u4f4d<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;BFSL&gt;\"<\/span>,l_inbj[l_i].BFSL <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/BFSL&gt;\"<\/span>,    <span class=\"hljs-meta\">#\u62a5\u5e9f\u6570\u91cf<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;ZL&gt;\"<\/span>,l_inbj[l_i].ZL <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/ZL&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u91cd\u91cf<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;KW&gt;\"<\/span>,l_inbj[l_i].KW <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/KW&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u5e93\u4f4d<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;PH&gt;\"<\/span>,l_inbj[l_i].PH <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/PH&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u6279\u53f7<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;BZ&gt;\"<\/span>,l_inbj[l_i].BZ <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/BZ&gt;\"<\/span>,          <span class=\"hljs-meta\">#\u5907\u6ce8<\/span>\r\n                  <span class=\"hljs-string\">\"             &lt;GSBM&gt;\"<\/span>,l_inbj[l_i].GSBM <span class=\"hljs-built_in\">CLIPPED<\/span>,<span class=\"hljs-string\">\"&lt;\/GSBM&gt;\"<\/span>,    <span class=\"hljs-meta\">#\u5f52\u5c5e\u90e8\u95e8<\/span>\r\n                  <span class=\"hljs-string\">\"          &lt;\/row&gt;\"<\/span>\r\n    END FOR \r\n    LET l_request = l_request,\r\n                  <span class=\"hljs-string\">\"     &lt;\/detailtable&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"   &lt;\/detailtables&gt;\"<\/span>,\r\n                  <span class=\"hljs-string\">\"&lt;\/root&gt;\"<\/span>\r\n                  \r\n     <span class=\"hljs-meta\">#\u8bb0\u5f55\u63a5\u6536\u96c6\u6210\u65e5\u5fd7<\/span>\r\n    LET tmpXmlFile = <span class=\"hljs-string\">\"\/ut\/toptst\/log\/INTO_WMS_\"<\/span>,g_inbi_m.inbidocno,<span class=\"hljs-string\">\"_\"<\/span>,g_logtime,<span class=\"hljs-string\">\".log\"<\/span>\r\n    RUN <span class=\"hljs-string\">\"echo '\"<\/span>||l_request||<span class=\"hljs-string\">\"' &gt; \"<\/span>||tmpXmlFile\r\n    \r\n    <span class=\"hljs-meta\">#\u5f80OA\u4f20\u6570\u636e              <\/span>\r\n    <span class=\"hljs-built_in\">CALL<\/span> createWorkflowByXml(l_request) RETURNING li_result,li_msg\r\n    LET l_msg = li_msg\r\n    IF li_result !=<span class=\"hljs-string\">'0'<\/span> THEN\r\n        LET r_success = <span class=\"hljs-literal\">FALSE<\/span> \r\n        LET g_errparam.extend = <span class=\"hljs-string\">\"\u9001\u7b7e\u5931\u8d25\"<\/span>\r\n        LET g_errparam.popup = <span class=\"hljs-literal\">TRUE<\/span>\r\n        <span class=\"hljs-built_in\">CALL<\/span> cl_err() <span class=\"hljs-meta\">#\u9001\u7b7e\u5931\u8d25  <\/span>\r\n            \r\n    ELSE \r\n        IF NOT cl_null(l_msg) THEN \r\n            SELECT instr(l_msg, <span class=\"hljs-string\">'&gt;'<\/span>,<span class=\"hljs-number\">1<\/span>,<span class=\"hljs-number\">2<\/span>) INTO l_cnt1 FROM DUAL <span class=\"hljs-meta\">#\u627e\u7b2c2\u4e2a&gt;\u7684\u4f4d\u7f6e <\/span>\r\n            SELECT instr(l_msg, <span class=\"hljs-string\">'&lt;'<\/span>,<span class=\"hljs-number\">1<\/span>,<span class=\"hljs-number\">3<\/span>) INTO l_cnt2 FROM DUAL <span class=\"hljs-meta\">#\u627e\u7b2c3\u4e2a<span class=\"hljs-meta-string\">&lt;\u7684\u4f4d\u7f6e \r\n            IF l_cnt2 - l_cnt1 =1 THEN                         #\u65e0OA\u6d41\u7a0b\u53f7\uff0c\u9001\u7b7e\u5931\u8d25\r\n                #\u5b9a\u4f4derrmsg\u7684\u4f4d\u7f6e\r\n                SELECT SUBSTR(l_msg,instr(l_msg, '&gt;<\/span>',1,6)+1,instr(l_msg, '<span class=\"hljs-meta-string\">&lt;',1,7)-instr(l_msg, '&gt;<\/span>',1,6)-1) into l_msg1 FROM DUAL<\/span>\r\n                INITIALIZE g_errparam TO <span class=\"hljs-literal\">NULL<\/span>\r\n                LET g_errparam.code = <span class=\"hljs-string\">'!'<\/span>\r\n                LET g_errparam.extend = l_msg1\r\n                LET g_errparam.popup = <span class=\"hljs-literal\">TRUE<\/span>  \r\n                <span class=\"hljs-built_in\">CALL<\/span> cl_err()\r\n                LET r_success = <span class=\"hljs-literal\">FALSE<\/span>\r\n            END IF \r\n        END IF \r\n    <span class=\"hljs-meta\">#\u8bb0\u5f55\u8fd4\u56de\u65e5\u5fd7<\/span>\r\n    LET tmpXmlFile = <span class=\"hljs-string\">\"\/ut\/toptst\/log\/RETURN_WMS_\"<\/span>,g_inbi_m.inbidocno,<span class=\"hljs-string\">\"_\"<\/span>,g_logtime,<span class=\"hljs-string\">\".log\"<\/span>\r\n    RUN <span class=\"hljs-string\">\"echo '\"<\/span>||li_msg||<span class=\"hljs-string\">\"' &gt; \"<\/span>||tmpXmlFile\r\n    END  IF\r\n    \r\n    RETURN r_success\r\nEND FUNCTION\r\n<\/code><\/pre>\n<p>\u4e09\u3001\u6539\u5199\u62a5\u5e9f\u5355\u4e0a\u7684\u5355\u636e\u72b6\u6001<\/p>\n<pre class=\"hljs php\"><code class=\"php\"><span class=\"hljs-comment\">#\u6838\u5fc3\u903b\u8f91<\/span>\r\n<span class=\"hljs-keyword\">IF<\/span> lc_state = <span class=\"hljs-string\">'O'<\/span> <span class=\"hljs-keyword\">AND<\/span> l_status = <span class=\"hljs-string\">\"confirm\"<\/span> THEN\r\n      <span class=\"hljs-keyword\">IF<\/span> cl_ask_confirm(<span class=\"hljs-string\">\"aim-00108\"<\/span>) THEN\r\n         CALL s_aint311_cnf_chk(g_inbi_m.inbidocno) RETURNING g_success\r\n         <span class=\"hljs-keyword\">IF<\/span> g_success THEN\r\n            CALL s_transaction_begin()\r\n            CALL s_aint311_cnf_upd(g_inbi_m.inbidocno) RETURNING g_success\r\n            <span class=\"hljs-keyword\">IF<\/span> g_success THEN\r\n               <span class=\"hljs-comment\">#CALL s_transaction_end('Y','0')   <\/span>\r\n               <span class=\"hljs-comment\">#\u5ba1\u6838\u5b8c\u6bd5\u63d0\u4ea4\u4e8b\u52a1\uff0c\u7136\u540e\u9001\u53bbOA<\/span>\r\n               CALL aint311_OAinsert() RETURNING g_success               \r\n               <span class=\"hljs-comment\">#OA\u9001\u7b7e  <\/span>\r\n               <span class=\"hljs-keyword\">IF<\/span> g_success THEN             <span class=\"hljs-comment\">#\u5224\u65adOA\u662f\u5426\u9001\u7b7e\u6210\u529f  <\/span>\r\n                  CALL s_transaction_end(<span class=\"hljs-string\">'Y'<\/span>,<span class=\"hljs-string\">'0'<\/span>)\r\n                  LET lc_state = <span class=\"hljs-string\">'W'<\/span>      \r\n               <span class=\"hljs-keyword\">ELSE<\/span> \r\n                  CALL s_transaction_end(<span class=\"hljs-string\">'N'<\/span>,<span class=\"hljs-string\">'0'<\/span>) \r\n                  LET g_action_choice = <span class=\"hljs-string\">\"statechange\"<\/span>            \r\n                  <span class=\"hljs-keyword\">RETURN<\/span> \r\n               END <span class=\"hljs-keyword\">IF<\/span>\r\n            <span class=\"hljs-keyword\">ELSE<\/span>          \r\n               CALL s_transaction_end(<span class=\"hljs-string\">'N'<\/span>,<span class=\"hljs-string\">'1'<\/span>) \r\n               LET g_action_choice = <span class=\"hljs-string\">\"statechange\"<\/span>            \r\n               <span class=\"hljs-keyword\">RETURN<\/span> \r\n            END <span class=\"hljs-keyword\">IF<\/span>\r\n         <span class=\"hljs-keyword\">ELSE<\/span>\r\n            CALL s_transaction_end(<span class=\"hljs-string\">'N'<\/span>,<span class=\"hljs-string\">'0'<\/span>)   \r\n            <span class=\"hljs-keyword\">RETURN<\/span> \r\n         END <span class=\"hljs-keyword\">IF<\/span>\r\n      <span class=\"hljs-keyword\">ELSE<\/span>\r\n         CALL s_transaction_end(<span class=\"hljs-string\">'N'<\/span>,<span class=\"hljs-string\">'0'<\/span>)  \r\n         <span class=\"hljs-keyword\">RETURN<\/span> \r\n      END <span class=\"hljs-keyword\">IF<\/span>\r\n   END <span class=\"hljs-keyword\">IF<\/span>\r\n<\/code><\/pre>\n<p>\u56db\u3001OA\u9001\u7b7e\u6d41\u7a0b\u7ed3\u675f\u540e\uff0c\u53cd\u5199ERP\u7684\u5355\u636e\u72b6\u6001<br \/>\nDemo\u4e2d\u6ca1\u6709\u8c03\u7528\u7cfb\u7edf\u6807\u51c6\u7684\u5ba1\u6838\u903b\u8f91\u3002\u5f00\u53d1\u65f6\u8bf7\u6ce8\u610f\u8fd9\u4e2a\u7ec6\u8282\u3002<\/p>\n<pre class=\"hljs ruby\"><code class=\"ruby\">PRIVATE FUNCTION cwssp310_process()\r\n   <span class=\"hljs-comment\">#add-point: \u670d\u52d9\u908f\u8f2f\u4e3b\u8981\u8655\u7406\u6bb5\u7684ADP name=\"cwssp310.process\"<\/span>\r\n      DEFINE l_inbidocno     LIKE inbi_t.inbidocno,  <span class=\"hljs-comment\">#\u5355\u636e\u7f16\u53f7<\/span>\r\n             l_stus          LIKE type_t.chr1        <span class=\"hljs-comment\">#\u72b6\u6001 <\/span>\r\n   \r\n      LET l_inbidocno = awsp900_01_getParameter(<span class=\"hljs-string\">\"inbidocno\"<\/span>)\r\n      LET l_stus = awsp900_01_getParameter(<span class=\"hljs-string\">\"stus\"<\/span>)\r\n         <span class=\"hljs-comment\">#1 \u5ba1\u6838 2 \u63d0\u9192 3 \u5f52\u6863<\/span>\r\n      IF l_stus = <span class=\"hljs-string\">'3'<\/span> THEN     <span class=\"hljs-comment\">#\u5ba1\u6838<\/span>\r\n         LET l_stus = <span class=\"hljs-string\">'O'<\/span>\r\n         UPDATE inbi_t SET inbistus = l_stus\r\n          WHERE inbient = g_enterprise\r\n            AND inbidocno = l_inbidocno\r\n        \r\n         IF SQLCA.sqlcode THEN\r\n            INITIALIZE g_errparam TO NULL\r\n            LET g_errparam.code = SQLCA.sqlcode\r\n            LET g_errparam.extend = <span class=\"hljs-string\">'upd_stus'<\/span>\r\n            LET g_errparam.popup = FALSE\r\n            CALL cl_err()   \r\n         <span class=\"hljs-keyword\">END<\/span> IF\r\n      <span class=\"hljs-keyword\">END<\/span> IF\r\n      IF l_stus = <span class=\"hljs-string\">'0'<\/span> THEN \r\n         LET l_stus = <span class=\"hljs-string\">'N'<\/span>         <span class=\"hljs-comment\">#\u9000\u56de<\/span>\r\n         UPDATE inbi_t SET inbistus = l_stus\r\n          WHERE inbient = g_enterprise\r\n            AND inbidocno = l_inbidocno\r\n        \r\n         IF SQLCA.sqlcode THEN\r\n            INITIALIZE g_errparam TO NULL\r\n            LET g_errparam.code = SQLCA.sqlcode\r\n            LET g_errparam.extend = <span class=\"hljs-string\">'upd_stus'<\/span>\r\n            LET g_errparam.popup = FALSE\r\n            CALL cl_err()   \r\n         <span class=\"hljs-keyword\">END<\/span> IF\r\n      <span class=\"hljs-keyword\">END<\/span> IF\r\n   <span class=\"hljs-comment\">#end add-point<\/span>\r\n<span class=\"hljs-keyword\">END<\/span> FUNCTION<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<p>\u4f5c\u8005\uff1ajiandanyaobai<br \/>\n\u94fe\u63a5\uff1ahttps:\/\/www.jianshu.com\/p\/2a6b98ffc943<br \/>\n\u6765\u6e90\uff1a\u7b80\u4e66<br \/>\n\u7b80\u4e66\u8457\u4f5c\u6743\u5f52\u4f5c\u8005\u6240\u6709\uff0c\u4efb\u4f55\u5f62\u5f0f\u7684\u8f6c\u8f7d\u90fd\u8bf7\u8054\u7cfb\u4f5c\u8005\u83b7\u5f97\u6388\u6743\u5e76\u6ce8\u660e\u51fa\u5904\u3002<\/p><\/div>\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=5113\">t100\u96c6\u6210\u6cdb\u5faedemo<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>\u4e00\u3001\u83b7\u53d6\u6cdb\u5faeOA\u7684Webservices\u5730\u5740\u3002 \u5728\u5bf9\u5e94\u7684\u6587\u4ef6\u4e0b\u9762\u751f\u6210 T100\u76ee\u5f55\/aws\/4gl\u4e0b\u4ee5\u4e0b\u547d\u4ee4\uff1a fglwsdl [-command] &lt;filename | url | regex value&gt; fglwsdl -o aw [&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":[232,7],"class_list":["post-5113","post","type-post","status-publish","format-standard","hentry","category-490","tag-aws","tag-7"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5113","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=5113"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5113\/revisions"}],"predecessor-version":[{"id":5115,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5113\/revisions\/5115"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}