智遥工作流中调用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还是挺简单的。
有些日子没写博客了，加油~~~~~
页:
[1]