肥肥豬的SAP心得

物料異動數量/金額控制及過帳的科目決定表格

2012-01-11T13:25:00.001+08:00

T134M 控制數量/價值更新
T156X 交易/事件代碼修改
T156X 過帳字串值
T030 標準科目表

用ABAP寄送mail單封處理

2011-11-29T17:57:00.001+08:00

透過ABAP寄送mail時，過去都是用SCOT直接發出去
遇到server上有等待的mail時會一口氣全部送出去，這樣在測試區會造成不必要的郵件被送出去

可以改執行程式RSSOSOSTSTAT，如此就可以指定要寄送的郵件再送出

MV45AFZZ修改SO ITEM問題

2011-10-31T01:37:00.001+08:00

有個需求是希望在SO的ITEM在修改VBKD時，能夠update VBAP某些欄位，進到MV45AFZZ去找到FORM USEREXIT_SAVE_DOCUMENT_PREPARE.直接新增修改邏輯。改完實際去測試會發現，若VBAP相關的欄位沒有修改時，save之後VBAP還是一樣的。

想要在FORM USEREXIT_SAVE_DOCUMENT_PREPARE修改VBAP的值有二個方式：
1 在VA02時就已經有VBAP的修改(解法不佳)
2 在FORM當中指定VBAP要強制修改(可行)，做法如下：
在XVBAP[]當中找到要修改的VBAP並指定UPDKZ = 'U'，要特別注意UPDKZ若已是'D'時表示這個item save之後會被刪除，千萬不要去修改UPDKZ。另外也要考慮這一筆VBAP若是新增時，不需要指定UPDKZ 。

SO 狀態說明讀取

2011-10-27T23:44:00.000+08:00

下圖的狀態欄位經過讀取TABLE VBUK只能得到狀態碼，無法得到顯示的內文。若直接Call Function DOMAIN_VALUE_GET去讀到Domain的value也不是正確的。實際上SO的狀態說明是維護在TABLE TVBST當中，不是在Domain。

Smartform圖片用變數指定

2011-05-26T16:31:00.001+08:00

在設計smartform時，遇到像LOGO的圖片需要依不用的條件指定時，可用以下的方式處理：

首先設定一個smartform的參數，資料類型是TDOBNAME

再來就是指字圖片的變數名稱，前後要用符號&

READ_EXCHANGE_RATE EUR匯率問題

2011-05-18T12:15:00.004+08:00

在讀匯率資料時使用READ_EXCHANGE_RATE 進行EUR/USD的匯率讀取後
系統會回傳一個值DERIVED_RATE_TYPE = EURX
這個意思是系統會以EURX的匯率來讀取

可用TCODE OBBS進行設定

新增一筆時間較晚的設定將替代的匯率類型空白即可使用原匯率類型讀取匯率

Smartform 輸出總頁數問題

2011-05-16T14:17:00.001+08:00

在設計SMARTFORM時，輸出總頁數會用到一個系統變數SFSY-FORMPAGES，通常是直接在內文使用&SFSY-FORMPAGES&輸出，但是遇到總頁數達到2位數時，就會顯示*

目前找到有二種解法：
1 改寫輸出方式
&SFSY-FORMPAGES& 改成 &SFSY-FORMPAGES(3ZC)&
2 修改內文所在視窗為最終視窗

讀取不同語言的Text Symbol

2011-05-16T13:02:00.000+08:00

在一般情形下，ABAP處理Text Symbol時是依登入的語言來處理，
登入的語言若沒有維護對應的Text時，會直接參考程式建立時的Original版本
在報表處理上，遇到使用者想依資料的上的狀態來讀取Text時，就需要另外處理
以下公司設定的語言別為例：

**讀取公司語言別的Text
DATA: lt_pool LIKE TABLE OF textpool.
READ TEXTPOOL sy-repid INTO lt_pool LANGUAGE t001-spras.

將文字以指定的輸出長度分段

