查看全文

 查看全文

函数：LAST_DAY_OF_MONTHS说明：根据输入的日期取得当月的最后一天的日期

可以使用后台配置处理，交易代码OMFI。

 查看全文

 查看全文

 查看全文

 查看全文

 查看全文

 查看全文

 查看全文

 查看全文

SD_VBAP_READ_WITH_VBELN

 查看全文

 查看全文

 查看全文

 查看全文

使用VB建立SAP的PO数据

例1：

:Option Explicit

Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim objStruct

Private Sub Command1_Click()
If ConnectToSAP = False Then
MsgBox "Connect Error"
Exit Sub
End If

'Set theFunc = functionCtrl.Add("RFC_READ_TABLE")
Set theFunc = functionCtrl.Add("BAPI_PO_GETDETAIL")

If theFunc Is Nothing Then
MsgBox "Creating function module object failed"
Exit Sub
End If

theFunc.Exports("PURCHASEORDER") = "4500014788"

If theFunc.Call = False Then
MsgBox "Function call failed"
Exit Sub
End If

Set objStruct = theFunc.tables("PO_ITEMS")
objStruct.Value(2, "MATERIAL") = "MYITEMNUMBER"

Dim i As Integer
For i = 1 To objStruct.RowCount()
MsgBox objStruct.Value(i, "MATERIAL")
Next i

End Sub

Private Function ConnectToSAP() As Boolean
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection

sapConnection.client = "800"
sapConnection.user = "USERNAME"
sapConnection.Password = "PASSWORD"
sapConnection.language = "EN"

If sapConnection.Logon(0, False) = False Then
ConnectToSAP = False
Else
ConnectToSAP = True
End If
End Function

 查看全文

BAPI stands for Business Application Programming Interface.

 查看全文

 查看全文

 查看全文

 查看全文

 查看全文

eina, "採購資訊記錄：一般資料
eine, "採購資訊記錄：採購組織資料
a018, "物料資訊記錄(有工廠：a017)
konp. "條件（項目）

 查看全文

 查看全文

我觉得SAP中的QuickViewer和查询都非常好用，QuickViewe非常简得，这里就不作详细解说了，下面只要讲解查询的制作及应用，现在先讲如何建立查询。希望对大家有帮忙，如果有不对的地方还请高手们指点指点。

 查看全文

 查看全文

僅供參考：

Character and String Manipulation：

Depending on the length of the character field,
string operation may be faster.
The concatenate algorithm has to compute the length of
the fixed character fields by scanning the first
non-blank character from the end.

 查看全文

如果要在过程的运行时间之外仍保留某变量的数值，可以在该过程中利用STATICS语句定义该变量。STATICS语句是DATA语句的变异。语法如下: STATICS <s>[<length>] <type> [<value>] [<decimals>].要在过程中将字段串定义为静态有效,如：

ABAP/4的程序会需要花费大量的时间执行,而且会使其它进程被迫暂停以等待当前程序运行结束。

 查看全文

1、使用OB52更改過帳期間、指定時間間隔。
2、使用MMPV進行期間結算。輸入公司及期間、年份執行即可。

 查看全文

运行以下代码即可看到效果：

Tables

CONVERSION_EXIT_MATN1_OUTPUT
E.g. 00001234 -> 1234

CONVERSION_EXIT_MATN1_INPUT
E.g. 1234 -> 000000000000001234

 查看全文

 查看全文

 查看全文

 查看全文

在物料管理模組內，採購資訊記錄主要用來維護物料採購和外發價格。採購資訊記錄建立後，在建立採購單時，系統會自動將採購資訊記錄中的資料如單價、稅率等帶到採購單中。

維護採購資訊記錄的交易代碼爲：ME11(建立), ME12(更改),ME13(顯示)

中央採購概念是物料管理模組的核心，現時藍圖從物料需求計劃，採購以至庫存管理都是按此而設計。實施中央採購，目的是更準確計算需求和計劃物料採購，從而減少多餘庫存，以達至成本效益。

在SAP系統內，儲存地點是一個在工廠內分類的存放位置，此位置的分類是依據空間性及位置而劃分的。在一個工廠內，可以包含多個儲存地點，而儲存地點是不能共用於不同的工廠。儲存地點的分類可以是虛擬（即實際上是不存在）或實際（倉庫）的。有時因方便於入帳及中央處理，虛擬倉庫是必須的。

工廠是SAP的後勤系統中一個最基本及必須的企業結構單位。工廠是以一個四位代碼代表。在後勤系統中，工廠掌管一切有關物料管理、庫存管理、物料需求計劃、生產、採購等功能。每一個工廠均需被指派到一個公司代碼。而一個公司代碼可容納多個工廠。

函數：CREATE_TEXT

 查看全文

函數：VRM_SET_VALUES

函數：CTCV_CONVERT_FLOAT_TO_DATE

函數：CONVERSION_EXIT_ALPHA_INPUT

如果物料主数据维护为M0、M1、M2、M3、M4等MPS类型，那么用MD40,MD41,MD42,MDBS等事务码来运行；MRP类型物料用MD01,MD02,MD03,MD43,MDBT等事务码来运行。

如果使用MD40或者MDBS运行MPS物料时候，可以选择是否同时运行下层MRP物料。

不管MPS物料还是MRP物料，运行的原理都是相同的，都是依照我们俗称的MRP逻辑计算。

 查看全文

SAP中很多地方對資料的操作都會有保存更改歷史記錄，可能過以下兩個函數取得更改歷史記錄：

data: mydate type d value = '20070519'.
data: newdate(10) type c.

