當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

tiptop对接泛微OA详细步骤

發布時間：2023/12/10 编程问答 26 豆豆

生活随笔收集整理的這篇文章主要介紹了 tiptop对接泛微OA详细步骤小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

提示：文章寫完后，目錄可以自動生成，如何生成可參考右邊的幫助文檔

文章目錄

前言
一、什么是webservice
二、使用步驟
- 1.找到OA的接口地址
- 2.通過接口地址，產生tiptop相關接口文件
- 3.編寫4gl程序，通過接口傳遞數據
總結

前言

泛微OA在企業里面是一個應用比較廣泛的OA系統，很多家企業都有ERP對接OA的需求，去實現一些流程的電子化，tiptop和泛微OA都有提供webservice的接口供外部調用，下面，主要的就是詳細記錄一下tiptop將單據內容提交到OA去審批的整套流程

一、什么是webservice

webservice是一種跨平臺，跨語言的規范，用于不同平臺，不同語言開發的應用之間的交互。

二、使用步驟

1.找到OA的接口地址

泛微OA的接口地址一般為http://地址/services/接口空間?wsdl，創建流程的接口為doCreateWorkflowRequest

2.通過接口地址，產生tiptop相關接口文件

進入tiptop Linux后臺，cd cws/4gl目錄運行 fglwsdl 接口地址，這個時候，會發現目錄下面產生了2個文件xxx.4gl,xxx.inc,可以將這兩個文件的名字改成自己喜歡的，4gl文件提供調用方法，inc文件提供變量定義。

3.編寫4gl程序，通過接口傳遞數據

這里直接上一段實際代碼，這個是通過將ERP采購單發送到OA的一個范例

