{"id":5256,"date":"2019-08-23T08:44:13","date_gmt":"2019-08-23T00:44:13","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=5256"},"modified":"2019-08-23T08:44:13","modified_gmt":"2019-08-23T00:44:13","slug":"t100-%e6%8e%a5%e5%8f%a3%e4%bb%a3%e7%a0%81%e8%ae%b0%e5%bd%95%ef%bc%8cjsonarray%e5%92%8cjson","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=5256","title":{"rendered":"T100\u2014\u2014\u63a5\u53e3\u4ee3\u7801\u8bb0\u5f55\uff0cjsonArray\u548cjson"},"content":{"rendered":"<pre class=\"pure-highlightjs\"><code class=\"null\">{&lt;section id=\"cs_t1client.description\" &gt;}\r\n#\u61c9\u7528 a00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:2)\r\n#+ Version..: T100-ERP-1.01.00(SD\u7248\u6b21:4,PR\u7248\u6b21:4) Build-000143\r\n#+ \r\n#+ Filename...: cs_t1client\r\n#+ Description: T1\u96f2\r\n#+ Creator....: tiptop(2017-07-14 14:17:17)\r\n#+ Modifier...: 00000() -SD\/PR-\r\n\r\n{&lt;\/section&gt;}\r\n\r\n{&lt;section id=\"cs_t1client.global\" &gt;}\r\n#\u61c9\u7528 p00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:3)\r\n#add-point:\u8a3b\u89e3\u7de8\u5beb\u9805\u76ee\r\n\r\n#end add-point\r\n \r\nIMPORT os\r\n#add-point:\u589e\u52a0\u532f\u5165\u9805\u76ee\r\nIMPORT util\r\nIMPORT xml\r\nIMPORT com\r\n#end add-point\r\n \r\nSCHEMA ds\r\n \r\nGLOBALS \"..\/..\/cfg\/top_global.inc\"\r\n#add-point:\u589e\u52a0\u532f\u5165\u8b8a\u6578\u6a94\r\n\r\n#end add-point\r\n\r\n{&lt;\/section&gt;}\r\n\r\n{&lt;section id=\"cs_t1client.free_style_variable\" &gt;}\r\n#add-point:free_style\u6a21\u7d44\u8b8a\u6578(Module Variable)\r\n\r\n#end add-point\r\n\r\n{&lt;\/section&gt;}\r\n\r\n{&lt;section id=\"cs_t1client.global_variable\" &gt;}\r\n#add-point:\u81ea\u5b9a\u7fa9\u6a21\u7d44\u8b8a\u6578(Module Variable)\r\n\r\n#end add-point\r\n\r\n{&lt;\/section&gt;}\r\n\r\n{&lt;section id=\"cs_t1client.other_dialog\" &gt;}\r\n\r\n\r\n{&lt;\/section&gt;}\r\n\r\n{&lt;section id=\"cs_t1client.other_function\" readonly=\"Y\" &gt;}\r\n\r\n################################################################################\r\n# Descriptions...: \u901a\u8fc7\u8d26\u53f7\u5bc6\u7801\u83b7\u53d6\u4ee4\u724c\r\n# Memo...........:\r\n# Usage..........: CALL cs_t1client_get_token()\r\n#                  RETURNING r_success,r_token\r\n# Input parameter: \r\n# Return code....: r_success   \u6210\u529f\u5426\r\n#                : r_token   \u56de\u4f20\u7684\u4ee4\u724c\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_get_token()\r\n##\u6b64\u51fd\u6570\u7ed9\u4f5c\u4e1aczzi001\u8c03\u7528\uff0c\u5176\u4ed6\u522b\u8c03\u7528\uff0c\u907f\u514d\u9020\u6210token\u4e0e\u6570\u636e\u8868\u7684\u4e0d\u4e00\u81f4\r\n  DEFINE lb_result    BOOLEAN\r\n  DEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\n  DEFINE ls_url       STRING  \r\n  DEFINE r_token      STRING\r\n\r\n  LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n             \"\/api\/getToken\",\r\n             \"?user=*********&amp;password=**********&amp;appid=***********&amp;clientType=pc\"\r\n  DISPLAY \"URL=\\n\" , ls_url , \"\\n\"\r\n   \r\n  CALL cs_t1client_http_posturl(ls_url) RETURNING lb_result,ls_resp\r\n  IF lb_result=TRUE THEN\r\n     #\u89e3\u6790JSON\r\n     CALL cs_t1client_parse_json(ls_resp) RETURNING r_token\r\n     DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n     DISPLAY r_token\r\n     RETURN r_token\r\n  ELSE\r\n     # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n     DISPLAY ls_resp\r\n     RETURN 0\r\n  END IF\r\n  \r\n  RETURN 0\r\n  \r\n  \r\n  \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63d0\u4ea4url\r\n# Memo...........:\r\n# Usage..........: CALL cs_t1client_http_posturl(p_url)\r\n#                  RETURNING r_body\r\n# Input parameter: p_url         url\u5185\u5bb9\r\n# Return code....: r_body        body\u5185\u5bb9\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_http_posturl(p_url)\r\n  DEFINE l_http_req      com.HTTPRequest\r\n  DEFINE l_http_res      com.HTTPResponse\r\n  DEFINE p_url           STRING\r\n  DEFINE l_succ          BOOLEAN\r\n  DEFINE l_str           STRING\r\n  DEFINE l_body          STRING\r\n  \r\n  \r\n  # initial parameter\r\n  LET l_succ = FALSE\r\n  LET l_str = \"\"\r\n  \r\n  TRY \r\n     # \u8a2d\u7f6e HttpRequest START\r\n     LET  l_http_req = com.HttpRequest.Create(p_url)  # \u5efa\u7acb\u8acb\u6c42 requesst \u7269\u4ef6\r\n     CALL l_http_req.setTimeOut(60)  # \u8a2d\u5b9a request timeout\r\n     CALL l_http_req.setMethod(\"GET\")  # \u8a2d\u5b9aHttp method\r\n     CALL l_http_req.setCharset(\"UTF-8\")  # \u8a2d\u5b9a\u7de8\u78bc\r\n     CALL l_http_req.doRequest()  # send request\r\n\r\n     LET  l_http_res = l_http_req.getResponse()  #\u53d6\u5f97\u56de\u50b3 response \u7269\u4ef6\r\n     IF l_http_res.getStatusCode() != 200 THEN\r\n       # server \u56de\u50b3\u5831\u932f\r\n       LET l_succ = FALSE\r\n       LET l_str = \"HTTP Error (\"||l_http_res.getStatusCode()||\") \", l_http_res.getStatusDescription()\r\n     ELSE\r\n       # \u53d6\u5f97 server \u56de\u50b3 body content string\r\n       LET l_succ = TRUE\r\n       LET  l_str = l_http_res.getTextResponse() # \u53d6\u5f97 response body\u5b57\u4e32\r\n       #DISPLAY l_str\r\n     END IF\r\n  CATCH\r\n     #get error from genero\r\n     LET l_succ = FALSE\r\n     LET l_str = \"ERROR :\",STATUS||\" (\"||SQLCA.SQLERRM||\")\"\r\n  END TRY\r\n\r\n  # \u56de\u50b3\u7d50\u679c\r\n  RETURN l_succ,l_str\r\n  \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u89e3\u6790\u56de\u4f20\u7684json\r\n# Memo...........:\r\n# Usage..........: CALL cs_t1client_parse_json(p_str)\r\n#                  RETURNING \r\n# Input parameter: p_str   json \u5b57\u7b26\u4e32\r\n#                : \r\n# Return code....:\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_parse_json(p_str)\r\nDEFINE p_str     STRING\r\nDEFINE l_json    util.JSONObject\r\nDEFINE r_token   STRING\r\nDEFINE i INTEGER\r\n    DISPLAY p_str\r\n    LET l_json = util.JSONObject.parse(p_str)\r\n    \r\n    FOR i=1 TO l_json.getLength()\r\n        DISPLAY i, \": \", l_json.name(i), \"=\", l_json.get(l_json.name(i))\r\n        IF l_json.name(i) = \"token\" THEN\r\n           LET r_token = l_json.get(l_json.name(i))\r\n        END IF\r\n    END FOR    \r\n    RETURN r_token\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL cs_t1client_get_create(p_type,p_token)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: p_type   \u7c7b\u578b\r\n#                : p_token  \u4ee4\u724c\r\n# Return code....: \u6570\u636e\u5305\uff08STRING\u7c7b\u7684JSON\uff09\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_get_create(p_type,p_token)\r\nDEFINE p_type    LIKE  type_t.chr1000\r\nDEFINE p_token   STRING\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\nDEFINE ls_url       STRING  \r\nDEFINE r_token      STRING\r\nDEFINE l_json    util.JSONObject\r\n\r\n  \r\n  LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n             \"\/apiData\/getCreate\",\r\n             \"?token=\",p_token,\"&amp;itemType=\",p_type,\"\"\r\n  DISPLAY \"URL=\\n\" , ls_url , \"\\n\"\r\n   \r\n  CALL cs_t1client_http_get(ls_url) RETURNING lb_result,ls_resp\r\n  IF lb_result=TRUE THEN\r\n     #\u89e3\u6790JSON\r\n     LET l_json = util.JSONObject.parse(ls_resp)\r\n     CALL cs_t1client_http_prasejsontest(l_json)\r\n     #CALL cs_t1client_parse_json(ls_resp) RETURNING r_token\r\n     DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n     DISPLAY ls_resp\r\n     RETURN ls_resp \r\n  ELSE\r\n     # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n     DISPLAY ls_resp\r\n     RETURN 0\r\n  END IF\r\n  \r\n  RETURN 0\r\n\r\n\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_modify_data(p_str,p_itemcode,p_itemname,p_createtype,p_remark)\r\nDEFINE p_str     STRING\r\nDEFINE l_json    util.JSONObject\r\nDEFINE r_str   STRING\r\nDEFINE rec RECORD\r\n               value STRING,\r\n               text  STRING,\r\n               css   util.JSONObject\r\n           END RECORD\r\nDEFINE p_itemcode LIKE type_t.chr1000\r\nDEFINE p_itemname LIKE type_t.chr1000\r\nDEFINE p_createtype LIKE type_t.chr1000\r\nDEFINE p_remark   LIKE type_t.chr1000\r\nDEFINE i,j INTEGER\r\n    DISPLAY p_str\r\n    LET l_json = util.JSONObject.parse(p_str)    \r\n    FOR i=1 TO l_json.getLength()\r\n        #DISPLAY i, \": \", l_json.name(i), \"=\", l_json.get(l_json.name(i))\r\n        IF l_json.name(i) = \"ItemCode\" THEN\r\n           LET rec.value = p_itemcode\r\n           LET rec.text = p_itemcode\r\n           LET rec.css = util.JSONObject.parse(\"{}\")\r\n           CALL l_json.put(l_json.name(i),rec)\r\n        END IF\r\n        IF l_json.name(i) = \"ItemName\" THEN\r\n           LET rec.value = p_itemname\r\n           LET rec.text = p_itemname\r\n           LET rec.css = util.JSONObject.parse(\"{}\")\r\n           CALL l_json.put(l_json.name(i),rec)\r\n        END IF\r\n        IF l_json.name(i) = \"CreateType\" THEN\r\n           LET rec.value = p_createtype\r\n           LET rec.text = p_createtype\r\n           LET rec.css = util.JSONObject.parse(\"{}\")\r\n           CALL l_json.put(l_json.name(i),rec)\r\n        END IF\r\n        IF l_json.name(i) = \"Remark\" THEN\r\n           LET rec.value = p_remark\r\n           LET rec.text = p_remark\r\n           LET rec.css = util.JSONObject.parse(\"{}\")\r\n           CALL l_json.put(l_json.name(i),rec)\r\n        END IF\r\n    END FOR    \r\n    \r\n    LET r_str = l_json.toString()\r\n    RETURN r_str\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_i193_create(p_token,p_itemtype,p_str)\r\nDEFINE p_itemtype    LIKE  type_t.chr1000\r\nDEFINE p_token   STRING\r\nDEFINE p_str     STRING\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\nDEFINE ls_url       STRING  \r\nDEFINE r_token      STRING\r\n\r\n\r\n  \r\n  LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n             \"\/apiData\/create\"\r\n          #   \"?token=\",p_token,\"&amp;itemType=\",p_itemtype,\"\"\r\n             \r\n  DISPLAY \"URL=\\n\" , ls_url , \"\\n\"\r\n  LET p_str = \"token=\",p_token,\"&amp;itemType=\",p_itemtype,\"&amp;dataString=\",p_str,\"\" \r\n  #LET p_str = \"  \"\r\n  CALL cs_t1client_http_post(ls_url,p_str) RETURNING lb_result,ls_resp\r\n  \r\n  \r\n  IF lb_result=TRUE THEN\r\n     #\u89e3\u6790JSON\r\n     #CALL cs_t1client_parse_json(ls_resp) RETURNING r_token\r\n     \r\n     DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n     DISPLAY ls_resp\r\n     #RETURN ls_resp \r\n  ELSE\r\n     # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n     DISPLAY ls_resp\r\n     #RETURN 0\r\n  END IF\r\n  \r\n  #RETURN 0\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_http_get(p_url)\r\n  DEFINE l_http_req      com.HTTPRequest\r\n  DEFINE l_http_res      com.HTTPResponse\r\n  DEFINE p_url           STRING\r\n  DEFINE l_succ          BOOLEAN\r\n  DEFINE l_str           STRING\r\n  DEFINE l_body          STRING\r\n  DEFINE p_method        LIKE type_t.chr100\r\n  \r\n  \r\n  # initial parameter\r\n  LET l_succ = FALSE\r\n  LET l_str = \"\"\r\n  \r\n  TRY \r\n     # \u8a2d\u7f6e HttpRequest START\r\n     LET  l_http_req = com.HttpRequest.Create(p_url)  # \u5efa\u7acb\u8acb\u6c42 requesst \u7269\u4ef6\r\n     CALL l_http_req.setTimeOut(60)  # \u8a2d\u5b9a request timeout     \r\n     CALL l_http_req.setMethod(\"GET\")  # \u8a2d\u5b9aHttp method\r\n     CALL l_http_req.setCharset(\"UTF-8\")  # \u8a2d\u5b9a\u7de8\u78bc\r\n     DISPLAY l_http_req\r\n     CALL l_http_req.doRequest()  # \u8a2d\u5b9aHttp method\r\n\r\n     \r\n\r\n     LET  l_http_res = l_http_req.getResponse()  #\u53d6\u5f97\u56de\u50b3 response \u7269\u4ef6\r\n     IF l_http_res.getStatusCode() != 200 THEN\r\n       # server \u56de\u50b3\u5831\u932f\r\n       LET l_succ = FALSE\r\n       LET l_str = \"HTTP Error (\"||l_http_res.getStatusCode()||\") \", l_http_res.getStatusDescription()\r\n     ELSE\r\n       # \u53d6\u5f97 server \u56de\u50b3 body content string\r\n       LET l_succ = TRUE\r\n       LET  l_str = l_http_res.getTextResponse() # \u53d6\u5f97 response body\u5b57\u4e32\r\n       #DISPLAY l_str\r\n     END IF\r\n  CATCH\r\n     #get error from genero\r\n     LET l_succ = FALSE\r\n     LET l_str = \"ERROR :\",STATUS||\" (\"||SQLCA.SQLERRM||\")\"\r\n  END TRY\r\n\r\n  # \u56de\u50b3\u7d50\u679c\r\n  RETURN l_succ,l_str\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_http_post(p_url,p_str)\r\n  DEFINE l_http_req      com.HTTPRequest\r\n  DEFINE l_http_res      com.HTTPResponse\r\n  DEFINE p_url           STRING\r\n  DEFINE l_succ          BOOLEAN\r\n  DEFINE l_str           STRING\r\n  DEFINE l_body          STRING\r\n  DEFINE p_str           STRING\r\n  \r\n  \r\n  # initial parameter\r\n  LET l_succ = FALSE\r\n  LET l_str = \"\"\r\n  \r\n  TRY \r\n     # \u8a2d\u7f6e HttpRequest START\r\n     LET  l_http_req = com.HttpRequest.Create(p_url)  # \u5efa\u7acb\u8acb\u6c42 requesst \u7269\u4ef6\r\n     CALL l_http_req.setTimeOut(60)  # \u8a2d\u5b9a request timeout     \r\n     CALL l_http_req.setMethod(\"POST\")\r\n     CALL l_http_req.setCharset(\"UTF-8\")  # \u8a2d\u5b9a\u7de8\u78bc\r\n     DISPLAY l_http_req\r\n     CALL l_http_req.doFormEncodedRequest(p_str,true)  # send request\r\n     \r\n     \r\n\r\n     LET  l_http_res = l_http_req.getResponse()  #\u53d6\u5f97\u56de\u50b3 response \u7269\u4ef6\r\n     IF l_http_res.getStatusCode() != 200 THEN\r\n       # server \u56de\u50b3\u5831\u932f\r\n       LET l_succ = FALSE\r\n       LET l_str = \"HTTP Error (\"||l_http_res.getStatusCode()||\") \", l_http_res.getStatusDescription()\r\n     ELSE\r\n       # \u53d6\u5f97 server \u56de\u50b3 body content string\r\n       LET l_succ = TRUE\r\n       LET  l_str = l_http_res.getTextResponse() # \u53d6\u5f97 response body\u5b57\u4e32\r\n       #DISPLAY l_str\r\n       ###171013 add ljr s\r\n       IF l_str NOT LIKE '%\"success\":true%' THEN\r\n            LET l_succ = FALSE\r\n            DISPLAY l_str\r\n       END IF\r\n       ###171013 add ljr e\r\n     END IF\r\n  CATCH\r\n     #get error from genero\r\n     LET l_succ = FALSE\r\n     LET l_str = \"ERROR :\",STATUS||\" (\"||SQLCA.SQLERRM||\")\"\r\n  END TRY\r\n  \r\n  ###171027 LJR ADD   \u8bb0\u5f55\u9519\u8bef\u4fe1\u606f\r\n    #IF l_succ = FALSE THEN\r\n        CALL cs_t1client_log_insert(p_url,p_str,l_succ,l_str)\r\n    #END IF\r\n\r\n  # \u56de\u50b3\u7d50\u679c\r\n  RETURN l_succ,l_str\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_parse_output_json(p_str)\r\nDEFINE p_str     STRING\r\nDEFINE l_json    util.JSONObject\r\nDEFINE r_token   STRING\r\nDEFINE i INTEGER\r\nDEFINE r_success  LIKE type_t.chr100\r\nDEFINE r_error    LIKE type_t.chr100\r\nDEFINE r_errcode  LIKE type_t.chr1000\r\n\r\n    DISPLAY p_str\r\n    LET l_json = util.JSONObject.parse(p_str)\r\n    \r\n    FOR i=1 TO l_json.getLength()\r\n        DISPLAY i, \": \", l_json.name(i), \"=\", l_json.get(l_json.name(i))\r\n        IF l_json.name(i) = \"success\" THEN\r\n           LET r_success = l_json.get(l_json.name(i))\r\n        END IF\r\n        IF l_json.name(i) = \"error\" THEN\r\n           LET r_error = l_json.get(l_json.name(i))\r\n        END IF\r\n        IF l_json.name(i) = \"errcode\" THEN\r\n           LET r_errcode = l_json.get(l_json.name(i))\r\n        END IF\r\n    END FOR    \r\n    RETURN r_success,r_error,r_errcode\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_http_prasejsontest(p_str)\r\nDEFINE p_str     util.JSONObject\r\nDEFINE l_json    util.JSONObject\r\nDEFINE r_token   STRING\r\nDEFINE i,j INTEGER\r\nDEFINE r_success  LIKE type_t.chr100\r\nDEFINE r_error    LIKE type_t.chr100\r\nDEFINE r_errcode  LIKE type_t.chr1000\r\nDEFINE l_jsona   util.JSONObject\r\n\r\n    #DISPLAY p_str\r\n    #LET l_json = util.JSONObject.parse(p_str)\r\n    LET l_json = p_str\r\n    FOR i=1 TO l_json.getLength()\r\n        \r\n        IF l_json.getType(l_json.name(i)) = \"json\" THEN\r\n           LET l_jsona = l_json.get(l_json.name(i))\r\n           CALL cs_t1client_http_prasejsontest(l_jsona)\r\n        ELSE\r\n           DISPLAY i, \": \", l_json.name(i), \"=\", l_json.get(l_json.name(i))\r\n        END IF\r\n        \r\n    END FOR    \r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getId_byItemCode(p_token,p_itemType,p_itemCode)\r\n###\u6839\u636eItemCode\u83b7\u53d6\u5185\u7801Id\uff0c\u9488\u5bf9lookup\u548cdropdown\u7c7b\u578b\u5b57\u6bb5\r\nDEFINE p_itemType   STRING\r\nDEFINE p_itemCode   STRING\r\nDEFINE p_token      STRING\r\n###\r\nDEFINE l_url    STRING\r\nDEFINE l_wc     STRING\r\nDEFINE l_str    STRING\r\n###\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE l_json3   util.JSONObject\r\nDEFINE i,j    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    ###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    ###\r\n    LET l_wc = \"{\\\"logic\\\":\\\"and\\\",condition :[{\\\"property\\\":\\\"ItemCode\\\",\\\"operators\\\":\\\"doubleEqual\\\",\\\"valueType\\\":\\\"string\\\",\\\"value\\\":\\\"\",p_itemCode,\"\\\" }]}\"\r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",l_wc\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                LET l_json2 = l_data.get(1) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                FOR j=1 TO l_json2.getLength()   #\u904d\u53862\r\n                    IF l_json2.name(j) = \"Id\" THEN\r\n                        LET l_json3 = l_json2.get(l_json2.name(j))  #jsonArray\u662f[]\u7684\uff0cjson\u662f{}\u7684\uff0c\u6ce8\u610f\u7528\u54ea\u4e2a\u6765\u63a5\u6536\r\n                        LET r_id = l_json3.get(\"value\")\r\n                        EXIT FOR\r\n                    END IF\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\n    \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_create(p_token,p_itemtype,p_str)\r\nDEFINE p_itemtype    LIKE  type_t.chr1000\r\nDEFINE p_token   STRING\r\nDEFINE p_str     STRING\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\nDEFINE ls_url       STRING  \r\n    ###\r\n    LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n        \"\/apiData\/create\"\r\n    ###\r\n    LET p_str = \"token=\",p_token,\"&amp;itemType=\",p_itemtype,\"&amp;dataString=\",p_str,\"\" \r\n    ###\r\n    CALL cs_t1client_http_post(ls_url,p_str) RETURNING lb_result,ls_resp\r\n    ###\r\n    IF lb_result=TRUE THEN\r\n        DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n        RETURN TRUE\r\n    ELSE\r\n        DISPLAY ls_resp\r\n        RETURN FALSE\r\n    END IF\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getId_byBillNo(p_token,p_itemType,p_BillNo)\r\n###\u6839\u636e T1\u7684\u8ba2\u5355\u5355\u53f7BillNo \u83b7\u53d6\u8ba2\u5355\u5185\u7801Id\r\nDEFINE p_itemType   STRING\r\nDEFINE p_BillNo   STRING\r\nDEFINE p_token      STRING\r\n###\r\nDEFINE l_url    STRING\r\nDEFINE l_wc     STRING\r\nDEFINE l_str    STRING\r\n###\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE l_json3   util.JSONObject\r\nDEFINE i,j    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    ###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    ###\r\n    LET l_wc = \"{\\\"logic\\\":\\\"and\\\",condition :[{\\\"property\\\":\\\"BillNo\\\",\\\"operators\\\":\\\"doubleEqual\\\",\\\"valueType\\\":\\\"string\\\",\\\"value\\\":\\\"\",p_BillNo,\"\\\" }]}\"\r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",l_wc\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                LET l_json2 = l_data.get(1) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                FOR j=1 TO l_json2.getLength()   #\u904d\u53862\r\n                    IF l_json2.name(j) = \"Id\" THEN\r\n                        LET l_json3 = l_json2.get(l_json2.name(j))  #jsonArray\u662f[]\u7684\uff0cjson\u662f{}\u7684\uff0c\u6ce8\u610f\u7528\u54ea\u4e2a\u6765\u63a5\u6536\r\n                        LET r_id = l_json3.get(\"value\")\r\n                        EXIT FOR\r\n                    END IF\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\n    \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_delete(p_token,p_itemtype,p_str)\r\nDEFINE p_itemtype    LIKE  type_t.chr1000\r\nDEFINE p_token   STRING\r\nDEFINE p_str     STRING\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\nDEFINE ls_url       STRING  \r\n    ###\r\n    LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n        \"\/apiData\/delete\"\r\n    ###\r\n    LET p_str = \"token=\",p_token,\"&amp;itemType=\",p_itemtype,\"&amp;idString=\",p_str,\"\" \r\n    ###\r\n    CALL cs_t1client_http_post(ls_url,p_str) RETURNING lb_result,ls_resp\r\n    ###\r\n    IF lb_result=TRUE THEN\r\n        DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n        RETURN TRUE\r\n    ELSE\r\n        DISPLAY ls_resp\r\n        RETURN FALSE\r\n    END IF\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getWhat_bywhat(p_token,p_itemType,p_itemW,p_itemStr,p_get)\r\n###\r\nDEFINE p_token      STRING  #\u4ee4\u724c\r\nDEFINE p_itemType   STRING  #T1\u8868\u5355\u7c7b\u578b\r\nDEFINE p_itemW      STRING  #where \u6761\u4ef6\r\nDEFINE p_itemStr    STRING  #where \u6761\u4ef6 \u503c\r\nDEFINE p_get        STRING  #\u53d6T1\u7684\u503c\r\n##\r\nDEFINE l_url    STRING\r\nDEFINE l_wc     STRING\r\nDEFINE l_str    STRING\r\n###\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE l_json3   util.JSONObject\r\nDEFINE i,j    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    ###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    ###\r\n    LET l_wc = \"{\\\"logic\\\":\\\"and\\\",condition :[{\\\"property\\\":\\\"\",p_itemW,\"\\\",\\\"operators\\\":\\\"doubleEqual\\\",\\\"valueType\\\":\\\"string\\\",\\\"value\\\":\\\"\",p_itemStr,\"\\\" }]}\"\r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",l_wc\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                LET l_json2 = l_data.get(1) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                FOR j=1 TO l_json2.getLength()   #\u904d\u53862\r\n                    IF l_json2.name(j) = p_get THEN\r\n                        LET l_json3 = l_json2.get(l_json2.name(j))  #jsonArray\u662f[]\u7684\uff0cjson\u662f{}\u7684\uff0c\u6ce8\u610f\u7528\u54ea\u4e2a\u6765\u63a5\u6536\r\n                        LET r_id = l_json3.get(\"value\")\r\n                        EXIT FOR\r\n                    END IF\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\n\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_query(p_token,p_itemType,p_filterString)\r\nDEFINE p_token           STRING     #\u4ee4\u724c\r\nDEFINE p_itemType        STRING     #\u5355\u636e\u7c7b\u578b\r\nDEFINE p_filterString    STRING     #\u8fc7\u6ee4json\u6570\u636e\u8868\r\nDEFINE l_url    STRING\r\nDEFINE l_str    STRING\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE i    INTEGER\r\nDEFINE r_json STRING\r\n    INITIALIZE r_json TO NULL\r\n###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    \r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",p_filterString\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    \r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                LET l_json2 = l_data.get(1) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                LET r_json = l_json2.tostring()\r\n                EXIT FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_json\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\n    \r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_update(p_token,p_itemType,p_id,p_dataString)\r\nDEFINE p_token      STRING  #\u4ee4\u724c\r\nDEFINE p_itemType   STRING  #\u5355\u636e\u7c7b\u578b\r\nDEFINE p_id         STRING  #\u5185\u7801ID\r\nDEFINE p_dataString STRING  #\u8868\u5355JSON\u6570\u636e\u5305\r\n\r\nDEFINE l_url    STRING\r\nDEFINE l_str    STRING\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\n###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/update\"\r\n    \r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;id=\",p_id,\"&amp;dataString=\",p_dataString\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        DISPLAY l_resp\r\n        RETURN TRUE\r\n    ELSE\r\n        DISPLAY l_resp\r\n        RETURN FALSE\r\n    END IF\r\n    \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_get_entryCreate(p_token,p_itemType,p_entryName)\r\nDEFINE p_itemType   STRING\r\nDEFINE p_token   STRING\r\nDEFINE p_entryName  STRING\r\n\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML  \r\nDEFINE ls_url       STRING  \r\nDEFINE r_token      STRING\r\nDEFINE l_json    util.JSONObject\r\n\r\n  \r\n  LET ls_url = \"http:\/\/***.***.*.*.***:8080\",\r\n             \"\/apiData\/getEntryCreate\",\r\n             \"?token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;entryName=\",p_entryName,\"\"\r\n  DISPLAY \"URL=\\n\" , ls_url , \"\\n\"\r\n   \r\n  CALL cs_t1client_http_get(ls_url) RETURNING lb_result,ls_resp\r\n  IF lb_result=TRUE THEN\r\n     #\u89e3\u6790JSON\r\n     LET l_json = util.JSONObject.parse(ls_resp)\r\n     CALL cs_t1client_http_prasejsontest(l_json)\r\n     #CALL cs_t1client_parse_json(ls_resp) RETURNING r_token\r\n     DISPLAY ls_resp #\u663e\u793a\u4e00\u4e0b\u56de\u4f20\u7684JSON\r\n     DISPLAY ls_resp\r\n     RETURN ls_resp \r\n  ELSE\r\n     # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n     DISPLAY ls_resp\r\n     RETURN 0\r\n  END IF\r\n  \r\n  RETURN 0\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getId_fromStr(p_str)\r\n###\u83b7\u53d6STRING\u91cc\u7684\u5185\u7801Id\r\nDEFINE p_str   STRING\r\n###\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE i    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    IF NOT cl_null(p_str) THEN\r\n        #\u89e3\u6790JSON\r\n        LET l_json = util.JSONObject.parse(p_str)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"Id\" THEN\r\n                LET l_json2 = l_json.get(l_json.name(i)) \r\n                LET r_id = l_json2.get(\"value\")\r\n                EXIT FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        RETURN NULL\r\n    END IF\r\n    \r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getWhat_fromStr(p_str,p_w)\r\n###\u83b7\u53d6STRING\u91cc\u7684\u5185\u7801Id\r\nDEFINE p_str   STRING\r\nDEFINE p_w     STRING\r\n###\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE i    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    IF NOT cl_null(p_str) THEN\r\n        #\u89e3\u6790JSON\r\n        LET l_json = util.JSONObject.parse(p_str)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = p_w THEN\r\n                LET l_json2 = l_json.get(l_json.name(i)) \r\n                LET r_id = l_json2.get(\"value\")\r\n                EXIT FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        RETURN NULL\r\n    END IF\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getId_fromDropDown(p_token,p_typeId,p_name)\r\n###\u4eceT1 DropDown\u7c7b\u578b\u4e2d\uff0c\u6839\u636eNAME\u83b7\u53d6\u5185\u7801ID\r\nDEFINE p_token  STRING\r\nDEFINE p_typeId STRING\r\nDEFINE p_name   STRING\r\nDEFINE l_url    STRING\r\nDEFINE l_str    STRING\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE r_id     STRING  #\u8fd4\u56deID\r\nDEFINE i,k    INT\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\n###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/getDropDowItems\"\r\n    ###\r\n    LET l_str = \"token=\",p_token,\"&amp;typeId=\",p_typeId\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                FOR k=1 TO l_data.getLength()\r\n                    LET l_json2 = l_data.get(k) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                    IF l_json2.get(\"name\") = p_name THEN\r\n                        LET r_id = l_json2.get(\"id\")\r\n                        EXIT FOR\r\n                    END IF\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getWhats_byWhat(p_token,p_itemType,p_itemW,p_itemStr,p_get)\r\n##\u8fd4\u56deJsonArray\u7684ID\u96c6\u5408\r\nDEFINE p_token  STRING\r\nDEFINE p_itemType    STRING #\u7c7b\u578b\r\nDEFINE p_itemW  STRING  #\u53c2\u6570\r\nDEFINE p_itemStr    STRING  #\u53c2\u6570\u503c\r\nDEFINE p_get    STRING  #\u53d6\u503c\r\n##\r\nDEFINE l_url    STRING\r\nDEFINE l_wc     STRING\r\nDEFINE l_str    STRING\r\n###\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE l_json3   util.JSONObject\r\nDEFINE i,j,k    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    ###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    ###\r\n    LET l_wc = \"{\\\"logic\\\":\\\"and\\\",condition :[{\\\"property\\\":\\\"\",p_itemW,\"\\\",\\\"operators\\\":\\\"doubleEqual\\\",\\\"valueType\\\":\\\"string\\\",\\\"value\\\":\\\"\",p_itemStr,\"\\\" }]}\"\r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",l_wc\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                FOR k=1 TO l_data.getLength()\r\n                    LET l_json2 = l_data.get(k) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                    IF k != 1 THEN\r\n                        LET r_id = \",\",r_id\r\n                    END IF\r\n                    FOR j=1 TO l_json2.getLength()   #\u904d\u53862\r\n                        IF l_json2.name(j) = p_get THEN\r\n                            LET l_json3 = l_json2.get(l_json2.name(j))  #jsonArray\u662f[]\u7684\uff0cjson\u662f{}\u7684\uff0c\u6ce8\u610f\u7528\u54ea\u4e2a\u6765\u63a5\u6536\r\n                            LET r_id = l_json3.get(\"value\"),r_id\r\n                            EXIT FOR\r\n                        END IF\r\n                    END FOR\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getIds_byKBillNo(p_token,p_itemType,p_KBillNo)\r\n##\u6839\u636eT1 \u91c7\u8d2d\u7533\u8bf7\u7684\u8fd4\u56de\u5355\u53f7\uff0c\u83b7\u53d6\u5185\u7801ID\uff0c\u53ef\u80fd\u5b58\u5728\u591a\u4e2a\u5185\u7801ID\uff0c\u8fd4\u56deJsonArray\u7684ID\u96c6\u5408\r\nDEFINE p_token  STRING\r\nDEFINE p_KBillNo    STRING\r\nDEFINE p_itemType   STRING\r\n##\r\nDEFINE l_url    STRING\r\nDEFINE l_wc     STRING\r\nDEFINE l_str    STRING\r\n###\r\nDEFINE l_result BOOLEAN\r\nDEFINE l_resp   STRING      # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\nDEFINE l_json   util.JSONObject\r\nDEFINE l_data   util.JSONArray\r\nDEFINE l_json2   util.JSONObject\r\nDEFINE l_json3   util.JSONObject\r\nDEFINE i,j,k    INTEGER\r\nDEFINE r_id STRING\r\n    INITIALIZE r_id TO NULL\r\n    ###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/apiData\/query\"\r\n    ###\r\n    LET l_wc = \"{\\\"logic\\\":\\\"and\\\",condition :[{\\\"property\\\":\\\"KBillNo\\\",\\\"operators\\\":\\\"doubleEqual\\\",\\\"valueType\\\":\\\"string\\\",\\\"value\\\":\\\"\",p_KBillNo,\"\\\" }]}\"\r\n    LET l_str = \"token=\",p_token,\"&amp;itemType=\",p_itemType,\"&amp;filterString=\",l_wc\r\n    ###\r\n    CALL cs_t1client_http_post(l_url,l_str) RETURNING l_result,l_resp\r\n    ###\r\n    IF l_result=TRUE THEN\r\n        #\u89e3\u6790JSON\r\n        DISPLAY l_resp\r\n        LET l_json = util.JSONObject.parse(l_resp)   \r\n        FOR i=1 TO l_json.getLength()   #\u904d\u53861\r\n            IF l_json.name(i) = \"data\" THEN\r\n                LET l_data = l_json.get(l_json.name(i)) #\u83b7\u53d6\u5230data\u7684jsonArray\r\n                IF NOT l_data.getLength() &gt; 0 THEN  \r\n                    EXIT FOR\r\n                END IF \r\n                FOR k=1 TO l_data.getLength()\r\n                    LET l_json2 = l_data.get(k) #\u7528JsonObject\u63a5\u6536JsonArray.get\r\n                    IF k != 1 THEN\r\n                        LET r_id = \",\",r_id\r\n                    END IF\r\n                    FOR j=1 TO l_json2.getLength()   #\u904d\u53862\r\n                        IF l_json2.name(j) = \"Id\" THEN\r\n                            LET l_json3 = l_json2.get(l_json2.name(j))  #jsonArray\u662f[]\u7684\uff0cjson\u662f{}\u7684\uff0c\u6ce8\u610f\u7528\u54ea\u4e2a\u6765\u63a5\u6536\r\n                            LET r_id = \"\\\"\",l_json3.get(\"value\"),\"\\\"\",r_id\r\n                            EXIT FOR\r\n                        END IF\r\n                    END FOR\r\n                END FOR\r\n            END IF\r\n        END FOR\r\n        IF NOT cl_null(r_id) THEN\r\n            LET r_id = \"[\",r_id,\"]\"\r\n        END IF\r\n        RETURN r_id\r\n    ELSE\r\n        # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY l_resp\r\n        RETURN NULL\r\n    END IF\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_getToken()\r\n###\u4ece\u6570\u636e\u8868zztcuc_t\u4e2d\u83b7\u53d6TOKEN\r\nDEFINE l_token LIKE zztcuc_t.zztcuc001\r\nDEFINE l_rel    BOOLEAN #\u68c0\u6d4btoken\u662f\u5426\u6709\u6548\r\n##\r\n    SELECT zztcuc001 INTO l_token FROM zztcuc_t WHERE zztcucent=g_enterprise\r\n    IF cl_null(l_token) THEN\r\n#        INITIALIZE g_errparam TO NULL \r\n#        LET g_errparam.extend = \"\" \r\n#        LET g_errparam.code   = 'cwss-00001'    #\u83b7\u53d6\u4ee4\u724c\u5931\u8d25\r\n#        LET g_errparam.popup  = FALSE \r\n#        CALL cl_err()\r\n        RETURN 0\r\n    END IF\r\n    CALL cs_t1client_checkToken(l_token) RETURNING l_rel\r\n    IF l_rel = TRUE THEN\r\n        RETURN l_token\r\n    ELSE\r\n        RETURN 0\r\n    END IF\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_checkToken(p_token)\r\n##\u68c0\u6d4btoken\u662f\u5426\u6709\u6548\uff0c\u8fd4\u56deTRUE\/FALSE\r\nDEFINE p_token STRING\r\nDEFINE l_url   STRING\r\nDEFINE lb_result    BOOLEAN\r\nDEFINE ls_resp      STRING  # \u61c9\u7528\u670d\u52d9\u56de\u50b3XML\r\n###\r\n    LET l_url = \"http:\/\/***.***.*.*.***:8080\",\"\/api\/checkToken\",\r\n                \"?token=\",p_token\r\n    CALL cs_t1client_http_posturl(l_url) RETURNING lb_result,ls_resp\r\n    ###\r\n    IF lb_result=TRUE THEN\r\n    #\u89e3\u6790JSON\r\n        IF NOT cl_null(ls_resp) THEN\r\n            IF ls_resp LIKE '%\u51ed\u8bc1\u65e0\u6548%' THEN\r\n                DISPLAY ls_resp\r\n                RETURN FALSE\r\n            ELSE\r\n                RETURN TRUE\r\n            END IF\r\n        ELSE    #\u4e3a\u7a7a\uff0c\u8fd4\u56deFALSE\r\n            DISPLAY ls_resp\r\n            RETURN FALSE\r\n        END IF\r\n    ELSE\r\n    # \u986f\u793a\u932f\u8aa4\u8a0a\u606f\r\n        DISPLAY ls_resp\r\n        RETURN FALSE\r\n    END IF\r\n\r\nEND FUNCTION\r\n\r\n################################################################################\r\n# Descriptions...: \u63cf\u8ff0\u8bf4\u660e\r\n# Memo...........:\r\n# Usage..........: CALL s_aooi150_ins (\u4f20\u5165\u53c2\u6570)\r\n#                  RETURNING \u56de\u4f20\u53c2\u6570\r\n# Input parameter: \u4f20\u5165\u53c2\u6570\u53d8\u91cf1   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u4f20\u5165\u53c2\u6570\u53d8\u91cf2   \u4f20\u5165\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Return code....: \u56de\u4f20\u53c2\u6570\u53d8\u91cf1   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e1\r\n#                : \u56de\u4f20\u53c2\u6570\u53d8\u91cf2   \u56de\u4f20\u53c2\u6570\u53d8\u91cf\u8bf4\u660e2\r\n# Date &amp; Author..: \u65e5\u671f By \u4f5c\u8005\r\n# Modify.........:\r\n################################################################################\r\nPUBLIC FUNCTION cs_t1client_log_insert(p_url,p_str,p_succ,p_rel)\r\n###\u8bb0\u5f55T1\u65e5\u5fd7\uff0cxmtcuc_t\r\nDEFINE p_url    LIKE xmtcuc_t.xmtcuc001\r\nDEFINE p_str    LIKE xmtcuc_t.xmtcuc002\r\nDEFINE p_succ   LIKE xmtcuc_t.xmtcuc003\r\nDEFINE p_rel    LIKE xmtcuc_t.xmtcuc004\r\nDEFINE l_docno  LIKE xmtcuc_t.xmtcucdocno\r\nDEFINE l_user   LIKE xmtcuc_t.xmtcuc005\r\nDEFINE l_time   LIKE xmtcuc_t.xmtcuc006\r\nDEFINE\r\n      l_date     LIKE type_t.chr30,\r\n      l_chr      LIKE type_t.chr30,\r\n      l_verno    LIKE type_t.chr30,\r\n      l_sql      string\r\n       \r\n    ###\u5355\u53f7\u81ea\u589e\r\n#    LET l_date = g_today using 'yyyymmdd'\r\n#    LET l_chr = l_date CLIPPED\r\n#    \r\n#    LET l_sql = \"SELECT MAX(SUBSTR(xmtcucdocno,LENGTH(xmtcucdocno)-4,5)) \",\r\n#               \"  FROM xmtcuc_t \",\r\n#               \" WHERE SUBSTR(xmtcucdocno,1,LENGTH(xmtcucdocno)-5) = '\",l_chr,\"'\"\r\n#    PREPARE t101_pr2 FROM l_sql\r\n#    EXECUTE t101_pr2 INTO l_verno\r\n#    IF SQLCA.sqlcode THEN\r\n#      INITIALIZE g_errparam TO NULL \r\n#      LET g_errparam.extend = \"xmtcuc_t: \",SQLERRMESSAGE \r\n#      LET g_errparam.code   = SQLCA.sqlcode \r\n#      LET g_errparam.popup  = TRUE \r\n#      CALL cl_err()\r\n#      RETURN\r\n#    END IF\r\n#    \r\n#    IF cl_null(l_verno) THEN\r\n#     LET l_docno = l_chr,\"00001\"\r\n#    ELSE\r\n#     LET l_verno = l_verno + 1\r\n#     LET l_docno = l_chr,l_verno USING '&amp;&amp;&amp;&amp;&amp;'\r\n#    END IF\r\n\r\n    ##171114 LJR \u5355\u53f7\u81ea\u589e\u5e76\u53d1\u591a\u91cd\u590d\u51fa\u9519\uff0c\u91c7\u7528\u65f6\u95f4\u6beb\u79d2\u7ea7\u505a\u5355\u53f7\r\n    LET l_sql = \"select to_char(systimestamp, 'yymmddhh24missff') from dual\"\r\n    PREPARE t101_pr2 FROM l_sql\r\n    EXECUTE t101_pr2 INTO l_verno\r\n    IF SQLCA.sqlcode THEN\r\n      INITIALIZE g_errparam TO NULL \r\n      LET g_errparam.extend = \"xmtcuc_t: \",SQLERRMESSAGE \r\n      LET g_errparam.code   = SQLCA.sqlcode \r\n      LET g_errparam.popup  = TRUE \r\n      CALL cl_err()\r\n      RETURN\r\n    END IF\r\n    LET l_docno = l_verno\r\n    \r\n    \r\n    ###\u63d2\u5165\u5230\u6570\u636e\u8868\r\n    LET l_user = g_user\r\n    LET l_time = cl_get_current()\r\n    \r\n    CALL s_transaction_begin()\r\n    INSERT INTO xmtcuc_t (xmtcucent,xmtcucsite,xmtcucdocno,xmtcuc001,xmtcuc002,xmtcuc003,xmtcuc004,xmtcuc005,xmtcuc006)\r\n        VALUES (g_enterprise,g_site,l_docno,p_url,p_str,p_succ,p_rel,l_user,l_time)\r\n    IF SQLCA.sqlcode THEN\r\n      INITIALIZE g_errparam TO NULL \r\n      LET g_errparam.extend = \"xmtcuc_t: \",SQLERRMESSAGE \r\n      LET g_errparam.code   = SQLCA.sqlcode \r\n      LET g_errparam.popup  = TRUE \r\n      CALL s_transaction_end('N','0')\r\n      CALL cl_err()\r\n      RETURN\r\n    END IF\r\n    CALL s_transaction_end('Y','0')\r\n    \r\nEND FUNCTION\r\n\r\n{&lt;\/section&gt;}<\/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=5256\">T100\u2014\u2014\u63a5\u53e3\u4ee3\u7801\u8bb0\u5f55\uff0cjsonArray\u548cjson<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>{&lt;section id=&#8221;cs_t1client.description&#8221; &gt;} #\u61c9\u7528 a00 \u6a23\u677f\u81ea\u52d5\u7522\u751f(Version:2) #+ Version..: T100-ERP-1.01.00(SD\u7248\u6b21:4,PR\u7248\u6b21:4) Build [&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":[731],"class_list":["post-5256","post","type-post","status-publish","format-standard","hentry","category-490","tag-section"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5256","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=5256"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5256\/revisions"}],"predecessor-version":[{"id":5257,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/5256\/revisions\/5257"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5256"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5256"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5256"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}