concatenate mydate+0(4) mydate+4(2) mydate+6(2) into newdate separated by '-'.

newdata 的結果為：2007-05-19

用ALV寫了一個報表，但是沒有數據顯示，多次檢查沒有什么錯誤。最后發現原來是對應ALV的欄位的名稱出現問題，ALV顯示的欄位不能用小寫，一定要用大寫才行，如matnr要改為MATNR。暈......

AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD <tcode>.
IF SY-SUBRC <> 0.
MESSAGE '沒有<tcode>的使用權限'.
leave to screen 0 .
ENDIF.

其中<tcode>是要檢查權限的TCODE.

1. data: count_lines type i.
describe table <table> lines count_lines.

2. data: count_lines type i,
count_lines = LINES( <table> ).

INCLUDE <list>. “必須要添加此引用
WRITE icon_green_light AS ICON. “顯示一個綠燈圖標黃燈：icon_yellow_light 紅燈：icon_red_light

１.　在字符串前補0.　（如果p_input的位數未滿,則會於前面補０,直至位數爲自定的長度.

call function 'CONVERSION_EXIT_ALPHA_INPUT'
exporting
input = p_input
IMPORTING
OUTPUT = p_input .

２.去掉字符串前的0

３.用戶確認對話框

report ztest_export_excel.
include ole2incl.
data: application type ole2_object,
workbook type ole2_object,
sheet type ole2_object,
cells type ole2_object.

constants: row_max type i value 256.
data index type i.
data: begin of itab occurs 0,
first_name(10),
last_name(10),
address(100),
end of itab.

start-of-selection.

...

Report zbdc_mm_w_test no standard page heading line-size 255.
include .
tables:mara,makt.
data : bdcdata_itab like bdcdata occurs 0 with header line.
data : messtab like bdcmsgcoll occurs 0 with header line.

data: s_mode(1) type c.
data : size type i.

data: begin of wa_tab,
matnr like mara-matnr, "物料碼
mtart like mara-mtart, "物料類型
maktx like makt-maktx, "物料描述
maktxen like makt-maktx, "物料英文名
meins like mara-meins, " 物料單位
bismt like mara-bismt, "舊物產碼
matkl like mara-matkl, "物料群組
spart like mara-spart, "部門
brgew(10) type c, "毛重
ntgew(10) type c, "淨重
gewei like mara-gewei, "重量單位
volum(10) type c, "容量
voleh like mara-voleh, "數量單位
magrv like mara-magrv, "物料群組﹕包裝物料
end of wa_tab.

data: it_tab like wa_tab occurs 0 with header line.

data: begin of wa_tabtemp,
matnr type char50, "物料碼
mtart type char50, "物料類型
maktx type char50, "物料描述
maktxen type char50, "物料英文名
meins type char50, " 物料單位
bismt type char50, "舊物產碼
matkl type char50, "物料群組
spart type char50, "部門
brgew type char50, "毛重
ntgew type char50, "淨重
gewei type char50, "重量單位
volum type char50, "容量
voleh type char50, "數量單位
magrv type char50, "物料群組﹕包裝物料
end of wa_tabtemp.

data: temp_tab like wa_tabtemp occurs 0 with header line.

*** END GENERATED DATA SECTION ***

１.使用SAP標準Menu: 設定(S)->配置(A)->更改(C)...

2. 在配置設定中選擇＂顯示＂Tab

3.選擇最後一個選項"含日期,標題及頁數的印出"

４.保存退出即可.

在SAP中建立背景作業很簡單,　３個步驟即可完成,　代碼如下:

data: g_jobname TYPE tbtcjob-jobname VALUE 'JOB_TEST',
g_jobcount TYPE tbtcjob-jobcount,
g_jobdate TYPE BTCSDATE value '20070801',
g_jobtime TYPE BTCSTIME value '123000'.

１.使用FM：JOB_OPEN建立作業

CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = p_jobname
IMPORTING
jobcount = p_jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.

2.提交JOB要執行的程式

SUBMIT <program name> VIA JOB p_jobname NUMBER p_jobcount
AND RETURN.

3. 設置執行日期及時間，背景作業建立完成

CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = p_jobcount
jobname = p_jobname
sdlstrtdt = p_date
sdlstrttm = p_time
EXCEPTIONS
cant_start_immediate = 1
invalid_startdate = 2
jobname_missing = 3
job_close_failed = 4
job_nosteps = 5
job_notex = 6
lock_failed = 7
invalid_target = 8
OTHERS = 9.
ENDIF.

這樣一個後臺執行程序就完成,　完成後可使用SAP標準程式(TCODE: SM37)對JOB進行維護處理.

report demo_use_at.
data: begin of wa,
field1(1) type c,
field2(2) type c,
field3(6) type c,
end of wa.

data itab like wa occurs 0 .

wa-field1 = 'A'.
do 2 times.
wa-field2 = sy-index.
CONDENSE wa-field2.
concatenate wa-field1 wa-field2 into wa-field2.
do 3 times.
wa-field3 = sy-index.
CONDENSE wa-field3.
concatenate 'Line' wa-field3 into wa-field3.
insert wa into table itab.
enddo.
enddo.

wa-field1 = 'B'.
do 3 times.
wa-field2 = sy-index.
CONDENSE wa-field2.
concatenate wa-field1 wa-field2 into wa-field2.
do 4 times.
wa-field3 = sy-index.
CONDENSE wa-field3.
concatenate 'Line' wa-field3 into wa-field3.
insert wa into table itab.
enddo.
enddo.


sort itab by field1 field2.

