2008年10月23日 星期四

ABAP 常用語法

去除字元前空白 CONDENSE ZINTEGER NO-GAPS.
小寫轉換大寫 TRANSLATE text TO UPPER CASE.
加SearchHelp SELECT-OPTIONS s_matnr FOR mara-matnr MATCHCODE OBJECT mat1.
刪除重覆資料 DELETE ADJACENT DUPLICATES FROM I_TEMP COMPARING VBELN.
資料靠左對齊 LEFT-JUSTIFIED
資料靠中間對齊 CENTERED
資料靠右對齊 RIGHT-JUSTIFIED
資料項下面顯示 UNDER
不顯示前零 NO-ZERO
不顯示正負號 NO-SIGN

2008年10月20日 星期一

MESSAGE Type

簡單的使用MESSAGE E來達到控管
其它的還有MESSAGE A,  I, S, W, or X可運用

*&---------------------------------------------------------------------*
*&   Form  AUTHORIZATION_CHECK
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*  -->  p1     text
*  <--  p2     text
*----------------------------------------------------------------------*
FORM AUTHORIZATION_CHECK .
  DATA: L_UNAME LIKE USR21-BNAME.
  SELECT SINGLE BNAME FROM USR21 INTO L_UNAME WHERE BNAME = SY-UNAME.
  IF L_UNAME NE 'EIS_CHERRY'.
    MESSAGE E398(00) WITH '您的帳號沒有使用權限'.
  ENDIF.

2008年10月18日 星期六

建立上傳路徑

在選擇畫面要作出下拉式選單來選擇本端PC的檔案
利用以下的Function可達到其目的

CALL FUNCTION 'WS_FILENAME_GET'
   EXPORTING
    DEF_FILENAME = P_FILE "RLGRAP-FILENAME
    DEF_PATH = ''  "DEF_PATH
*    MASK = ',*.*,*.*.'
    MASK = TMP_MASK
    MODE = 'O'
*    TITLE     = ' '
   IMPORTING
    FILENAME = TMP_FILENAME
* RC    =
   EXCEPTIONS
    INV_WINSYS    = 01
    NO_BATCH = 02
    SELECTION_CANCEL = 03
    SELECTION_ERROR  = 04.
  IF SY-SUBRC = 0.
    P_FILE = TMP_FILENAME.
  ENDIF.