智遥工作流中调用SAP基础数据
话说公司选用智遥工作流，就是看中智遥的扩展灵活，与SAP系统交互方便。
SAP系统是公司花了血本上的，公司的运作都是以SAP为基础的。要想开发出实用的工作流，难免要从SAP取数据。尤其是一些公司基本信息，很多流程都要用到，比如：工厂资料，客户资料，供应商资料，物料信息等等。
通常我们要调用其他系统的数据时，直接连接他们的数据库，然后直接调用里面的数据就好了，但是SAP不允许这样直接连接他的数据库，只能通过写程序来调用SAP中的RFC程序。
如果每调用一个基础数据就写一个对应的RFC，个人感觉太麻烦了，太费力了（没办法，我懒人就是这样想的）；于是就想写一个通用的RFC，通过传递不同的参数，来获取到想要的基础数据。
如图： 
RFC代码如下：
1 FUNCTION ZGET_KEY_TEXT_LIST. 2 DATA:BEGIN OF T_ZLIST OCCURS 0. 3 INCLUDE STRUCTURE ZLIST. 4 DATA:END OF T_ZLIST. 5 6 DATA:BEGIN OF T_TEMP OCCURS 0. 7 INCLUDE STRUCTURE ZLIST. 8 DATA:END OF T_TEMP. 9 10 T_TEMP[] = ZLIST[]. 11 IF KEY1 <> SPACE OR KEY2 <> SPACE OR KEY3 <> SPACE. 12 CLEAR:T_TEMP. 13 T_TEMP-KEY1 = KEY1. 14 T_TEMP-KEY2 = KEY2. 15 T_TEMP-KEY3 = KEY3. 16 APPEND T_TEMP. 17 ENDIF. 18 19 IF KEY2 IS INITIAL . 20 SORT T_TEMP BY KEY1 . 21 DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1. 22 ELSEIF KEY3 IS INITIAL . 23 SORT T_TEMP BY KEY1 KEY2 . 24 DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1 KEY2 . 25 ELSE. 26 SORT T_TEMP BY KEY1 KEY2 KEY3. 27 DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1 KEY2 KEY3. 28 ENDIF. 29 30 * GET ALL OR SINGLE OR LIST IN TABLE 31 REFRESH:T_ZLIST. 32 33 IF TABLE_NAME = 'T024'."PUR.GROUP 34 SELECT EKNAM EKGRP INTO TABLE T_ZLIST 35 FROM T024. 36 ELSEIF TABLE_NAME = 'TCURT'."CURRENCY 37 SELECT LTEXT WAERS INTO TABLE T_ZLIST 38 FROM TCURT 39 WHERE SPRAS = 'E' . 40 ELSEIF TABLE_NAME = 'T005T'."COUNTRY 41 SELECT LANDX50 LAND1 INTO TABLE T_ZLIST 42 FROM T005T 43 WHERE SPRAS = 'E' . 44 ELSEIF TABLE_NAME = 'BNKA'."BANK KEY 45 SELECT BANKA BANKS BANKL INTO TABLE T_ZLIST 46 FROM BNKA . 47 ELSEIF TABLE_NAME = 'TINCT'."INCO TERM 48 SELECT BEZEI INCO1 INTO TABLE T_ZLIST 49 FROM TINCT 50 WHERE SPRAS = 'E' . 51 ELSEIF TABLE_NAME = 'T052U'."Payment term 52 SELECT T052U~TEXT1 T052U~ZTERM 53 INTO TABLE T_ZLIST 54 FROM T052 INNER JOIN T052U ON T052~ZTERM = T052U~ZTERM 55 AND T052~ZTAGG = T052U~ZTAGG 56 WHERE T052~KOART IN ('K' , SPACE) 57 AND T052U~SPRAS = 'E' . 58 *ZBC 20130319 added begin 59 ELSEIF TABLE_NAME = 'T015W'."Instruction keys 60 SELECT DTZUS DTAWS BANKS ZLSCH INTO TABLE T_ZLIST 61 FROM T015W . 62 ELSEIF TABLE_NAME = 'T042Z'."Payment Methods 63 SELECT TEXT1 ZLSCH LAND1 INTO TABLE T_ZLIST 64 FROM T042Z . 65 ELSEIF TABLE_NAME = 'ZVEN2'."Vendor Group 66 SELECT VCNAME VCCODE INTO TABLE T_ZLIST 67 FROM ZVEN2 . 68 *ZBC 20130319 added end. 69 70 *ZBC 20130408 added begin 71 ELSEIF TABLE_NAME = 'ZCOM'."Company for Vendor creation workflow 72 SELECT BUKRS INTO TABLE T_ZLIST 73 FROM ZCOM . 74 ELSEIF TABLE_NAME = 'ZPORG'."Pur.Org for Vendor creation workflow 75 SELECT EKORG INTO TABLE T_ZLIST 76 FROM ZPORG . 77 *ZBC 20130408 added end. 78 79 * 如果有新的Table，请加在这里即可。 80 ELSE. 81 RAISE TABLE_NAME_NOT_EXIST. 82 EXIT. 83 ENDIF. 84 85 IF SY-SUBRC <> 0 . 86 RAISE NO_DATA_FOUND. 87 ENDIF. 88 89 REFRESH:ZLIST. 90 CLEAR:TEXT. 91 92 IF T_TEMP[] IS INITIAL. 93 LOOP AT T_ZLIST. 94 APPEND T_ZLIST TO ZLIST. 95 IF KEY1 = T_ZLIST-KEY1 AND KEY2 = T_ZLIST-KEY2 AND 96 KEY3 = T_ZLIST-KEY3. 97 TEXT = T_ZLIST-TEXT. 98 ENDIF. 99 ENDLOOP. 100 ELSE. 101 LOOP AT T_ZLIST. 102 READ TABLE T_TEMP WITH KEY KEY1 = T_ZLIST-KEY1 103 KEY2 = T_ZLIST-KEY2 104 KEY3 = T_ZLIST-KEY3 BINARY SEARCH. 105 IF SY-SUBRC <> 0 . 106 CONTINUE. 107 ENDIF. 108 109 APPEND T_ZLIST TO ZLIST. 110 IF KEY1 = T_ZLIST-KEY1 AND KEY2 = T_ZLIST-KEY2 AND 111 KEY3 = T_ZLIST-KEY3. 112 TEXT = T_ZLIST-TEXT. 113 ENDIF. 114 ENDLOOP. 115 ENDIF. 116 117 ENDFUNCTION.
智遥工作流中调用RFC代码：
//获取SAP中所有的采购组织信息 SapRFCHelper SAPH = new SapRFCHelper(); string k1 = ""; string k2 = ""; string k3 = ""; string table_name = "T024"; string[] param = { "KEY1|"+k1, "KEY2|"+k2, "KEY3|"+k3, "TABLE_NAME|"+table_name }; DataTable dt_result = SAPH.GetRfcOutTable("Sapconn", param, "ZGET_KEY_TEXT_LIST", "ZLIST"); //Sapconn 是系统设置好的链接参数 //ZGET_KEY_TEXT_LIST 就是刚才的RFC名称 //ZLIST 就是返回的结果表名称
注：之前在网上搜过用C#调用SAP RFC的代码，一大坨，看了头痛。智遥工作流调用RFC还是挺简单的。
有些日子没写博客了，加油~~~~~
