javaGrowing

?

?

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

???? 函數(shù)名 ???????????????????????????????? 描述 ????????????????????????
DY_GET_FOCUS???????????????? 獲得屏幕焦點(diǎn)
DY_GET_SET_FIELD_VALUE???? 獲得或者設(shè)置屏幕字段的值

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

?

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

?

???? 函數(shù)名 ?????????????????????????????????????? 描述 ????????????????????????
????POPUP_TO_CONFIRM?????????????????????? 彈出確認(rèn)窗口

?

???? 函數(shù)名 ?????????????????????????????????????? 描述 ????????????????????????
????CONVERSION_EXIT_MATN1_INPUT???????????????? 物料號(hào)碼轉(zhuǎn)換函數(shù)
????CONVERSION_EXIT_MATN1_OUTPUT???????????????? 同上相反
????CONVERT_TO_LOCAL_CURRENCY?????????????????? 按照指定日期匯率轉(zhuǎn)換金額為指定貨幣類型
????SSF_FUNCTION_MODULE_NAME???????????????????? 根據(jù) form 名取得對(duì)應(yīng)的函數(shù)名 (SmartForm)????

?

???? 函數(shù)名 ?????????????????????????????????????? 描述 ????????????????????????
????DATE_CHECK_PLAUSIBILITY???????????????? 日期 CHECK
????cl_gui_frontend_services=>gui_upload?? 上傳到服務(wù)器
????cl_gui_frontend_services=>gui_download?????? 下載到服本地
????SSF_FUNCTION_MODULE_NAME????SMARTFORMS 輸出報(bào)表時(shí)，生成一個(gè)函數(shù)名稱，然后 CALL 這個(gè)名稱

?

???? 函數(shù)名 ?????????????????????????????????????? 描述 ????????????????????????
????POPUP_TO_DECIDE_LIST???????????????? 彈出供選擇窗口 ??

?

?

1.function ： SD_VBAP_READ_WITH_VBELN

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

?? 參數(shù)：

??????import ： I_VBELN???????????????????????????? 訂單號(hào)（必輸項(xiàng)）

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

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

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

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

2.form ： EDIT_LINES

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

?? 原因：如果用 CREATE_TEXT 登錄的長文本不存在該問題，如果是在前臺(tái)業(yè)務(wù)登錄的 text ，那么存到數(shù)據(jù)庫的時(shí)候會(huì)在 72 位的地方換行，在 lines 這個(gè)表中的 TDFORMAT 設(shè)置為空，導(dǎo)致 READ_TEXT 返回的表中的行數(shù)也許不是你需要的行數(shù)。

?? 代碼：

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

?? 功能：維護(hù)表視圖等

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

?? 參數(shù)：

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

????????????CORR_NUMBER?? 傳送號(hào)（上面的 action 是 t ）

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

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

????????????NO_WARNING_FOR_CLIENTINDEP?? 跨集團(tuán)是否現(xiàn)實(shí)警告

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

????????????CHECK_DDIC_MAINFLAG???? 察看是否為可維護(hù)對(duì)象

補(bǔ)充： 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.
效果：

每天函數(shù)講解系列 ----2006.01.10

?

1.SYSTEM-CALL:DY_GET_FOCUS

?? 說明：獲得屏幕焦點(diǎn)

?? 參數(shù)：

??????????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

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

?? 參數(shù)：

??????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.

例子：我做了一個(gè)檢索 help 的 exit ，例如屏幕上有兩個(gè)字段，我按了一個(gè)字段的檢索 help ，那么根據(jù)這個(gè)字段就會(huì)取得相應(yīng)的另外一個(gè)字段的值，然后把這個(gè)之設(shè)置到第二個(gè)字段。

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.

?

每天函數(shù)講解系列 ----2006.01.11

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

例子：
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,?? " 地名 / 番地 - 號(hào)
????ORT01 TYPE T001W-ORT01,?? " 市區(qū)町村名
??END OF T_S_WERKS.
TYPES??T_I_WERKS TYPE STANDARD TABLE OF T_S_WERKS.
* 這個(gè)就是 value_tab
DATA?? L_IT_WERKS TYPE T_I_WERKS.
* 取數(shù)據(jù)
??SELECT WERKS????" プラント
???????? NAME1????" 名稱
???????? NAME2????" 名稱 2
???????? STRAS????" 地名 / 番地 - 號(hào)
???????? ORT01????" 市區(qū)町村名
????FROM T001W
????INTO CORRESPONDING FIELDS OF TABLE L_IT_WERKS.
* 調(diào)用函數(shù)
??CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
????EXPORTING
??????RETFIELD?????????????? = 'WERKS'????“plant
??????DYNPPROG?????????????? = SY-REPID?? “ 程序名
??????DYNPNR???????????????? = SY-DYNNR?? “ 屏幕號(hào)
??????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
?? 功能：讀取長文本 / 創(chuàng)建長文本
?? 參數(shù)：
??Import ：
????CLIENT ：集團(tuán)
????ID ：文本 ID （ TTXID 中定義）
????LANGUAGE ：語言
????NAME ：文本名字（）
????OBJECT ：文本對(duì)象（ TTXOB 中定義）
??Export ：
????HEADER ：文本的描述信息
??Tables ：
????LINES ：文本內(nèi)容

