SAP電材在庫管理アドインのABAP GUIソースコード例

# SAP電材在庫管理アドインのABAP GUIソースコード例 以下は、SAPシステムに電材在庫管理機能を追加するためのABAP GUIプログラムの基本的な例です。このプログラムは在庫照会、入出庫登録、在庫移動などの基本機能を提供します。 ```ABAP *&---------------------------------------------------------------------* *& Report ZELEC_INVENTORY_MGMT *& *&---------------------------------------------------------------------* *& *& 電材在庫管理システム - メイン画面 *& *&---------------------------------------------------------------------* REPORT ZELEC_INVENTORY_MGMT. * データ型定義 TYPES: BEGIN OF TY_MATERIAL, MATNR TYPE MATNR, " 材料番号 MAKTX TYPE MAKTX, " 材料説明 WERKS TYPE WERKS_D, " プラント LGORT TYPE LGORT_D, " 倉庫 LABST TYPE LABST, " 在庫数量 MEINS TYPE MEINS, " 基本単位 END OF TY_MATERIAL. * データ定義 DATA: GT_MATERIAL TYPE TABLE OF TY_MATERIAL, GS_MATERIAL TYPE TY_MATERIAL, GT_DISPLAY TYPE TABLE OF TY_MATERIAL, GS_DISPLAY TYPE TY_MATERIAL. DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM. * 選択画面 SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: S_MATNR FOR GS_MATERIAL-MATNR, S_WERKS FOR GS_MATERIAL-WERKS, S_LGORT FOR GS_MATERIAL-LGORT. SELECTION-SCREEN END OF BLOCK B1. * 画面制御 CONTROLS: TC_INVENTORY TYPE TABLEVIEW USING SCREEN 100. *----------------------------------------------------------------------* * INITIALIZATION *----------------------------------------------------------------------* INITIALIZATION. PERFORM INIT_DEFAULT_VALUES. *----------------------------------------------------------------------* * AT SELECTION-SCREEN *----------------------------------------------------------------------* AT SELECTION-SCREEN. PERFORM VALIDATE_INPUT. *----------------------------------------------------------------------* * START-OF-SELECTION *----------------------------------------------------------------------* START-OF-SELECTION. PERFORM GET_INVENTORY_DATA. CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * 画面100のステータス設定 *----------------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'STATUS_100'. SET TITLEBAR 'TITLE_100'. IF GT_DISPLAY IS INITIAL. MOVE-CORRESPONDING GT_MATERIAL TO GT_DISPLAY. ENDIF. TC_INVENTORY-LINES = LINES( GT_DISPLAY ). ENDMODULE. *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * 画面100のユーザーコマンド処理 *----------------------------------------------------------------------* MODULE USER_COMMAND_0100 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN 'BACK' OR 'CANCEL' OR 'EXIT'. LEAVE TO SCREEN 0. WHEN 'SAVE'. PERFORM SAVE_INVENTORY_CHANGES. WHEN 'ADD'. PERFORM ADD_NEW_MATERIAL. WHEN 'DELETE'. PERFORM DELETE_MATERIAL. WHEN 'POST_GI'. PERFORM POST_GOODS_ISSUE. WHEN 'POST_GR'. PERFORM POST_GOODS_RECEIPT. WHEN 'TRANSFER'. PERFORM TRANSFER_MATERIAL. WHEN 'REFRESH'. PERFORM GET_INVENTORY_DATA. MOVE-CORRESPONDING GT_MATERIAL TO GT_DISPLAY. WHEN OTHERS. ENDCASE. ENDMODULE. *&---------------------------------------------------------------------* *& Form GET_INVENTORY_DATA *&---------------------------------------------------------------------* * 在庫データ取得 *----------------------------------------------------------------------* FORM GET_INVENTORY_DATA. SELECT M~MATNR M~MAKTX M~MEINS M~WERKS M~LGORT M~LABST FROM MARD AS M JOIN MAKT AS T ON M~MATNR = T~MATNR WHERE M~MATNR IN S_MATNR AND M~WERKS IN S_WERKS AND M~LGORT IN S_LGORT AND T~SPRAS = SY-LANGU INTO TABLE GT_MATERIAL. IF SY-SUBRC <> 0. MESSAGE '該当する在庫データが見つかりませんでした' TYPE 'I'. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form SAVE_INVENTORY_CHANGES *&---------------------------------------------------------------------* * 在庫変更保存 *----------------------------------------------------------------------* FORM SAVE_INVENTORY_CHANGES. DATA: LT_BDCDATA TYPE TABLE OF BDCDATA, LS_BDCDATA TYPE BDCDATA, LT_MSG TYPE TABLE OF BDCMSGCOLL, LS_MSG TYPE BDCMSGCOLL. LOOP AT GT_DISPLAY INTO GS_DISPLAY WHERE LABST IS INITIAL. " BDCデータ作成 PERFORM FILL_BDCDATA USING: 'X' 'SAPMM07M' '0100', ' ' 'BDC_OKCODE' '=ENTR', ' ' 'MARD-MATNR' GS_DISPLAY-MATNR, ' ' 'MARD-WERKS' GS_DISPLAY-WERKS, ' ' 'MARD-LGORT' GS_DISPLAY-LGORT. PERFORM FILL_BDCDATA USING: 'X' 'SAPMM07M' '0101', ' ' 'BDC_OKCODE' '=SAVE'. " BDCトランザクション呼び出し CALL TRANSACTION 'MM02' USING LT_BDCDATA MODE 'N' MESSAGES INTO LT_MSG. " エラーチェック LOOP AT LT_MSG INTO LS_MSG WHERE MSGTYP CA 'EA'. MESSAGE ID LS_MSG-MSGID TYPE LS_MSG-MSGTYP NUMBER LS_MSG-MSGNR WITH LS_MSG-MSGV1 LS_MSG-MSGV2 LS_MSG-MSGV3 LS_MSG-MSGV4. ENDLOOP. CLEAR: LT_BDCDATA, LT_MSG. ENDLOOP. MESSAGE '在庫データが正常に更新されました' TYPE 'S'. ENDFORM. *&---------------------------------------------------------------------* *& Form POST_GOODS_ISSUE *&---------------------------------------------------------------------* * 出庫登録処理 *----------------------------------------------------------------------* FORM POST_GOODS_ISSUE. DATA: LV_MATNR TYPE MATNR, LV_MENGE TYPE MENGE_D, LV_MEINS TYPE MEINS. " 出庫対象材料選択 PERFORM SELECT_MATERIAL USING '出庫登録' CHANGING LV_MATNR LV_MENGE LV_MEINS. IF LV_MATNR IS NOT INITIAL AND LV_MENGE > 0. " MB1Aトランザクション呼び出し (出庫登録) SUBMIT RM07MIGO WITH P_OKCODE = '=BU' WITH P_MATNR = LV_MATNR WITH P_MENGE = LV_MENGE WITH P_MEINS = LV_MEINS AND RETURN. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form POST_GOODS_RECEIPT *&---------------------------------------------------------------------* * 入庫登録処理 *----------------------------------------------------------------------* FORM POST_GOODS_RECEIPT. DATA: LV_MATNR TYPE MATNR, LV_MENGE TYPE MENGE_D, LV_MEINS TYPE MEINS. " 入庫対象材料選択 PERFORM SELECT_MATERIAL USING '入庫登録' CHANGING LV_MATNR LV_MENGE LV_MEINS. IF LV_MATNR IS NOT INITIAL AND LV_MENGE > 0. " MB1Cトランザクション呼び出し (入庫登録) SUBMIT RM07MIGO WITH P_OKCODE = '=BU' WITH P_MATNR = LV_MATNR WITH P_MENGE = LV_MENGE WITH P_MEINS = LV_MEINS AND RETURN. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form TRANSFER_MATERIAL *&---------------------------------------------------------------------* * 在庫移動処理 *----------------------------------------------------------------------* FORM TRANSFER_MATERIAL. DATA: LV_MATNR TYPE MATNR, LV_MENGE TYPE MENGE_D, LV_MEINS TYPE MEINS, LV_SRC_WERKS TYPE WERKS_D, LV_SRC_LGORT TYPE LGORT_D, LV_DEST_WERKS TYPE WERKS_D, LV_DEST_LGORT TYPE LGORT_D. " 移動対象材料選択 PERFORM SELECT_MATERIAL USING '在庫移動' CHANGING LV_MATNR LV_MENGE LV_MEINS. IF LV_MATNR IS NOT INITIAL AND LV_MENGE > 0. " 移動元・移動先選択 PERFORM SELECT_PLANT_STORAGE USING '移動元プラント/倉庫を選択' CHANGING LV_SRC_WERKS LV_SRC_LGORT. PERFORM SELECT_PLANT_STORAGE USING '移動先プラント/倉庫を選択' CHANGING LV_DEST_WERKS LV_DEST_LGORT. " MB1Bトランザクション呼び出し (在庫移動) SUBMIT RM07MIGO WITH P_OKCODE = '=BU' WITH P_MATNR = LV_MATNR WITH P_MENGE = LV_MENGE WITH P_MEINS = LV_MEINS WITH P_SRC_WERKS = LV_SRC_WERKS WITH P_SRC_LGORT = LV_SRC_LGORT WITH P_DEST_WERKS = LV_DEST_WERKS WITH P_DEST_LGORT = LV_DEST_LGORT AND RETURN. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form SELECT_MATERIAL *&---------------------------------------------------------------------* * 材料選択ダイアログ *----------------------------------------------------------------------* FORM SELECT_MATERIAL USING PV_TITLE TYPE STRING CHANGING PV_MATNR TYPE MATNR PV_MENGE TYPE MENGE_D PV_MEINS TYPE MEINS. DATA: LT_RETURN TYPE TABLE OF DDSHRETVAL, LS_RETURN TYPE DDSHRETVAL, LT_FIELDS TYPE TABLE OF DFIES, LS_FIELDS TYPE DFIES. " 材料選択ダイアログ表示 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'MATNR' DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = 'GS_DISPLAY-MATNR' WINDOW_TITLE = PV_TITLE VALUE_ORG = 'S' TABLES VALUE_TAB = GT_DISPLAY RETURN_TAB = LT_RETURN FIELD_TAB = LT_FIELDS EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. IF SY-SUBRC = 0 AND LT_RETURN IS NOT INITIAL. READ TABLE LT_RETURN INTO LS_RETURN INDEX 1. IF SY-SUBRC = 0. PV_MATNR = LS_RETURN-FIELDVAL. " 数量入力 CALL FUNCTION 'POPUP_TO_GET_VALUE' EXPORTING TEXTLINE1 = '数量を入力してください' TITEL = '数量入力' START_COLUMN = 10 START_ROW = 5 IMPORTING VALUE = PV_MENGE. " 単位取得 READ TABLE GT_DISPLAY INTO GS_DISPLAY WITH KEY MATNR = PV_MATNR. IF SY-SUBRC = 0. PV_MEINS = GS_DISPLAY-MEINS. ENDIF. ENDIF. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form SELECT_PLANT_STORAGE *&---------------------------------------------------------------------* * プラント/倉庫選択ダイアログ *----------------------------------------------------------------------* FORM SELECT_PLANT_STORAGE USING PV_TITLE TYPE STRING CHANGING PV_WERKS TYPE WERKS_D PV_LGORT TYPE LGORT_D. DATA: LT_WERKS TYPE TABLE OF T001W, LT_LGORT TYPE TABLE OF T001L. " プラント選択 SELECT * FROM T001W INTO TABLE LT_WERKS. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'WERKS' DYNPPROG = SY-REPID DYNPNR = SY-DYNNR WINDOW_TITLE = PV_TITLE VALUE_ORG = 'S' TABLES VALUE_TAB = LT_WERKS EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. IF SY-SUBRC = 0. " 選択されたプラントの倉庫を取得 SELECT * FROM T001L INTO TABLE LT_LGORT WHERE WERKS = PV_WERKS. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'LGORT' DYNPPROG = SY-REPID DYNPNR = SY-DYNNR WINDOW_TITLE = '倉庫を選択してください' VALUE_ORG = 'S' TABLES VALUE_TAB = LT_LGORT EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form INIT_DEFAULT_VALUES *&---------------------------------------------------------------------* * 初期値設定 *----------------------------------------------------------------------* FORM INIT_DEFAULT_VALUES. " 選択画面の初期値設定 S_WERKS-LOW = '1000'. " デフォルトプラント APPEND S_WERKS. S_LGORT-LOW = '0001'. " デフォルト倉庫 APPEND S_LGORT. ENDFORM. *&---------------------------------------------------------------------* *& Form VALIDATE_INPUT *&---------------------------------------------------------------------* * 入力チェック *----------------------------------------------------------------------* FORM VALIDATE_INPUT. IF S_MATNR IS INITIAL AND S_WERKS IS INITIAL AND S_LGORT IS INITIAL. MESSAGE '少なくとも1つの検索条件を指定してください' TYPE 'E'. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form FILL_BDCDATA *&---------------------------------------------------------------------* * BDCデータ作成 *----------------------------------------------------------------------* FORM FILL_BDCDATA USING PV_DYNBEGIN TYPE C PV_PROGRAM TYPE PROGRAM PV_DYNPRO TYPE DYNNR PV_FNAM TYPE ANY PV_FVAL TYPE ANY. DATA: LS_BDCDATA TYPE BDCDATA. IF PV_DYNBEGIN = 'X'. LS_BDCDATA-DYNBEGIN = 'X'. LS_BDCDATA-PROGRAM = PV_PROGRAM. LS_BDCDATA-DYNPRO = PV_DYNPRO. ELSE. LS_BDCDATA-FNAM = PV_FNAM. LS_BDCDATA-FVAL = PV_FVAL. ENDIF. APPEND LS_BDCDATA TO LT_BDCDATA. ENDFORM. ``` ## 画面100の定義 (SCREEN 100) ```text PROCESS BEFORE OUTPUT. MODULE STATUS_0100. PROCESS AFTER INPUT. MODULE USER_COMMAND_0100. ``` ## GUIステータス定義 (STATUS_100) ```text STATUS STATUS_100 TITLE '電材在庫管理システム' BUTTONS: " 標準ボタン BACK ICON_ID '@5B@' TEXT-010, EXIT ICON_ID '@06@' TEXT-011, CANCEL ICON_ID '@1L@' TEXT-012, " 機能ボタン SAVE ICON_ID '@2L@' TEXT-020, ADD ICON_ID '@2S@' TEXT-021, DELETE ICON_ID '@2E@' TEXT-022, REFRESH ICON_ID '@5D@' TEXT-023, " 在庫移動関連 POST_GI ICON_ID '@3K@' TEXT-030, POST_GR ICON_ID '@3L@' TEXT-031, TRANSFER ICON_ID '@3M@' TEXT-032. ``` ## このプログラムの主な機能 1. **在庫照会機能**: - 材料番号、プラント、倉庫を条件に在庫データを検索 - 表形式で在庫状況を表示 2. **入出庫登録機能**: - 入庫登録 (MB1C相当) - 出庫登録 (MB1A相当) 3. **在庫移動機能**: - プラント間/倉庫間の在庫移動 (MB1B相当) 4. **基本CRUD操作**: - 材料マスタの追加・変更・削除 ## 拡張ポイント 1. バーコード/RFID連携機能の追加 2. 在庫閾値管理とアラート機能 3. 棚卸機能との連携 4. 外部システムとのインターフェース 5. モバイルデバイス対応 このプログラムは基本的なフレームワークを提供しますが、実際の業務要件に合わせてカスタマイズが必要です。特に権限管理やバッチ処理、エラーハンドリングなどは実装環境に合わせて強化する必要があります。