loop at itab into wa.
at new field1.
write /2 wa-field1.
endat.

at new field2.
write /4 wa-field2.
endat.

at new field3.
write /6 wa-field3.
endat.

endloop.

函數REUSE_ALV_GRID_LAYOUT_INFO_GET是取得ALV GRID中的訊息,　如在使用ALV 標準工具過濾,　排序等功能時,　可使用該FM取得各種操作訊息.　例：

data: itfilter type slis_t_filtered_entries.
　
call function 'REUSE_ALV_GRID_LAYOUT_INFO_GET'
importing
et_filtered_entries = itfilter.

itfilter表中會取得當前ALV過濾條件外的記錄資料.

函數格式具體如下：

call function 'REUSE_ALV_GRID_LAYOUT_INFO_GET'
* IMPORTING
* ES_LAYOUT =
* ET_FIELDCAT =
* ET_SORT =
* ET_FILTER =
* ES_GRID_SCROLL =
* ES_VARIANT =
* ET_MARKED_COLUMNS =
* ET_FILTERED_ENTRIES =
* ET_FIELDCAT_BACKEND =
* ES_PRINT =
* EXCEPTIONS
* NO_INFOS = 1
* PROGRAM_ERROR = 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.

在ABAP中CHAR轉到Decimal的功能,　到目前爲止我在ABAP的FM中找不到相關轉函數,　所以衹有自己寫了,　代碼如下：

data: varChar(40) type c.
data: varDec type p decimal 3.

varChar = '1,500'.

＂這時如果使用varDec = varChar.會提示出錯（因爲有',')

replace all occurrences of ',' in varChar with space.
condense varChar no-gaps.
varDec = varChar.

原理是動態建立一個ABAP程式處理

以下代碼是根據自動的字符串公式自動計算出結果,如輸入公式字串:12 + 5 * ( 5 -2 ), 計算出的結果爲27, 這樣就不用用固定代碼了, 可以根據公式動態計算結果......不錯吧

不過需注意的有, 字串公式中不能出現小數點, 如3.5 *2 等, 要改爲35 / 10 * 2, 還有一點就是各參數及操作符之單要有一個空格, 要懂得ABAP語法哦......

report ZABAP_Test_01.

parameters: p_code1(100) type c.
data t_source_tab(72) occurs 0 with header line.
data g_program_name like sy-repid.
data g_message(128).
data g_line_no type i.
data var type p decimals 2.

at selection-screen.
perform create_dynamic_program.

start-of-selection.
perform cal_formula in program (g_program_name) changing var .

write:/ p_code1 no-gap,'=' no-gap,var.


*&---------------------------------------------------------------------*
*& Form create_dynamic_program
*&---------------------------------------------------------------------*
* 建立動態ABAP程式
*----------------------------------------------------------------------*
form create_dynamic_program.
data t_abap(100) occurs 0 with header line.

refresh t_source_tab.
append 'REPORT' to t_source_tab.
append sy-repid to t_source_tab.
append '.' to t_source_tab.
append 'FORM cal_formula changing var type p.' to t_source_tab.

append 'var =' to t_source_tab.
append p_code1 to t_source_tab.
append '.' to t_source_tab.
append 'ENDFORM.' to t_source_tab.

generate subroutine pool t_source_tab name g_program_name message g_message line g_line_no.
if sy-subrc <> 0.
message g_message type 'E'.
endif.
endform. "create_dynamic_program

根據用戶不同的選擇動太改變程式的標題(SY-TITLE)。

原代碼：
REPORT ZRP_CHANGE_TITLE NO STANDARD PAGE HEADING.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE T1.
PARAMETER: OPT_1 RADIOBUTTON GROUP OPT1 TYPE C,
OPT_2 RADIOBUTTON GROUP OPT1 TYPE C.
SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION.
T1 = 'Select Option:'.
SY-TITLE = 'Testing SY-TITLE.'.


START-OF-SELECTION.

IF OPT_1 = 'X'.
SY-TITLE = 'You Select The First Option.'.
ELSEIF OPT_2 = 'X'.
SY-TITLE = 'You Select The Second Option.'.
ENDIF.

SAP可以新增Search Help文件幫助用戶選擇資料，但有時對用戶的選擇要加入一些控制條件等，就需用代碼來動太控制了，具體代碼如下：

在ON VALUE-REQUEST事件中加入要選擇資料的欄位並編寫相應的處理模組：
PROCESS ON VALUE-REQUEST.
FIELD Field_Name MODULE HLP_FieldName.

模組HLP_FieldName的代碼：

MODULE HLP_FieldName INPUT.
　"定義要顯示供選擇表的欄位
DATA: BEGIN OF IT_MARA OCCURS 0.
DATA: MATNR LIKE MARA-MATNR.
DATA: MAKTX LIKE MAKT-MAKTX.
DATA: END OF IT_MARA.

"取得供用戶選擇的資料（所有原材料）
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_MARA FROM MARA AS A
INNER JOIN MAKT AS B ON A~MATNR = B~MATNR
WHERE A~MTART = 'ROH'.

"調用函數實際選擇對話功能
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'MATNR'
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'IT_MARA-MATNR'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = IT_MARA
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.

ENDMODULE. " HLP_FieldName

要設置光標位置一般在PBO，獲取光標當前的位置在PBI：

*&---------------------------------------------------------------------*
*& Module set_Cursor OUTPUT
*&---------------------------------------------------------------------*
* 設置光標的位置*-----------------------------------------------------------------------*
MODULE SET_CURSOR OUTPUT.
" CUR_FIELDNAME為要定位的欄位名稱
SET CURSOR FIELD CUR_FIELDNAME OFFSET 0.
ENDMODULE. " set_Cursor OUTPUT