2011-04-22T14:34:00.000+08:00

在報表輸出時，中文字佔了二個文字的長度，而Unicode系統的SAP中文字只算1個長度
報表格式上有長度限制時，就需要另外處理讓文字可以分段：

FUNCTION Z_STRING_SPLIT_TO_TABLE .
*"----------------------------------------------------------------
*"*"區域介面：
*" IMPORTING
*" REFERENCE(PI_STRING) TYPE STRING
*" REFERENCE(PI_SIZE) TYPE I DEFAULT 20
*" EXPORTING
*" VALUE(PE_LINECOUNT) TYPE I
*" TABLES
*" PT_STRING STRUCTURE UPS_YS_STRING_TABLE OPTIONAL
*"----------------------------------------------------------------

DATA: LV_CHAR(4096),
LV_STRLEN TYPE I, "輸入字串長度
LV_STRCOUNT TYPE I VALUE 0, "字串計數器
LV_COUNTER TYPE I, "長度計數器
LV_LEN TYPE I. "長度變數

*****計算出字串長度
LV_STRLEN = STRLEN( PI_STRING ).
*****將String轉成char
LV_CHAR = PI_STRING.
*****利用CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH

*****計算出顯示長度後依條件分割
WHILE LV_STRCOUNT < LV_STRLEN.
LV_COUNTER = 1.
WHILE LV_COUNTER <= PI_SIZE.
CALL METHOD CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH
EXPORTING
FIELD = LV_CHAR+LV_STRCOUNT(LV_COUNTER)
RECEIVING
LEN = LV_LEN.
IF LV_LEN = PI_SIZE.
PT_STRING-LINE = LV_CHAR+LV_STRCOUNT(LV_COUNTER).
APPEND PT_STRING.
LV_STRCOUNT = LV_STRCOUNT + LV_COUNTER - 1.
EXIT.
ELSE.
LV_LEN = LV_STRCOUNT + LV_COUNTER.
IF LV_LEN = LV_STRLEN.
PT_STRING-LINE = LV_CHAR+LV_STRCOUNT(LV_COUNTER).
APPEND PT_STRING.
LV_STRCOUNT = LV_STRCOUNT + LV_COUNTER - 1.
ENDIF.
LV_COUNTER = LV_COUNTER + 1.
ENDIF.
ENDWHILE.
LV_STRCOUNT = LV_STRCOUNT + 1.
ENDWHILE.

*****計算分割後的字串數
DESCRIBE TABLE PT_STRING LINES PE_LINECOUNT.
ENDFUNCTION.

日期加減月份的處理

2011-04-12T16:58:00.000+08:00

有個需求要抓最近半年內的文件，比如說2011年3月底的半年內，
要抓的是2010/10/1~2011/3/31範圍內的文件
可以利用HR的FM來處理，HR_HK_ADD_MONTH_TO_DATE，範例如下：

CALL FUNCTION 'HR_HK_ADD_MONTH_TO_DATE'
  EXPORTING
   dmm_datin = '20110331'
   dmm_count = '5'
   dmm_oper = '-'
   dmm_pos = 'X'
  IMPORTING
   dmm_daout = g_date
  EXCEPTIONS
   unknown = 1
   OTHERS = 2.

g_date+6(2) = '01'. "2010/10/01

BAPI_ACC_DOCUMENT_POST 建立Park文件TAX item問題

2011-02-11T22:55:00.000+08:00

還是用BAPI_ACC_DOCUMENT_POST 建立Park文件的問題。TAX item要在code裡面先處理好，借貸才會相等。步驟如下：

1 Tax不存入internal table ACCOUNTGL，要存入ACCOUNTTAX，指定的ITEMNO_ACC要正確。
2 處理 CURRENCYAMOUNT時，除了field AMT_DOCCUR要有稅額，field AMT_BASE稅基也要一併處理。

處理完成後進行測試，發現以下新的問題，金額借貸不相等，但是item相加是正常的???

