javaGrowing

?

?

???? 函數名 ???????????????????????????????????????????????????? 描述 ????????????????????????
????SD_VBAP_READ_WITH_VBELN???????????? 根據銷售訂單讀取表 vbap 中的信息
????EDIT_LINES???????????????????????????????????????????? 把 READ_TEXT 返回的 LINES 中的行按照 TDFORMAT=“*” 重新組織
????VIEW_MAINTENANCE_CALL?????????????????? 維護表視圖

???? 函數名 ???????????????????????????????? 描述 ????????????????????????
DY_GET_FOCUS???????????????? 獲得屏幕焦點
DY_GET_SET_FIELD_VALUE???? 獲得或者設置屏幕字段的值

???? 函數名 ?????????????????????????????????????????????????????????? 描述 ????????????????????????
????F4IF_INT_TABLE_VALUE_REQUEST?????????? 顯示檢索 help
????READ_TEXT?????????????????????????????????????????????????? 讀取長文本
????CONVERSION_EXIT_CUNIT_OUTPUT?????????? 單位轉換
????SJIS_DBC_TO_SBC?????????????????????????????????????? 全角轉半角
????SJIS_SBC_TO_DBC?????????????????????????????????????? 半角轉換為全角
????CO_R0_CHECK_DECIMAL_POINT?????????????? 根據單位檢查數據的小數位
????POSTAL_CODE_CHECK?????????????????????? 檢查郵政編碼

?

???? 函數名 ?????????????????????????????????????? 描述 ????????????????????????
????CONVERSION_EXIT_ALPHA_INPUT?????????? 全數字則在前面補 0
????CONVERSION_EXIT_ALPHA_INPUT?????????? 和上面相反
????GET_JOB_RUNTIME_INFO?????????????????? 獲得 job 相關信息
????TERMINAL_ID_GET?????????????????????? 獲得端末 id
????DATE_CONVERT_TO_FACTORYDATE?????????? 把輸入日期轉為工廠日歷日期
????MESSAGE_TEXT_BUILD???????????????????? 把消息轉為文本

?

???? 函數名 ?????????????????????????????????????? 描述 ????????????????????????
????POPUP_TO_CONFIRM?????????????????????? 彈出確認窗口

?

???? 函數名 ?????????????????????????????????????? 描述 ????????????????????????
????CONVERSION_EXIT_MATN1_INPUT???????????????? 物料號碼轉換函數
????CONVERSION_EXIT_MATN1_OUTPUT???????????????? 同上相反
????CONVERT_TO_LOCAL_CURRENCY?????????????????? 按照指定日期匯率轉換金額為指定貨幣類型
????SSF_FUNCTION_MODULE_NAME???????????????????? 根據 form 名取得對應的函數名 (SmartForm)????

?

???? 函數名 ?????????????????????????????????????? 描述 ????????????????????????
????DATE_CHECK_PLAUSIBILITY???????????????? 日期 CHECK
????cl_gui_frontend_services=>gui_upload?? 上傳到服務器
????cl_gui_frontend_services=>gui_download?????? 下載到服本地
????SSF_FUNCTION_MODULE_NAME????SMARTFORMS 輸出報表時，生成一個函數名稱，然后 CALL 這個名稱

?

???? 函數名 ?????????????????????????????????????? 描述 ????????????????????????
????POPUP_TO_DECIDE_LIST???????????????? 彈出供選擇窗口 ??

?

?

1.function ： SD_VBAP_READ_WITH_VBELN

?? 功能：根據銷售訂單讀取表 vbap 中的信息

?? 參數：

??????import ： I_VBELN???????????????????????????? 訂單號（必輸項）

?????????????????? I_BYPASSING_BUFFER???? 是否回避 buffer

?????????????????? I_REFRESH_BUFFER???????? 是否清空 buffer

???? tables ： ET_VBAPVB???????????????????????? 不清楚其意義

??????????????????ET_VBAP????????????????????????????vbap 表

2.form ： EDIT_LINES

?? 功能：把 READ_TEXT 返回的 LINES 中的行按照 TDFORMAT=“*” 重新組織

?? 原因：如果用 CREATE_TEXT 登錄的長文本不存在該問題，如果是在前臺業務登錄的 text ，那么存到數據庫的時候會在 72 位的地方換行，在 lines 這個表中的 TDFORMAT 設置為空，導致 READ_TEXT 返回的表中的行數也許不是你需要的行數。

?? 代碼：

FORM EDIT_LINES TABLES P_IT_LINES STRUCTURE TLINE.
??DATA:
????L_IT_LINES TYPE STANDARD TABLE OF TLINE,
????L_WA_LINES TYPE TLINE,
????L_WA_LINE1 TYPE TLINE,
????L_LINE TYPE I.
??DATA:
????L_INDEX TYPE I,
????L_I???? TYPE I.
??READ TABLE P_IT_LINES TRANSPORTING NO FIELDS
????WITH KEY TDFORMAT = SPACE.
??CHECK SY-SUBRC = 0.
??L_LINE = LINES( P_IT_LINES ).
??CHECK L_LINE > 1.

??L_IT_LINES[] = P_IT_LINES[].
??CLEAR: P_IT_LINES[].

??L_INDEX = 2.
??DO.
????CLEAR: L_WA_LINES.
????READ TABLE L_IT_LINES INTO L_WA_LINES INDEX L_INDEX.
????IF SY-SUBRC <> 0.
??????L_I = L_INDEX - 1.
??????READ TABLE L_IT_LINES INTO L_WA_LINES INDEX L_I.
??????IF SY-SUBRC = 0 .
????????APPEND L_WA_LINES TO P_IT_LINES.
??????ENDIF.
??????EXIT.
????ENDIF.
????IF L_WA_LINES-TDFORMAT = '*'.
??????L_I = L_INDEX - 1.
??????CLEAR L_WA_LINE1.
??????READ TABLE L_IT_LINES INTO L_WA_LINE1 INDEX L_I.
??????APPEND L_WA_LINE1 TO P_IT_LINES.
??????L_INDEX = L_I + 2.
????ELSE.
??????L_I = L_INDEX - 1.
??????READ TABLE L_IT_LINES INTO L_WA_LINE1 INDEX L_I.
??????CONCATENATE L_WA_LINE1-TDLINE L_WA_LINES-TDLINE
???????????? INTO L_WA_LINE1-TDLINE.
??????APPEND L_WA_LINE1 TO P_IT_LINES.
??????L_INDEX = L_INDEX + 2.
????ENDIF.
??ENDDO.
ENDFORM.????????????????????" S4110_EDIT_LINES

3.function:VIEW_MAINTENANCE_CALL

?? 功能：維護表視圖等

????????The function module calls the extended table maintenance (View maintenance).

?? 參數：

????import ： ACTION?????? S = Display U = Change T = Transport

????????????CORR_NUMBER?? 傳送號（上面的 action 是 t ）

????????????SHOW_SELECTION_POPUP?? 是否彈出選擇畫面

????????????VIEW_NAME???? 視圖名

????????????NO_WARNING_FOR_CLIENTINDEP?? 跨集團是否現實警告

????????????VARIANT_FOR_SELECTION?? 變式名

????????????CHECK_DDIC_MAINFLAG???? 察看是否為可維護對象

補充： VIEW_MAINTENANCE_CALL

例子：

??CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
????EXPORTING
??????ACTION?????????????????????? = 'U'??????????" 更新
??????SHOW_SELECTION_POPUP???????? = 'X'??????????" 顯示選擇畫面
??????VIEW_NAME????????????????????= 'ZPPT000020' " 表名
??????NO_WARNING_FOR_CLIENTINDEP?? = ' '??????????" 不顯示警告
????EXCEPTIONS
??????CLIENT_REFERENCE???????????? = 1
??????FOREIGN_LOCK???????????????? = 2
??????INVALID_ACTION?????????????? = 3
??????NO_CLIENTINDEPENDENT_AUTH????= 4
??????NO_DATABASE_FUNCTION???????? = 5
??????NO_EDITOR_FUNCTION?????????? = 6
??????NO_SHOW_AUTH???????????????? = 7
??????NO_TVDIR_ENTRY?????????????? = 8
??????NO_UPD_AUTH??????????????????= 9
??????ONLY_SHOW_ALLOWED????????????= 10
??????SYSTEM_FAILURE?????????????? = 11
??????UNKNOWN_FIELD_IN_DBA_SELLIST = 12
??????VIEW_NOT_FOUND?????????????? = 13
??????MAINTENANCE_PROHIBITED?????? = 14
??????OTHERS?????????????????????? = 15.
效果：