例子：讀取銷售訂單頭文本
???? 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
?? 功能：根據(jù)語言決定單位的顯示
?? 參數(shù)：
????Import ：
??????INPUT ：內(nèi)部單位顯示方式
??????LANGUAGE ：語言代碼
????Export ：
??????LONG_TEXT ：單位的長文本
??????OUTPUT ：外部單位顯示方式
??????SHORT_TEXT ：單位的短文本

例子：單位顯示轉(zhuǎn)換
??????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
?? 功能：全角轉(zhuǎn)換為半角
?? 參數(shù)：
????Import ：
??????ALL ：全部轉(zhuǎn)換
??????ALPHABET_UPPER ： A-Z 轉(zhuǎn)換
??????ALPHABET_LOWER ： a-z 轉(zhuǎn)換
??????NUMERIC ： 0-9 轉(zhuǎn)換
????Export ：
??????CONVERTED ：轉(zhuǎn)換的字符個(gè)數(shù)
????Changing ：
??????TEXT ：轉(zhuǎn)換結(jié)果
Function: SJIS_SBC_TO_DBC
?? 功能：半角轉(zhuǎn)換為全角
?? 參數(shù)：
????Import ：
??????ALL ：全部轉(zhuǎn)換
??????ALPHABET_UPPER ： A-Z 轉(zhuǎn)換
??????ALPHABET_LOWER ： a-z 轉(zhuǎn)換
??????NUMERIC ： 0-9 轉(zhuǎn)換
????Export ：
??????CONVERTED ：轉(zhuǎn)換的字符個(gè)數(shù)
????Changing ：
??????TEXT ：轉(zhuǎn)換結(jié)果

Function: CO_R0_CHECK_DECIMAL_POINT
?? 功能：根據(jù)單位檢查數(shù)據(jù)的小數(shù)位
?? 參數(shù)：
????Import ：
??????I_QUANTITY ：數(shù)量
??????I_UNIT ：單位
?? 例子：下面的例子會(huì)返回錯(cuò)誤信息，以為單位 ST 是不能有小數(shù)位的。
????????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
?? 功能：檢查郵政編碼
?? 參數(shù)：
????Import ：
??????COUNTRY ：國家（ T005 ） ---------- 必輸
??????ONE_TIME_ACCOUNT ：不明確
??????POSTAL_CODE ：郵政編碼
??????POSTAL_CODE_PO_BOX ：沒用過，以下為推測：如果輸入則會(huì)檢查，如果 t005 表中的 XPLPF 設(shè)置了，那么如果輸入 PO_BOX ，這個(gè)選項(xiàng)就必須輸入。
?????? PO_BOX ：沒用過
?????? REGION ：區(qū)域
????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

每天函數(shù)講解系列 ----2006.01.12

?

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

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

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

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

Funtion ： DATE_CONVERT_TO_FACTORYDATE
?? 功能：把輸入日期轉(zhuǎn)為工廠日歷日期
?? 參數(shù)：
????Import ：
??????CORRECT_OPTION ：表示工作日計(jì)算方式的標(biāo)記 ??
??????DATE ：必須轉(zhuǎn)化為工廠日歷日期的日期 ??
??????FACTORY_CALENDAR_ID ：工廠日歷 ID????
????Export ：
??????DATE ：必須轉(zhuǎn)化為工廠日歷日期的日期 ????
??????FACTORYDATE ：指定日歷中的工作日數(shù) ??????
??????WORKINGDAY_INDICATOR ：表示某日期是否為工作日的標(biāo)志 ????????

例子：
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
?? 功能：把消息轉(zhuǎn)為文本
?? 參數(shù)：
????Import ：
??????MSGID ：消息 id
??????MSGNR ：消息號(hào)
??????MSGV1 ：參數(shù) 1
??????MSGV2 ：參數(shù) 2
??????MSGV3 ：參數(shù) 3
??????MSGV4 ：參數(shù) 4
????Export ：
??????MESSAGE_TEXT_OUTPUT ：輸出的字符串
?? 說明：可以用 write <message> to <text> 代替。