檢查tax amount多了，要清除為0

做法：用BADI ACC_DOCUMENT的method CHANGE

DATA: WA_ACCTX TYPE ACCBSET.
LOOP AT C_ACCTX INTO WA_ACCTX.
CLEAR WA_ACCTX-FWSTE.
MODIFY C_ACCTX FROM WA_ACCTX .
ENDLOOP.

再RUN一次BAPI_ACC_DOCUMENT_POST這次正常：

由payment term決定baseline date的function module

2011-02-10T13:58:00.000+08:00

繼上次寫到的用BAPI_ACC_DOCUMENT_POST 建立Park文件之後出現了新的問題：
在vendor的line item上面只寫入payment term是不夠的，baseline date會變成空的，post時還要再補上baseline date。

以下是計算vendor baseline date的function module
FI_TERMS_OF_PAYMENT_PROPOSE

要計算customer時用這個：GET_BASELINE_DATE

parked document posting問題

2011-01-06T17:19:00.000+08:00

新project在parked document posting時出現了
error message 00 349
'Field COBL-FKBER does not exist in the screen SAPLKACB'

在SAP找到了note 1020574就解決了

Reason and Prerequisites
The function module CODING_BLOCK_FIELD_CLEAR is not generated.
The field status of the field is defined as HIDE. The field contents were derived and not entered manually.
Solution
Run the generation report RFBIPPG1.

預留單MB_RESERVATION_BADI method DATA_CHECK處理

2010-11-24T18:47:00.000+08:00

有一個客戶希望在預留單Movement 201時進行成本中心及費用科目預算檢查(利用KP06設定)，不通過時不允許save。

以下是利用BADI MB_RESERVATION_BADI時的重點：
1 IS_RESB有成本中心和會計科目，可以利用來讀COSP的計劃值。
2 讀取未刪除的預留單，需求數量減去領料數量才是要卡控的數量。
3 金額可考慮抓標準價格或異動平均單價。
4 利用I_NEW_ITEM = 'X'判斷create時沒有科目指派，要直接去table T030找出會計科目，規則要問一下MM顧問。

BADI ME_PROCESS_PO_CUST method CHECK拋出多筆message

2010-11-22T13:06:00.000+08:00

使用BADI ME_PROCESS_PO_CUST時，method CHECK可以一次檢查所有的PO內容
要將訊息輸出時，從doc看不到該怎麼處理，以下是help的提醒：
Never use the ABAP statement MESSAGE in the BAdI ME_PROCESS_PO_CUST.

再進一步找尋，發現要用macro處理：
INCLUDE MM_MESSAGES_MAC.
MMPUR_MESSAGE_FORCED 'E' 'ZMM01' '001' LV_MSGV1 LV_MSGV2 LV_MSGV3 LV_MSGV4.

MMPUR_MESSAGE_FORCED 'E' 'ZMM01' '002' LV_MSGV1 LV_MSGV2 LV_MSGV3 LV_MSGV4.

利用BADI ME_PROCESS_PO_CUST進行PO check

2010-11-17T15:36:00.001+08:00

BADI ME_PROCESS_PO_CUST當中有一個method CHECK可以進行整個PO的檢查。
要注意的是parameter只有IM_HEADER，並且是object形態。

以下是取得內容的範例：

*取得header
IM_HEADER->GET_DATA( ).
*取得item，一樣是object形態
IM_HEADER->GET_ITEMS( ).

檢查後若要拋出錯誤，直接用message即可。
MESSAGE E888(SABAPDOCU) WITH LV_MSGV1 LV_MSGV2 LV_MSGV3 LV_MSGV4.

利用BADI ME_PURCHDOC_POSTED將PO資訊在SAVE後寫入Addon Table

2010-11-17T14:38:00.000+08:00

PO在save之後的BADI ME_PURCHDOC_POSTED只有一個Method POSTED，作用是在這個時間得到完整的PO資訊，可以寫到Addon Table。
要注意的地方是PO create時， IM_EKPO不會有PO number，只存在 IM_EKKO-EBELN當中。