每天函數講解系列 ----2006.01.10

?

1.SYSTEM-CALL:DY_GET_FOCUS

?? 說明：獲得屏幕焦點

?? 參數：

??????????ID 'SSCREENNAM' FIELD CURRSUBSCREEN
??????????ID 'SSCREENNBR' FIELD CURRSUBSCREENNO
??????????ID 'MSCREENNAM' FIELD CURRSCREEN
??????????ID 'MSCREENNBR' FIELD CURRSCREENNO
??????????ID 'FIELDNAME' FIELD CURSOR_FIELD
??????????ID 'FIELDOFFS' FIELD DUMMYOFFS
??????????ID 'LINE' FIELD CURSOR_LINE.

2.SYSTEM-CALL:DY_GET_SET_FIELD_VALUE

?? 說明：獲得或者設置屏幕字段的值

?? 參數：

??????ID 'GET_SET'????FIELD 'S'????"S:Set mode??G:Get mode
??????ID 'SSCREENNAM' FIELD SHSUBSCREEN
??????ID 'SSCREENNBR' FIELD SHSUBSCREENNO
??????ID 'MSCREENNAM' FIELD SHSCREEN
??????ID 'MSCREENNBR' FIELD SHSCREENNO
??????ID 'FIELDNAME' FIELD DYNP_EXPORT
??????ID 'LINE' FIELD DYNP_EXSTEPL
??????ID 'VALUE' FIELD DYNP_EXPVAL.

例子：我做了一個檢索 help 的 exit ，例如屏幕上有兩個字段，我按了一個字段的檢索 help ，那么根據這個字段就會取得相應的另外一個字段的值，然后把這個之設置到第二個字段。

FUNCTION ZTEST_F4.
*"----------------------------------------------------------------------
*"*"Local interface:
*"??TABLES
*"??????SHLP_TAB TYPE??SHLP_DESCT
*"??????RECORD_TAB STRUCTURE??SEAHLPRES
*"??CHANGING
*"???? REFERENCE(SHLP) TYPE??SHLP_DESCR
*"???? REFERENCE(CALLCONTROL) LIKE??DDSHF4CTRL STRUCTURE??DDSHF4CTRL
*"----------------------------------------------------------------------
* Local data definition
??DATA: L_ZZOINO(3) TYPE C.
??DATA: L_ZZPOSID(10) TYPE C.
??DATA: DYNP_EXPORT(132), DYNP_EXPVAL(132).
??DATA: DYNP_EXSTEPL TYPE I, OK, DUMMYCHAR.
??DATA: DUMMYOFFS TYPE I.
??DATA: SHSUBSCREEN LIKE HELP_INFO-DYNPPROG,
????????SHSUBSCREENNO LIKE HELP_INFO-DYNPRO,
????????SHSCREEN LIKE HELP_INFO-DYNPPROG,
????????SHSCREENNO LIKE HELP_INFO-DYNPRO.
??DATA: CURRSUBSCREEN LIKE HELP_INFO-DYNPPROG,
????????CURRSUBSCREENNO LIKE HELP_INFO-DYNPRO,
????????CURRSCREEN LIKE HELP_INFO-DYNPPROG,
????????CURRSCREENNO LIKE HELP_INFO-DYNPRO.
??DATA: CURSOR_FIELD LIKE DYNPREAD-FIELDNAME, CURSOR_LINE TYPE I.
??DATA: SETCURSOR_AVAILABLE TYPE I.
* Get record value from record table
??READ TABLE RECORD_TAB INDEX 1.
??L_ZZPOSID = RECORD_TAB+0(10).
??IF SHLP_TAB-INTDESCR-HOTKEY IS INITIAL.
????L_ZZOINO = RECORD_TAB+10(3).
??ENDIF.
* Check command, if return, set screen
??IF CALLCONTROL-STEP = 'RETTOP'.
*?? Initialize screen, get screen focus
????CALL 'DY_GET_FOCUS'
??????????ID 'SSCREENNAM' FIELD CURRSUBSCREEN
??????????ID 'SSCREENNBR' FIELD CURRSUBSCREENNO
??????????ID 'MSCREENNAM' FIELD CURRSCREEN
??????????ID 'MSCREENNBR' FIELD CURRSCREENNO
??????????ID 'FIELDNAME' FIELD CURSOR_FIELD
??????????ID 'FIELDOFFS' FIELD DUMMYOFFS
??????????ID 'LINE' FIELD CURSOR_LINE.
*?? Set screen parameter
????GET PARAMETER ID 'RID' FIELD SHSUBSCREEN .
????SHSCREEN = SHSUBSCREEN.
????GET PARAMETER ID 'DYN' FIELD SHSUBSCREENNO.
????SHSCREENNO = SHSUBSCREENNO.
????DYNP_EXPORT?? ='V_WA_DYNPRO_9000-ZZOINO'.
????DYNP_EXPVAL?? = L_ZZOINO.
*?? System call for set screen
????CALL 'DY_GET_SET_FIELD_VALUE'
??????ID 'GET_SET'????FIELD 'S'????"Set mode
??????ID 'SSCREENNAM' FIELD SHSUBSCREEN
??????ID 'SSCREENNBR' FIELD SHSUBSCREENNO
??????ID 'MSCREENNAM' FIELD SHSCREEN
??????ID 'MSCREENNBR' FIELD SHSCREENNO
??????ID 'FIELDNAME' FIELD DYNP_EXPORT
??????ID 'LINE' FIELD DYNP_EXSTEPL
??????ID 'VALUE' FIELD DYNP_EXPVAL.
*?? System call for set screen
????DYNP_EXPORT?? ='V_WA_DYNPRO_9000-ZZPOSID'.
????DYNP_EXPVAL?? = L_ZZPOSID.
????CALL 'DY_GET_SET_FIELD_VALUE'
??????ID 'GET_SET'????FIELD 'S'????"Set mode
??????ID 'SSCREENNAM' FIELD SHSUBSCREEN
??????ID 'SSCREENNBR' FIELD SHSUBSCREENNO
??????ID 'MSCREENNAM' FIELD SHSCREEN
??????ID 'MSCREENNBR' FIELD SHSCREENNO
??????ID 'FIELDNAME' FIELD DYNP_EXPORT
??????ID 'LINE' FIELD DYNP_EXSTEPL
??????ID 'VALUE' FIELD DYNP_EXPVAL.
??ENDIF.
ENDFUNCTION.

?

每天函數講解系列 ----2006.01.11

Function:F4IF_INT_TABLE_VALUE_REQUEST
?? 功能：顯示檢索 help
?? 參數：
???? Import ：
????????DDIC_STRUCTURE ：返回 table 的結構：
??????????‘s’ ： VALUE_TAB 的結構
??????????‘c’ ： VALUE_TAB 只有一個字段
????????RETFIELD ：返回的字段名稱 ------------ 必輸
????????DYNPPROG ：當前程序
????????DYNPNR ： ?? 屏幕號
????????DYNPROFIELD ：屏幕上需要檢索 help 的字段名稱
????????WINDOW_TITLE ：檢索 help 的標題
????????VALUE_ORG ：檢索 help 屏幕顯示屬性：
????????‘c’ ： cell by cell
????????‘s’ ： structured
????????CALLBACK_PROGRAM ：在 f4 之前調用的程序
????????CALLBACK_FORM ：在 f4 之前調用的程序里面的 form 名稱，形式如下
?????????? FORM <NAME> TABLES RECORD_TAB STRUCTURE SEAHLPRES
????????????????????CHANGING SHLP TYPE SHLP_DESCR
??????????????????????????????CALLCONTROL LIKE DDSHF4CTRL.
???? Export ：
????????USER_RESET ：如果沒有選擇（按紅 x ），返回 ‘x’
???? Tables ：
????????VALUE_TAB ：傳進去的表 ----------- 必輸
????????FIELD_TAB ： Fields of the hit list （暫時沒用）
????????RETURN_TAB ：返回值表，即如果選擇了而沒有寫到屏幕上的值存在這個表中。
????????DYNPFLD_MAPPING ：把屏幕上需要 help 的字段可以放在這個表中。
?????????? 推測：如果屏幕上有多個字段關聯，那么只作一個 help 的話，這個應該可以滿足。