*&---------------------------------------------------------------------*
*& Module get_Cursor INPUT
*&---------------------------------------------------------------------*
* 獲取光標當前所在的位置
*----------------------------------------------------------------------*
MODULE GET_CURSOR INPUT.
GET CURSOR FIELD CUR_FIELDNAME.
ENDMODULE. " get_Cursor INPUT

向ListBox控件加入選擇清單，原代碼：

DATA: IT_VAL TYPE VRM_VALUES,
WA_LINE LIKE LINE OF IT_VAL.

CLEAR: IT_VAL[], IT_VAL. "加入要顯示的清單至內表
DO 10 TIMES. WA_LINE-KEY = SY-INDEX.
WA_LINE-TEXT = '說明文本'.
INSERT WA_LINE INTO TABLE IT_VAL.
ENDDO.

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'Screen filed name'. "ID：屏幕中的欄位名稱(ListBox的名稱)
VALUES = IT_VAL.

以下是寫BDC時常用到的OKCODE：
/nn : Function Key nn
/00 : Enter
=ENTE : Enter
/8: F8，Continue or Execute
/11: F11，Post
%EX: Exit
=BACK: F3，Back Previous Screen
=DLT: Delete
=PICK: Double Click
=SAVE: F11，Save
......

在SAP中找表對初學者來說是很復雜的事情，所以為自己寫了一個找表的程式，代碼如下：

*&---------------------------------------------------------------------*
*& Report Z_FIND_TABLE
*&---------------------------------------------------------------------*
*&查找表或結構
*&
*&---------------------------------------------------------------------*

REPORT Z_FIND_TABLE.
TABLES: TADIR,TRDIRT,TSTC,DD03L,DD02L,DD04L,DD02T,DD03T,DD04T.

TYPE-POOLS: SLIS.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF FIELDCAT,
EVENT_EXIT TYPE SLIS_T_EVENT_EXIT,
EVENT_EXIT_LN LIKE LINE OF EVENT_EXIT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT.

DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'ALV_TOP_OF_PAGE'.
DATA : PS_LAYOUT TYPE SLIS_LAYOUT_ALV.


DATA: BEGIN OF WA_ITAB,
TABNAME LIKE DD02L-TABNAME,
TABTEXT LIKE DD02T-DDTEXT,
TABCLASS LIKE DD02L-TABCLASS,
FIELDNAME LIKE DD03L-FIELDNAME,
FIELDTEXT LIKE DD03T-DDTEXT,
END OF WA_ITAB.

DATA: ITAB LIKE WA_ITAB OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: V_TNAME FOR DD02L-TABNAME, "表名
V_TABCLS FOR DD02L-TABCLASS DEFAULT 'TRANSP', "表類型
V_FNAME FOR DD03L-FIELDNAME. "欄位名
PARAMETERS: P_TTEXT LIKE DD02T-DDTEXT. "本
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_TAB AS CHECKBOX. "只查找表記錄
SELECTION-SCREEN END OF BLOCK B2.

START-OF-SELECTION.

PERFORM GET_DATA.
REFRESH GT_LIST_TOP_OF_PAGE[].
PERFORM E04_COMMENT_BUILD .
CLEAR FIELDCAT.
REFRESH FIELDCAT.
PERFORM BUILD_FIELDCAT.
PERFORM BUILD_EVENTCAT.
PERFORM ALV_DISPLAY.

*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
CLEAR: ITAB[], ITAB.
CONCATENATE '%' P_TTEXT '%' INTO P_TTEXT.
IF P_TAB = 'X'.
SELECT A~TABNAME C~DDTEXT AS TABTEXT A~TABCLASS INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM DD02L AS A
INNER JOIN DD03L AS B ON A~TABNAME = B~TABNAME
INNER JOIN DD02T AS C ON A~TABNAME = C~TABNAME AND C~DDLANGUAGE = SY-LANGU
LEFT JOIN DD03T AS D ON B~FIELDNAME = D~FIELDNAME AND D~DDLANGUAGE = SY-LANGU
WHERE A~TABNAME IN V_TNAME
AND A~TABCLASS IN V_TABCLS
AND B~FIELDNAME IN V_FNAME
AND C~DDTEXT LIKE P_TTEXT.

SORT ITAB BY TABNAME.
DELETE ADJACENT DUPLICATES FROM ITAB.
ELSE.
SELECT A~TABNAME C~DDTEXT AS TABTEXT A~TABCLASS B~FIELDNAME D~DDTEXT AS FIELDTEXT INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM DD02L AS A
INNER JOIN DD03L AS B ON A~TABNAME = B~TABNAME
INNER JOIN DD02T AS C ON A~TABNAME = C~TABNAME AND C~DDLANGUAGE = SY-LANGU
LEFT JOIN DD03T AS D ON B~FIELDNAME = D~FIELDNAME AND D~DDLANGUAGE = SY-LANGU
WHERE A~TABNAME IN V_TNAME
AND A~TABCLASS IN V_TABCLS
AND B~FIELDNAME IN V_FNAME
AND C~DDTEXT LIKE P_TTEXT.

SORT ITAB BY TABNAME FIELDNAME.
DELETE ADJACENT DUPLICATES FROM ITAB.
ENDIF.

ENDFORM. " GET_DATA

*&--------------------------------------------------------------------*
*& FORM BUILD_EVENTCAT
*&--------------------------------------------------------------------*
* TEXT
*---------------------------------------------------------------------*
FORM BUILD_EVENTCAT.
DATA : LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = EVENTCAT.