用K_GROUP_SELECT查詢Cost Object Group

2010-11-15T10:29:00.000+08:00

寫CO的報表時，用到Cost Object的選擇條件時常會加上Group來查詢，在處理VALUE-REQUEST時可以用FM K_GROUP_SELECT處理，以下是範例：

1 Profit Center Group
CALL FUNCTION 'K_GROUP_SELECT'
EXPORTING
CLASS = '0106'
FIELD_NAME = 'RPRCTR '
TABLE = 'GLPCT '
IMPORTING
SET_NAME = P_PCGRU
EXCEPTIONS
NO_SET_PICKED = 1.

2 Cost Center Group
CALL FUNCTION 'K_GROUP_SELECT'
EXPORTING
FIELD_NAME = 'KOSTL'
IMPORTING
SET_NAME = P_KSGRU
EXCEPTIONS
NO_SET_PICKED = 1

3 Internal Order Group
CALL FUNCTION 'K_GROUP_SELECT'
EXPORTING
FIELD_NAME = 'AUFNR'
IMPORTING
SET_NAME = P_AUFGR
EXCEPTIONS
NO_SET_PICKED = 1.

4 Cost Element Group
CALL FUNCTION 'K_GROUP_SELECT'
EXPORTING
FIELD_NAME = 'KSTAR'
KTOPL = 'XXX'
IMPORTING
SET_NAME = P_GRP
EXCEPTIONS
NO_SET_PICKED = 1.

Park Document Posting使用SGL Ind 的item寫入Profit Center

2010-11-09T20:54:00.000+08:00

遇到一個需求在FI Park Document使用SGL Ind，此時不能輸入Profit Center，希望能夠有機會自行決定。

SAP的New GL有一個default profit center的BADI FAGL_3KEH_DEFPRCTR，透過這個就可以達到目的。

作法是在park doc的doc header reference寫入要決定的profit center，再利用FAGL_3KEH_DEFPRCTR的interface IF_SET_DEFPRCTR 的Method SET_DEFAULTPRCTR處理。

以下是sample：
METHOD IF_SET_DEFPRCTR~SET_DEFAULTPRCTR.
CHECK IS_ACCIT-XBLNR NE SPACE.
CD_PRCTR = IS_ACCIT-XBLNR.
ENDMETHOD.

BAPI_ACC_DOCUMENT_POST 建立Park文件

2010-11-05T20:03:00.008+08:00

遇到客戶的新需求：透過interface轉進SAP建立會計文件時，只需要建立Park文件，不要Post。

系統上並沒有這樣功能的的FM及BAPI，只好把辦法想到enhancement及BADI。找到之前寫過的BADI ACC_DOCUMENT直接使用CHANGE這個Method。

只要在Method中指定欄位值C_ACCHD-STATUS_NEW = 2.建立的文件就是Park文件。

FI posting 替換 RECN account

2010-10-29T11:58:00.000+08:00

最近有個需求是要在VF01及MIRO時，把RECN科目替換成關係人的RECN科目。但是SAP Note 42615裡特別提到有些fields在substitution不會work，也不會有message。

改往BTE去處理，用event1120替換科目。找到1120的interface之後，copy至ZPROCESS_00001120。發現structure BSEG_SUBST並沒有提供科目的field HKONT。直接append structure把field加進去，之後再寫code。

以下範例僅供參考：

  FIELD-SYMBOLS: ,  TYPE BSEG_SUBST.
  DATA: VAR_NAME(30).
**MIRO
  DATA: XEKBE LIKE EKBE OCCURS 10 WITH HEADER LINE,
        XEKPO LIKE EKPO OCCURS 10 WITH HEADER LINE,
        TMP_EKPO LIKE EKPO.
**billing
  DATA: XVBRPVB LIKE VBRPVB OCCURS 10 WITH HEADER LINE.

