欢迎访问 生活随笔！
TAG聚合

生活随笔

当前位置： 首页 >

tiptop对接泛微OA详细步骤

发布时间：2023/12/10 38 豆豆
生活随笔 收集整理的这篇文章主要介绍了 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详细步骤的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。