例子：
FORM A3000_SET_F4_FIELD_WERKS USING P_FIELD.
TYPES:
??BEGIN OF T_S_WERKS,
????WERKS TYPE T001W-WERKS,?? " プラント
????NAME1 TYPE T001W-NAME1,?? " 名稱
????NAME2 TYPE T001W-NAME2,?? " 名稱 2
????STRAS TYPE T001W-STRAS,?? " 地名 / 番地 - 號
????ORT01 TYPE T001W-ORT01,?? " 市區町村名
??END OF T_S_WERKS.
TYPES??T_I_WERKS TYPE STANDARD TABLE OF T_S_WERKS.
* 這個就是 value_tab
DATA?? L_IT_WERKS TYPE T_I_WERKS.
* 取數據
??SELECT WERKS????" プラント
???????? NAME1????" 名稱
???????? NAME2????" 名稱 2
???????? STRAS????" 地名 / 番地 - 號
???????? ORT01????" 市區町村名
????FROM T001W
????INTO CORRESPONDING FIELDS OF TABLE L_IT_WERKS.
* 調用函數
??CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
????EXPORTING
??????RETFIELD?????????????? = 'WERKS'????“plant
??????DYNPPROG?????????????? = SY-REPID?? “ 程序名
??????DYNPNR???????????????? = SY-DYNNR?? “ 屏幕號
??????DYNPROFIELD????????????= P_FIELD????“ 字段名稱
??????VALUE_ORG??????????????= 'S'????????“ 顯示屬性： cell by cell
????TABLES
??????VALUE_TAB??????????????= L_IT_WERKS
????EXCEPTIONS
??????PARAMETER_ERROR????????= 1
??????NO_VALUES_FOUND????????= 2
??????OTHERS???????????????? = 3
????????????.
??IF SY-SUBRC <> 0.
???? MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
???????????? WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
??ENDIF.
ENDFORM.????????????????????" A3000_SET_F4_FIELD_WERKS

程序：

REPORT?ZF4IF_INT_TABLE_VALUE_REQUEST?????????????????????????????????? .

TYPES:

?BEGIN OF T_S_WERKS,

??? WERKS TYPE T001W-WERKS,?? "

??? NAME1 TYPE T001W-NAME1,?? "

??? NAME2 TYPE T001W-NAME2,?? "2

??? STRAS TYPE T001W-STRAS,?? "/-

??? ORT01 TYPE T001W-ORT01,?? "

?END OF T_S_WERKS.

TYPES?T_I_WERKS TYPE STANDARD TABLE OF T_S_WERKS.

*value_tab

DATA?? L_IT_WERKS TYPE T_I_WERKS.

PARAMETERS: P_WERKS(4) TYPE C.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS.

*AT SELECTION-SCREEN ON HELP-REQUEST FOR .

*

?SELECT WERKS??? "

???????? NAME1??? "

???????? NAME2??? " 2

???????? STRAS??? "/-

???????? ORT01??? "

??? FROM T001W

??? INTO CORRESPONDING FIELDS OF TABLE L_IT_WERKS.

*

?CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

??? EXPORTING

????? RETFIELD?????????????? = 'WERKS'??? "plant

????? DYNPPROG?????????????? = SY-REPID?? "

????? DYNPNR???????????????? = SY-DYNNR?? "

????? DYNPROFIELD??????????? = 'P_WERKS'??? "

????? VALUE_ORG????????????? = 'S'??????? "cell by cell

??? TABLES

????? VALUE_TAB????????????? = L_IT_WERKS

??? EXCEPTIONS

????? PARAMETER_ERROR??????? = 1

????? NO_VALUES_FOUND??????? = 2

????? OTHERS???????????????? = 3

??? ????????.

?IF SY-SUBRC <> 0.

???? MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

???????????? WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

? ENDIF.

Function: READ_TEXT/CREATE_TEXT
?? 功能：讀取長文本 / 創建長文本
?? 參數：
??Import ：
????CLIENT ：集團
????ID ：文本 ID （ TTXID 中定義）
????LANGUAGE ：語言
????NAME ：文本名字（）
????OBJECT ：文本對象（ TTXOB 中定義）
??Export ：
????HEADER ：文本的描述信息
??Tables ：
????LINES ：文本內容

例子：讀取銷售訂單頭文本
???? CALL FUNCTION 'READ_TEXT'
????????EXPORTING
??????????ID??????????????????????= ‘Y001’
??????????LANGUAGE????????????????= SY-LANGU
??????????NAME????????????????????= ‘385’
??????????OBJECT??????????????????= ‘VBBK’
????????TABLES
??????????LINES?????????????????? = L_IT_LINES
????????EXCEPTIONS
??????????ID??????????????????????= 1
??????????LANGUAGE????????????????= 2
??????????NAME????????????????????= 3
??????????NOT_FOUND?????????????? = 4
??????????OBJECT??????????????????= 5
??????????REFERENCE_CHECK???????? = 6
??????????WRONG_ACCESS_TO_ARCHIVE = 7
??????????OTHERS??????????????????= 8.

Function: CONVERSION_EXIT_CUNIT_OUTPUT
?? 功能：根據語言決定單位的顯示
?? 參數：
????Import ：
??????INPUT ：內部單位顯示方式
??????LANGUAGE ：語言代碼
????Export ：
??????LONG_TEXT ：單位的長文本
??????OUTPUT ：外部單位顯示方式
??????SHORT_TEXT ：單位的短文本

例子：單位顯示轉換
??????CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
??????EXPORTING
????????INPUT??????????= ‘ST’
????????LANGUAGE?????? = SY-LANGU
??????IMPORTING
????????OUTPUT???????? = L_OUT
??????EXCEPTIONS
????????UNIT_NOT_FOUND = 1
????????OTHERS???????? = 2.

Function: SJIS_DBC_TO_SBC
?? 功能：全角轉換為半角
?? 參數：
????Import ：
??????ALL ：全部轉換
??????ALPHABET_UPPER ： A-Z 轉換
??????ALPHABET_LOWER ： a-z 轉換
??????NUMERIC ： 0-9 轉換
????Export ：
??????CONVERTED ：轉換的字符個數
????Changing ：
??????TEXT ：轉換結果
Function: SJIS_SBC_TO_DBC
?? 功能：半角轉換為全角
?? 參數：
????Import ：
??????ALL ：全部轉換
??????ALPHABET_UPPER ： A-Z 轉換
??????ALPHABET_LOWER ： a-z 轉換
??????NUMERIC ： 0-9 轉換
????Export ：
??????CONVERTED ：轉換的字符個數
????Changing ：
??????TEXT ：轉換結果

Function: CO_R0_CHECK_DECIMAL_POINT
?? 功能：根據單位檢查數據的小數位
?? 參數：
????Import ：
??????I_QUANTITY ：數量
??????I_UNIT ：單位
?? 例子：下面的例子會返回錯誤信息，以為單位 ST 是不能有小數位的。
????????CALL FUNCTION 'CO_R0_CHECK_DECIMAL_POINT'
??????????EXPORTING
????????????I_QUANTITY?????? = 3.2
????????????I_UNIT?????????? =‘ST’
??????????EXCEPTIONS
????????????WRONG_DATA?????? = 1
????????????OTHERS?????????? = 2.??

Function: POSTAL_CODE_CHECK
?? 功能：檢查郵政編碼
?? 參數：
????Import ：
??????COUNTRY ：國家（ T005 ） ---------- 必輸
??????ONE_TIME_ACCOUNT ：不明確
??????POSTAL_CODE ：郵政編碼
??????POSTAL_CODE_PO_BOX ：沒用過，以下為推測：如果輸入則會檢查，如果 t005 表中的 XPLPF 設置了，那么如果輸入 PO_BOX ，這個選項就必須輸入。
?????? PO_BOX ：沒用過
?????? REGION ：區域
????Export ：
??????POSTAL_CODE ：郵編
??????EV_POSTAL_CODE ：郵編的格式
??????EV_POSTAL_CODE_PO_BOX ：沒用過
例子：檢查輸入的郵編是否有效
????????CALL FUNCTION 'POSTAL_CODE_CHECK'
??????????EXPORTING
????????????COUNTRY???????????????????? = 'JP'
????????????POSTAL_CODE???????????????? = L_WA_DISP-POST_CODE1
??????????EXCEPTIONS
????????????NOT_VALID?????????????????? = 1
????????????OTHERS??????????????????????= 2

