SAP-ABAP-OOALV进阶-子屏幕；各种方法示例；
2024-05-08 20:00:53
程序目标：VL02N批次拆分操作起来太不友好了，用户想要一个能自动按照库存批次拆分的程序，同时还想要能手动挑选批次拆分的物料批次。
先上代码，后附代码解析，按照步骤来复制到本地可以直接运行使用
*&---------------------------------------------------------------------*
*& Report ZSD_R0028
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZSD_R0028.TABLES: SSCRFIELDS,STXFTXT,T001." ---TODO
TYPE-POOLS:ICON.DATA: OK_CODE LIKE SY-UCOMM.CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
DATA: EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
DATA: EVENT_RECEIVER8000 TYPE REF TO LCL_EVENT_RECEIVER.DATA: GT_FIELDCAT TYPE LVC_T_FCAT,GS_LAYOUT TYPE LVC_S_LAYO,GS_VARIANT TYPE DISVARIANT,GT_T_F4 TYPE LVC_T_F4,IT_TOOLBAR_EXCLUDING TYPE UI_FUNCTIONS.DATA: STBL TYPE LVC_S_STBL. "鼠标游标位置
DATA: ET_FILTERED TYPE LVC_T_FIDX.
DATA: GV_CODE TYPE SY-TCODE .DATA ALV_GRID TYPE REF TO CL_GUI_ALV_GRID. "后面要用到CL_GUI_ALV_GRID类中的方法
DATA ALV_GRID8000 TYPE REF TO CL_GUI_ALV_GRID. "后面要用到CL_GUI_ALV_GRID类中的方法
"SET_TABLE_FIRST_DISPLAY，这个方法基于实例存在，必须
"为这个类创建一个对象。在此处声明。
DATA GS_PARENT TYPE REF TO CL_GUI_CUSTOM_CONTAINER . "定义容器
DATA GT_SELCELL TYPE LVC_T_CELL . "定義選中單元格方法參數
DATA GT_SELROW TYPE LVC_T_ROW . "定義選中行方法參數*DATA: gr_table TYPE REF TO cl_salv_table.
*DATA: lr_functions TYPE REF TO cl_salv_functions."$. Region 此处定义改为需要用到的定义-TODO
TYPES : BEGIN OF TY_ITEM ,VBELN TYPE LIPS-VBELN , "交貨POSNR TYPE LIPS-POSNR , "項目WERKS TYPE LIPS-WERKS , "工廠LGORT TYPE LIPS-LGORT , "儲存地點CHARG TYPE LIPS-CHARG , "批次LFIMG TYPE LIPS-LFIMG , "交貨數量VRKME TYPE LIPS-VRKME , "銷售單位ARKTX TYPE LIPS-ARKTX , "項目說明UECHA TYPE LIPS-UECHA , "上层项目号MATNR TYPE MATNR,LINE_COLOR TYPE C LENGTH 4 , "颜色CELLCOLOR TYPE LVC_T_SCOL . "颜色
TYPES END OF TY_ITEM .
DATA GT_ITEM TYPE TABLE OF TY_ITEM .
DATA GS_ITEM TYPE TY_ITEM .
DATA GS_ITEM2 TYPE TY_ITEM .
DATA GS_ITEM3 TYPE TY_ITEM .
DATA GT_LIPS TYPE TABLE OF LIPS . "存储数量合计数据
DATA GS_LIPS TYPE LIPS .
DATA GS_LIKP TYPE LIKP .
DATA GV_ACCOMPLISH TYPE C . "
DATA GV_SPLIT TYPE C . "
DATA WA_CELLCOLOR TYPE LVC_S_SCOL. " 单元格颜色结构TYPES : BEGIN OF TY_ITEM_SUM ,WERKS TYPE LIPS-WERKS , "工廠LGORT TYPE LIPS-LGORT , "儲存地點CHARG TYPE LIPS-CHARG , "批次LFIMG TYPE LIPS-LFIMG , "批次已用數量VRKME TYPE LIPS-VRKME , "銷售單位MATNR TYPE MATNR.
TYPES END OF TY_ITEM_SUM .
DATA GT_ITEM_SUM TYPE TABLE OF TY_ITEM_SUM .
DATA GS_ITEM_SUM TYPE TY_ITEM_SUM .TYPES : BEGIN OF TY_8000 ,CHBOX TYPE C ,VBELN TYPE LIPS-VBELN , "交貨POSNR TYPE LIPS-POSNR , "項目WERKS TYPE LIPS-WERKS , "工廠LGORT TYPE LIPS-LGORT , "儲存地點CHARG TYPE LIPS-CHARG , "批次LFIMC TYPE LIPS-LFIMG , "批次數量LFIMA TYPE LIPS-LFIMG , "批次已用數量LFIMG TYPE LIPS-LFIMG , "交貨數量VRKME TYPE LIPS-VRKME , "銷售單位ARKTX TYPE LIPS-ARKTX , "項目說明UECHA TYPE LIPS-UECHA , "上层项目号MATNR TYPE MATNR,LINE_COLOR(4) , "颜色CELLCOLOR TYPE LVC_T_SCOL . "颜色
TYPES END OF TY_8000 .
DATA GT_8000 TYPE TABLE OF TY_8000 .
DATA GS_8000 TYPE TY_8000 .TYPES : BEGIN OF TY_MB52 ,MATNR TYPE MATNR,MAKTX TYPE MAKTX,WERKS TYPE WERKS_D,CHARG TYPE CHARG_D,ERSDA TYPE DATUM,LGORT TYPE LGORT_D,EISBE TYPE EISBE , "安全库存数LABST TYPE LABST , "现有库存数DELTE TYPE C , "删除标记MEINS TYPE MEINS.
TYPES END OF TY_MB52 .
DATA GT_MB52_RAW TYPE TABLE OF TY_MB52 . "原始庫存數據
DATA GT_MB52 TYPE TABLE OF TY_MB52 .
DATA GS_MB52 TYPE TY_MB52 .
FIELD-SYMBOLS <FS_DATA> TYPE TY_MB52 .
"$. Endregion 此处定义改为需要用到的定义-TODODATA: GS_DN_HDATA LIKE BAPIOBDLVHDRCHG,GS_DN_HCTRL LIKE BAPIOBDLVHDRCTRLCHG,GS_DN_CTRL LIKE BAPIDLVCONTROL,GS_DN_ISPL LIKE /SPE/BAPIOBDLVITEMCHG.
DATA: GT_DN_IDATA LIKE TABLE OF BAPIOBDLVITEMCHG,GT_DN_ICTRL LIKE TABLE OF BAPIOBDLVITEMCTRLCHG,GS_DN_IDATA LIKE BAPIOBDLVITEMCHG,GS_DN_ICTRL LIKE BAPIOBDLVITEMCTRLCHG,GT_DN_ISPL LIKE TABLE OF /SPE/BAPIOBDLVITEMCHG.
DATA: GT_RETN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.DATA :VBELN TYPE LIPS-VBELN ,POSNR TYPE LIPS-POSNR ,SEL_NUMB TYPE LIPS-LFIMG ,TOTLE TYPE LIPS-LFIMG .*&---------------------------------------------------------------------*
*& Class LCL_EVENT_RECEIVER
*&---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION.PUBLIC SECTION.METHODS HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID "定义类中的方法---双击IMPORTING E_ROW E_COLUMN ES_ROW_NO.METHODS HANDLE_DOUBLE_CLICK8000 FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID "定义类中的方法---双击IMPORTING E_ROW E_COLUMN ES_ROW_NO. "" "METHODS HANDLE_ONF4 FOR EVENT ONF4 OF CL_GUI_ALV_GRID "定义类中的方法---F4帮助IMPORTING E_FIELDNAME ES_ROW_NO ER_EVENT_DATA . ""METHODS HANDLE_TOOLBAR FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID "定义类中的方法---ALV状态栏按钮IMPORTING E_OBJECT E_INTERACTIVE . ""METHODS HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID "定义类中的方法---按钮触发方法IMPORTING E_UCOMM . ""METHODS HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID "定义类中的方法---数据被修改后方法IMPORTING ER_DATA_CHANGED E_ONF4 E_ONF4_BEFORE E_ONF4_AFTER E_UCOMM. "METHODS HANDLE_DATA_CHANGED8000 FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID "定义类中的方法---数据被修改后方法IMPORTING ER_DATA_CHANGED E_ONF4 E_ONF4_BEFORE E_ONF4_AFTER E_UCOMM.METHODS FINISHED_DATA_CHANGED8000 FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID "定义类中的方法---数据被修改后方法IMPORTING E_MODIFIED ET_GOOD_CELLS.
ENDCLASS. "LCL_EVENT_RECEIVER
"$. Endregion 定义"$. Region 选择屏幕-TODOSELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_VBELN TYPE LIKP-VBELN MEMORY ID VL.
SELECTION-SCREEN END OF BLOCK B1 .
*SELECTION-SCREEN PUSHBUTTON 1(22) BUT1 USER-COMMAND DOWNLOAD .SELECTION-SCREEN: FUNCTION KEY 1 . "激活按钮1
SELECTION-SCREEN: FUNCTION KEY 2 . "激活按钮2
*SELECTION-SCREEN: FUNCTION KEY 3 . "激活按钮3
"$. Endregion 选择屏幕-TODOINITIALIZATION.STBL-ROW = 'X'.STBL-COL = 'X'.* CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
* EXPORTING
* NAME = 'ICON_EXPORT' " 按钮的图片的名字 ICON_EXPORT
* TEXT = '模版下载' "按钮的文本
* INFO = '功能'
* IMPORTING
* RESULT = BUT1
* EXCEPTIONS
* OTHERS = 0.SSCRFIELDS-FUNCTXT_01 = '@B_TXDP@ VL02N查看交貨單' . "设置按钮SSCRFIELDS-FUNCTXT_02 = '@B_TXCR@ VL10H創建交貨單' .SSCRFIELDS-FUNCTXT_03 = '@5Y@ 回車執行' .AT SELECTION-SCREEN."$. Region 权限-TODO* SELECT T001~BUKRS FROM T001 WHERE T001~BUKRS IN @S_BUKRS INTO TABLE @DATA(GT_BUKRS) .
*
* LOOP AT GT_BUKRS INTO DATA(GS_BUKRS).
* AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
* ID 'BUKRS' FIELD GS_BUKRS-BUKRS
* ID 'ACTVT' FIELD '03'.
* IF SY-SUBRC <> 0.
* MESSAGE '您没有公司代码' && GS_BUKRS-BUKRS && '的操作权限！' TYPE 'E' .
*
* ENDIF.
*
* ENDLOOP."$. Endregion 权限-TODOCASE SSCRFIELDS-UCOMM.WHEN 'FC01'.SET PARAMETER ID 'VL' FIELD P_VBELN .CALL TRANSACTION 'VL02N' AND SKIP FIRST SCREEN .WHEN 'FC02'.CALL TRANSACTION 'VL10H' .WHEN OTHERS.ENDCASE.START-OF-SELECTION.PERFORM FRM_CHECK_IF_ACCOMPLISH . "過賬完成的交貨單跳轉至VL02N不可修改換批PERFORM FRM_GET_DATA_MB52 . "获取库存数据PERFORM FRM_GET_DATA_LIPS. "獲取交貨單明細IF GT_ITEM[] IS NOT INITIAL .CALL SCREEN 9000.ENDIF."$. Region FORM
MODULE STATUS_9000 OUTPUT.SET PF-STATUS '9000'.SET TITLEBAR '9000'.DATA(GV_FRIST) = 'X' . "判断是不是第一次运行，自添加按钮需要刷新才能显示PERFORM FRM_DISPLAY_ALV.IF GV_FRIST = 'X'.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID->REFRESH_TABLE_DISPLAY "增加按钮需要刷新才会显示出来，否则无法显示。EXPORTINGIS_STABLE = STBL.GV_FRIST = '0' ."判断是否为第一次，为第一次则刷新ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.GV_CODE = OK_CODE .CASE OK_CODE.WHEN 'BACK'.CLEAR: GT_ITEM.LEAVE TO SCREEN 0.WHEN 'SAVE'.PERFORM FRM_CREAT_SPLIT_DN . "创建交货单批次拆分WHEN 'EXIT'.LEAVE PROGRAM.WHEN 'CANCEL'.CLEAR: GT_ITEM.LEAVE TO SCREEN 0.ENDCASE.
ENDMODULE.
MODULE STATUS_8000 OUTPUT.SET PF-STATUS '8000'.SET TITLEBAR '8000'.GV_FRIST = 'X' . "判断是不是第一次运行，自添加按钮需要刷新才能显示PERFORM FRM_DISPLAY_ALV_8000.IF GV_FRIST = 'X'.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID8000->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID8000->REFRESH_TABLE_DISPLAY "增加按钮需要刷新才会显示出来，否则无法显示。EXPORTINGIS_STABLE = STBL.GV_FRIST = '0' ."判断是否为第一次，为第一次则刷新ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_8000 INPUT.DATA LV_POSNR TYPE LIPS-POSNR VALUE '90001'.DATA LV_SUBRC TYPE SY-SUBRC VALUE '0'.GV_CODE = OK_CODE .CASE OK_CODE.WHEN 'SAVE'.PERFORM FRM_SAVE_CHECK CHANGING LV_SUBRC . "檢查8000子屏幕數據有無問題CHECK LV_SUBRC = 0 .DELETE GT_ITEM WHERE UECHA = POSNR . "刪除原有數據，替換為手動選擇的數據READ TABLE GT_ITEM WITH KEY POSNR = POSNR INTO GS_ITEM .DATA(LV_LIN) = SY-TABIX + 1 .LOOP AT GT_8000 INTO GS_8000 WHERE CHBOX = 'X' AND LFIMG <> 0.GS_ITEM-LGORT = GS_8000-LGORT .GS_ITEM-CHARG = GS_8000-CHARG .GS_ITEM-LFIMG = GS_8000-LFIMG .GS_ITEM-UECHA = POSNR .GS_ITEM-VBELN = VBELN .GS_ITEM-LINE_COLOR = '' .CLEAR : GS_ITEM-CELLCOLOR .INSERT GS_ITEM INTO GT_ITEM INDEX LV_LIN .ENDLOOP.LV_POSNR = '90001'.PERFORM FRM_REFRESH_POSNR . "數據修改完後，重編項次PERFORM FRM_REFRESH_COLOUR . "數據修改完後，重編顏色PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT . "重設layout 防止失效，也可根據數據變化同步修改最佳列寬CALL METHOD ALV_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID->REFRESH_TABLE_DISPLAYEXPORTINGIS_STABLE = STBL.LEAVE TO SCREEN 0.WHEN 'REF'.WHEN 'CANCEL'.CLEAR: GT_8000.LEAVE TO SCREEN 0.ENDCASE.
ENDMODULE.*----------------------------------------------------------------------*
* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.METHOD HANDLE_DOUBLE_CLICK.CASE E_COLUMN.WHEN 'LFIMG'.PERFORM FRM_GET_8000_DATA USING E_ROW .CALL SCREEN 8000 STARTING AT 20 1 ENDING AT 150 26. "調用8000子屏幕WHEN 'VBELN'.WHEN 'MATNR'.WHEN OTHERS.ENDCASE.ENDMETHOD. "HANDLE_DOUBLE_CLICK双击后触发该段代码，可接T-CODE跳转等功能METHOD HANDLE_DOUBLE_CLICK8000.ENDMETHOD. "HANDLE_DOUBLE_CLICK双击后触发该段代码，可接T-CODE跳转等功能METHOD HANDLE_ONF4.ENDMETHOD. "需在ALV中调用触发一般与filedcat中的 f4availabl 参数同用METHOD HANDLE_TOOLBAR. "在ALV状态栏增加按钮，一般是汇总按钮，新增后的按钮可触发HANDLE_USER_COMMAND方法DATA: LS_TOOLBAR TYPE STB_BUTTON.CLEAR LS_TOOLBAR.MOVE 3 TO LS_TOOLBAR-BUTN_TYPE. "分隔符APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.CLEAR LS_TOOLBAR.MOVE 'DEL' TO LS_TOOLBAR-FUNCTION. "功能码MOVE ICON_DELETE_ROW TO LS_TOOLBAR-ICON. "图标MOVE '刪除自選行' TO LS_TOOLBAR-QUICKINFO.MOVE '刪除自選行' TO LS_TOOLBAR-TEXT. "显示名称MOVE ' ' TO LS_TOOLBAR-DISABLED.APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.CLEAR LS_TOOLBAR.MOVE 'CLEAR' TO LS_TOOLBAR-FUNCTION. "功能码MOVE ICON_DELETE TO LS_TOOLBAR-ICON. "图标MOVE '清空批次拆分' TO LS_TOOLBAR-QUICKINFO.MOVE '清空批次拆分' TO LS_TOOLBAR-TEXT. "显示名称MOVE ' ' TO LS_TOOLBAR-DISABLED.APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.CLEAR LS_TOOLBAR.MOVE 'ADD' TO LS_TOOLBAR-FUNCTION. "功能码MOVE ICON_INSERT_ROW TO LS_TOOLBAR-ICON. "图标MOVE '重新自選' TO LS_TOOLBAR-QUICKINFO.MOVE '重新自選' TO LS_TOOLBAR-TEXT. "显示名称MOVE ' ' TO LS_TOOLBAR-DISABLED.APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.ENDMETHOD. "在ALV状态栏增加按钮，一般是汇总按钮METHOD HANDLE_USER_COMMAND.CASE E_UCOMM.WHEN 'ADD'.CLEAR : GT_ITEM,GS_ITEM,GT_MB52,GS_MB52 .GT_MB52 = GT_MB52_RAW .DELETE GT_MB52 WHERE DELTE = 'X' .SORT GT_MB52 BY WERKS MATNR CHARG ERSDA .PERFORM FRM_GET_DATA_LIPS .WHEN 'DEL'.CALL METHOD ALV_GRID->GET_SELECTED_ROWSIMPORTINGET_INDEX_ROWS = GT_SELROW.LOOP AT GT_SELROW INTO DATA(GS_SELROW).CLEAR : GS_ITEM .GS_ITEM = GT_ITEM[ GS_SELROW-INDEX ] .IF GS_ITEM-POSNR > 90000.READ TABLE GT_ITEM WITH KEY POSNR = GS_ITEM-UECHA ASSIGNING FIELD-SYMBOL(<FS_ITEM>) .<FS_ITEM>-LFIMG = <FS_ITEM>-LFIMG + GS_ITEM-LFIMG .DELETE GT_ITEM[] INDEX GS_SELROW-INDEX .ENDIF.ENDLOOP .WHEN 'CLEAR' .CLEAR:GT_ITEM ,GS_ITEM ,GS_LIPS.LOOP AT GT_LIPS INTO GS_LIPS WHERE POSNR < 90000.MOVE-CORRESPONDING GS_LIPS TO GS_ITEM .GS_ITEM-LFIMG = GS_LIPS-ORMNG .GS_ITEM-LINE_COLOR = 'C100' .APPEND GS_ITEM TO GT_ITEM .ENDLOOP.WHEN OTHERS.ENDCASE.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID->REFRESH_TABLE_DISPLAYEXPORTINGIS_STABLE = STBL.ENDMETHOD. "一般与HANDLE_TOOLBAR同用METHOD HANDLE_DATA_CHANGED.ENDMETHOD. "数据修改后触发，一般用在数据联动修改如数量字段修改，同时联动修改金额字段METHOD FINISHED_DATA_CHANGED8000.DATA LV_SELECTED TYPE LIPS-LFIMG .DATA LT_DYNPREAD TYPE TABLE OF DYNPREAD.DATA LS_DYNPREAD TYPE DYNPREAD.CALL METHOD ALV_GRID8000->GET_SELECTED_CELLSIMPORTINGET_CELL = GT_SELCELL .LOOP AT GT_SELCELL INTO DATA(LS_SELCELL).CLEAR :GS_8000 .READ TABLE GT_8000 ASSIGNING FIELD-SYMBOL(<FS_8000>) INDEX LS_SELCELL-ROW_ID .CASE LS_SELCELL-COL_ID .WHEN 'CHBOX'.IF <FS_8000>-CHBOX = 'X'.CLEAR : GS_8000 .LOOP AT GT_8000 INTO GS_8000 WHERE CHBOX = 'X' .LV_SELECTED = GS_8000-LFIMG + LV_SELECTED .ENDLOOP.IF <FS_8000>-LFIMG = 0.IF TOTLE - LV_SELECTED >= <FS_8000>-LFIMA.<FS_8000>-LFIMG = <FS_8000>-LFIMA .ELSE .<FS_8000>-LFIMG = TOTLE - LV_SELECTED .ENDIF.ENDIF.ELSE .<FS_8000>-LFIMG = 0 .ENDIF.WHEN 'LFIMG'.WHEN OTHERS.ENDCASE.ENDLOOP.CLEAR:SEL_NUMB, GS_8000 .LOOP AT GT_8000 INTO GS_8000 WHERE CHBOX = 'X'.SEL_NUMB = SEL_NUMB + <FS_8000>-LFIMG .ENDLOOP.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID8000->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID8000->REFRESH_TABLE_DISPLAYEXPORTINGIS_STABLE = STBL."*- 更新8000屏幕上的一個字段
* LS_DYNPREAD-FIELDNAME = 'SEL_NUMB' .
* LS_DYNPREAD-FIELDVALUE = SEL_NUMB .
* APPEND LS_DYNPREAD TO LT_DYNPREAD .
* CALL FUNCTION 'DYNP_UPDATE_FIELDS'
* EXPORTING
* DYNAME = SY-REPID
* DYNUMB = SY-DYNNR
* TABLES
* DYNPFIELDS = LT_DYNPREAD
* .ENDMETHOD. "METHOD HANDLE_DATA_CHANGED8000.ENDMETHOD. "数据修改后触发，一般用在数据联动修改如数量字段修改，同时联动修改金额字段ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV .CLEAR: GT_FIELDCAT,GS_LAYOUT,IT_TOOLBAR_EXCLUDING.GS_VARIANT-REPORT = SY-REPID.GS_VARIANT-HANDLE = '0001'.IF ALV_GRID IS INITIAL .
******实例化 容器CREATE OBJECT GS_PARENTEXPORTINGCONTAINER_NAME = 'ALV'. " 界面中的一个CUNSTOMER CONTROL控件 用于存放类对象。"使用这个控件把名称赋值给CONTAINER_NAME******将alv植入到容器中CREATE OBJECT ALV_GRIDEXPORTINGI_PARENT = GS_PARENT.PERFORM PREPARE_FIELD_CATALOG CHANGING GT_FIELDCAT.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.PERFORM TOOLBAR_EXCLUDING_ITEM CHANGING IT_TOOLBAR_EXCLUDING. "ALV按钮排除EXPORTING参数CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAYEXPORTINGIS_LAYOUT = GS_LAYOUTI_SAVE = 'A'I_DEFAULT = 'X'IS_VARIANT = GS_VARIANTIT_TOOLBAR_EXCLUDING = IT_TOOLBAR_EXCLUDINGCHANGINGIT_OUTTAB = GT_ITEMIT_FIELDCATALOG = GT_FIELDCAT.CREATE OBJECT EVENT_RECEIVER. "创建事件SET HANDLER EVENT_RECEIVER->HANDLE_DOUBLE_CLICK FOR ALV_GRID. "双击事件SET HANDLER EVENT_RECEIVER->HANDLE_ONF4 FOR ALV_GRID. "F4帮助事件SET HANDLER EVENT_RECEIVER->HANDLE_TOOLBAR FOR ALV_GRID. "ALV状态栏SET HANDLER EVENT_RECEIVER->HANDLE_USER_COMMAND FOR ALV_GRID. "按钮事件SET HANDLER EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR ALV_GRID. "修改事件
* gt_t_f4 = VALUE #( BASE gt_t_f4 ( fieldname = 'ZBB' register = 'X' getbefore = 'X' chngeafter = 'X' ) ) .
* CALL METHOD alv_grid->register_f4_for_fields
* EXPORTING
* it_f4 = gt_t_f4.CALL METHOD ALV_GRID->REGISTER_EDIT_EVENT "注册编辑事件，否则不会触发更新事件EXPORTINGI_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD CL_GUI_CONTROL=>SET_FOCUSEXPORTINGCONTROL = ALV_GRID.CALL METHOD CL_GUI_CFW=>FLUSH.ELSE.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.CALL METHOD ALV_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = GS_LAYOUT.CALL METHOD ALV_GRID->REFRESH_TABLE_DISPLAYEXPORTINGIS_STABLE = STBL.ENDIF.
ENDFORM.*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV_8000 .CLEAR: GT_FIELDCAT,GS_LAYOUT,IT_TOOLBAR_EXCLUDING.GS_VARIANT-REPORT = SY-REPID.GS_VARIANT-HANDLE = '0001'.IF ALV_GRID8000 IS INITIAL .
******实例化 容器CREATE OBJECT GS_PARENTEXPORTINGCONTAINER_NAME = 'SPLIT'. " 界面中的一个CUNSTOMER CONTROL控件 用于存放类对象。"使用这个控件把名称赋值给CONTAINER_NAME******将alv植入到容器中CREATE OBJECT ALV_GRID8000EXPORTINGI_PARENT = GS_PARENT.PERFORM PREPARE_FIELD_CATALOG8000 CHANGING GT_FIELDCAT.PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.PERFORM TOOLBAR_EXCLUDING_ITEM CHANGING IT_TOOLBAR_EXCLUDING. "ALV按钮排除EXPORTING参数CALL METHOD ALV_GRID8000->SET_TABLE_FOR_FIRST_DISPLAYEXPORTINGIS_LAYOUT = GS_LAYOUTI_SAVE = 'A'I_DEFAULT = 'X'IS_VARIANT = GS_VARIANTIT_TOOLBAR_EXCLUDING = IT_TOOLBAR_EXCLUDINGCHANGINGIT_OUTTAB = GT_8000IT_FIELDCATALOG = GT_FIELDCAT.CREATE OBJECT EVENT_RECEIVER8000. "创建事件SET HANDLER EVENT_RECEIVER8000->HANDLE_DOUBLE_CLICK8000 FOR ALV_GRID8000. "双击事件SET HANDLER EVENT_RECEIVER8000->HANDLE_ONF4 FOR ALV_GRID8000. "F4帮助事件
* SET HANDLER EVENT_RECEIVER8000->HANDLE_TOOLBAR FOR ALV_GRID8000. "ALV状态栏SET HANDLER EVENT_RECEIVER8000->HANDLE_USER_COMMAND FOR ALV_GRID8000. "按钮事件SET HANDLER EVENT_RECEIVER8000->HANDLE_DATA_CHANGED8000 FOR ALV_GRID8000. "修改事件SET HANDLER EVENT_RECEIVER8000->FINISHED_DATA_CHANGED8000 FOR ALV_GRID8000. "数据修改结束后
* gt_t_f4 = VALUE #( BASE gt_t_f4 ( fieldname = 'ZBB' register = 'X' getbefore = 'X' chngeafter = 'X' ) ) .
* CALL METHOD alv_grid->register_f4_for_fields
* EXPORTING
* it_f4 = gt_t_f4.CALL METHOD ALV_GRID8000->REGISTER_EDIT_EVENT "注册编辑事件，否则不会触发更新事件EXPORTINGI_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.CALL METHOD CL_GUI_CONTROL=>SET_FOCUSEXPORTINGCONTROL = ALV_GRID8000.CALL METHOD CL_GUI_CFW=>FLUSH.ELSE.CALL METHOD ALV_GRID8000->REFRESH_TABLE_DISPLAYEXPORTINGIS_STABLE = STBL.ENDIF.
ENDFORM.*&---------------------------------------------------------------------*
*& Form PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT text
*----------------------------------------------------------------------*
FORM PREPARE_FIELD_CATALOG CHANGING P_GT_FIELDCAT TYPE LVC_T_FCAT.DATA LS_FCAT TYPE LVC_S_FCAT.DEFINE SET_FCAT.CLEAR ls_fcat.ls_fcat-fieldname = &1. "字段ls_fcat-coltext = &2. "描述ls_fcat-EMPHASIZE = &3. "主键ls_fcat-edit = &4. "可编辑ls_fcat-ref_table = &5. "参考表ls_fcat-ref_field = &6. "参考字段ls_fcat-ICON = &7. "以圖標輸出ls_fcat-NO_ZERO = &8. "前导0ls_fcat-OUTPUTLEN = &9. "列的字符宽度
* ls_fcat-f4availabl = &8.APPEND ls_fcat TO p_gt_fieldcat.END-OF-DEFINITION.SET_FCAT 'WERKS ' '工廠 ' '' '' 'LIPS' 'WERKS' '' '' ''.SET_FCAT 'VBELN ' '交貨 ' '' '' 'LIPS' 'VBELN' '' '' ''.SET_FCAT 'POSNR ' '項目 ' '' '' 'LIPS' 'POSNR' '' '' ''.SET_FCAT 'MATNR ' '料號 ' '' '' 'LIPS' 'MATNR' '' '' ''.SET_FCAT 'LGORT ' '儲存地點 ' '' '' 'LIPS' 'LGORT' '' '' ''.SET_FCAT 'CHARG ' '批次 ' '' '' 'LIPS' 'CHARG' '' '' ''.SET_FCAT 'LFIMG ' '交貨數量 ' '' '' 'LIPS' 'LFIMG' '' '' ''.SET_FCAT 'VRKME ' '銷售單位 ' '' '' 'LIPS' 'VRKME' '' '' ''.SET_FCAT 'ARKTX ' '項目說明 ' '' 'X' 'LIPS' 'ARKTX' '' '' ''.ENDFORM.*&---------------------------------------------------------------------*
*& Form PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT text
*----------------------------------------------------------------------*
FORM PREPARE_FIELD_CATALOG8000 CHANGING P_GT_FIELDCAT TYPE LVC_T_FCAT.DATA LS_FCAT TYPE LVC_S_FCAT.DEFINE SET_FCAT.CLEAR ls_fcat.ls_fcat-fieldname = &1. "字段ls_fcat-coltext = &2. "描述ls_fcat-EMPHASIZE = &3. "颜色ls_fcat-edit = &4. "可编辑ls_fcat-ref_table = &5. "参考表ls_fcat-ref_field = &6. "参考字段ls_fcat-CHECKBOX = &7. "勾选框ls_fcat-NO_ZERO = &8. "前导0ls_fcat-outputlen = &9. "列的字符宽度
* ls_fcat-f4availabl = &8.APPEND ls_fcat TO p_gt_fieldcat.END-OF-DEFINITION.SET_FCAT 'CHBOX ' '選擇 ' '' 'X' '' '' 'X' '' ''.SET_FCAT 'WERKS ' '工廠 ' '' '' 'LIPS' 'WERKS' '' '' ''.SET_FCAT 'MATNR ' '料號 ' '' '' 'LIPS' 'MATNR' '' '' ''.SET_FCAT 'LGORT ' '儲存地點 ' '' '' 'LIPS' 'LGORT' '' '' ''.SET_FCAT 'CHARG ' '批次 ' '' '' 'LIPS' 'CHARG' '' '' ''.SET_FCAT 'LFIMC ' '批次數量 ' '' '' 'LIPS' 'LFIMG' '' '' ''.SET_FCAT 'LFIMA ' '批次可用數量' '' '' 'LIPS' 'LFIMG' '' '' ''.SET_FCAT 'LFIMG ' '交貨數量 ' 'C400' 'X' 'LIPS' 'LFIMG' '' '' ''.
* SET_FCAT 'VRKME ' '銷售單位 ' '' '' 'LIPS' 'VRKME' '' '' ''.ENDFORM.
*&---------------------------------------------------------------------*
*& Form PREPARE_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PREPARE_LAYOUT CHANGING P_GS_LAYOUT TYPE LVC_S_LAYO.
* P_GS_LAYOUT-ZEBRA = 'X'. "斑馬紋顯示P_GS_LAYOUT-SEL_MODE = 'A'. "選擇模式P_GS_LAYOUT-CWIDTH_OPT = 'X'. "最佳列寬P_GS_LAYOUT-INFO_FNAME = 'LINE_COLOR'. " 行颜色字段P_GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'. " 单元格颜色字段
ENDFORM.FORM TOOLBAR_EXCLUDING_ITEM CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.DATA LS_EXCLUDE TYPE UI_FUNC.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.APPEND LS_EXCLUDE TO PT_EXCLUDE.LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM.*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_GET_DATA_MB52 .CHECK GV_ACCOMPLISH <> 'C' .RANGES :S_WERKS FOR LIPS-WERKS .RANGES :S_MATNR FOR LIPS-MATNR .RANGES :S_LGORT FOR LIPS-LGORT .S_WERKS = 'IEQ' .S_WERKS-LOW = GS_LIKP-VSTEL .APPEND S_WERKS .S_MATNR = 'IEQ' .CLEAR :GS_LIPS .LOOP AT GT_LIPS INTO GS_LIPS WHERE POSNR < 900000 .S_MATNR-LOW = GS_LIPS-MATNR .APPEND S_MATNR .ENDLOOP."可发料仓限定SELECT * FROM ZTCOM_RBAC WHERE PROGNAME = @SY-CPROG AND UNAME = 'ZD' AND WERKS = @GS_LIKP-VSTEL INTO TABLE @DATA(LT_KFLC) .S_LGORT = 'IEQ' .LOOP AT LT_KFLC INTO DATA(LS_LFLC).S_LGORT-LOW = LS_LFLC-LGORT .APPEND S_LGORT .ENDLOOP.FIELD-SYMBOLS : <LT_ALV_DATA> TYPE ANY TABLE .CL_SALV_BS_RUNTIME_INFO=>SET(DISPLAY = ABAP_FALSEMETADATA = ABAP_FALSEDATA = ABAP_TRUE ).SUBMIT RM07MLBS "MB52库存清单WITH WERKS IN S_WERKS "WITH MATNR IN S_MATNR "
* WITH LGORT IN S_LGORT "WITH NEGATIV = ''WITH PA_SOND = ''WITH XMCHB = 'X'WITH NOZERO = 'X'WITH NOVALUES = ''WITH PA_HSQ = ''WITH PA_FLT = 'X'WITH P_VARI = ''EXPORTING LIST TO MEMORYAND RETURN.IF SY-SUBRC = 0.TRY.
* cl_salv_bs_runtime_info=>GET_DATA( IMPORTING T_DATA = GT_TABLE ). "submit写法分两种取值方法，FB03那种以SAP数据字典中存在的结构展示的用这种CL_SALV_BS_RUNTIME_INFO=>GET_DATA_REF( IMPORTING R_DATA = DATA(GT_DATA) ). "MB52这种查看不到标准输出的结构的用这种ASSIGN GT_DATA->* TO <LT_ALV_DATA> .IF <LT_ALV_DATA> IS ASSIGNED.LOOP AT <LT_ALV_DATA> ASSIGNING FIELD-SYMBOL(<FS_DA>).CLEAR : GS_MB52 .MOVE-CORRESPONDING <FS_DA> TO GS_MB52.APPEND GS_MB52 TO GT_MB52 .ENDLOOP.ENDIF.CATCH CX_SALV_BS_SC_RUNTIME_INFO.MESSAGE '查询结果为空!' TYPE 'E'.ENDTRY.CL_SALV_BS_RUNTIME_INFO=>CLEAR_ALL( ).ENDIF.SELECT MATNR ,WERKS,CHARG,ERSDA FROM MCHAFOR ALL ENTRIES IN @GT_MB52WHERE MATNR = @GT_MB52-MATNRAND WERKS = @GT_MB52-WERKSAND CHARG = @GT_MB52-CHARGINTO TABLE @DATA(LT_MCHA) .SORT LT_MCHA BY WERKS MATNR CHARG .CLEAR :GS_MB52 .LOOP AT GT_MB52 ASSIGNING FIELD-SYMBOL(<FS_MB52>).CASE GS_LIKP-TRSPG. "保税性质与交货单不同的打上删除标记WHEN '01'.IF <FS_MB52>-LGORT(1) <> 'B'.<FS_MB52>-DELTE = 'X' .ENDIF.WHEN '02'.IF <FS_MB52>-LGORT(1) = 'B'.<FS_MB52>-DELTE = 'X' .CONTINUE .ENDIF.WHEN OTHERS.ENDCASE.IF <FS_MB52>-LGORT NOT IN S_LGORT. "非自動挑選倉位的庫存不可自動挑選<FS_MB52>-DELTE = 'X' .ENDIF.READ TABLE LT_MCHA WITH KEY MATNR = <FS_MB52>-MATNRWERKS = <FS_MB52>-WERKSCHARG = <FS_MB52>-CHARGINTO DATA(LS_MCHA) BINARY SEARCH.IF SY-SUBRC = 0.<FS_MB52>-ERSDA = LS_MCHA-ERSDA .ENDIF.ENDLOOP.GT_MB52_RAW = GT_MB52 .DELETE GT_MB52 WHERE DELTE = 'X' .SORT GT_MB52 BY WERKS MATNR CHARG ERSDA .ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA_LIPS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_GET_DATA_LIPS .CHECK GV_ACCOMPLISH <> 'C' .DATA LV_MAX TYPE LIPS-LFIMG.DATA LV_POSNR TYPE LIPS-POSNR VALUE '900001'.IF GV_SPLIT = 'X'. "是否已经做过了批次分割CLEAR :GS_ITEM .LOOP AT GT_LIPS INTO GS_LIPS WHERE POSNR < 900000 .MOVE-CORRESPONDING GS_LIPS TO GS_ITEM .GS_ITEM-LINE_COLOR = 'C100' .APPEND GS_ITEM TO GT_ITEM .CLEAR :GS_ITEM .LOOP AT GT_LIPS INTO DATA(LS_LIPS) WHERE UECHA = GS_LIPS-POSNR.MOVE-CORRESPONDING LS_LIPS TO GS_ITEM .APPEND GS_ITEM TO GT_ITEM .CLEAR :GS_ITEM .ENDLOOP.ENDLOOP.ELSE.CLEAR :GS_ITEM2 ,GS_LIPS .LOOP AT GT_LIPS INTO GS_LIPS WHERE POSNR < 900000 .MOVE-CORRESPONDING GS_LIPS TO GS_ITEM2 .GS_ITEM2-LINE_COLOR = 'C100' .LV_MAX = GS_ITEM2-LFIMG .APPEND GS_ITEM2 TO GT_ITEM ASSIGNING FIELD-SYMBOL(<FS_ITEM>).CLEAR :GS_MB52 .LOOP AT GT_MB52 ASSIGNING FIELD-SYMBOL(<FS_MB52>) WHERE MATNR = GS_LIPS-MATNR AND LABST <> 0.IF <FS_MB52>-LABST >= LV_MAX.MOVE-CORRESPONDING GS_LIPS TO GS_ITEM .GS_ITEM-POSNR = LV_POSNR .GS_ITEM-LGORT = <FS_MB52>-LGORT .GS_ITEM-CHARG = <FS_MB52>-CHARG .GS_ITEM-LFIMG = LV_MAX .GS_ITEM-UECHA = <FS_ITEM>-POSNR .APPEND GS_ITEM TO GT_ITEM .<FS_MB52>-LABST = <FS_MB52>-LABST - LV_MAX .LV_MAX = LV_MAX - LV_MAX .LV_POSNR = LV_POSNR + 1 .EXIT .ELSE .MOVE-CORRESPONDING GS_LIPS TO GS_ITEM .GS_ITEM-POSNR = LV_POSNR .GS_ITEM-LGORT = <FS_MB52>-LGORT .GS_ITEM-CHARG = <FS_MB52>-CHARG .GS_ITEM-LFIMG = <FS_MB52>-LABST .GS_ITEM-UECHA = <FS_ITEM>-POSNR .APPEND GS_ITEM TO GT_ITEM .LV_MAX = LV_MAX - <FS_MB52>-LABST .<FS_MB52>-LABST = <FS_MB52>-LABST - <FS_MB52>-LABST .LV_POSNR = LV_POSNR + 1 .ENDIF.ENDLOOP.<FS_ITEM>-LFIMG = LV_MAX .ENDLOOP.ENDIF.LOOP AT GT_ITEM ASSIGNING <FS_ITEM> WHERE POSNR < 900000.IF <FS_ITEM>-LFIMG <> 0.WA_CELLCOLOR-FNAME = 'LFIMG'.WA_CELLCOLOR-COLOR-COL = '3'.WA_CELLCOLOR-COLOR-INT = '1'.WA_CELLCOLOR-COLOR-INV = '0'.APPEND WA_CELLCOLOR TO <FS_ITEM>-CELLCOLOR .ENDIF .ENDLOOP.
* CLEAR :GV_SPLIT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_IF_ACCOMPLISH
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_CHECK_IF_ACCOMPLISH .SELECT * FROM LIPS WHERE VBELN = @P_VBELN INTO TABLE @GT_LIPS .SORT GT_LIPS BY VBELN POSNR .SELECT SINGLE * FROM LIKP WHERE VBELN = @P_VBELN INTO @GS_LIKP .GV_ACCOMPLISH = GS_LIKP-WBSTK .LOOP AT GT_LIPS INTO GS_LIPS WHERE POSNR > 900000 .GV_SPLIT = 'X' .EXIT .ENDLOOP.IF GV_ACCOMPLISH = 'C'.MESSAGE '交货已完成'(T01) TYPE 'S' .SET PARAMETER ID 'VL' FIELD P_VBELN .CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN .ENDIF .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CREAT_DN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_CREAT_SPLIT_DN .CHECK GV_ACCOMPLISH <> 'C' .PERFORM FRM_DN_DATA .PERFORM FRM_DN_BAPI .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DN_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_DN_DATA .GS_DN_HDATA-DELIV_NUMB = GS_LIKP-VBELN.GS_DN_HCTRL-DELIV_NUMB = GS_LIKP-VBELN.GS_DN_CTRL-UPD_IND = 'U'.LOOP AT GT_LIPS INTO GS_LIPS.READ TABLE GT_ITEM WITH KEY POSNR = GS_LIPS-POSNR INTO DATA(LS_TEMP) .IF SY-SUBRC = 0.GS_LIPS-LFIMG = LS_TEMP-LFIMG .ENDIF.CLEAR :LS_TEMP , GS_DN_IDATA.GS_DN_IDATA-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_IDATA-DELIV_ITEM = GS_LIPS-POSNR.GS_DN_IDATA-MATERIAL = GS_LIPS-MATNR.GS_DN_IDATA-MATERIAL_EXTERNAL = GS_LIPS-MATNR.GS_DN_IDATA-MATERIAL_LONG = GS_LIPS-MATNR.GS_DN_IDATA-FACT_UNIT_DENOM = GS_LIPS-UMVKN.GS_DN_IDATA-FACT_UNIT_NOM = GS_LIPS-UMVKZ.GS_DN_IDATA-DLV_QTY = GS_LIPS-LFIMG.GS_DN_IDATA-DLV_QTY_IMUNIT = GS_LIPS-LFIMG.APPEND GS_DN_IDATA TO GT_DN_IDATA.CLEAR GS_DN_ICTRL.GS_DN_ICTRL-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_ICTRL-DELIV_ITEM = GS_LIPS-POSNR.GS_DN_ICTRL-CHG_DELQTY = ABAP_TRUE.APPEND GS_DN_ICTRL TO GT_DN_ICTRL.LOOP AT GT_ITEM INTO GS_ITEM WHERE POSNR > 900000 AND UECHA = GS_LIPS-POSNR.CLEAR GS_DN_IDATA.GS_DN_IDATA-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_IDATA-DELIV_ITEM = GS_ITEM-POSNR.GS_DN_IDATA-HIERARITEM = GS_LIPS-POSNR.GS_DN_IDATA-USEHIERITM = '1'.GS_DN_IDATA-MATERIAL = GS_LIPS-MATNR.GS_DN_IDATA-MATERIAL_EXTERNAL = GS_LIPS-MATNR.GS_DN_IDATA-MATERIAL_LONG = GS_LIPS-MATNR.GS_DN_IDATA-BATCH = GS_ITEM-CHARG.GS_DN_IDATA-DLV_QTY = GS_ITEM-LFIMG.GS_DN_IDATA-DLV_QTY_IMUNIT = GS_ITEM-LFIMG.GS_DN_IDATA-FACT_UNIT_DENOM = GS_LIPS-UMVKN.GS_DN_IDATA-FACT_UNIT_NOM = GS_LIPS-UMVKZ.APPEND GS_DN_IDATA TO GT_DN_IDATA.CLEAR GS_DN_ICTRL.GS_DN_ICTRL-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_ICTRL-DELIV_ITEM = GS_ITEM-POSNR.GS_DN_ICTRL-CHG_DELQTY = ABAP_TRUE.APPEND GS_DN_ICTRL TO GT_DN_ICTRL.CLEAR GS_DN_ISPL.GS_DN_ISPL-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_ISPL-DELIV_ITEM = GS_ITEM-POSNR.GS_DN_ISPL-STGE_LOC = GS_ITEM-LGORT.GS_DN_ISPL-PICK_DENIAL = 'X'.APPEND GS_DN_ISPL TO GT_DN_ISPL.ENDLOOP.CLEAR GS_DN_ISPL.GS_DN_ISPL-DELIV_NUMB = GS_LIPS-VBELN.GS_DN_ISPL-DELIV_ITEM = GS_LIPS-POSNR.GS_DN_ISPL-STGE_LOC = GS_ITEM-LGORT.APPEND GS_DN_ISPL TO GT_DN_ISPL.ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DN_BAPI
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_DN_BAPI .DATA: L_MESSAGE TYPE STRING.CHECK LINES( GT_DN_IDATA ) NE 0.CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'EXPORTINGHEADER_DATA = GS_DN_HDATAHEADER_CONTROL = GS_DN_HCTRLDELIVERY = GS_LIKP-VBELNTECHN_CONTROL = GS_DN_CTRLTABLESITEM_DATA = GT_DN_IDATAITEM_CONTROL = GT_DN_ICTRLITEM_DATA_SPL = GT_DN_ISPLRETURN = GT_RETN.LOOP AT GT_RETN WHERE TYPE = 'E' OR TYPE = 'A'.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGMSGID = GT_RETN-IDMSGNR = GT_RETN-NUMBERMSGV1 = GT_RETN-MESSAGE_V1MSGV2 = GT_RETN-MESSAGE_V2MSGV3 = GT_RETN-MESSAGE_V3MSGV4 = GT_RETN-MESSAGE_V4IMPORTINGMESSAGE_TEXT_OUTPUT = L_MESSAGE.ENDLOOP.IF SY-SUBRC NE 0.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.SET PARAMETER ID 'VL' FIELD P_VBELN .CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN .ELSE .MESSAGE L_MESSAGE TYPE 'I' .ENDIF.CLEAR : L_MESSAGE,GT_RETN,GT_RETN[],GT_DN_ISPL,GT_DN_ISPL[],GT_DN_ICTRL,GT_DN_ICTRL[],GT_DN_IDATA,GT_DN_IDATA[],GS_DN_CTRL,GS_DN_HCTRL,GS_DN_HDATA .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_8000_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_GET_8000_DATA USING E_ROW TYPE LVC_S_ROW .DATA LV_POSNR TYPE LIPS-POSNR .DATA LV_MATNR TYPE LIPS-MATNR .CLEAR : GS_ITEM , GS_ITEM2 ,GT_8000,GS_8000,TOTLE .READ TABLE GT_ITEM INTO GS_ITEM2 INDEX E_ROW-INDEX .IF SY-SUBRC = 0.IF GS_ITEM2-UECHA IS INITIAL. "確認選中的是哪行GS_ITEM2-POSNR = LV_POSNR = GS_ITEM2-POSNR .ELSE .GS_ITEM2-POSNR = LV_POSNR = GS_ITEM2-UECHA .ENDIF.LV_MATNR = GS_ITEM2-MATNR . "確認選中的是哪個料號CLEAR : GS_LIPS .READ TABLE GT_LIPS INTO GS_LIPS WITH KEY POSNR = LV_POSNR .TOTLE = GS_LIPS-ORMNG ."合計除了此選中行其他的用量CLEAR :GT_ITEM_SUM,GS_ITEM_SUM .LOOP AT GT_ITEM INTO GS_ITEM .IF GS_ITEM-UECHA <> LV_POSNR AND GS_ITEM-POSNR <> LV_POSNR AND GS_ITEM-CHARG IS NOT INITIAL. "MOVE-CORRESPONDING GS_ITEM TO GS_ITEM_SUM .COLLECT GS_ITEM_SUM INTO GT_ITEM_SUM .CLEAR :GS_ITEM_SUM .ELSEIF GS_ITEM-CHARG IS NOT INITIAL .
* TOTLE = TOTLE + GS_ITEM-LFIMG .ENDIF.ENDLOOP.ENDIF.LOOP AT GT_MB52_RAW INTO DATA(GS_MB52_RAW) WHERE MATNR = LV_MATNR.MOVE-CORRESPONDING GS_MB52_RAW TO GS_8000 .GS_8000-LFIMC = GS_MB52_RAW-LABST .CLEAR GS_ITEM_SUM .READ TABLE GT_ITEM_SUM WITH KEY MATNR = LV_MATNR LGORT = GS_MB52_RAW-LGORT CHARG = GS_MB52_RAW-CHARG INTO GS_ITEM_SUM .GS_8000-LFIMA = GS_8000-LFIMC - GS_ITEM_SUM-LFIMG .APPEND GS_8000 TO GT_8000 .CLEAR : GS_8000 ,GS_MB52_RAW .ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module MOD_VALUE_TXT OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE MOD_VALUE_TXT OUTPUT.VBELN = GS_LIPS-VBELN .POSNR = GS_LIPS-POSNR .
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form FRM_REFRESH_POSNR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_REFRESH_POSNR .LOOP AT GT_ITEM ASSIGNING FIELD-SYMBOL(<FS_ITEM>) WHERE CHARG IS NOT INITIAL .<FS_ITEM>-POSNR = LV_POSNR .LV_POSNR = LV_POSNR + 1 .ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_REFRESH_COLOUR
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_REFRESH_COLOUR .LOOP AT GT_ITEM ASSIGNING FIELD-SYMBOL(<FS_ITEM>) WHERE CHARG IS INITIAL .<FS_ITEM>-LINE_COLOR = 'C100' .CLEAR : <FS_ITEM>-CELLCOLOR .IF <FS_ITEM>-LFIMG <> 0.WA_CELLCOLOR-FNAME = 'LFIMG'.WA_CELLCOLOR-COLOR-COL = '3'.WA_CELLCOLOR-COLOR-INT = '1'.WA_CELLCOLOR-COLOR-INV = '0'.APPEND WA_CELLCOLOR TO <FS_ITEM>-CELLCOLOR .ENDIF .ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SAVE_CHECK
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_SAVE_CHECK CHANGING LV_SUBRC TYPE SY-SUBRC .DATA LV_SUM TYPE LIPS-LFIMG .DATA LV_FLAG TYPE C VALUE 'X' .LV_SUBRC = 0 .CLEAR :GS_8000 , GS_LIPS .LOOP AT GT_8000 INTO GS_8000 WHERE CHBOX = 'X'.LV_FLAG = '' .IF GS_8000-LFIMG = 0.MESSAGE '交貨數量為0的行將無效'(T03) TYPE 'W' .ENDIF.LV_SUM = LV_SUM + GS_8000-LFIMG .ENDLOOP.IF LV_FLAG = 'X'.LV_SUBRC = 2 .MESSAGE '未勾選行'(T02) TYPE 'I' .ENDIF.READ TABLE GT_ITEM ASSIGNING FIELD-SYMBOL(<FS_ITEM>) WITH KEY POSNR = POSNR .READ TABLE GT_LIPS WITH KEY POSNR = POSNR INTO GS_LIPS .IF LV_SUM <= GS_LIPS-ORMNG.<FS_ITEM>-LFIMG = GS_LIPS-ORMNG - LV_SUM .ELSE .LV_SUBRC = 1 .MESSAGE '交貨數量數不得大於該交貨單項目總數量'(T02) TYPE 'I' .ENDIF.
ENDFORM.SAP-ABAP-OOALV进阶-子屏幕；各种方法示例；相关推荐
- 【SAP Abap】X档案：SAP ABAP 中 AMDP 简介及实现方法
SAP ABAP 中 AMDP 简介及实现方法 0.前言 1.AMDP 简介 1.1 代码下沉(Code Pushdown) 1.2 AMDP 是托管数据库过程的容器 1.3 AMDP 的优缺点 1. ...
- SAP ABAP 开发创建 DIALOG 屏幕程序
在 SAP 创建 DIALOG 屏幕程序的详细步骤如下(这里是 SAP HANA 版本,其他版本在界面和一些术语上存在一些差异): 需求:界面通过选项栏可以对学生信息进行查询,新增,删除,修改功能.学 ...
- SAP ABAP OOALV常用的方法
OOALV常用的方法在类 CL_GUI_ALV_GRID 中,在这里主要举例我最常用的几种方法. 1.DATA_CHANGED,单元格已经改变了,获取哪个单元格改变了. 2.TOOLBAR ,在工具栏 ...
- [SAP ABAP开发技术总结]屏幕跳转
12.18. 屏幕跳转 LEAVE SCREEN. or LEAVE TO SCREEN <next screen>. LEAVE SCREEN语句会结束当前屏幕并 ...
- SAP ABAP 创建 ALV 报表详细教程含示例
1.事务代码输入 SE80 输入程序名,点击创建.PS:命名要以 Z 开头. 2.填写标题,类型选择 "1 可执行程序".点击保存. 3.在弹出的界面中,包填写对应的开发包(按照自 ...
- SAP ABAP 业务对象 BUS2080A ServiceNotifBAPIs BAPIs 服务通知 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS2080A ServiceNotifBAPIs BAPIs 服务通知 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS2080A Serv ...
- SAP ABAP 业务对象 BUS2038A MaintNotificBAPIs BAPIs维护通知 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS2038A MaintNotificBAPIs BAPIs维护通知 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS2038A Maint ...
- SAP ABAP Development Tool 提高开发效率的十个小技巧
这是 Jerry 2021 年的第 46 篇文章,也是汪子熙公众号总共第 323 篇原创文章. Jerry 已经有很长一阵子没有打开工作电脑上的 SAP ABAP Development Tool 了 ...
- SAP ABAP 业务对象 BUS6041 AssetSubCostRev 后续资产成本和收入 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS6041 AssetSubCostRev 后续资产成本和收入 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS6041 AssetSubC ...
最新文章
- PHP 中提示undefined index如何解决(多种方法)
- MPI学习存在的一些问题
- 人类大脑每日24小时工作节奏表
- arr数组怎么取值_记一次思否问答的问题思考：Vue为什么不能检测数组变动
- nfc修改饭卡软件下载_你还要什么校园卡？有NFC不就够了
- About KaiSarH
- Unity3D中关于Mesh.MarkDynamic
- linux运维工程师的发展,Linux运维工程师发展前景
- TWINCAT3导出html,【图解】TwinCAT 3学习之添加功能库
- docker 启动 redis cluster，使用出现CLUSTERDOWN Hash slot not served（redis cluster重新分配slot）
- python两个表格相同数据筛选的方法_浅谈pandas筛选出表中满足另一个表所有条件的数据方法...
- png转icon java_原创 | Java图片处理：ico格式转 PNG/JPG等格式
- 观察containerd-shim-runc-v2进程与容器里的1号进程
- mybatis使用注解的时候，找不到映射：Type interface com.dao.UserDao is not known to the MapperRegistry.
- Android11(R)新特性梳理
- python+nodejs+vue酒店点餐饮系统项目
- Resources Root目录和Sources Root目录的区别
- 苹果画画软件_Mac必装的10个软件，让你的Mac如虎添翼
- 互斥锁(mutex lock)
- 副连长是什么级别_部队连长是什么级别（连长职务及级别介绍）