DATABASE dsGLOBALS "../../config/top.global" #FUN-7C0053 GLOBALS "erp_oa.inc"FUNCTION cws_oa_apmt540(p_po) DEFINE p_po LIKE type_file.chr100 DEFINE soapStatus INTEGER DEFINE l_pmn RECORD pmm01 LIKE pmm_file.pmm01, #采購單號pmm04 LIKE type_file.chr100, #日期pmm12 LIKE pmm_file.pmm12, #采購員編號gen02 LIKE gen_file.gen02, #采購員姓名pmm13 LIKE pmm_file.pmm13, #采購部門編號gem02 LIKE gem_file.gem02, #采購部門名稱pmm09 LIKE pmm_file.pmm09, #供應商編號pmc03 LIKE pmc_file.pmc03, #供應商名稱pmm21 LIKE pmm_file.pmm21, #稅種gec02 LIKE gec_file.gec02, #稅別描述 2019-05-20pmm43 LIKE pmm_file.pmm43, #稅率pmm40t LIKE pmm_file.pmm40t,pmm22 LIKE pmm_file.pmm22, #幣種azi02 LIKE azi_file.azi02, #幣種名稱 2019-05-20pmm42 LIKE pmm_file.pmm42, #匯率pma02 LIKE pma_file.pma02, #付款條件說明 2019-05-20pnz02 LIKE pnz_file.pnz02, #價格條件 2019-05-20pmn02 LIKE pmn_file.pmn02, #采購項次pmn04 LIKE pmn_file.pmn04, #料號ima02 LIKE ima_file.ima02, #品名ima021 LIKE ima_file.ima021, #規格pmn07 LIKE pmn_file.pmn07, #單位pmn31t LIKE pmn_file.pmn31t, #含稅單價pmn20 LIKE pmn_file.pmn20, #數量pmn88t LIKE pmn_file.pmn88t, #含稅金額pmn33 LIKE type_file.chr100, #交貨日期pmnud01 LIKE pmn_file.pmnud01, #高價采購原因 2019-05-20pmnud05 LIKE pmn_file.pmnud05, #備注 2019-05-20ta_pmj07 LIKE pmj_file.ta_pmj07, #價格類型 2019-05-20ta_pmj09 LIKE pmj_file.ta_pmj09 #基準價 2019-05-20END RECORD DEFINE l_sql STRING DEFINE l_id LIKE type_file.chr100 DEFINE l_i LIKE type_file.num5 DEFINE l_cnt LIKE type_file.num5 DEFINE l_smydesc LIKE smy_file.smydesc DEFINE l_pmmud02 LIKE type_file.chr1000 DEFINE l_pmmud03 LIKE type_file.chr1000 DEFINE l_pmkud02 LIKE type_file.chr1000 DEFINE l_requestid LIKE type_file.chr100 DEFINE l_msg LIKE type_file.chr1000 DEFINE l_status INTEGER #ns1doCreateWorkflowRequestINITIALIZE ns1doCreateWorkflowRequest.* TO NULL #接口賦值 LET l_sql = "SELECT pmm01,TO_CHAR(PMM04,'YYYY-MM-DD'),pmm12,gen02,pmm13,gem02,pmm09,pmc03,pmm21,gec02,", "pmm43,pmm40t,pmm22,azi02,pmm42,pma02,pnz02,pmn02,pmn04,ima02,ima021,pmn07,pmn31t,pmn20,pmn88t,TO_CHAR(pmn33,'YYYY-MM-DD') ", ",pmnud01,pmnud05,ta_pmj07,ta_pmj09,pmmud02,pmmud03,pmkud02 ", " FROM pmm_file ", " LEFT OUTER JOIN (SELECT gen01,gen02 FROM gen_file) ON gen01 = pmm12 ", " LEFT OUTER JOIN (SELECT gem01,gem02 FROM gem_file) ON gem01 = pmm13 ", " LEFT OUTER JOIN (SELECT pmc01,pmc03 FROM pmc_file) ON pmc01 = pmm09 ", " LEFT OUTER JOIN (SELECT gec01,gec02 FROM gec_file) ON gec01 = pmm21 ", " LEFT OUTER JOIN (SELECT azi01,azi02 FROM azi_file) ON azi01 = pmm22 ", " LEFT OUTER JOIN (SELECT pma01,pma02 FROM pma_file) ON pma01 = pmm20 ", " LEFT OUTER JOIN (SELECT pnz01,pnz02 FROM pnz_file) ON pnz01 = pmm41 ", " ,pmn_file ", " LEFT OUTER JOIN (SELECT ima01,ima02,ima021 FROM ima_file) ON ima01 = pmn04 ", " LEFT OUTER JOIN (SELECT pmj01,pmj02,ta_pmj07,ta_pmj09 FROM pmj_file ) ON pmj01=pmn75 AND pmj02=pmn76 ", " LEFT OUTER JOIN pmk_file ON pmk01=pmn24 ", " WHERE pmm01=pmn01 AND pmm01 = '",p_po,"' "PREPARE cws_oa_apmt540_cs FROM l_sqlDECLARE cws_oa_apmt540_cd CURSOR FOR cws_oa_apmt540_cs#先寫公共部分值 #1：獲取ID LET l_id = '' select ID INTO l_id from HRMRESOURCE where workcode = g_user IF cl_null(l_id) AND g_user<>'tiptop' THENERROR "OA中沒有此用戶資料，請聯系OA管理員！"RETURN 100,-1 END IFLET ns1doCreateWorkflowRequest.in1 = l_id LET ns1doCreateWorkflowRequest.in0.creatorId = l_id LET ns1doCreateWorkflowRequest.in0.requestName="ERP訂貨合同流程" LET ns1doCreateWorkflowRequest.in0.workflowBaseInfo.workflowId = '5767' LET ns1doCreateWorkflowRequest.in0.isnextflow = '1'LET l_cnt = 0 LET l_i = 1 FOREACH cws_oa_apmt540_cd INTO l_pmn.*,l_pmmud02,l_pmmud03,l_pmkud02IF g_user = 'tiptop' THEN select ID INTO l_id from HRMRESOURCE where workcode = l_pmn.pmm12 IF cl_null(l_id) THENERROR "OA中沒有此用戶資料，請聯系OA管理員！"RETURN 100,-1 END IF LET ns1doCreateWorkflowRequest.in1 = l_id LET ns1doCreateWorkflowRequest.in0.creatorId = l_id END IF#請購原因+到備注 IF NOT cl_null(l_pmkud02) THENLET l_pmn.pmnud05 = l_pmn.pmnud05,"-請購原因:",l_pmkud02 END IFIF l_cnt=0 THEN#單據類型 SELECT smydesc INTO l_smydesc FROM smy_file WHERE smyslip = substr(l_pmn.pmm01,1,3)IF l_pmn.pmm09='L060' THENLET l_pmn.pmc03 = l_pmmud02LET l_pmn.pnz02 = l_pmmud03 END IF #采購單號 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[1].fieldName = 'pmm01' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[1].fieldValue=l_pmn.pmm01 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[1].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[1].view = '1' #采購日期 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[12].fieldName = 'pmm04' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[12].fieldValue=l_pmn.pmm04 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[12].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[12].view = '1' #采購人編號 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[2].fieldName = 'pmm12' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[2].fieldValue=l_pmn.pmm12 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[2].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[2].view = '1' #采購人姓名 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[3].fieldName = 'gen02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[3].fieldValue=l_pmn.gen02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[3].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[3].view = '1' #采購部門 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[4].fieldName = 'pmm13' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[4].fieldValue=l_pmn.pmm13 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[4].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[4].view = '1' #采購部門名稱 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[5].fieldName = 'gem02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[5].fieldValue=l_pmn.gem02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[5].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[5].view = '1' #供應商 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[6].fieldName = 'pmm09' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[6].fieldValue=l_pmn.pmm09 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[6].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[6].view = '1' #供應商名稱 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[7].fieldName = 'pmc03' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[7].fieldValue=l_pmn.pmc03 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[7].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[7].view = '1' #pmm21稅種 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[8].fieldName = 'pmm21' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[8].fieldValue=l_pmn.pmm21 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[8].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[8].view = '1' #pmm43稅率 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].fieldName = 'pmm43' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].fieldValue=l_pmn.pmm43 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].view = '1' #pmm40T 總金額 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].fieldName = 'pmm40t' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].fieldValue=l_pmn.pmm40t LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[9].view = '1' #pmm22幣種 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[10].fieldName = 'pmm22' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[10].fieldValue=l_pmn.pmm22 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[10].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[10].view = '1' #pmm42匯率 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[11].fieldName = 'pmm42' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[11].fieldValue=l_pmn.pmm42 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[11].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[11].view = '1' #pmmuser_id LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[13].fieldName = 'pmmuser_id' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[13].fieldValue=l_id LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[13].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[13].view = '1' #triggertag LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[14].fieldName = 'triggertag' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[14].fieldValue="ERP" LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[14].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[14].view = '1' #采購單別 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[15].fieldName = 'smydesc' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[15].fieldValue=l_smydesc LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[15].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[15].view = '1' #付款條件說明 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[16].fieldName = 'pma02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[16].fieldValue=l_pmn.pma02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[16].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[16].view = '1' #價格條件說明 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[17].fieldName = 'pnz02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[17].fieldValue=l_pmn.pnz02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[17].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[17].view = '1' #幣別名稱 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[18].fieldName = 'azi02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[18].fieldValue=l_pmn.azi02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[18].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[18].view = '1' #稅別名稱 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[19].fieldName = 'gec02' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[19].fieldValue=l_pmn.gec02 LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[19].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowMainTableInfo.requestRecords.WorkflowRequestTableRecord[1].workflowRequestTableFields.WorkflowRequestTableField[19].view = '1' END IF#載入單身信息 #項次 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[1].fieldName = 'pmn02' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[1].fieldValue = l_pmn.pmn02 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[1].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[1].view = '1' #料號 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[2].fieldName = 'pmn04' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[2].fieldValue = l_pmn.pmn04 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[2].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[2].view = '1' #品名 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[3].fieldName = 'ima02' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[3].fieldValue = l_pmn.ima02 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[3].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[3].view = '1' #規格 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[4].fieldName = 'ima021' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[4].fieldValue = l_pmn.ima021 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[4].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[4].view = '1' #單價 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[5].fieldName = 'pmn31t' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[5].fieldValue = l_pmn.pmn31t LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[5].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[5].view = '1' #數量 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[6].fieldName = 'pmn20' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[6].fieldValue = l_pmn.pmn20 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[6].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[6].view = '1' #金額 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[7].fieldName = 'pmn88t' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[7].fieldValue = l_pmn.pmn88t LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[7].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[7].view = '1' #交貨日期 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[8].fieldName = 'pmn33' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[8].fieldValue = l_pmn.pmn33 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[8].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[8].view = '1'#交貨日期 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[9].fieldName = 'pmn07' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[9].fieldValue = l_pmn.pmn07 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[9].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[9].view = '1'#高價采購原因 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].fieldName = 'pmnud01' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].fieldValue = l_pmn.pmnud01 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].view = '1'#高價采購原因 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].fieldName = 'pmnud05' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].fieldValue = l_pmn.pmnud05 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[10].view = '1'#價格類型 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[11].fieldName = 'ta_pmj07' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[11].fieldValue = l_pmn.ta_pmj07 LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[11].edit = '1' LET ns1doCreateWorkflowRequest.in0.workflowDetailTableInfos.WorkflowDetailTableInfo[1].workflowRequestTableRecords.WorkflowRequestTableRecord[l_i].workflowRequestTableFields.WorkflowRequestTableField[11].view = '1'LET l_cnt = 1 LET l_i = l_i+1 END FOREACH LET soapStatus = 0 LET ns1doCreateWorkflowRequestResponse.out = "" CALL doCreateWorkflowRequest_g() RETURNING soapStatus#在這里干預OA返回的結果 IF soapStatus <> 0 AND cl_null(ns1doCreateWorkflowRequestResponse.out) THEN LET l_requestid = 0 SELECT f_get_oaid(l_pmn.pmm01,l_pmn.pmm12) INTO l_requestid FROM dual LET l_msg = "單號:",l_pmn.pmm01,"OA返回失敗:",soapStatus,",強查得到:",l_requestid CALL cws_wechat_msg("65509",l_msg) RETURNING l_status IF NOT cl_null(l_requestid) AND l_requestid> 0 THEN LET soapStatus = 0 LET ns1doCreateWorkflowRequestResponse.out = l_requestid END IF END IF RETURN soapStatus,ns1doCreateWorkflowRequestResponse.outEND FUNCTION

總結

其實主要流程就是，拿到接口地址，確定接口需要傳遞的參數，將參數賦值，最后調用發送接口發送

總結

以上是生活随笔為你收集整理的tiptop对接泛微OA详细步骤的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

上一篇：前端学习（1532）：项目1---项目功
下一篇：前端学习（1529）：钩子函数--文档分