READ TABLE EVENTCAT
WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
APPEND LS_EVENT TO EVENTCAT.
ENDIF.

ENDFORM. " BUILD_EVENTCAT

*&----------------------------------------------------
*& FORM ALV_DISPLAY
* TEXT
*-----------------------------------------------------
* --> P1 TEXT
* < -- P2 TEXT
*-----------------------------------------------------
FORM ALV_DISPLAY.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'ZTEST_JIM_002'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = PS_LAYOUT
IT_FIELDCAT = FIELDCAT
I_SAVE = 'A'
IT_EVENTS = EVENTCAT
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.

ENDFORM. " ALV_DISPLAY

*&--------------------------------------------------------------------*
*& FORM ALV_TOP_OF_PAGE
*&--------------------------------------------------------------------*
* TEXT
*---------------------------------------------------------------------*
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
* I_LOGO = 'SAPLOGO' .
* I_END_OF_LIST_GRID = 'X'.

ENDFORM. "ALV_TOP_OF_PAGE

*-----------------------------------------------------
* FORM BUILD_FIELDCAT
*-----------------------------------------------------
* ........
*-----------------------------------------------------
FORM BUILD_FIELDCAT.
DATA : COL_POS TYPE I VALUE 0.

PS_LAYOUT-GET_SELINFOS = 'X'.
PS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
PS_LAYOUT-DETAIL_POPUP = 'X'.
PS_LAYOUT-NO_KEYFIX = ''.
PS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.


ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-TABNAME = 'ITAB'.
FIELDCAT_LN-REF_FIELDNAME = 'TABNAME'.
FIELDCAT_LN-FIELDNAME = 'TABNAME '.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-SELTEXT_L = '表格名'.
FIELDCAT_LN-COL_POS = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.

ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-TABNAME = 'ITAB'.
FIELDCAT_LN-REF_FIELDNAME = 'TABTEXT'.
FIELDCAT_LN-FIELDNAME = 'TABTEXT '.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-SELTEXT_L = '表格說明'.
FIELDCAT_LN-COL_POS = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.

ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-TABNAME = 'ITAB'.
FIELDCAT_LN-REF_FIELDNAME = 'TABCLASS'.
FIELDCAT_LN-FIELDNAME = 'TABCLASS '.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-SELTEXT_L = '表格類別'.
FIELDCAT_LN-COL_POS = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.

IF P_TAB <> 'X'.
ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-TABNAME = 'ITAB'.
FIELDCAT_LN-REF_FIELDNAME = 'FIELDNAME'.
FIELDCAT_LN-FIELDNAME = 'FIELDNAME'.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-SELTEXT_L = '欄位名'.
FIELDCAT_LN-COL_POS = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.


ADD 1 TO COL_POS.
CLEAR FIELDCAT_LN.
FIELDCAT_LN-TABNAME = 'ITAB'.
FIELDCAT_LN-REF_FIELDNAME = 'FIELDTEXT'.
FIELDCAT_LN-FIELDNAME = 'FIELDTEXT'.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-SELTEXT_L = '欄位說明'.
FIELDCAT_LN-COL_POS = COL_POS.
APPEND FIELDCAT_LN TO FIELDCAT.
ENDIF.
ENDFORM. "BUILD_FIELDCAT


*&--------------------------------------------------------------------*
*& FORM USER_COMMAND
*&--------------------------------------------------------------------*
* TEXT
*---------------------------------------------------------------------*
* -->UCOMM TEXT
* -->SELFIELD TEXT
*---------------------------------------------------------------------*
FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
READ TABLE ITAB INDEX SELFIELD-TABINDEX.
CHECK SY-SUBRC = 0.
CASE UCOMM.
WHEN '&IC1'.
CASE SELFIELD-SEL_TAB_FIELD.
WHEN 'ITAB-TABNAME'.
SET PARAMETER ID 'DTB' FIELD ITAB-TABNAME.
CALL TRANSACTION 'SE11' AND SKIP FIRST SCREEN.
ENDCASE.
WHEN 'PRI' .
ENDCASE.
ENDFORM. "USER_COMMAND
*&---------------------------------------------------------------------*
*& Form E04_COMMENT_BUILD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM E04_COMMENT_BUILD .
DATA : LIST_LINE LIKE LINE OF GT_LIST_TOP_OF_PAGE.
DATA: I_COUNT TYPE I, C_COUNT(5) TYPE C.
LIST_LINE-TYP = 'H'.
LIST_LINE-KEY = ''.

DESCRIBE TABLE ITAB LINES I_COUNT.
C_COUNT = I_COUNT.

CONCATENATE '符合條件的記錄數:' C_COUNT INTO LIST_LINE-INFO.

APPEND LIST_LINE TO GT_LIST_TOP_OF_PAGE.
ENDFORM. " E04_COMMENT_BUILD

操作步骤：
1、先将要删除的物料标记删除(MM06)
2、运行程式MMREO001选择要删除的物料
3、运行程式MREO050 备份物料
4、运行程式REO110 删除物料
也可以使用TCODE：SARA去删除物料，操作步骤基本同上。

