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

     话说公司选用智遥工作流，就是看中智遥的扩展灵活，与SAP系统交互方便。

 

     SAP系统是公司花了血本上的，公司的运作都是以SAP为基础的。要想开发出实用的工作流，难免要从SAP取数据。尤其是一些公司基本信息，很多流程都要用到，比如：工厂资料，客户资料，供应商资料，物料信息等等。

 

     通常我们要调用其他系统的数据时，直接连接他们的数据库，然后直接调用里面的数据就好了，但是SAP不允许这样直接连接他的数据库，只能通过写程序来调用SAP中的RFC程序。

 

     如果每调用一个基础数据就写一个对应的RFC，个人感觉太麻烦了，太费力了（没办法，我懒人就是这样想的）；于是就想写一个通用的RFC，通过传递不同的参数，来获取到想要的基础数据。

如图： 

 

RFC代码如下： 

FUNCTION ZGET_KEY_TEXT_LIST.
  DATA:BEGIN OF T_ZLIST OCCURS 0.
          INCLUDE STRUCTURE ZLIST.
  DATA:END OF T_ZLIST.

  DATA:BEGIN OF T_TEMP OCCURS 0.
          INCLUDE STRUCTURE ZLIST.
  DATA:END OF T_TEMP.

  T_TEMP[] = ZLIST[].
  IF KEY1 <> SPACE OR KEY2 <> SPACE OR KEY3 <> SPACE.
    CLEAR:T_TEMP.
    T_TEMP-KEY1 = KEY1.
    T_TEMP-KEY2 = KEY2.
    T_TEMP-KEY3 = KEY3.
    APPEND T_TEMP.
  ENDIF.

  IF KEY2 IS INITIAL .
    SORT T_TEMP BY KEY1 .
    DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1.
  ELSEIF KEY3 IS INITIAL .
    SORT T_TEMP BY KEY1 KEY2 .
    DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1 KEY2 .
  ELSE.
    SORT T_TEMP BY KEY1 KEY2 KEY3.
    DELETE ADJACENT DUPLICATES FROM T_TEMP COMPARING KEY1 KEY2 KEY3.
  ENDIF.

* GET ALL OR SINGLE OR LIST IN TABLE
  REFRESH:T_ZLIST.

  IF TABLE_NAME = 'T024'."PUR.GROUP
    SELECT EKNAM EKGRP INTO TABLE T_ZLIST
      FROM T024.
  ELSEIF TABLE_NAME = 'TCURT'."CURRENCY
    SELECT LTEXT WAERS INTO TABLE T_ZLIST
      FROM TCURT
      WHERE SPRAS = 'E' .
  ELSEIF TABLE_NAME = 'T005T'."COUNTRY
    SELECT LANDX50 LAND1 INTO TABLE T_ZLIST
      FROM T005T
      WHERE SPRAS = 'E' .
  ELSEIF TABLE_NAME = 'BNKA'."BANK KEY
    SELECT BANKA BANKS BANKL INTO TABLE T_ZLIST
      FROM BNKA .
  ELSEIF TABLE_NAME = 'TINCT'."INCO TERM
    SELECT BEZEI INCO1 INTO TABLE T_ZLIST
      FROM TINCT
      WHERE SPRAS = 'E' .
  ELSEIF TABLE_NAME = 'T052U'."Payment term
    SELECT T052U~TEXT1 T052U~ZTERM
      INTO TABLE T_ZLIST
      FROM T052 INNER JOIN T052U ON T052~ZTERM = T052U~ZTERM
                                AND T052~ZTAGG = T052U~ZTAGG
      WHERE T052~KOART IN ('K' , SPACE)
        AND T052U~SPRAS = 'E' .
*ZBC 20130319 added begin
  ELSEIF TABLE_NAME = 'T015W'."Instruction keys
    SELECT DTZUS DTAWS BANKS ZLSCH INTO TABLE T_ZLIST
      FROM T015W .
  ELSEIF TABLE_NAME = 'T042Z'."Payment Methods
    SELECT TEXT1 ZLSCH LAND1 INTO TABLE T_ZLIST
      FROM T042Z .
  ELSEIF TABLE_NAME = 'ZVEN2'."Vendor Group
    SELECT VCNAME VCCODE INTO TABLE T_ZLIST
      FROM ZVEN2 .
*ZBC 20130319 added end.

*ZBC 20130408 added begin
  ELSEIF TABLE_NAME = 'ZCOM'."Company for Vendor creation workflow
    SELECT BUKRS INTO TABLE T_ZLIST
      FROM ZCOM .
  ELSEIF TABLE_NAME = 'ZPORG'."Pur.Org for Vendor creation workflow
    SELECT EKORG INTO TABLE T_ZLIST
      FROM ZPORG .
*ZBC 20130408 added end.

* 如果有新的Table，请加在这里即可。
  ELSE.
    RAISE TABLE_NAME_NOT_EXIST.
    EXIT.
  ENDIF.

  IF SY-SUBRC <> 0 .
    RAISE NO_DATA_FOUND.
  ENDIF.

  REFRESH:ZLIST.
  CLEAR:TEXT.

  IF T_TEMP[] IS INITIAL.
    LOOP AT T_ZLIST.
      APPEND T_ZLIST TO ZLIST.
      IF KEY1 = T_ZLIST-KEY1 AND KEY2 = T_ZLIST-KEY2 AND
         KEY3 = T_ZLIST-KEY3.
        TEXT = T_ZLIST-TEXT.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT T_ZLIST.
      READ TABLE T_TEMP WITH KEY KEY1 = T_ZLIST-KEY1
                                 KEY2 = T_ZLIST-KEY2
                                 KEY3 = T_ZLIST-KEY3 BINARY SEARCH.
      IF SY-SUBRC <> 0 .
        CONTINUE.
      ENDIF.

      APPEND T_ZLIST TO ZLIST.
      IF KEY1 = T_ZLIST-KEY1 AND KEY2 = T_ZLIST-KEY2 AND
         KEY3 = T_ZLIST-KEY3.
        TEXT = T_ZLIST-TEXT.
      ENDIF.
    ENDLOOP.
  ENDIF.

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还是挺简单的。

有些日子没写博客了，加油~~~~~