每天函數講解系列 ----2006.01.12

?

Funtion ： CONVERSION_EXIT_ALPHA_INPUT
?? 功能：全數字則在前面補 0
?? 參數：
????Import ：
??????INPUT ：輸入的字符串
????Export ：
??????OUTPUT ：輸出的字符串

Funtion ： CONVERSION_EXIT_ALPHA_INPUT
?? 功能：和上面相反

Funtion ： GET_JOB_RUNTIME_INFO
?? 功能：獲得 job 相關信息
?? 參數：
????Export ：
???? EVENTID ：后臺處理的事件 id
???? EVENTPARM ：后臺事件的參數（例如， job id ， job 名字）
???? TERNAL_PROGRAM_ACTIVE ：沒用過
???? JOBCOUNT ： job id
???? JOBNAME ： job 名稱

Funtion ： TERMINAL_ID_GET
?? 功能：獲得端末 id
?? 參數：
????Import ：
??????USERNAME ：用戶名
????Export ：
??????TERMINAL ： terminal id

Funtion ： DATE_CONVERT_TO_FACTORYDATE
?? 功能：把輸入日期轉為工廠日歷日期
?? 參數：
????Import ：
??????CORRECT_OPTION ：表示工作日計算方式的標記 ??
??????DATE ：必須轉化為工廠日歷日期的日期 ??
??????FACTORY_CALENDAR_ID ：工廠日歷 ID????
????Export ：
??????DATE ：必須轉化為工廠日歷日期的日期 ????
??????FACTORYDATE ：指定日歷中的工作日數 ??????
??????WORKINGDAY_INDICATOR ：表示某日期是否為工作日的標志 ????????

例子：
DATA: DATE1????????LIKE SCAL-DATE,
??????DATE2????????LIKE SCAL-DATE,
??????CORRECTION?? LIKE SCAL-INDICATOR,
??????CALENDAR???? LIKE SCAL-FCALID,
??????FACTORYDATE??LIKE SCAL-FACDATE,
??????WORKDAY??????LIKE SCAL-INDICATOR.
??????CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
?????????? EXPORTING??DATE???????????????? = DATE1
?????????????????????? CORRECT_OPTION?????? = CORRECTION
?????????????????????? FACTORY_CALENDAR_ID??= CALENDAR
?????????? IMPORTING??DATE???????????????? = DATE2
?????????????????????? FACTORYDATE??????????= FACTORYDATE
?????????????????????? WORKINGDAY_INDICATOR = WORKDAY
?????????? EXCEPTIONS CORRECT_OPTION_INVALID???? = 1
????????????????????????DATE_AFTER_RANGE?????????? = 2
?????????????????????? DATE_BEFORE_RANGE??????????= 3
?????????????????????? DATE_INVALID?????????????? = 4
?????????????????????? FACTORY_CALENDAR_NOT_FOUND = 5.

Funtion ： MESSAGE_TEXT_BUILD
?? 功能：把消息轉為文本
?? 參數：
????Import ：
??????MSGID ：消息 id
??????MSGNR ：消息號
??????MSGV1 ：參數 1
??????MSGV2 ：參數 2
??????MSGV3 ：參數 3
??????MSGV4 ：參數 4
????Export ：
??????MESSAGE_TEXT_OUTPUT ：輸出的字符串
?? 說明：可以用 write <message> to <text> 代替。

每天函數講解系列 ----2006.01.16

?

Function: POPUP_TO_CONFIRM
Group ： SPO1
?? 功能：彈出確認窗口
?? 參數：
????Import ：
??????TITLEBAR ：彈出窗口的標題，最多 40 位
??????TEXT_QUESTION ：問題，最長 80 位，多出來的截斷
??????TEXT_BUTTON_1 ：第一按鈕的 text ，最長 8 位
??????ICON_BUTTON_1 ：第一按鈕顯示的 icon
??????TEXT_BUTTON_2 ：第二按鈕的 text ，最長 8 位
??????ICON_BUTTON_2 ：第二按鈕顯示的 icon
??????DEFAULT_BUTTON ：默認的按鈕
??????DISPLAY_CANCEL_BUTTON ：是否顯示取消
??????POPUP_TYPE ：彈出的類型： 決定顯示的 icon
???????? ICON_MESSAGE_QUESTION ：問題
??????????ICON_MESSAGE_INFORMATION ：信息
??????????ICON_MESSAGE_WARNING ：警告
??????????ICON_MESSAGE_ERROR ：錯誤
??????????ICON_MESSAGE_CRITICAL ：沖突
??????START_COLUMN ：彈出位置：列
??????START_ROW ：彈出位置：行
??????IV_QUICKINFO_BUTTON_1 ：第一按鈕的顯示信息（鼠標放上去后看到的）
??????IV_QUICKINFO_BUTTON_2 ：第二按鈕的顯示信息（鼠標放上去后看到的）
????Export ：
??????ANSWER ：返回點擊的按鈕
????????'1' ：第一個按鈕
???????? '2' ：第二個按鈕
???????? 'A' ：取消按鈕

每天函數講解系列 ----2006.01.20

?

物料號碼轉換函數 , 上傳文件時可能會用到

1.CONVERSION_EXIT_MATN1_INPUT

????EXPORTING????

??????INPUT = ' 要轉換的物料號 '

????IMPORTING

??????OUTPUT = ' 轉換后的內部使用的物料號 '.

?? 比如輸入 123456, 輸出 000000000000123456

2.CONVERSION_EXIT_MATN1_OUTPUT.

?? 作用同上面相反 , 用法較簡單 , 就不說了

?call function 'CONVERT_TO_LOCAL_CURRENCY'??????" 按照指定日期匯率轉換金額為指定貨幣類型
??????????exporting
????????????DATE???????????? = T_EKKO-BEDAT?? " 日期
????????????FOREIGN_AMOUNT?? = T_DATA-NETPR?? " 待轉換金額
????????????FOREIGN_CURRENCY = WAERS??????????" 當前貨幣單位
????????????LOCAL_CURRENCY?? = 'USD'??????????" 目標貨幣
??????????importing
????????????LOCAL_AMOUNT???? = T_DATA-NETPR.??" 轉換后金額
??????endif.

?call function 'SSF_FUNCTION_MODULE_NAME'??????" 根據 form 名取得對應的函數名 (SmartForm)
????exporting
??????FORMNAME?????????? = 'ZFI_06'????????????????"Form 名
????importing
??????FM_NAME????????????= FUNC_MODULE_NAME????????" 返回函數名
????exceptions
??????NO_FORM????????????= 1
??????NO_FUNCTION_MODULE = 2
??????others???????????? = 3.

由于開發機上開發 smartform 傳入生產機后有可能會改變其函數名 , 所以在調用 smartform 前使用這個函數

每天函數講解系列 ----2006.01.23

?

DATE_CHECK_PLAUSIBILITY 日期 CHECK

??CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
????EXPORTING
??????date??????????????????????= i_date
????EXCEPTIONS
??????plausibility_check_failed = 1
??????OTHERS????????????????????= 2.

cl_gui_frontend_services=>gui_upload?? 上傳到服務器

??CALL METHOD cl_gui_frontend_services=>gui_upload
????EXPORTING
??????filename????????????????= l_filename
??????filetype????????????????= i_filetype
??????has_field_separator???? = i_separator
*??????HEADER_LENGTH?????????? = 0
*??????DAT_MODE????????????????= SPACE
*??????CODEPAGE????????????????= SPACE
*??????IGNORE_CERR???????????? = ABAP_TRUE
*??????REPLACEMENT???????????? = '#'
*??????READ_BY_LINE????????????= 'X'
*????IMPORTING
*??????FILELENGTH??????????????=
*??????HEADER??????????????????=
????CHANGING
??????data_tab????????????????= o_tab_table
????EXCEPTIONS
??????file_open_error???????? = 1
??????file_read_error???????? = 2
??????no_batch????????????????= 3
??????gui_refuse_filetransfer = 4
??????invalid_type????????????= 5
??????no_authority????????????= 6
??????unknown_error?????????? = 7
??????bad_data_format???????? = 8
??????header_not_allowed??????= 9
??????separator_not_allowed?? = 10
??????header_too_long???????? = 11
??????unknown_dp_error????????= 12
??????access_denied?????????? = 13
??????dp_out_of_memory????????= 14
??????disk_full?????????????? = 15
??????dp_timeout??????????????= 16
??????not_supported_by_gui????= 17
??????error_no_gui????????????= 18
??????OTHERS??????????????????= 19.