1、常用的特殊TCODE：
/n ：回到當前窗口的初始狀態
/I ：退出當前窗口
/nex ：結束當前登錄，退出所有窗口
/o ：新建窗口
/h ：啟動當前窗口業務的單步跟蹤
SM12 ：解鎖程序
SNUM ：新建編號對象(CALL FUNCTION ‘NUMBER_GET_NEXT’函數可取得最後編號)
SE03 ：修改本地對象的開發類
SCC1 ：同主機不同Client對象拷貝
SPAD ：配置打印機
SQVI ：QuickViewer報表設計
SM12 ：解鎖功能
SE10 ：上傳請求
STMS ：接收請求
SARA ：徹底刪除物料等記錄
SM01 ：系統訊息
SPRO ：系統配置
OMT0 ：物料全局設定
OMS9 ：設置物料數據屏幕字段選擇
OMS2 ：設置物料類型選項

2、文档管理系统
CV00 Document Management 文档管理
CV01 Create Document Info Record 生成文档信息记录
CV02 Change Document Info Record 更改文档信息记录
CV03 Display Document Info Record 显示文档信息记录
CV04 List Document Info Records 显示文档信息记录
CV90 Number ranges for documents 文档的编号范围
CVAD Initial Screen for Archiving 存档的初始屏幕
CVAR Archive DMS Tables 激活 DMS 表
CVLO Delete Archived DMS Table Entries 删除激活 DMS 制表项
CVRE Read Archived Tables 读取存档制表
OD12 Maintain Number Range for Vaults 维护地下储存室的编号范围
OD90 Record Layout for Batch Input (Docs) 批输入的记录布局 (文档)
OD91 Document Data Transfer 文档数据传送
OD92 Document Batch Input Example File 文档批输入范例文件
OD93 Display Document File 显示文档文件
DC10 Define document types 定义凭证类型
DC20 Define data carrier 定义数据载体
DC30 Define workstation application 定义工作站应用程序
OD00 Number ranges for documents 文档的编号范围
OD01 Document Types 文档类型
OD02 CV Authorizations CV 权限
OD03 CV User Profiles CV 用户文件
OD04 CV User Maintenance CV 用户维护
OD05 Data Carr./Netwk Node 数据载体/网络结点
OD06 Data carrier 数据载体
OD07 Frontends 前端
OD08 Text for document types 文档类型的文本
OD09 Document Status Texts 文档状态文本
OD10 Document Status 文档状态
OD13 Sources for Application 应用程序的源
OD14 Text for Object Link 对象链接文本
OD15 Object Link 对象链接
OD20 Data Carrier Type 数据载体类型
OD25 Application 应用
OD30 Laboratory/Office 实验室/办公室
OD36 Mount Points/Log. Drives 安装点/逻辑驱动器
OD37 Workstation Applications 工作站应用
OD40 CAD System CAD 系统
OD41 Global DMS Settings 全局 DMS 设置
OD70 Create Conditions Table (DMS) 建立条件表(DMS)
OD71 Change conditions table (DMS) 更改条件表（文档管理系统）
OD75 Output Types for Documents 凭证的输出类型
OD77 Document Output Determ. Procedure 配置输出确定过程
OD79 Document Output Access Sequence 文档输出存取顺序
OD80 Processing Programs 处理程序
OD81 Messages by Partner Function 根据伙伴功能的信息
OVPS Document Mgmt Customizing 文件管理定制

3、分类系统
CL00 Classification Menu 分类菜单
CL01 Create Class 建立类
CL02 Change Class 变更类
CL03 Display Class 显示类
CL04 Delete Class 删除类
CL20 Allocate Object to Classes 分配对象到多个类
CL21 Display Object in Classes 显示多个类中的对象
CL22 Allocate Class to Classes 分配类到多个类
CL23 Display Class for Classes 显示类别
CL24 Allocate Objects to a Class 分配对象到单个类
CL25 Display Objects in Class 显示类别中的对象
CL2A Classification Status 分类状态
CL2B Class types 类种类
CL30 Find Objects in Classes 在类内找对象
CL6A Class List 类清单
CL6B Object List 对象清单
CL6C Class Hierarchy 类层次
CL6D Classes Without Superior Class 无上级类的类
CL6E Copy DIN Standard 拷贝 DIN 标准
CL6F Copy DIN Characteristic Data 拷贝 DIN 特性数据
CL6G Create Material w. DIN Charact. Data 用 DIN 特性数据生成物料
CL6H Classes: Reallocate/Split/Merge 类： 再分配/分解/连接
CL6I Replace Characteristic in Class 在类中的取代特性
CL6K Delete Characteristic (Class w. Obj) 删除特性 (带有对象的类)
CL6M Delete Class (with Allocations) 删除类(带分配)
CL6O Plus-minus Object Display 加-减对象显示
CLB1 Batch Input for Classification 分类的批输入
CLB2 Direct Input for Classification 分类的直接输入
CLB3 Display Classification File 显示分类文件
CLCO 2.1A Copy Tables for Classes 2.1A 拷贝类别表
CLCP Copy Classification C Tables 拷贝分类 C 表
CLCU Maintain Customizing for Classes 维护类的系统定制
CLNK Number Ranges for Class Maintenance 类维护的编号范围
CLST Create Class Statistics 建立类别统计
CLVL Maintain Variable Lists 维护变量清单
CLW1 Allocate Material Group Hierarchy 分配物料组层次
CLW2 Display Material Group Hierarchy 显示物料组层次
CLWA Create Material Group (MMS) 创建物料组 (MMS)
CLWB Change Material Group (MMS) 更改物料组 (MMS)
CLWC Display Material Group (MMS) 显示物料组 (MMS)
CLWD Delete Material Group (MMS) 删除物料组 (MMS)
CLWE Create Characteristic Profile (MMS) 创建特性概要 (MMS)
CLWF Change Characteristic Profile (MMS) 更改特性参数文件 (MMS)
CLWG Display Characteristic Profile (MMS) 显示特性概要 (MMS)
CLWH Delete Characteristic Profile (MMS) 删除特性概要 (MMS)
CLWJ Change Generic Article (MMS) 更改一般物品 (MMS)
CLWK Display Generic article (MMS) 显示一般项 (MMS)
CLWL Delete Generic Article (MMS) 删除一般项目 (MMS)
CLWM Create MMS Material Group Hierarchy 创建 MMS 物料组层次
CLWN Change MMS Material Group Hierarchy 更改 MMS 物料组层次
CLWO Display MMS Material Group Hierarchy 显示 MMS 物料组层次
CLWP Delete MMS Material Group Hierarchy 删除 MMS 物料组层次
CT11 Where-Used List for Char. Values 所用处对字符值列表
GENC Generate Source Code 生成源代码
O020 Record Layout for BTCI (Classes) BTCI （类）的记录格式
O021 Class Data Transfer 类别数据传输
O023 Display Class Maintenance Data File 显示类维护数据文件
RI03 Extended Material -Display version- 扩充物料显示版本-
O000 C RM-MAT Menu - Classification C RM-MAT 菜单 - 分类
O001 C CL User Maintenance C CL 用户维护
O002 C CL User Profile C CL 用户描述文件
O005 C CL Characteristic Default Settings C CL 特性默认值设置
O016 C CL Authorizations C CL 权限
O022 Customizing Classes 系统定制类
O041 Cust. Characts: Char. Statuses 客户特性：特性状态
O042 Cust. Characts: Char. Groups 客户特性：特性组
O043 Cust. Classes: Class Groups 客户类：类组
O044 Cust. Characts: Template Characters 客户特性：模板特性
O045 Cust. Characteristics: Templates 客户特性：模板
BD91 Send characteristic 发送特性
BD92 Send class 发送类
BD93 Send classification 发送分类

