智遥工作流SAP请购单流程实现过程

接上一篇。

　　1.如何根据PO单号获取PO内容？

　　SAP有自带的bapi（BAPI_PO_GET_LIST）来获取PO详细内容；也可以自己写一个RFC来获取PO内容。我这边嫌自带的BAPI内容太多了，就自己写了一个：ZGET_PO_DETAILS  代码如下：

FUNCTION ZGET_PO_DETAILS.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(PONUMBER) TYPE  EBELN
*"  TABLES
*"      PO_HEADER STRUCTURE  ZPOHEADER
*"      PO_DETAIL STRUCTURE  ZPODETAIL
*"----------------------------------------------------------------------
TABLES EKKO .
TABLES EKPO .

DATA:BEGIN OF T_EKKO  OCCURS 0.
          INCLUDE STRUCTURE ZPOHEADER.
DATA:END OF T_EKKO.

DATA: BEGIN OF T_EKPO OCCURS 0.
    INCLUDE STRUCTURE ZPODETAIL .
DATA:END OF T_EKPO.

DATA :  AMT TYPE P  DECIMALS 2  VALUE '0'  .

SELECT * INTO CORRESPONDING FIELDS OF TABLE T_EKKO
              FROM EKKO
              WHERE EBELN = PONUMBER .
SELECT * INTO CORRESPONDING FIELDS OF TABLE T_EKPO
      FROM EKPO
      WHERE EBELN = PONUMBER .

LOOP AT T_EKPO .
   AMT = AMT + ( T_EKPO-NETPR * T_EKPO-MENGE ).
  APPEND T_EKPO TO PO_DETAIL  .
ENDLOOP.

LOOP AT T_EKKO .
  CLEAR:PO_HEADER.
    T_EKKO-AMT = AMT .
     SELECT SINGLE  NAME1 INTO T_EKKO-NAME1
     FROM  LFA1
     WHERE LIFNR =  T_EKKO-LIFNR .
  　 APPEND T_EKKO TO PO_HEADER .
ENDLOOP.

TRANSPORTING AMT .

ENDFUNCTION.

 2.工作流中怎样调用RFC？

调用界面很简单，也很容易搞定，如图：

调用RFC代码：

SapRFCHelper srh = new SapRFCHelper();
            string PONO = TEBELN.Text.ToString();
            string[] param = { "PONUMBER|" + PONO };
            
            DataTable dtD = srh.GetRfcOutTable("SAPDevConn", param, "ZGET_PO_DETAILS", "PO_DETAIL");
            Store_F_PODETAIL.DataSource = dtD;
            Store_F_PODETAIL.DataBind();

3.领导审批后，如何在SAP中也审批？

在领导审批后，我们可以调用SAP自带的标准BAPI（BAPI_PO_RELEASE）来实现PO审批功能，我们只要传递相应的参数进去就好了。

调用代码如下：

//审批po
    protected bool ApprovePO() 
    {
        bool pass = true;
        SapRFCHelper srh = new SapRFCHelper();
        string PONO = TEBELN.Text.Trim();
        string[] param = { "PURCHASEORDER|" + PONO, "PO_REL_CODE|07", "USE_EXCEPTIONS|X", "NO_COMMIT|" };
        DataTable dt = srh.GetRfcOutTable("SAPDevConn", param, "BAPI_PO_RELEASE","RETURN");
        if (dt.Rows.Count > 0)
        { 
            if (dt.Rows[0][0].ToString() == "E")
            {
                pass = false;
                string msg = dt.Rows[0]["CODE"].ToString() + dt.Rows[0]["MESSAGE"].ToString();
                X.MessageBox.Alert("提示:", "审批不成功,原因：" + msg).Show();
            }
        }        

        return pass;
    }

给个PO图片：

工作流运行图片：