每天函數(shù)講解系列 ----2006.01.16

?

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

每天函數(shù)講解系列 ----2006.01.20

?

物料號(hào)碼轉(zhuǎn)換函數(shù) , 上傳文件時(shí)可能會(huì)用到

1.CONVERSION_EXIT_MATN1_INPUT

????EXPORTING????

??????INPUT = ' 要轉(zhuǎn)換的物料號(hào) '

????IMPORTING

??????OUTPUT = ' 轉(zhuǎn)換后的內(nèi)部使用的物料號(hào) '.

?? 比如輸入 123456, 輸出 000000000000123456

2.CONVERSION_EXIT_MATN1_OUTPUT.

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

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

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

由于開發(fā)機(jī)上開發(fā) smartform 傳入生產(chǎn)機(jī)后有可能會(huì)改變其函數(shù)名 , 所以在調(diào)用 smartform 前使用這個(gè)函數(shù)

每天函數(shù)講解系列 ----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?? 上傳到服務(wù)器

??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?? 下載到服務(wù)器

??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 輸出報(bào)表時(shí)，生成一個(gè)函數(shù)名稱，然后 CALL 這個(gè)名稱

??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?? 把數(shù)據(jù)生成柱狀 3D

TIME_CHECK_PLAUSIBILITY?? 判斷是不是時(shí)間

每天函數(shù)講解系列 ----2006.02.11

?

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

例子：
REPORT??Z_BOBO??????????????????????????????????.
* 定義函數(shù)需要的變量
DATA: BEGIN OF SPOPLIST OCCURS 15.
??????????INCLUDE STRUCTURE SPOPLI.
??DATA: END?? OF SPOPLIST.
??DATA: ANTWORT TYPE C.
* 添加選擇參數(shù)
??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.

每天函數(shù)講解系列 ----2006.02.13

?

Funtion ： DDIF_FIELDINFO_GET??
?? 功能：獲得字段的相關(guān)信息
?? 參數(shù)：
????Import ：
??????TABNAME ：數(shù)據(jù)庫表的名字
??????FIELDNAME ：無需指定，由 LFIELDNAME 代替了
??????LANGU ： 語言設(shè)定，默認(rèn) sy-langu
??????LFIELDNAME ：指定關(guān)聯(lián)字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應(yīng)該是和 unicode 相關(guān)的
????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 ：域的固定值

?? 說明：該函數(shù)可用來獲得某個(gè)表或者結(jié)構(gòu)或者視圖等所有字段的相關(guān)信息，所以如果想用 alv 來維護(hù)某個(gè)表的時(shí)候，對(duì)設(shè)定 field catalog 有幫助。

Funtion ： DDIF_NAMETAB_GET????
?? 功能：獲得字段的相關(guān)信息 ( 不包含 text)
?? 參數(shù)：
????Import ：
??????TABNAME ：數(shù)據(jù)庫表的名字
??????LFIELDNAME ：指定關(guān)聯(lián)字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應(yīng)該是和 unicode 相關(guān)的
????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????
?? 功能：獲得字段的相關(guān)信息 ( 不包含 text)
?? 參數(shù)：
????Import ：
??????TABNAME ：數(shù)據(jù)庫表的名字
??????LFIELDNAME ：指定關(guān)聯(lián)字段
??????ALL_TYPES ：是否指定所有類型
??????GROUP_NAMES ：是否包含 include 的字段
??????UCLEN ：沒用過，應(yīng)該是和 unicode 相關(guān)的
????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 ：域的固定值

每天函數(shù)講解系列 ----2006.02.14

?

Function: CLOI_PUT_SIGN_IN_FRONT
?? 功能：將負(fù)號(hào)提前
?? 參數(shù)：
????Changing ：
??????VALUE ：需要負(fù)號(hào)提前的變量

Function: CLOI_PUT_SIGN_IN_FRONT
?? 功能：將負(fù)號(hào)提前
?? 參數(shù)：
????Changing ：
??????VALUE ：需要負(fù)號(hào)提前的變量

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

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

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

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

Function: READ_VBFA
?? 功能：取得 document flow （省得 select 了）
?? 參數(shù)：
????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 來優(yōu)化性能

Function: LIKP_READ
?? 功能： Delivery Header Data
?? 參數(shù)：
????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
?? 說明：有關(guān)讀取 delivery 的信息請(qǐng)參考 function group ： LMGT

每天函數(shù)講解系列 ----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.

?

一個(gè)將數(shù)字金額轉(zhuǎn)換為中文大寫金額的程序

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.

運(yùn)行該程序前還需定義以下文本段 :
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

一個(gè)只有 9 句的程序卻可更改 SAP 標(biāo)準(zhǔn)程序

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 .