4、特性
CT01 Create Characteristic 生成特性
CT02 Change Characteristic 更改特性
CT03 Display Characteristic 显示特性
CT10 Characteristics List 特性清单
CT21 Batch Input for Characteristics 特性的批输入
CT22 Maint. Seq. File for Characteristics 维护特性顺序文件
CTCP Copy C tables for characteristics 复制特性 C 表格
CTNK Number Ranges for Characteristics 特性的编号范围

5、物料主记录
DPRL Change Material When Profile Deleted 删除参数文件时改变物料
DPRV Change Material When Profile Changed 修改参数文件时修改物料
MM00 物料主记录: 初始屏幕 物料主记录: 初始屏幕
MM01 Create Material - General 创建一般物料
MM02 Change Material 改变物料
MM03 Display Material 显示物料
MM04 Display Material Change Documents 显示物料改变凭证
MM06 Flag Material for Deletion 标出待删除物料
MM11 Create Material (Schedule) 创建物料（计划）
MM12 Change Material (Schedule) 修改物料（计划）
MM13 Activate Planned Changes 计划中修改的激活
MM14 Display Planned Changes 显示计划修改
MM15 Display Changes (Migration) 显示变化（移动）
MM16 Schedule Material for Deletion 将删除的计划物料
MM18 Activate Planned Changes 计划中修改的激活
MM19 Display Material at Key Date 显示关键日期时的物料
MM60 Material Log 物料日志
MM70 Sel. Materials Flagged for Deletion 标记为删除的选择物料
MM71 Reorganize Materials 重组的物料
MM73 Special Stocks: Preparation 特殊库存: 准备
MM74 Archive Special Stocks 归档特殊库存
MMAM Change Material Type 改变物料类型
MMB1 Create Semifinished Product 创建半成品
MMBE Stock Overview 库存总览
MMD1 Create MRP Profile 建立MRP参数文件
MMD2 Change MRP Profile 改变MRP参数文件
MMD3 Display MRP Profile 显示MRP参数文件
MMD6 Delete MRP Profile 删除MRP参数文件
MMD7 Display MRP Profile Usage 显示MRP参数文件使用
MMF1 Create Finished Product 创建产成品
MMH1 Create Trading Goods 建立贸易货物
MMI1 Create Operating Supplies Item 建立运行供应项目
MMK1 Create Configurable Material 建立可设置物料
MML1 Create Returnable Packaging 建立退货包装
MMN1 Create Non-Stock Material 建立无库存物料
MMNR Material Master Number Ranges 物料主文档的编号范围
MMP1 Create Maintenance Assembly 建立维护组件
MMPI Initialize Period 初始化期间
MMPV Close Periods 结帐期间
MMR1 Create Raw Material 建立原材料
MMRV Allow Posting to Previous Period 允许对前期记帐
MMS1 Create Service 生成服务
MMSC Enter Storage Locations Collectively 汇总条目,库存地点
MMU1 Create Non-Valuated Material 生成无价值物料
MMV1 Create Packaging Material 建立有包装的物料
MMVD Change Decentr. for Decentr.Shipping 改变为分散运输
MMVH Create Centrally: Decentral.Shipping 集中建立: 分散发运
MMVV Change Centr. for Decentr. Shipping 改变为集中式运货
MMW1 Create Competitive Product 建立竞争性产品
MMZ1 Create Material, General (Old MM01) 创建物料，一般的（旧的MM01）
MMZ2 Change Material (Old MM02) 修改物料（旧的MM02）
MMZ3 Display Material (Old MM03) 显示物料（旧的MM03）
MP80 Create Forecast Profile 建立预测参数文件
MP81 Change Forecast Profile 修改预测描述文件
MP82 Delete Forecast Profile 删除预测参数文件
MP83 Display Forecast Profile 显示预测参数文件
MSC1 Create Batch 建立批量
MSC2 Change Batch 改变批量
MSC3 Display Batch 显示批量
MSC4 Display Batch Changes 显示批量改变
MSK1 Create Vendor Consignment Goods 创建供应商代销货物
MSK2 Change Vendor Consignment Goods 改变供应商代销货物
MSK3 Display Vendor Consignment Goods 显示供应商代销货物
MSK4 Display Vdr Consignment Change Docs 显示供应商代销变动凭证
MSK5 Vdr Consignment: Activate Fut. Price 供应商代销: 激活未来价格
OMSL C MM-BD Maintain TMCNV C MM-BD 维护TMCNV
OMY0 Display Material Transfer File 显示物料转移文件
PPRL Change Material When Profile Deleted 删除参数文件时改变物料
PPRV Change Material When Profile Changed 修改参数文件时修改物料
W4EM Maintain No. Ranges for Weight EANs 维护加权EAN的号码范围
W4EN Maintain Number Ranges for EANs 维护EAN的号码范围
W4EO SAN Maintenance SAN维护
W4EQ Maintain EAN Prefixes 维护EAN前缀
W4ES Maintain Number Range Categories 维护编号范围类别
OLMS C RM-MAT Master Data Menu C RM-MAT 主数据菜单
OMS1 Units of Measure Grouping 计量单位组
OMS2 C MM-BD Material Types C MM-BD 物料类型
OMS3 Configure Industry Sectors 设置行业部门
OMS4 C MM-BD Material Status C MM-BD 物料类型
OMS5 C MM-BD Set Up Laboratory C MM-BD 设置库
OMS6 C MM-BD Storage Condition(s) C MM-BD 库存条件
OMS7 C MM-BD Temperature Condition(s) C MM-BD 温度条件
OMS8 C MM-BD Container Requirement(s) C MM-BD 集装箱需求
OMS9 Configure Field/Screen Selection 配置字段/屏幕选择
OMSA C MM-BD T130W Plant-Specific C MM-BD T130W工厂-特定
OMSD C MM-BD F. Sel. Spec. T148G C MM-BD 工厂选择指定 T148G
OMSE C MM-BD F. Sel. Reference T148W C MM-BD 工厂选择参考 T148W
OMSF C MM-BD Material Groups C MM-BD 物料组
OMSH C MM-BD Matchcode for Material C MM-BD 匹配码: 物料
OMSM CS MM Set Up Administrative Data CS MM设置管理数据
OMSN C MM-BD User Maintenance C MM-BD 用户维护
OMSO C MM-BD User Profiles C MM-BD 用户参数文件
OMSR C MM-BD Field Groups C MM-BD 字段组
OMSS C MM-BD Field Groups: Special Stocks C MM-BD 字段组: 特殊库存
OMST C MM-BD Record Layout f. BATCH INPUT C MM-BD 有关批量输入的记录格式
OMSU C MM-BD Mat. Master Data Transfer C MM-BD 物料主记录数据的转换
OMSW C MM-BD Record Layout f. BATCH INPUT C MM-BD 有关批量输入的记录格式
OMSY C MM-BD Company Code for Matl Master 物料主记录的C MM-BD公司代码
OMSZ C MM-BD Authorizations 设置MM-BD授权
OMT0 C MM-BD Global Setting C MM-BD 全局设置
OMT5 Auth. Group MatMaster (Inactive) 物料主文档授权组（非活动的）
OMT7 Mat.Master Cust.-Specific Structures 物料主顾客-特定结构
OMT8 Transfer Material Master Data by DI 按DI转移材料主数据
OMY1 Create Input File from Material 创建来自物料的输人文件
MM50 List Extendable Materials 列示可扩展物料
MM51 List Extendable Materials (Old) 列出可扩展的物料（旧的）
MM72 Display Archive of Materials 显示物料归档
MM75 Display Archive of Special Stocks 显示特别库存归档
MM90 Analyze ALE Appl. Log for MatMaster 为物料主文挡分析ALE应用程序日志
MMDE Delete All Materials 删除所有物料
OMT2 Required Fields Control MM-BD ALE/DI 要求字段控制MM-BD ALE/DI
OMT3 Customizing for the Material Master 物料主文档的用户化
OMT4 Customizing for EAN Messages 为EAN消息定制
BD10 Send Material 发送物料
BD11 Fetch Material 打开物料
MAL1 Create material via ALE 通过 ALE 创建物料
MAL2 Change material via ALE 通过 ALE 更改物料
MM91 Delete ALE Appl. Log for Matl Master 为物料管理删除ALE应用程序日志
MGW0 Maintain components for set product 为设置产品维护组件
MGW1 Display components for set product 显示设置产品的部件
MGW2 Maintain components for display art. 维护物品显示组件
MGW3 Display components for display art. 显示物品显示的部件
MGW4 Maintain components for lot article 维护批次物品的组件
MGW5 Display components for lot article 显示批量物品的部件
MGW6 Maintain components for empties art. 维护空物品的组件
MGW7 Display components for empties art. 显示空物品的部件
MM41 Create Material 创建物料
MM42 Change Material 改变物料
MM43 Display Material 显示物料
MM44 Display Change Documents 显示更改文档
RWBE Stock Overview 库存总览
W4E5 Maintain No. Ranges 5-Fig. Wt EANs 维护号码范围5-指标Wt EANs
WRST Transfer Master Data for Matl Maint. 物料维护的传输主数据
OW01 Ref. plant per distribution chain 每个分销链的参考工厂