cl_gui_frontend_services=>gui_download?? 下載到服務器

??CALL METHOD cl_gui_frontend_services=>gui_download
????EXPORTING
*??????BIN_FILESIZE??????????????=
??????filename??????????????????= l_filename
??????filetype??????????????????= i_filetype
*??????APPEND????????????????????= SPACE
??????write_field_separator???? = i_separator
*??????HEADER????????????????????= '00'
*??????TRUNC_TRAILING_BLANKS???? = SPACE
*??????WRITE_LF??????????????????= 'X'
*??????COL_SELECT????????????????= SPACE
*??????COL_SELECT_MASK?????????? = SPACE
*??????DAT_MODE??????????????????= SPACE
*??????CONFIRM_OVERWRITE???????? = SPACE
*??????NO_AUTH_CHECK???????????? = SPACE
*??????CODEPAGE??????????????????= SPACE
*??????IGNORE_CERR?????????????? = ABAP_TRUE
*??????REPLACEMENT?????????????? = '#'
*??????WRITE_BOM???????????????? = SPACE
*??????TRUNC_TRAILING_BLANKS_EOL = 'X'
*????IMPORTING
*??????FILELENGTH????????????????=
????CHANGING
??????data_tab??????????????????= o_tab_table[]
????EXCEPTIONS
??????file_write_error??????????= 1
??????no_batch??????????????????= 2
??????gui_refuse_filetransfer?? = 3
??????invalid_type??????????????= 4
??????no_authority??????????????= 5
??????unknown_error???????????? = 6
??????header_not_allowed????????= 7
??????separator_not_allowed???? = 8
??????filesize_not_allowed??????= 9
??????header_too_long?????????? = 10
??????dp_error_create?????????? = 11
??????dp_error_send???????????? = 12
??????dp_error_write????????????= 13
??????unknown_dp_error??????????= 14
??????access_denied???????????? = 15
??????dp_out_of_memory??????????= 16
??????disk_full???????????????? = 17
??????dp_timeout????????????????= 18
??????file_not_found????????????= 19
??????dataprovider_exception????= 20
??????control_flush_error?????? = 21
??????not_supported_by_gui??????= 22
??????error_no_gui??????????????= 23
??????OTHERS????????????????????= 24.

SSF_FUNCTION_MODULE_NAME??

SMARTFORMS 輸出報表時，生成一個函數名稱，然后 CALL 這個名稱

??CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
????EXPORTING
??????FORMNAME?????????? = CNS_SMART??????????"SMARTFORMS の名稱
????IMPORTING
??????FM_NAME????????????= W_FMNAME?????????? "SMARTFORMS の名稱
????EXCEPTIONS
??????NO_FORM????????????= 1
??????NO_FUNCTION_MODULE = 2
??????OTHERS???????????? = 3.

*??CALL FUNCTION W_FMNAME
*????TABLES
*??????I_HEAD?????????? = I_HEAD??????????
*????EXCEPTIONS
*??????FORMATTING_ERROR = 1
*??????INTERNAL_ERROR?? = 2
*??????SEND_ERROR?????? = 3
*??????USER_CANCELED????= 4
*??????OTHERS?????????? = 5.
GRAPH_MATRIX_3D?? 把數據生成柱狀 3D

TIME_CHECK_PLAUSIBILITY?? 判斷是不是時間

每天函數講解系列 ----2006.02.11

?

Funtion ： POPUP_TO_DECIDE_LIST??
?? 功能：彈出供選擇窗口，最多 25 個選項，選擇可以是單選按鈕也可以是復選按鈕，可以設定最多選擇的個數。
?? 參數：
????Import ：
??????CURSORLINE?? ：默認光標所在行
??????MARK_FLAG ：選擇的標志，一般設為 ‘X’
??????MARK_MAX ： 最大選擇的選項個數
??????START_COL ：起始行
??????START_ROW?? ：起始列，用來定位彈出窗口的位置
??????TEXTLINE1 ：文本行
??????TEXTLINE2 ：文本行
??????TEXTLINE3 ：文本行
??????TITEL ：彈出窗口的標題
??????DISPLAY_ONLY ：僅顯示
????Export ：
??????ANSWER ： A ：取消 ?? 空：做了選擇
????Tables ：
??????T_SPOPLI ：選擇結果

例子：
REPORT??Z_BOBO??????????????????????????????????.
* 定義函數需要的變量
DATA: BEGIN OF SPOPLIST OCCURS 15.
??????????INCLUDE STRUCTURE SPOPLI.
??DATA: END?? OF SPOPLIST.
??DATA: ANTWORT TYPE C.
* 添加選擇參數
??SPOPLIST-VAROPTION = 'Creditor'.
??APPEND SPOPLIST.
??SPOPLIST-VAROPTION = 'Material'.
??APPEND SPOPLIST.
??SPOPLIST-VAROPTION = 'Account '.
??SPOPLIST-SELFLAG?? = 'X'.

??CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
???? EXPORTING??TITEL????????????= 'Possible entra: Order'
?????????????? TEXTLINE1????????= 'By which criteria'
?????????????? TEXTLINE2????????= 'should orders'
?????????????? TEXTLINE3????????= 'be selected?'
?????????????? MARK_MAX???????? = 2
?????????????? MARK_FLAG????????= 'X'
????IMPORTING??ANSWER?????????? = ANTWORT
????TABLES???? T_SPOPLI???????? = SPOPLIST
????EXCEPTIONS TOO_MUCH_ANSWERS = 1
?????????????? TOO_MUCH_MARKS?? = 2.

??IF SY-SUBRC = 2.
????WRITE: 'Too many answers chosen.'.
??ENDIF.
* 取消
??IF ANTWORT = 'A'.
????WRITE: 'Popup canceled.'.
??ELSE.
????WRITE: 'Options chosen:'.
????LOOP AT SPOPLIST WHERE SELFLAG = 'X'.
??????WRITE: / SPOPLIST-VAROPTION.
????ENDLOOP.
??ENDIF.

每天函數講解系列 ----2006.02.13

?

Funtion ： DDIF_FIELDINFO_GET??
?? 功能：獲得字段的相關信息
?? 參數：
????Import ：
??????TABNAME ：數據庫表的名字
??????FIELDNAME ：無需指定，由 LFIELDNAME 代替了
??????LANGU ： 語言設定，默認 sy-langu
??????LFIELDNAME ：指定關聯字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應該是和 unicode 相關的
????Export ：
??????X030L_WA ：返回表頭的信息
??????DDOBJTYPE ：表類型
????????'TRANSP'?? = transparent table
????????'POOL'???? = logical pooled table
????????'CLUSTER'??= logical cluster table
????????'VIEW'???? = database or projection view
????????'INTTAB'?? = structure, help view, maintenance view or structure view
????????'TPOOL'????= physical pooled table
????????'TCLUSTER' = physical cluster table
????????'DTEL'???? = data element
????????'TTYP'???? = table type
??????DFIES_WA ：沒用過
??????LINES_DESCR ：沒用過
????Tables ：
??????DFIES_TAB ：字段列表
??????FIXED_VALUES ：域的固定值

?? 說明：該函數可用來獲得某個表或者結構或者視圖等所有字段的相關信息，所以如果想用 alv 來維護某個表的時候，對設定 field catalog 有幫助。

Funtion ： DDIF_NAMETAB_GET????
?? 功能：獲得字段的相關信息 ( 不包含 text)
?? 參數：
????Import ：
??????TABNAME ：數據庫表的名字
??????LFIELDNAME ：指定關聯字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應該是和 unicode 相關的
????Export ：
??????X030L_WA ：返回表頭的信息
??????DTELINFO_WA ： data element 的信息
??????TTYPINFO_WA ：表類型的信息
??????DDOBJTYPE ：表類型
????????'TRANSP'?? = transparent table
????????'POOL'???? = logical pooled table
????????'CLUSTER'??= logical cluster table
????????'VIEW'???? = database or projection view
????????'INTTAB'?? = structure, help view, maintenance view or structure view
????????'TPOOL'????= physical pooled table
????????'TCLUSTER' = physical cluster table
????????'DTEL'???? = data element
????????'TTYP'???? = table type
??????DFIES_WA ：沒用過
??????LINES_DESCR ：沒用過
????Tables ：
??????DFIES_TAB ：字段列表
??????FIXED_VALUES ：域的固定值