**Logic
  READ TABLE T_BKPF INDEX 1.
  CASE T_BKPF-BLART.
    WHEN 'RE'.
      VAR_NAME = '(SAPLMRMP)XEKBE[]'.
      ASSIGN (VAR_NAME) TO .
      CHECK SY-SUBRC = 0.
      XEKBE[] = .

      LOOP AT XEKBE.
        SELECT * FROM EKPO WHERE EBELN = XEKBE-EBELN
                             AND EBELP = XEKBE-EBELP
                             AND ( KNTTP = 'A' OR KNTTP = 'K' ).
          APPEND EKPO TO XEKPO.
        ENDSELECT.
      ENDLOOP.
      CHECK XEKPO[] IS NOT INITIAL.

      LOOP AT XEKPO.
        IF XEKPO-NETWR > TMP_EKPO-NETWR.
          TMP_EKPO = XEKPO.
        ENDIF.
      ENDLOOP.
      CLEAR LFA1.

      LOOP AT T_BSEG WHERE KOART = 'K'.
        READ TABLE T_BSEGSUB WITH KEY TABIX = SY-TABIX ASSIGNING .
        SELECT SINGLE * FROM LFA1 WHERE LIFNR = T_BSEG-LIFNR
                                    AND KTOKK = 'Z101'.
        IF SY-SUBRC = 0.    "關係人
          CASE TMP_EKPO-KNTTP.
            WHEN 'A'.
              -HKONT = '0021460001'.
            WHEN 'K'.
              -HKONT = '0021901001'.
          ENDCASE.
        ELSE.    "非關係人
          CASE TMP_EKPO-KNTTP.
            WHEN 'A'.
              -HKONT = '0021450001'.
            WHEN 'K'.
              -HKONT = '0021700002'.
          ENDCASE.
        ENDIF.
      ENDLOOP.
    WHEN 'RV'.
      VAR_NAME = '(SAPMV60A)XVBRP[]'.
      ASSIGN (VAR_NAME) TO .
      CHECK SY-SUBRC = 0.
      XVBRPVB[] = .
      READ TABLE XVBRPVB INDEX 1.
      CHECK SY-SUBRC = 0.
      SELECT SINGLE * FROM VBAK WHERE VBELN = XVBRPVB-AUBEL
                                  AND AUART = 'ZSLA'.
      CHECK SY-SUBRC = 0.
      SELECT SINGLE * FROM KNA1 WHERE KUNNR = VBAK-KUNNR AND KTOKD = 'Z005'.
      IF SY-SUBRC = 0.
        LOOP AT T_BSEG WHERE KOART = 'D'.
          READ TABLE T_BSEGSUB WITH KEY TABIX = SY-TABIX ASSIGNING .
          IF SY-SUBRC = 0.
            -HKONT = '0011550001'.
          ENDIF.
        ENDLOOP.
      ELSE.
        LOOP AT T_BSEG WHERE KOART = 'D'.
          READ TABLE T_BSEGSUB WITH KEY TABIX = SY-TABIX ASSIGNING .
          IF SY-SUBRC = 0.
            -HKONT = '0011460001'.
          ENDIF.
        ENDLOOP.
      ENDIF.
  ENDCASE.

FI park document 檢查 2/2

2010-10-19T22:04:00.001+08:00

前篇提到park document save時，借貸要相等的做法是用BTE event 2213，但是error時會整個交易Exit。

我想解法應該不只一種，就用ECC6以後才有的Enhancement Implementation處理：
1 以F-65為例，先找到save時在PAI檢查的PAI module。
2 進一步找到include program LF040F00裡面的form beleg_parken_pruefen，從這段code當中發現是用來做save檢查的。
3 直接在form上面enhance，Enhancement Implementation名稱就取叫ZEH_LF040F00。
4 在enhancement加入以下code：

