SAP ABAP/4學習---BDC批次輸入寫成內表程式
轉來的:SAP ABAP/4學習---BDC批次輸入寫成內表程式,謝謝作者。[@more@]*-----------------------------------------------------------------------
* Program ID :ZTEST904_BDC
* Program Name :ZTEST904_BDC
*-----------------------------------------------------------------------
* DESCRIPTION :這個程式是學習如何透過程式來呼叫
* BDC自動匯入資料
*-----------------------------------------------------------------------
REPORT ZTEST904_BDC.
* 定義個BDC格式的內表
**************************************************
DATA : BEGIN OF I_BDCDATA OCCURS 0,
*BDC的程式名字,比如事物碼MM01的程式名字為SAPLMGMM(sap標準程式)
PROGRAM LIKE BDCDATA-PROGRAM,
*BDC Dynpro 號碼
DYNPRO LIKE BDCDATA-DYNPRO,
*BDC BDC Dynpro 開始
DYNBEGIN LIKE BDCDATA-DYNBEGIN,
*BDC 專案名字
FNAM LIKE BDCDATA-FNAM,
*BDC 專案名字的附加值
FVAL LIKE BDCDATA-FVAL,
END OF I_BDCDATA.
DATA: BEGIN OF ITAB OCCURS 0,
A(9),
END OF ITAB.
ITAB-A = @#A0010@#.
APPEND ITAB.
ITAB-A = @#A0011@#.
APPEND ITAB.
* START-OF-SELECTION
START-OF-SELECTION.
LOOP AT ITAB.
PERFORM APPEND_MM01 USING ITAB-A.
PERFORM RUN_BDC.
ENDLOOP.
*---------------------------------------------------------------------*
* FORM APPEND_DATA_MM01 *
*---------------------------------------------------------------------*
* 定義一個子程式裡面,用來存放操作的各個步驟 *
*---------------------------------------------------------------------*
FORM APPEND_MM01 USING FVAL LIKE ITAB-A.
CLEAR I_BDCDATA.
CLEAR I_BDCDATA[].
*開始新的畫面事件
*0173畫面
*把程式名字和 BDC DYnpro號碼,開始標誌 寫入內表表頭,
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#0060@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#RMMG1-MATNR@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#/00@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MATNR@#.
*新建立的物料憑證號碼
* I_BDCDATA-FVAL = @#A004@#.
I_BDCDATA-FVAL = FVAL.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MBRSH@#.
I_BDCDATA-FVAL = @#C@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MTART@#.
I_BDCDATA-FVAL = @#WERB@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
*開始新的畫面事件
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#0070@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#MSICHTAUSW-DYTXT(01)@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#=ENTR@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MSICHTAUSW-KZSEL(01)@#.
I_BDCDATA-FVAL = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
*開始新的畫面事件
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#4004@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#=BU@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#MAKT-MAKTX@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MAKT-MAKTX@#.
I_BDCDATA-FVAL = @#測試BDC匯入資料@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MARA-MEINS@#.
I_BDCDATA-FVAL = @#000@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MARA-MTPOS_MARA@#.
I_BDCDATA-FVAL = @#NORM@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
ENDFORM.
*---------------------------------------------------------------------*
* FORM RUN_BDC *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM RUN_BDC.
*開始呼叫事務MM01,把做好的bdc物件傳遞過去,然後把模式設定為A,
*就是說所有視窗,均可以看見.
* N 表示不看見吧
CALL TRANSACTION @#MM01@# USING I_BDCDATA MODE @#N@#.
ENDFORM.
* Program ID :ZTEST904_BDC
* Program Name :ZTEST904_BDC
*-----------------------------------------------------------------------
* DESCRIPTION :這個程式是學習如何透過程式來呼叫
* BDC自動匯入資料
*-----------------------------------------------------------------------
REPORT ZTEST904_BDC.
* 定義個BDC格式的內表
**************************************************
DATA : BEGIN OF I_BDCDATA OCCURS 0,
*BDC的程式名字,比如事物碼MM01的程式名字為SAPLMGMM(sap標準程式)
PROGRAM LIKE BDCDATA-PROGRAM,
*BDC Dynpro 號碼
DYNPRO LIKE BDCDATA-DYNPRO,
*BDC BDC Dynpro 開始
DYNBEGIN LIKE BDCDATA-DYNBEGIN,
*BDC 專案名字
FNAM LIKE BDCDATA-FNAM,
*BDC 專案名字的附加值
FVAL LIKE BDCDATA-FVAL,
END OF I_BDCDATA.
DATA: BEGIN OF ITAB OCCURS 0,
A(9),
END OF ITAB.
ITAB-A = @#A0010@#.
APPEND ITAB.
ITAB-A = @#A0011@#.
APPEND ITAB.
* START-OF-SELECTION
START-OF-SELECTION.
LOOP AT ITAB.
PERFORM APPEND_MM01 USING ITAB-A.
PERFORM RUN_BDC.
ENDLOOP.
*---------------------------------------------------------------------*
* FORM APPEND_DATA_MM01 *
*---------------------------------------------------------------------*
* 定義一個子程式裡面,用來存放操作的各個步驟 *
*---------------------------------------------------------------------*
FORM APPEND_MM01 USING FVAL LIKE ITAB-A.
CLEAR I_BDCDATA.
CLEAR I_BDCDATA[].
*開始新的畫面事件
*0173畫面
*把程式名字和 BDC DYnpro號碼,開始標誌 寫入內表表頭,
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#0060@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#RMMG1-MATNR@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#/00@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MATNR@#.
*新建立的物料憑證號碼
* I_BDCDATA-FVAL = @#A004@#.
I_BDCDATA-FVAL = FVAL.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MBRSH@#.
I_BDCDATA-FVAL = @#C@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#RMMG1-MTART@#.
I_BDCDATA-FVAL = @#WERB@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
*開始新的畫面事件
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#0070@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#MSICHTAUSW-DYTXT(01)@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#=ENTR@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MSICHTAUSW-KZSEL(01)@#.
I_BDCDATA-FVAL = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
*開始新的畫面事件
I_BDCDATA-PROGRAM = @#SAPLMGMM@#.
I_BDCDATA-DYNPRO = @#4004@#.
I_BDCDATA-DYNBEGIN = @#X@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_OKCODE@#.
I_BDCDATA-FVAL = @#=BU@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#BDC_CURSOR@#.
I_BDCDATA-FVAL = @#MAKT-MAKTX@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MAKT-MAKTX@#.
I_BDCDATA-FVAL = @#測試BDC匯入資料@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MARA-MEINS@#.
I_BDCDATA-FVAL = @#000@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
I_BDCDATA-FNAM = @#MARA-MTPOS_MARA@#.
I_BDCDATA-FVAL = @#NORM@#.
APPEND I_BDCDATA.
CLEAR I_BDCDATA.
ENDFORM.
*---------------------------------------------------------------------*
* FORM RUN_BDC *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM RUN_BDC.
*開始呼叫事務MM01,把做好的bdc物件傳遞過去,然後把模式設定為A,
*就是說所有視窗,均可以看見.
* N 表示不看見吧
CALL TRANSACTION @#MM01@# USING I_BDCDATA MODE @#N@#.
ENDFORM.
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/8356764/viewspace-941537/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 將 SAP ABAP 內表內容本地匯出成 Excel 檔案試讀版Excel
- (轉)SAP ABAP/4學習--BCALV_TREE_01分析
- SAP MM 模組的入門者,想學習 ABAP 程式語言應該如何入手?
- abap學習筆記-SAP欄位與表的對應關係筆記
- ABAP 內表的一些知識點【學習筆記】筆記
- SAP ABAP 報表螢幕輸入欄位如何實現聯動效果試讀版
- SAP ABAP資料表的操作
- 「SAP技術」SAP MM 批次管理的物料建立DN時無儲存地點就不能輸入批次值?
- 在SAP雲平臺ABAP程式設計環境上編寫第一段ABAP程式程式設計
- BDC程式示例C程式
- ABAP程式示例4
- 用 SAP ABAP 編寫的俄羅斯遊戲遊戲
- ABAP初學者如何系統地學習ABAP程式設計?程式設計
- 如何使用 ABAP 程式消費 SAP ABAP OData 服務
- SAP ABAP 程式之間的呼叫
- 線性表學習(4)
- 寫java程式時輸入資料Java
- Oracle傳輸表空間學習Oracle
- 匯入物料主檔基本資料的BDC程式C程式
- SAP ABAP 特性相關表取數邏輯
- 在 Excel 內使用 ODBC 消費 SAP ABAP CDS viewExcelView
- 為ABAP程式拷貝一個標準SAP報表執行選單
- 如何檢視型別為LRAW的SAP ABAP資料庫表欄位的內容型別資料庫
- SAP ABAP報表依賴設計原理詳解
- 如何使用ABAP程式碼建立SAP Product CategoryGo
- 使用 Prometheus 監控 SAP ABAP 應用程式Prometheus
- 物聯網學習教程——格式輸入與輸出
- C++ 學習筆記之——輸入和輸出C++筆記
- SAP ABAP SM50的另類用途 - ABAP工作程式對資料庫表讀取操作的檢測資料庫
- SAP掃盲系列之二:SAP ABAP應用伺服器的組成部分伺服器
- 報表如何批次匯出成 excel 檔案Excel
- 大批次引數輸入查詢處理
- Python 3 學習筆記之——鍵盤輸入和讀寫檔案Python筆記
- SAP ABAP 動態內表實現 ALV橫向按月份動態顯示資料
- 編寫安全的驅動程式之輸入輸出檢查
- ABAP READ內表新老語法對比
- 深入學習Netty(4)——Netty程式設計入門Netty程式設計
- ASP.NET學習手記:驗證使用者表單輸入 (轉)ASP.NET