智遥工作流中调用SAP基础数据

mrbear

话说公司选用智遥工作流，就是看中智遥的扩展灵活，与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还是挺简单的。
　　有些日子没写博客了，加油~~~~~