data: h_wrbtr type wrbtr,
      s_wrbtr type wrbtr.
  LOOP AT xbseg .
    case xbseg-SHKZG.
      when 'H'.
        h_wrbtr = h_wrbtr + xbseg-wrbtr.
      when 'S'.
        s_wrbtr = s_wrbtr + xbseg-wrbtr.
    endcase.
  ENDLOOP.
  check h_wrbtr ne s_wrbtr.
   message e888(SABAPDOCU) with '借貸金額不平，請修改明細項目!'.

5 最後記得要active。

FI park document 檢查 1/2

2010-10-19T21:49:00.001+08:00

新project在FI有個很特殊的需求：
1 park document的item輸入時檢查利潤中心和成本中心不可空白。
2 park document save時，借貸要相等。

需求1本想用validation做，一試之下發現不行。
退而求其次，改用BTE event 2213，試了之後檢查是可行的，但有個缺點只能在save時檢查，並且一旦檢查出錯誤時，就Exit，失敗!

想來想去差點就無解了，突然想到一個幾乎失傳的技術(RWIN_CHECK)，我最早看到是在R/3 4.0有人這麼做過。

考慮利潤中心和成本中心是在item的coding block，所以就copy標準的function FI_COBL_CHECK到ZFI_COBL_CHECK。
在裡面加入以下park doc的檢查code：

IF I_COBL-VORGN = 'RFBV'. * BREAK IBM_KEN.
CASE I_COBL-HKONT(3).
WHEN '006' OR '007'.
IF I_COBL-KOSTL = ''.
SUBRC = 12.
ENDIF.
ENDCASE.

SELECT SINGLE FSTAG INTO FSTAG FROM SKB1
WHERE BUKRS = I_COBL-BUKRS
AND SAKNR = I_COBL-HKONT
AND FSTAG = 'G005'.
IF SY-SUBRC = 0 AND I_COBL-PRCTR = ''.
SUBRC = 13.
ENDIF.
ENDIF.

之後再補上message

WHEN 12.
MESSAGE E888(SABAPDOCU) WITH '成本中心欄位不可空白!!'.
WHEN 13.
MESSAGE E888(SABAPDOCU) WITH '利潤中心欄位不可空白!!'.

完成之後要將table TRWPR補上ZFI_COBL_CHECK設定。

park document save可用失敗的BTE來做，但一樣會Exit，解法下篇再說。

IE01自動寫入asset值

2010-10-12T10:55:00.000+08:00

友人提問：在IE01要如何能自動帶入asset的值

在IDES找了一下，發現有個EXIT_SAPMIEQ0_001很有機會，但是沒有提供asset的field，所以動手用append structure加一下fields

二個structure都要加，下圖只show一個

加完之後，建立一個asset

之後加入code

UPDATE_DATA_EZ-BUKRS = '0001'.
UPDATE_FLAGS_EZ-BUKRS = 'X'.
UPDATE_DATA_EZ-ANLNR = '000000020000'.
UPDATE_FLAGS_EZ-ANLNR = 'X'.
UPDATE_DATA_EZ-ANLUN = '0000'.
UPDATE_FLAGS_EZ-ANLUN = 'X'.

CMOD就略過，直接建立IE01

測試自動給值，所以直接保存

asset已寫入

BAPI_QUALNOT_CREATE 建立Q3通知單處理訂單號碼及作業號碼

2010-09-25T16:54:00.001+08:00

最近想起上個project有個透過interface從MES轉入生產訂單異常，在SAP用BAPI開出QN時，要把訂單號碼及作業號碼寫入的問題。

１以下是在IDES建立的QN，訂單號碼及作業號碼是直接填入的

2 在BAPI_QUALNOT_CREATE傳入的NOTIFHEADER只找到PROD_ORDER是生產訂單，卻找不到作業號碼對應的field

3 進table AFVC找到field AUFPL及APLZL，剛好可以對應到NOTIFHEADER，改填入這二個field

4 BAPI_TRANSACTION_COMMIT前要記得先處理BAPI_QUALNOT_SAVE