Funtion ： DDIF_NAMETAB_GET????
?? 功能：獲得字段的相關信息 ( 不包含 text)
?? 參數：
????Import ：
??????TABNAME ：數據庫表的名字
??????LFIELDNAME ：指定關聯字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應該是和 unicode 相關的
????Export ：
??????X030L_WA ：返回表頭的信息
??????DTELINFO_WA ： data element 的信息
??????TTYPINFO_WA ：表類型的信息
??????DDOBJTYPE ：表類型
????????'TRANSP'?? = transparent table
????????'POOL'???? = logical pooled table
????????'CLUSTER'??= logical cluster table
????????'VIEW'???? = database or projection view
????????'INTTAB'?? = structure, help view, maintenance view or structure view
????????'TPOOL'????= physical pooled table
????????'TCLUSTER' = physical cluster table
????????'DTEL'???? = data element
????????'TTYP'???? = table type
??????DFIES_WA ：沒用過
??????LINES_DESCR ：沒用過
????Tables ：
??????DFIES_TAB ：字段列表
??????FIXED_VALUES ：域的固定值

每天函數講解系列 ----2006.02.14

?

Function: CLOI_PUT_SIGN_IN_FRONT
?? 功能：將負號提前
?? 參數：
????Changing ：
??????VALUE ：需要負號提前的變量

Function: CLOI_PUT_SIGN_IN_FRONT
?? 功能：將負號提前
?? 參數：
????Changing ：
??????VALUE ：需要負號提前的變量

Function: BAPI_COMPANYCODE_GET_PERIOD
?? 功能：獲得公司的會計年度以及過賬日期
?? 參數：
????Import ：
??????COMPANYCODEID ：公司代碼
??????POSTING_DATE ： posting date
????Export ：
??????FISCAL_YEAR ：會計年度
??????FISCAL_PERIOD ：財務期間
??????RETURN ：返回值
?? 說明：該函數可用來檢查會計期間

Function: MARA_SINGLE_READ
?? 功能：讀取物料信息
?? 參數：
????Import ：
??????KZRFB ： Indicator: Refresh buffer entry
??????MAXTZ ： Max. no. of entries in buffer （這兩個參數應該和性能優化相關）
??????MATNR ：物料號
??????SPERRMODUS ： Lock mode (none, shared, excl.)
??????STD_SPERRMODUS ： Standard lock mode (if different) （鎖相關）
??????OUTPUT_NO_MESSAGE ：是否輸出消息
????Export ：
??????WMARA ：返回的物料信息
?? 說明：該函數可用于性能優化，例如無法避免在 loop 中有 sql 的情況可以用該函數取代 sql 。
???????? 對 mara 的其它操作參考 function group ： MG21

Function: KNA1_SINGLE_READ
?? 功能：讀取 customer 表信息
?? 參數：
????Import ：
??????KZRFB ： Indicator: Refresh buffer entry
??????KNA1_KUNNR ： customer code
????Export ：
??????WKNA1 ：返回的信息
?? 說明：還有很多表的讀取參考 function group ： MG41

Function: ADDR_GET_COMPLETE_ALL_TYPES
?? 功能：獲得地址的相關信息
?? 參數：
????Import ：
??????ADDRNUMBER ： address number
??????PERSNUMBER ：個人信息
??????ADDRESS_OBJECT_TYPE ：類型 1 ：組織 2 ：個人 3 ：客戶
????Export ：
??????ADDR1_COMPLETE ：地址 1
??????ADDR2_COMPLETE ：地址 2
??????ADDR3_COMPLETE ：地址 3
??????ADDR1_COMPLETE_BAPI ：地址 1
??????ADDR2_COMPLETE_BAPI ：地址 2
??????ADDR3_COMPLETE_BAPI ：地址 3 （以上三個 bapi 用）

Function: READ_VBFA
?? 功能：取得 document flow （省得 select 了）
?? 參數：
????Import ：
??????I_VBELV ： Preceding sales and distribution document
??????I_POSNV ： Preceding item of an SD document
??????I_VBTYP_V ： Document category of preceding SD document
??????I_VBTYP_N ： Document category of subsequent document
??????I_FKTYP ： Billing category
??????I_BYPASSING_BUFFER ：是否用 buffer
??????I_REFRESH_BUFFER ：刪除 buffer ？
????Tables ：
??????E_VBFA ：憑證流的表
?? 說明：可以通過 by passing buffer 來優化性能

Function: LIKP_READ
?? 功能： Delivery Header Data
?? 參數：
????Import ：
??????I_VBELN ： Delivery
??????LINE_EXIST ： if 'x' check only if line exsists
????Export ：
??????O_ANSWR ： send out 'x' for line exsists in table
????Tables ：
??????E_LIKP ： SD Document: Delivery Header Data
?? 說明：有關讀取 delivery 的信息請參考 function group ： LMGT

每天函數講解系列 ----2006.02.15

?

Convert currency value from SAP to display

The following code shows how CURRENCY_AMOUNT_SAP_TO_DISPLAY can be used. You pass it a
Currecny code(WAERS) and an SAP stored currency value. It will convert the value into its correct currecny
value. Without using this function module you are not guaranteed to be using the correct value as it is often
missing a number of zeroes.
????????????????????????I.e. 28000 JPY is stored within SAP as 280.??

* DATA declaration
*-----------------
* WMTO_S-AMOUNT =??Type DEC :: length 15 :: Deciamls 4
parameter: p_discur like TCURC-WAERS,???? "Display currency
?????????? p_intval like WMTO_S-AMOUNT.?? "Internal Amount

data:??????gd_disval??like WMTO_S-AMOUNT. "Display Amount

************************************************************************
*Start-of-selection.
START-OF-SELECTION.
CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_DISPLAY'
???? EXPORTING
??????????currency????????= p_discur
??????????amount_internal = p_intval
????IMPORTING
???????? AMOUNT_DISPLAY?? = gd_disval
????EXCEPTIONS
???????? INTERNAL_ERROR?? = 1
???????? OTHERS?????????? = 2.

IF sy-subrc EQ 0.
*??You are now able to manipulate the returned value.
*???????????????????????? I.e. Convert it to GBP????

*??Without using this function module you would only be manipulating the
*??SAP stored value, which is often missing a number of zeroes.
*?????? I.e. 28000 JPY is stored within SAP as 280. ??????????
ENDIF.

************************************************************************
*End-of-selection.
END-OF-SELECTION.

write:/(30)??'Value stored in SAP:', p_intval,
??????/(30)??'Displayed currency:',??p_discur,
??????/(30)??'Ammount is displayed Currency:', gd_disval.

Convert currency value from display to SAP

The following code shows how CURRENCY_AMOUNT_DISPLAY_TO_SAP can be used. You pass it a
Currecny code(WAERS) and the displayed currency value. It will convert the value so that it can be stored
in SAP. Without using this function module the value stored in SAP is not guaranteed to be correct.
????????????????????????I.e. 28000 JPY is stored within SAP as 280.

*Data declaration
*------------
* WMTO_S-AMOUNT =??Type DEC :: length 15 :: Deciamls 4
parameter: p_curr?? like TCURC-WAERS,???? "Display currency
?????????? p_disval like WMTO_S-AMOUNT.??"Internal Amount

data:??????gd_intval??like WMTO_S-AMOUNT. "Display Amount

CALL FUNCTION 'CURRENCY_AMOUNT_DISPLAY_TO_SAP'
???? EXPORTING
??????????currency????????= p_curr
??????????amount_display??= p_disval
????IMPORTING
??????????AMOUNT_INTERNAL = gd_intval
????EXCEPTIONS
??????????INTERNAL_ERROR??= 1
??????????OTHERS??????????= 2
??????????.
IF sy-subrc <> 0.

* You are now able to store the return value into an SAP table.
ENDIF.

************************************************************************
*Start-of-selection.
START-OF-SELECTION.

