{"id":1084,"date":"2019-06-06T10:57:10","date_gmt":"2019-06-06T02:57:10","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=1084"},"modified":"2019-06-06T10:57:10","modified_gmt":"2019-06-06T02:57:10","slug":"%e5%a6%82%e4%bd%95%e5%86%99%e5%8d%95%e6%8d%ae%e5%88%ab%e8%87%aa%e5%8a%a8%e7%bc%96%e7%a0%81%e5%ba%94%e7%94%a8","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=1084","title":{"rendered":"\u5982\u4f55\u5199\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\u5e94\u7528"},"content":{"rendered":"

\u6240\u8c13\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\uff1a\u6307\u7684\u5c31\u662f\u9700\u8981\u6839\u636e\u7cfb\u7edf\u53c2\u6570\u8bbe\u5b9a\u7684\u81ea\u52a8\u7f16\u7801\u65b9\u5f0f\u6765\u751f\u6210\u5355\u636e\u7684\u6d41\u6c34\u89c4\u5219<\/strong><\/p>\n

\n
\n
\n
\n

\u5982\u91c7\u8d2d\u5355\u53f7\u3001\u5165\u5e93\u5355\u53f7\u3001\u5de5\u5355\u53f7\u7801……….<\/span><\/p>\n

\u8fd9\u91cc\u4ee5\u4e00\u4e2a\u5b9e\u4f8b\u4ee3\u7801\u6765\u8bf4\u660e\u505a\u3010\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\u3011\u5728\u4e00\u4e2a\u7a0b\u5e8f\u4e2d\u54ea\u4e9b\u5730\u65b9\u8981\u4fee\u6539<\/span><\/p>\n

ex:AAP\u5e94\u4ed8\u7cfb\u7edf \u65b0 \u5ba2\u5236\u8868 tc_oaa_file<\/span><\/strong><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0tc_oaa01\uff1a\u5355\u636e\u522b<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0 tc_oaa02\uff1a\u5355\u636e\u65e5\u671f<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ……<\/span><\/p>\n

\u6ce8\uff1a\u4e00\u4e0b\u65b9\u6cd5 TIPTOP GP 5.25\u7248\u672c\u4e0a\u624d\u662f\u8fd9\u4e2a\u67b6\u6784<\/strong><\/span><\/p>\n

\u4e00\u3001\u5355\u636e\u522b\u57fa\u7840\u8d44\u6599\u7684\u8bbe\u5b9a<\/strong><\/span><\/p>\n

TIPTOP ERP # Prog. Version..: ‘5.25.11-12.12.11(00010)’\u00a0\u00a0\u00a0\u00a0 #<\/span><\/p>\n

<\/p>\n

\u2460\u3002<\/strong>\u5148\u5728 \u5355\u636e\u522b\u4f5c\u4e1a\u91cc\u9762<\/span> <\/strong>\u5148\u968f\u4fbf\u65b0\u589e<\/span>\u4e00\u4e2a\u5355\u636e\u522b\uff0c\u7136\u540e\u6570\u636e\u540e\u53f0\u4fee\u6539\u5355\u522b\u7684\u6027\u8d28\u4e3a\u4e00\u4e2a \u73b0\u6709\u7cfb\u7edf\u4e0d\u4f7f\u7528<\/span>\u7684\u5355\u636e\u6027\u8d28<\/strong><\/span><\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ex\uff1a<\/strong>\u8fd9\u91cc\u5728\u5e94\u4ed8\u5355\u636e\u522bapy_file\u65b0\u589e \u5355\u636e\u6027\u8d28\u4e3a66\u7684\u5355\u636e\u522bPP66<\/span><\/span><\/p>\n

\u2461\u3002<\/strong>\u4fee\u6539\u6570\u636e\u5e93\u8868doc_file<\/strong><\/span>\u5355\u522b\u7684\u6027\u8d28\u4e0e\u4e0a\u9762\u7b2c\u2460\u6b65\u91cc\u9762\u4e00\u6837<\/span><\/span><\/p>\n

\u2462\u3002<\/strong>aooi800\uff08gee_file<\/strong><\/span>\uff09\u7ef4\u62a4\u65b0\u5ba2\u5236\u8868\u7684\u4fe1\u606f<\/span><\/span><\/p>\n

 <\/p>\n

\u4e8c\u3001\u7f16\u51994gl\u4ee3\u7801<\/strong><\/span><\/p>\n

<\/div>\n
#_a()\u65b0\u589e\u51fd\u6570   \r\nFUNCTION xxx_a()  \r\n   ......  \r\n   #INSERT\u4e4b\u524dCALL s_auto_assign_no()\u6309\u7f16\u7801\u89c4\u5219\u751f\u6210\u5355\u636e\u7f16\u53f7   \r\n   CALL s_auto_assign_no(\"aap\",g_tc_oaa.tc_oaa01,g_tc_oaa.tc_oaa02,\"\",\"tc_oaa_file\",\"tc_oaa01\",\"\",\"\",\"\")  \r\n        RETURNING li_result,g_tc_oaa.tc_oaa01  \r\n   IF (NOT li_result) THEN  \r\n      CONTINUE WHILE  \r\n   END IF  \r\n   DISPLAY BY NAME g_tc_oaa.tc_oaa01  \r\n   \r\n   INSERT INTO tc_oaa_file VALUES (g_tc_oaa.*)  \r\n   IF SQLCA.sqlcode THEN  \r\n      CALL cl_err3(\"ins\",\"tc_oaa_file\",g_tc_oaa.tc_oaa01,\"\",SQLCA.sqlcode,\"\",\"\",1)  \r\n      CONTINUE WHILE  \r\n   END IF  \r\n   ......  \r\nEND FUNCTION  \r\n  \r\n#_i(p_cmd)\u8f93\u5165\u5355\u5934\u4fe1\u606f\uff08u\/a\uff09----------------------------------------------------   \r\nFUNCTION xxx_i(p_cmd)  \r\n  \r\n   INPUT BY NAME g_tc_oaa.*   \r\n      .....  \r\n      BEFORE INPUT  \r\n          .......  \r\n          CALL cl_set_docno_format(\"tc_oaa01\")  #\u683c\u5f0f\u5316\u5355\u636e\u522b\u680f\u4f4d\uff0c\u4e2d\u95f4\u6709\u4e2a \"-\" \u7b26\u53f7   \r\n  \r\n      ......      \r\n      AFTER FIELD tc_oaa01        #\u4e3b\u952ekey   \r\n           IF NOT cl_null(g_tc_oaa.tc_oaa01)  \r\n              AND (g_tc_oaa.tc_oaa01 <> g_tc_oaa_t.tc_oaa01 OR cl_null(g_tc_oaa_t.tc_oaa01)) THEN     \r\n              LET g_t1 = s_get_doc_no(g_tc_oaa.tc_oaa01)  #\u68c0\u67e5\u5355\u636e\u522b\u662f\u5426\u5b58\u5728                          \r\n              CALL s_check_no(\"aap\",g_tc_oaa.tc_oaa01,g_tc_oaa_t.tc_oaa01,\"66\",\"tc_oaa_file\",\"tc_oaa01\",\"\")  \r\n                 RETURNING li_result,g_tc_oaa.tc_oaa01  \r\n              DISPLAY BY NAME g_tc_oaa.tc_oaa01  \r\n              IF (NOT li_result) THEN  \r\n                 NEXT FIELD tc_oaa01  \r\n              END IF  \r\n           END IF   \r\n      ......       \r\nEND FUNCTION <\/code><\/pre>\n
—————-<\/span><\/p>\n
\u6ce8\uff1a\u5bf9\u4e8e \u4f4e\u4e8e TIPTOP GP 5.20 \u7684\u7248\u672c\uff0c\u81ea\u52a8\u7f16\u7801\u6ca1\u6709doc_file\u8fd9\u7c7b\u7cfb\u7edf\u67b6\u6784\u505a\u6cd5<\/strong><\/span><\/p>\n
\u8fd9\u91cc\u7ed9\u4e00\u4e2a\u81ea\u52a8\u7f16\u7801\u7684\u793a\u4f8b\u53c2\u8003\uff1a<\/span><\/span><\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n
\n
FUNCTION xxxxa_auto_assign_no()  \r\n   DEFINE li_result     LIKE type_file.num5,  \r\n          l_tc_oaa001   LIKE tc_oaa_file.tc_oaa001  \r\n   DEFINE l_oayslip     LIKE oay_file.oayslip,         \r\n          l_date        LIKE type_file.chr1000,      #\u65e5\u671f   \r\n          l_cnt         LIKE type_file.num10,        #\u8cc7\u6599\u5eab\u4e2d\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u662f\u5426\u6709\u7522\u751f\u55ae\u64da   \r\n          l_max_cn      LIKE type_file.num10,        #\u8cc7\u6599\u5eab\u4e2d\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u6700\u5927\u7684\u6d41\u6c34\u7de8\u865f   \r\n          l_max_str     STRING,  \r\n          l_max_cn_chr  LIKE type_file.chr4,  \r\n          indx          LIKE type_file.num5,        \r\n          l_wc          LIKE type_file.chr1000       #\u67e5\u55ae\u5225QBE   \r\n            \r\n   LET l_oayslip = s_get_doc_no(g_tc_oaa.tc_oaa001)  #\u55ae\u64da\u5225   \r\n   LET l_date = g_today  \r\n   LET l_date = l_date[1,2],l_date[4,5]     #\u4f9d\u5e74\u6708\u7de8\u78bc   \r\n   LET l_wc=l_oayslip,'-',l_date,'%'  \r\n   LET li_result = 1  \r\n   SELECT COUNT(*) INTO l_cnt  \r\n       FROM tc_oaa_file  \r\n       WHERE tc_oaa001 LIKE l_wc  \r\n   IF SQLCA.sqlcode THEN  \r\n      LET li_result = 0  \r\n      INITIALIZE l_tc_oaa001 TO NULL  \r\n   ELSE  \r\n     CASE  \r\n       WHEN SQLCA.sqlcode=0 AND l_cnt=0       #\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u672a\u7522\u751f\u4efb\u4f55\u55ae\u64da\uff0c\u5247\u6d41\u6c34\u865f\u78bc\u5225\u5f9e0001\u958b\u59cb   \r\n         LET l_tc_oaa001=l_oayslip,'-',l_date,'0001'     \r\n       WHEN SQLCA.sqlcode=0 AND l_cnt>=1      #\u8a72\u55ae\u5225\u7576\u6708\u5df2\u6709\u55ae\u64da\u5b58\u5728,\u5247\u6d41\u6c34\u865f\u78bc\u5225\u81ea\u52d5+1   \r\n         SELECT MAX(substr(tc_oaa001,9,4)) INTO l_max_cn  #\u8fd9\u91cc\u8981\u6ce8\u610f\u4e0b,\u5047\u5982\u5355\u636e\u662f\u8bbe\u5b9a3\u7801\u5c31\u662f9\uff0c4\u7801\u5c31\u662f10,\u4f9d\u6b64\u7c7b\u63a8   \r\n           FROM tc_oaa_file  \r\n           WHERE tc_oaa001 LIKE l_wc   \r\n         LET l_max_cn = l_max_cn+1  \r\n         LET l_max_str = l_max_cn USING \"####\"  \r\n         LET l_max_cn_chr = ''  \r\n         FOR indx = 1 TO l_max_str.getLength() STEP + 1  \r\n           IF cl_null(l_max_str.getCharAt(indx)) THEN  \r\n              LET l_max_cn_chr = l_max_cn_chr CLIPPED,\"0\"  \r\n           ELSE  \r\n              LET l_max_cn_chr = l_max_cn_chr CLIPPED,l_max_str.getCharAt(indx) CLIPPED  \r\n           END IF  \r\n         END FOR  \r\n         LET l_tc_oaa001 = l_oayslip CLIPPED,\"-\",l_date CLIPPED ,l_max_cn_chr  \r\n       OTHERWISE  \r\n         LET li_result = 0  \r\n         INITIALIZE l_tc_oaa001 TO NULL  \r\n     END CASE  \r\n   END IF  \r\n            \r\n   RETURN li_result,l_tc_oaa001  \r\nEND FUNCTION  \r\n#\u5355\u636e\u522b\u7f16\u7801\uff0c\u7c7b\u4f3c\u7cfb\u7edf\u6807\u51c6\u7684s_auto_assign_no()\u51fd\u6570\u529f\u80fd\r\nFUNCTION xxxxa_auto_assign_no()\r\n   DEFINE li_result     LIKE type_file.num5,\r\n          l_tc_oaa001   LIKE tc_oaa_file.tc_oaa001\r\n   DEFINE l_oayslip     LIKE oay_file.oayslip,       \r\n          l_date        LIKE type_file.chr1000,      #\u65e5\u671f\r\n          l_cnt         LIKE type_file.num10,        #\u8cc7\u6599\u5eab\u4e2d\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u662f\u5426\u6709\u7522\u751f\u55ae\u64da\r\n          l_max_cn      LIKE type_file.num10,        #\u8cc7\u6599\u5eab\u4e2d\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u6700\u5927\u7684\u6d41\u6c34\u7de8\u865f\r\n          l_max_str     STRING,\r\n          l_max_cn_chr  LIKE type_file.chr4,\r\n          indx          LIKE type_file.num5,      \r\n          l_wc          LIKE type_file.chr1000       #\u67e5\u55ae\u5225QBE\r\n          \r\n   LET l_oayslip = s_get_doc_no(g_tc_oaa.tc_oaa001)  #\u55ae\u64da\u5225\r\n   LET l_date = g_today\r\n   LET l_date = l_date[1,2],l_date[4,5]     #\u4f9d\u5e74\u6708\u7de8\u78bc\r\n   LET l_wc=l_oayslip,'-',l_date,'%'\r\n   LET li_result = 1\r\n   SELECT COUNT(*) INTO l_cnt\r\n       FROM tc_oaa_file\r\n       WHERE tc_oaa001 LIKE l_wc\r\n   IF SQLCA.sqlcode THEN\r\n      LET li_result = 0\r\n      INITIALIZE l_tc_oaa001 TO NULL\r\n   ELSE\r\n     CASE\r\n       WHEN SQLCA.sqlcode=0 AND l_cnt=0       #\u8a72\u55ae\u5225\u7576\u524d\u5e74\u6708\u672a\u7522\u751f\u4efb\u4f55\u55ae\u64da\uff0c\u5247\u6d41\u6c34\u865f\u78bc\u5225\u5f9e0001\u958b\u59cb\r\n         LET l_tc_oaa001=l_oayslip,'-',l_date,'0001'   \r\n       WHEN SQLCA.sqlcode=0 AND l_cnt>=1      #\u8a72\u55ae\u5225\u7576\u6708\u5df2\u6709\u55ae\u64da\u5b58\u5728,\u5247\u6d41\u6c34\u865f\u78bc\u5225\u81ea\u52d5+1\r\n         SELECT MAX(substr(tc_oaa001,9,4)) INTO l_max_cn  #\u8fd9\u91cc\u8981\u6ce8\u610f\u4e0b,\u5047\u5982\u5355\u636e\u662f\u8bbe\u5b9a3\u7801\u5c31\u662f9\uff0c4\u7801\u5c31\u662f10,\u4f9d\u6b64\u7c7b\u63a8\r\n           FROM tc_oaa_file\r\n           WHERE tc_oaa001 LIKE l_wc \r\n         LET l_max_cn = l_max_cn+1\r\n         LET l_max_str = l_max_cn USING \"####\"\r\n         LET l_max_cn_chr = ''\r\n         FOR indx = 1 TO l_max_str.getLength() STEP + 1\r\n           IF cl_null(l_max_str.getCharAt(indx)) THEN\r\n              LET l_max_cn_chr = l_max_cn_chr CLIPPED,\"0\"\r\n           ELSE\r\n              LET l_max_cn_chr = l_max_cn_chr CLIPPED,l_max_str.getCharAt(indx) CLIPPED\r\n           END IF\r\n         END FOR\r\n         LET l_tc_oaa001 = l_oayslip CLIPPED,\"-\",l_date CLIPPED ,l_max_cn_chr\r\n       OTHERWISE\r\n         LET li_result = 0\r\n         INITIALIZE l_tc_oaa001 TO NULL\r\n     END CASE\r\n   END IF\r\n          \r\n   RETURN li_result,l_tc_oaa001\r\nEND FUNCTION<\/code><\/pre>\n
 <\/p>\n<\/div>\n
\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a\u8d6b\u975e\u57df<\/a> » \u5982\u4f55\u5199\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\u5e94\u7528<\/a><\/p>","protected":false},"excerpt":{"rendered":"
\u6240\u8c13\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\uff1a\u6307\u7684\u5c31\u662f\u9700\u8981\u6839\u636e\u7cfb\u7edf\u53c2\u6570\u8bbe\u5b9a\u7684\u81ea\u52a8\u7f16\u7801\u65b9\u5f0f\u6765\u751f\u6210\u5355\u636e\u7684\u6d41\u6c34\u89c4\u5219 \u5982\u91c7\u8d2d\u5355\u53f7\u3001\u5165\u5e93\u5355\u53f7\u3001\u5de5\u5355\u53f7\u7801………. \u8fd9\u91cc\u4ee5\u4e00\u4e2a\u5b9e\u4f8b\u4ee3\u7801\u6765\u8bf4\u660e\u505a\u3010\u5355\u636e\u522b\u81ea\u52a8\u7f16\u7801\u3011\u5728\u4e00\u4e2a\u7a0b\u5e8f\u4e2d\u54ea\u4e9b\u5730\u65b9\u8981\u4fee\u6539 ex:AAP\u5e94\u4ed8\u7cfb […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[26],"tags":[330,329],"class_list":["post-1084","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-330","tag-329"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1084","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=1084"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1084\/revisions"}],"predecessor-version":[{"id":1085,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1084\/revisions\/1085"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1084"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1084"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1084"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}