write:/(30)??'Value Displayed on screen in SAP:', p_disval,
??????/(30)??'Currency:',??p_curr,
??????/(30)??'Internal SAP value', gd_intval.

Retrieve fiscal year and period

?

The below code shows how to use function modules

BAPI_COMPANYCODE_GET_PERIOD and DETERMINE_PERIOD to retrieve fiscal year and fiscal period for a specific date.

*.......................................................................
*: Report:??ZFISCALYR??????????????????????????????????????????????????:
*:???????????????????????????????????????????????????????????????????? :
*: Author:??www.SAPdev.co.uk?????????????????????????????????????????? :
*:???????????????????????????????????????????????????????????????????? :
*: Date??:??2004?????????????????????????????????????????????????????? :
*:???????????????????????????????????????????????????????????????????? :
*: Description: Demonstrates how to return the corresponding fiscal????:
*:??????????????year and posting period for a company code and posting :
*:??????????????date or posting date and fiscal year variant.??????????:
*:.....................................................................:
REPORT??zfiscalyr NO STANDARD PAGE HEADING.

TABLES: ekko.

PARAMETERS:???? p_bukrs TYPE ekko-bukrs,
????????????????p_bedat TYPE ekko-bedat.

DATA: gd_fiscalyr??TYPE bapi0002_4-fiscal_year,
??????gd_fiscalp?? TYPE bapi0002_4-fiscal_period.
DATA: gd_fiscalyr2 TYPE T009B-BDATJ,
??????gd_fiscalp2??TYPE bapi0002_4-fiscal_period.

DATA: gd_periv???? TYPE t009-periv.

************************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.

* get fiscal year and period - (requires date and company code)
??CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'
????EXPORTING
??????companycodeid = p_bukrs
??????posting_date??= p_bedat
????IMPORTING
??????fiscal_year?? = gd_fiscalyr
??????fiscal_period = gd_fiscalp.

* Alternative fiscal year function module
* - (requires date and fiscal year variant code from T009 table)
*--------------------------------------------------------------------

* gets first entry in fiscal year variant table (will need to choose
* correct one from table rather than just using first entry)
??SELECT SINGLE periv
????FROM t009
????INTO gd_periv.

* get fiscal year and period
??CALL FUNCTION 'DETERMINE_PERIOD'
????EXPORTING
??????date??????????????????????= p_bedat
*????PERIOD_IN???????????????? = '000'
??????version?????????????????? = gd_periv
?? IMPORTING
??????period????????????????????= gd_fiscalp2
??????year??????????????????????= gd_fiscalyr2
?? EXCEPTIONS
??????period_in_not_valid?????? = 1
??????period_not_assigned?????? = 2
??????version_undefined???????? = 3
??????OTHERS????????????????????= 4.

************************************************************************
*END-OF-SELECTION.
END-OF-SELECTION.
??WRITE:/ 'From function module: BAPI_COMPANYCODE_GET_PERIOD',
????????/ 'Fiscal year is:', gd_fiscalyr,
????????/ 'Fiscal period is:', gd_fiscalp.
??SKIP.

WRITE:/ 'From function module: DETERMINE_PERIOD',
????????/ 'Fiscal year is:', gd_fiscalyr2,
????????/ 'Fiscal period is:', gd_fiscalp2.

?

一個將數字金額轉換為中文大寫金額的程序

FUNCTION z_rmbdx.
*"----------------------------------------------------------------------
*"*"Local interface:
*" ?IMPORTING
*" ? ? REFERENCE(RMBXX) LIKE ?BSEG-WRBTR
*" ?CHANGING
*" ? ? REFERENCE(RMBDX1) TYPE ?C
*"----------------------------------------------------------------------
DATA: BEGIN OF rmb,
? ? by TYPE c,
? ? sy TYPE c,
? ? y TYPE c,
? ? qw TYPE c,
? ? bw TYPE c,
? ? sw TYPE c,
? ? w TYPE c,
? ? q TYPE c,
? ? b TYPE c,
? ? s TYPE c,
? ? g TYPE c,
? ? d TYPE c,
? ? j TYPE c,
? ? f TYPE c,
? ? n TYPE c,
? ? END OF rmb.
DATA: BEGIN OF rmbdx,
? ? by(2) TYPE c,
? ? by1(4) TYPE c,
? ? sy(2) TYPE c,
? ? sy1(4) TYPE c,
? ? y(2) TYPE c,
? ? y1(2) TYPE c,
? ? qw(2) TYPE c,
? ? qw1(4) TYPE c,
? ? bw(2) TYPE c,
? ? bw1(4) TYPE c,
? ? sw(2) TYPE c,
? ? sw1(4) TYPE c,
? ? w(2) TYPE c,
? ? w1(4) TYPE c,
? ? q(2) TYPE c,
? ? q1(4) TYPE c,
? ? b(2) TYPE c,
? ? b1(4) TYPE c,
? ? s(2) TYPE c,
? ? s1(4) TYPE c,
? ? g(2) TYPE c,
? ? d(2) TYPE c,
? ? j(2) TYPE c,
? ? j1(2) TYPE c,
? ? f(2) TYPE c,
? ? f1(2) TYPE c,
? ? z(2) TYPE c,
? ? END OF rmbdx.

DATA: y(1) TYPE c.

rmb = rmbxx.
IF NOT ( rmb-by IS INITIAL ) AND rmb-by NE '0'.
PERform dx USING rmb-by CHANGING rmbdx-by.
y = 'X'.
IF rmb-by NE '0'.
? IF rmb-sy EQ '0' AND rmb-y EQ '0'.
? ? rmbdx-by1 = ' 佰億 '.
? ELSE.
? ? rmbdx-by1 = ' 佰 '.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-sy IS INITIAL ).
IF rmb-sy NE '0' OR rmb-y NE '0'.
? PERform dx USING rmb-sy CHANGING rmbdx-sy.
? y = 'X'.
? IF rmb-sy NE '0'.
? ? IF rmb-y EQ '0'.
? ? ? rmbdx-sy1 = ' 拾億 '.
? ? ELSE.
? ? ? rmbdx-sy1 = ' 拾 '.
? ? ENDIF.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-y IS INITIAL ).
IF rmb-y NE '0' OR rmb-qw NE '0'.
? PERform dx USING rmb-y CHANGING rmbdx-y.
? y = 'X'.
? IF rmb-y NE '0'.
? ? rmbdx-y1 = ' 億 '.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-qw IS INITIAL ).
IF rmb-qw NE '0' OR rmb-bw NE '0'.
? PERform dx USING rmb-qw CHANGING rmbdx-qw.
? y = 'X'.
? IF rmb-qw NE '0'.
? ? IF rmb-bw EQ '0' AND rmb-sw EQ '0' AND rmb-w EQ '0'.
? ? ? rmbdx-qw1 = ' 仟萬 '.
? ? ELSE.
? ? ? rmbdx-qw1 = ' 仟 '.
? ? ENDIF.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-bw IS INITIAL ).
IF rmb-bw NE '0' OR rmb-sw NE '0'.
? PERform dx USING rmb-bw CHANGING rmbdx-bw.
? y = 'X'.
? IF rmb-bw NE '0'.
? ? IF rmb-sw EQ '0' AND rmb-w EQ '0'.
? ? ? rmbdx-bw1 = ' 佰萬 '.
? ? ELSE.
? ? ? rmbdx-bw1 = ' 佰 '.
? ? ENDIF.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-sw IS INITIAL ).
IF rmb-sw NE'0' OR rmb-w NE '0'.
? PERform dx USING rmb-sw CHANGING rmbdx-sw.
? y = 'X'.
? IF rmb-sw NE '0'.
? ? IF rmb-w EQ '0'.
? ? ? rmbdx-sw1 = ' 拾萬 '.
? ? ELSE.
? ? ? rmbdx-sw1 = ' 拾 '.
? ? ENDIF.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-w IS INITIAL ).
IF rmb-w NE '0' OR rmb-q NE '0'.
? PERform dx USING rmb-w CHANGING rmbdx-w.
? y = 'X'.
? IF rmb-w NE '0'.
? ? rmbdx-w1 = ' 萬 '.
? ENDIF.

ENDIF.
ENDIF.
IF NOT ( rmb-q IS INITIAL ).
IF rmb-q NE '0' OR rmb-b NE '0'.
? PERform dx USING rmb-q CHANGING rmbdx-q.
? y = 'X'.
? IF rmb-q NE '0'.
? ? rmbdx-q1 = ' 仟 '.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-b IS INITIAL ).
IF rmb-b NE '0' OR rmb-s NE '0'.
? PERform dx USING rmb-b CHANGING rmbdx-b.
? y = 'X'.
? IF rmb-b NE '0'.
? ? rmbdx-b1 = ' 佰 '.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-s IS INITIAL ).
IF rmb-s NE'0' OR rmb-g NE '0'.
? PERform dx USING rmb-s CHANGING rmbdx-s.
? y = 'X'.
? IF rmb-s NE '0'.
? ? rmbdx-s1 = ' 拾 '.
? ENDIF.
ENDIF.
ENDIF.
IF NOT ( rmb-g IS INITIAL ) AND rmb-g NE '0'.
PERform dx USING rmb-g CHANGING rmbdx-g.
y = 'X'.
ENDIF.
IF y EQ 'X'.
rmbdx-d = ' 圓 '.
ENDIF.
IF NOT ( rmb-j IS INITIAL ) AND rmb-j NE '0'.
PERform dx USING rmb-j CHANGING rmbdx-j.
rmbdx-j1 = ' 角 '.
ENDIF.
IF NOT ( rmb-f IS INITIAL ) AND rmb-f NE '0'.
PERform dx USING rmb-f CHANGING rmbdx-f.
rmbdx-f1 = ' 分 '.
ELSE.
rmbdx-z = ' 整 '.
ENDIF.
CONDENSE rmbdx NO-GAPS.
IF rmbxx = 0.
CLEAR rmbdx.
ENDIF.
rmbdx1 = rmbdx.
CLEAR y.
ENDFUNCTION.

*---------------------------------------------------------------------*
* ? ? ? form dx ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*---------------------------------------------------------------------*
* ? ? ? ........ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?*
*---------------------------------------------------------------------*
* ?--> ?value(X) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?*
* ?--> ?DXX ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*---------------------------------------------------------------------*
form dx USING value(x) CHANGING dxx.
CASE x.
WHEN '0'.
? dxx = ' 零 '.
WHEN '1'.
? dxx = ' 壹 '.
WHEN '2'.
? dxx = ' 貳 '.
WHEN '3'.
? dxx = ' 叁 '.
WHEN '4'.
? dxx = ' 肆 '.
WHEN '5'.
? dxx = ' 伍 '.
WHEN '6'.
? dxx = ' 陸 '.
WHEN '7'.
? dxx = ' 柒 '.
WHEN '8'.
? dxx = ' 捌 '.
WHEN '9'.
? dxx = ' 玖 '.
ENDCASE.
ENDform.

運行該程序前還需定義以下文本段 :
001: 壹
002: 貳
003: 叁
004: 肆
005: 伍
006: 陸
007: 柒
008: 捌
009: 玖
010: 零
011: 元
012: 角
013: 分
014: 拾
015: 佰
016: 仟
017: 萬

REPORT ZYESE04 .

parameters : p_test type p.
data: result type string,
? ? ?test type p.

start-of-selection.
?test = p_test.
?perform select_translate.

end-of-selection.

top-of-page.

end-of-page.


*&---------------------------------------------------------------------*
*& ? ? ?form ?select_translate
*&---------------------------------------------------------------------*
* ? ? ? text
*----------------------------------------------------------------------*
* ?--> ?p1 ? ? ? ?text
* ?<-- ?p2 ? ? ? ?text
*----------------------------------------------------------------------*
form select_translate.

?data length type i.
?data index type i value '0'.
?data temp type p.
?data temp_s type string.
?data temp_r type i.
?data index_times type i.
?data flag1 type i value '1'.
?data flag2 type i value '1'.
?data flag3 type i value '1'.
?data flag4 type i value '1'.
?data flag5 type i value '1'.
?data flag6 type i value '1'.
?data flag7 type i value '1'.
?data flag8 type i value '1'.
?data flag9 type i value '1'.



?temp = test.
?temp_s = temp.

?length = strlen( temp_s ) - 1.

?do length times.
? ?index = index + 1.
? ?index_times = length - index + 1.
? ?do index_times times.
? ? ?temp_r = temp mod 10.
? ? ?if sy-index = index_times.
? ? ? ?case index.
? ? ? ? ?when '1'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-013 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '2'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-012 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '3'.
? ? ? ? ? ?concatenate text-011 result into result.
? ? ? ? ?when '4'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-014 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '5'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-015 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '6'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-016 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '7'.
? ? ? ? ? ?concatenate text-017 result into result.
? ? ? ? ?when '8'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-014 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '9'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-015 result into result.
? ? ? ? ? ?endif.
? ? ? ? ?when '10'.
? ? ? ? ? ?if temp_r <> '0'.
? ? ? ? ? ? ?concatenate text-016 result into result.
? ? ? ? ? ?endif.
? ? ? ?endcase.

? ? ? ?case temp_r.
? ? ? ? ?when '0'.
? ? ? ? ? ?case index.
? ? ? ? ? ? ?when '1'.
? ? ? ? ? ? ? ?flag1 = 0.
? ? ? ? ? ? ?when '2'.
? ? ? ? ? ? ? ?flag2 = 0.
? ? ? ? ? ? ? ?if flag1 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '3'.
? ? ? ? ? ? ? ?flag3 = 0.
? ? ? ? ? ? ?when '4'.
? ? ? ? ? ? ? ?flag4 = 0.
? ? ? ? ? ? ? ?if flag3 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '5'.
? ? ? ? ? ? ? ?flag5 = 0.
? ? ? ? ? ? ? ?if flag4 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '6'.
? ? ? ? ? ? ? ?flag6 = 0.
? ? ? ? ? ? ? ?if flag5 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '7'.
? ? ? ? ? ? ? ?flag7 = 0.
* ? ? ? ? ? ? ? ?if flag6 = '1'.
* ? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
* ? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '8'.
? ? ? ? ? ? ? ?flag8 = 0.
? ? ? ? ? ? ? ?if flag7 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ? ?when '9'.
? ? ? ? ? ? ? ?flag9 = 0.
? ? ? ? ? ? ? ?if flag8 = '1'.
? ? ? ? ? ? ? ? ?concatenate text-010 result into result.
? ? ? ? ? ? ? ?endif.
? ? ? ? ? ?endcase.
? ? ? ? ?when '1'.
? ? ? ? ? ?concatenate text-001 result into result.
? ? ? ? ?when '2'.
? ? ? ? ? ?concatenate text-002 result into result.
? ? ? ? ?when '3'.
? ? ? ? ? ?concatenate text-003 result into result.
? ? ? ? ?when '4'.
? ? ? ? ? ?concatenate text-004 result into result.
? ? ? ? ?when '5'.
? ? ? ? ? ?concatenate text-005 result into result.
? ? ? ? ?when '6'.
? ? ? ? ? ?concatenate text-006 result into result.
? ? ? ? ?when '7'.
? ? ? ? ? ?concatenate text-007 result into result.
? ? ? ? ?when '8'.
? ? ? ? ? ?concatenate text-008 result into result.
? ? ? ? ?when '9'.
? ? ? ? ? ?concatenate text-009 result into result.
? ? ? ?endcase.



? ? ?endif.
? ?enddo.
? ?temp = temp div 10.
?enddo.
?write :/ test,
? ? ? ? ? ? ? result.
?clear result.
ENDform. ? ? ? ? ? ? ? ? ? ?" select_translate

一個只有 9 句的程序卻可更改 SAP 標準程序

REPORT ZMODISAP .
DATA:ITAB_CODE(72) OCCURS 0 WITH HEADER LINE.
***Change client status,under this status,No access key is asked
UPDATE T000
SET CCCATEGORY = 'C'
CCCORACTIV = '2'
CCNOCLIIND = '3'.
*** Modify LSTRDU34
READ REPORT 'LSTRDU34' INTO ITAB_CODE .
INSERT 'SY-SUBRC = 0 .' INTO ITAB_CODE ?INDEX 102.
INSERT REPORT 'LSTRDU34' ?FROM ITAB_CODE .
*** Modify LSTRDU44
READ REPORT 'LSTRDU44' INTO ITAB_CODE .
INSERT 'SY-SUBRC = 0 .' INTO itab_code ?index 101.
INSERT REPORT 'LSTRDU44' ?FROM ITAB_CODE .