REPORT zmmd0063.INCLUDE zmmd0063_top.
INCLUDE zmmd0063_c01.
INCLUDE zmmd0063_f01.
INCLUDE zmmd0063_i01.
INCLUDE zmmd0063_o01.*&---------------------------------------------------------------------*
*& 包含               ZMMR0063_TOP
*&---------------------------------------------------------------------*
TABLES:ztmm0063_2.*-----------------------------------------------------------------------
* ALV DECLARATIONS
*-----------------------------------------------------------------------
CLASS lcl_alv_grid DEFINITION DEFERRED.
CLASS lcl_alv_event_handler DEFINITION DEFERRED.
DATA: gv_event_handler     TYPE REF TO lcl_alv_event_handler,gv_docking_container TYPE REF TO cl_gui_docking_container,gv_grid              TYPE REF TO lcl_alv_grid,gs_alv_variant       LIKE disvariant,gt_exclude           TYPE ui_functions,gt_fieldcat          TYPE lvc_t_fcat,gs_fieldcat          TYPE lvc_s_fcat,gs_layout            TYPE lvc_s_layo,gs_sort              TYPE lvc_s_sort,gt_sort              TYPE lvc_t_sort,ok_code              TYPE sy-ucomm,save_ok              TYPE sy-ucomm.
DATA: gt_cellstyle TYPE lvc_t_styl,gs_cellstyle TYPE lvc_s_styl.TYPES:BEGIN OF gty_output,mblnr101  TYPE ztmm0063_2-mblnr101, "物料凭证zeile101  TYPE ztmm0063_2-zeile101, "物料凭证项目matnr     TYPE ztmm0063_2-matnr,    "物料编码werks101  TYPE ztmm0063_2-werks101, "工厂lgort101  TYPE ztmm0063_2-lgort101, "库存地点lifnr     TYPE ztmm0063_2-lifnr,    "供应商menge101  TYPE ztmm0063_2-menge101, "数量meins     TYPE ztmm0063_2-meins,    "计量单位ebeln     TYPE ztmm0063_2-ebeln,    "采购订单ebelp     TYPE ztmm0063_2-ebelp,    "采购订单项目budat101  TYPE ztmm0063_2-budat101, "过账日期cpudt101  TYPE ztmm0063_2-cpudt101, "录入日期cputm101  TYPE ztmm0063_2-cputm101, "录入时间usnam101  TYPE ztmm0063_2-usnam101, "操作人werks343  TYPE ztmm0063_2-werks343, "工厂lgort343  TYPE ztmm0063_2-lgort343, "库存地点menge343  TYPE ztmm0063_2-menge343, "解冻数量budat343  TYPE ztmm0063_2-budat343, "解冻过账日期ablad     TYPE ztmm0063_2-ablad,    "解冻物流单insmk     TYPE ztmm0063_2-insmk,    "库存类型elikz     TYPE ztmm0063_2-elikz,    "交货已完成标识menge     TYPE ztmm0063_2-menge101,cellstyle TYPE lvc_t_styl,        "单元格样式END OF gty_output.DATA:gt_output TYPE STANDARD TABLE OF gty_output,gs_output TYPE gty_output.TYPES:BEGIN OF gty_menge,mblnr101 TYPE ztmm0063_2-mblnr101,    "物料凭证zeile101 TYPE ztmm0063_2-zeile101,    "物料凭证项目menge343 TYPE ztmm0063_2-menge343, "解冻数量END OF gty_menge.DATA:gt_menge TYPE STANDARD TABLE OF gty_menge,gs_menge TYPE gty_menge.*定义选择屏幕
SELECTION-SCREEN:BEGIN OF BLOCK a1 WITH FRAME TITLE TEXT-001.PARAMETERS:p_werks TYPE ztmm0063_2-werks101 OBLIGATORY.SELECT-OPTIONS:s_matnr FOR ztmm0063_2-matnr,s_ebeln FOR ztmm0063_2-ebeln,s_ebelp FOR ztmm0063_2-ebelp.PARAMETERS:p_mblnr TYPE ztmm0063_2-mblnr101.SELECT-OPTIONS:s_budat FOR ztmm0063_2-budat101,s_cpudt FOR ztmm0063_2-cpudt101.PARAMETERS:p_usnam TYPE ztmm0063_2-usnam101.
SELECTION-SCREEN:END OF BLOCK a1.START-OF-SELECTION.PERFORM frm_process_data.END-OF-SELECTION.IF gt_output[] IS INITIAL.MESSAGE s001(zmm0001) DISPLAY LIKE 'E' WITH TEXT-e01."没有冷冻的库存ELSE.CALL SCREEN 9000.ENDIF.

*&---------------------------------------------------------------------*
*& 包含               ZMMR0063_C01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* LOCAL CLASSES: Definition
*&---------------------------------------------------------------------*
CLASS lcl_alv_grid DEFINITION INHERITING FROM cl_gui_alv_grid.PUBLIC SECTION.METHODS: set_optimize_all_cols.
ENDCLASS. "LCL_ALV_GRID DEFINITION
*---------------------------------------------------------------------*
*       CLASS LCL_ALV_GRID IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_alv_grid IMPLEMENTATION.METHOD set_optimize_all_cols.CALL METHOD me->optimize_all_colsEXPORTINGinclude_header = 1.ENDMETHOD.                    "SET_OPTIMIZE_ALL_COLS
ENDCLASS. "LCL_ALV_GRID IMPLEMENTATION
*----------------------------------------------------------------------*
*       CLASS LCL_ALV_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_alv_event_handler DEFINITION.PUBLIC SECTION.DATA: go_object_name(30) TYPE c.METHODS :constructor IMPORTING e_object_text TYPE c,handle_toolbar FOR EVENT toolbar OF cl_gui_alv_gridIMPORTING e_objecte_interactive,handle_user_command FOR EVENT user_command OF cl_gui_alv_gridIMPORTING e_ucomm,handle_data_changed FOR EVENT data_changed OF cl_gui_alv_gridIMPORTING er_data_changed.ENDCLASS. "LCL_ALV_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
*       CLASS LCL_ALV_EVENT_HANDLER IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_alv_event_handler IMPLEMENTATION.METHOD constructor.go_object_name = e_object_text.ENDMETHOD.                    "constructor"METHOD handle_toolbar.PERFORM frm_toolbar_pros  USING e_objecte_interactive.ENDMETHOD.                    "handle_toolbarMETHOD handle_user_command.PERFORM frm_user_command_pros USING e_ucomm.ENDMETHOD.                    "handle_user_commandMETHOD handle_data_changed.PERFORM frm_data_changed USING er_data_changed.ENDMETHOD.
ENDCLASS. "LCL_ALV_EVENT_HANDLER IMPLEMENTATION
*&---------------------------------------------------------------------*
*& 包含               ZMMR0063_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form frm_create_alv
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_create_alv .IF NOT gv_grid IS INITIAL.CALL METHOD gv_grid->free.ENDIF.
* Create Main ContainerCREATE OBJECT gv_docking_containerEXPORTINGdynnr                       = '9000'repid                       = sy-repidside                        = gv_docking_container->dock_at_topextension                   = 200ratio                       = 100EXCEPTIONScntl_error                  = 1cntl_system_error           = 2create_error                = 3lifetime_error              = 4lifetime_dynpro_dynpro_link = 5.CREATE OBJECT gv_gridEXPORTINGi_parent = gv_docking_container.* VariantPERFORM frm_init_variant.
* Output FieldsPERFORM frm_set_field_catalogs.
* Set GRID Layout AttributePERFORM frm_display_layout_attribute USING gs_layout.
* Exclude Tool Bar From Grid1PERFORM frm_exclude_tb_functions.
* Register Event For Grid1PERFORM frm_event_handler_register USING gv_grid 'OBJ'.
* ALV Grid DisplayPERFORM frm_alv_grid_display.ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  frm_init_variant
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_init_variant .DATA: lv_handle TYPE slis_handl.lv_handle = '9000'.gs_alv_variant-handle   = lv_handle.gs_alv_variant-report   = sy-repid.gs_alv_variant-username = sy-uname.
ENDFORM. " FRM_INIT_VARIANT
*&---------------------------------------------------------------------*
*&      FORM  frm_set_field_catalogs
*&---------------------------------------------------------------------*
*       Text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_set_field_catalogs.DATA: lv_fieldname TYPE lvc_fname,lv_coltext   TYPE lvc_txtcol.DATA: lv_pos TYPE i.CLEAR:gs_fieldcat,gt_fieldcat[].REFRESH gt_fieldcat.DEFINE set_outtab.lv_pos = lv_pos + 1.gs_fieldcat-col_pos   = lv_pos.gs_fieldcat-fieldname = &1.gs_fieldcat-coltext   = &2.IF gs_fieldcat-fieldname = 'MENGE343'.gs_fieldcat-ref_table = 'EKPO'.gs_fieldcat-ref_field = 'MENGE'.ENDIF.APPEND gs_fieldcat TO gt_fieldcat.CLEAR: gs_fieldcat.END-OF-DEFINITION.set_outtab:'MBLNR101'     TEXT-100,"物料凭证'ZEILE101'     TEXT-101,"物料凭证项目'MATNR'        TEXT-102,"物料编码'WERKS101'     TEXT-103,"工厂'LGORT101'     TEXT-104,"库存地点'LIFNR'        TEXT-105,"供应商'MENGE101'     TEXT-106,"数量'MEINS'        TEXT-107,"计量单位'EBELN'        TEXT-108,"采购订单'EBELP'        TEXT-109,"采购订单项目'BUDAT101'     TEXT-110,"过账日期'CPUDT101'     TEXT-111,"录入日期'CPUTM101'     TEXT-112,"录入时间'USNAM101'     TEXT-113,"操作人'WERKS343'     TEXT-114,"工厂'LGORT343'     TEXT-115,"库存地点'MENGE343'     TEXT-116,"解冻数量'BUDAT343'     TEXT-117,"解冻过账日期'ABLAD'        TEXT-118."解冻物流单
ENDFORM. " FRM_SET_FIELD_CATALOGS
*&---------------------------------------------------------------------*
*&      FORM  frm_display_layout_attribute
*&---------------------------------------------------------------------*
*       Text
*----------------------------------------------------------------------*
*      -->p_gs_layocat1  text
*----------------------------------------------------------------------*
FORM frm_display_layout_attribute USING p_layocat TYPE lvc_s_layo.p_layocat-cwidth_opt = 'X'.p_layocat-sel_mode   = 'A'.p_layocat-smalltitle = ' '.p_layocat-zebra      = ' '.p_layocat-no_rowmark = ' '.p_layocat-no_headers = ' '.p_layocat-no_vgridln = ' '.p_layocat-no_hgridln = ' '.p_layocat-stylefname = 'CELLSTYLE'.
ENDFORM. " FRM_DISPLAY_LAYOUT_ATTRIBUTE
*&---------------------------------------------------------------------*
*&      FORM  frm_exclude_tb_functions
*&---------------------------------------------------------------------*
*       Text (控制按钮隐藏显示)
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_exclude_tb_functions .DEFINE exclude_fcode.APPEND &1 TO gt_exclude.END-OF-DEFINITION.REFRESH gt_exclude.exclude_fcode: cl_gui_alv_grid=>mc_fc_loc_copy_row,cl_gui_alv_grid=>mc_fc_loc_delete_row,cl_gui_alv_grid=>mc_fc_loc_append_row,cl_gui_alv_grid=>mc_fc_loc_insert_row,cl_gui_alv_grid=>mc_fc_loc_move_row,cl_gui_alv_grid=>mc_fc_loc_paste_new_row,cl_gui_alv_grid=>mc_fc_loc_paste,cl_gui_alv_grid=>mc_fc_loc_undo,cl_gui_alv_grid=>mc_fc_loc_copy,cl_gui_alv_grid=>mc_fc_loc_cut,cl_gui_alv_grid=>mc_fc_refresh.
ENDFORM. " FRM_EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*&      FORM  frm_event_handler_register
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->lo_grid    text
*      -->lv_obj     text
*----------------------------------------------------------------------*
FORM frm_event_handler_register USING lo_grid TYPE REF TO lcl_alv_gridlv_obj  TYPE char30.CREATE OBJECT gv_event_handlerEXPORTINGe_object_text = lv_obj.CALL METHOD gv_grid->set_ready_for_inputEXPORTINGi_ready_for_input = 1.CALL METHOD gv_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_modified.CALL METHOD gv_grid->register_edit_eventEXPORTINGi_event_id = cl_gui_alv_grid=>mc_evt_enter.SET HANDLER gv_event_handler->handle_data_changed FOR lo_grid.SET HANDLER gv_event_handler->handle_toolbar FOR lo_grid.SET HANDLER gv_event_handler->handle_user_command FOR lo_grid.
ENDFORM. "FRM_EVENT_HANDLER_REGISTER
*&---------------------------------------------------------------------*
*&      FORM  frm_alv_grid_display
*&---------------------------------------------------------------------*
*       alv##
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_alv_grid_display .CALL METHOD gv_grid->set_table_for_first_displayEXPORTINGis_layout            = gs_layoutit_toolbar_excluding = gt_excludei_save               = 'A'is_variant           = gs_alv_variantCHANGINGit_fieldcatalog      = gt_fieldcatit_sort              = gt_sort[]it_outtab            = gt_output.
ENDFORM. " FRM_ALV_GRID_DISPLAY
*&---------------------------------------------------------------------*
*&      FORM  frm_refresh_alv
*&---------------------------------------------------------------------*
*       Text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_refresh_alv .DATA: ls_scroll TYPE lvc_s_stbl.ls_scroll-row = 'X'.ls_scroll-col = 'X'.CALL METHOD gv_grid->refresh_table_displayEXPORTING
*     i_soft_refresh = 'X'is_stable = ls_scroll.CALL METHOD cl_gui_cfw=>flush.CALL METHOD gv_grid->set_optimize_all_cols.
ENDFORM. " FRM_REFRESH_ALV
*&---------------------------------------------------------------------*
*& Form frm_process_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_process_data ."设置单元格样式PERFORM frm_set_cellstyle."查询要解冻的库存SELECT mblnr101zeile101matnrwerks101lgort101insmklifnrmenge101menge343meinsebelnebelpbudat101cpudt101cputm101usnam101elikzFROM ztmm0063_2INTO CORRESPONDING FIELDS OF TABLE gt_outputWHERE werks101 = p_werksAND mblnr101 = p_mblnrAND usnam101 = p_usnamAND elikz    = ''AND matnr    IN s_matnrAND ebeln    IN s_ebelnAND ebelp    IN s_ebelpAND budat101 IN s_budatAND cpudt101 IN s_cpudt.CHECK gt_output[] IS NOT INITIAL.LOOP AT gt_output INTO gs_output.gs_menge-mblnr101 = gs_output-mblnr101.gs_menge-zeile101 = gs_output-zeile101.gs_menge-menge343 = gs_output-menge343.COLLECT gs_menge INTO gt_menge.ENDLOOP.SORT gt_menge BY mblnr101 zeile101 menge343 DESCENDING.DELETE ADJACENT DUPLICATES FROM gt_menge COMPARING mblnr101 zeile101.SORT gt_output BY mblnr101 zeile101.DELETE ADJACENT DUPLICATES FROM gt_output COMPARING mblnr101 zeile101.LOOP AT gt_output INTO gs_output.gs_output-werks343 = gs_output-werks101.gs_output-lgort343 = gs_output-lgort101.IF gs_output-elikz = ''.READ TABLE gt_menge INTO gs_mengeWITH KEY mblnr101 = gs_output-mblnr101zeile101 = gs_output-zeile101BINARY SEARCH.IF sy-subrc EQ 0.gs_output-menge343 = gs_output-menge101 - gs_menge-menge343.gs_output-budat343 = sy-datum.ENDIF.gs_output-cellstyle = gt_cellstyle[].ENDIF.MODIFY gt_output FROM gs_output.CLEAR gs_output.ENDLOOP.ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SET_CELLSTYLE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_set_cellstyle .REFRESH gt_cellstyle.gs_cellstyle-fieldname = 'ABLAD'.gs_cellstyle-style     = cl_gui_alv_grid=>mc_style_enabled.APPEND gs_cellstyle TO gt_cellstyle.CLEAR gs_cellstyle.gs_cellstyle-fieldname = 'BUDAT343'.gs_cellstyle-style     = cl_gui_alv_grid=>mc_style_enabled.APPEND gs_cellstyle TO gt_cellstyle.CLEAR gs_cellstyle.gs_cellstyle-fieldname = 'MENGE343'.gs_cellstyle-style     = cl_gui_alv_grid=>mc_style_enabled.APPEND gs_cellstyle TO gt_cellstyle.CLEAR gs_cellstyle.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_toolbar_pros
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> E_OBJECT
*&      --> E_INTERACTIVE
*&---------------------------------------------------------------------*
FORM frm_toolbar_pros USING po_objectTYPE REF TO cl_alv_event_toolbar_setpv_interactive TYPE char01.DATA: ls_toolbar TYPE stb_button.ls_toolbar-function  = 'INSERT'.ls_toolbar-icon      = icon_insert_row.ls_toolbar-text      = '插入数据'.ls_toolbar-quickinfo = '插入数据'.APPEND ls_toolbar TO po_object->mt_toolbar.CLEAR ls_toolbar.ls_toolbar-function  = 'UNLOCKED'.ls_toolbar-icon      = icon_unlocked.ls_toolbar-text      = '解冻库存'.ls_toolbar-quickinfo = '解冻库存'.APPEND ls_toolbar TO po_object->mt_toolbar.CLEAR ls_toolbar.ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_user_command_pros
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> E_UCOMM
*&---------------------------------------------------------------------*
FORM frm_user_command_pros  USING  pv_ucomm TYPE sy-ucomm.CASE pv_ucomm.WHEN 'INSERT'."插入数据PERFORM frm_insert_line.WHEN 'UNLOCKED'."保存数据，更新数据库表PERFORM frm_update_table.WHEN OTHERS.ENDCASE."刷新ALVPERFORM frm_refresh_alv.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_update_table
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_update_table .DATA:lt_rows     TYPE lvc_t_row,ls_rows     TYPE lvc_s_row,lt_mm0063_2 TYPE TABLE OF ztmm0063_2,ls_mm0063_2 TYPE ztmm0063_2,lv_mblnr    TYPE ztmm0063_2-mblnr101,lv_zeile    TYPE ztmm0063_2-zeile101,lv_lines    TYPE i,lv_menge    TYPE ztmm0063_2-menge101.*使用bapi需要用到的"ImportDATA: gs_goodsmvt_header TYPE bapi2017_gm_head_01,gv_goodsmvt_code   TYPE bapi2017_gm_code."ExportDATA: gs_goodsmvt_headref TYPE bapi2017_gm_head_ret."TableDATA: gt_goodsmvt_item TYPE TABLE OF bapi2017_gm_item_create,wa_goodsmvt_item TYPE bapi2017_gm_item_create,gt_return        TYPE TABLE OF bapiret2,wa_return        TYPE bapiret2.DATA: lv_error TYPE c.CLEAR:ls_rows,ls_mm0063_2,lv_lines,lv_menge,lv_mblnr,lv_zeile.REFRESH:lt_rows,lt_mm0063_2.CALL METHOD gv_grid->get_selected_rowsIMPORTINGet_index_rows = lt_rows.lv_lines = lines( lt_rows ).IF lv_lines NE 1.MESSAGE s001(zmm0001) WITH TEXT-e04 DISPLAY LIKE 'E'."请选择一条数据EXIT.ENDIF.READ TABLE lt_rows INDEX 1 INTO ls_rows.CHECK sy-subrc EQ 0.READ TABLE gt_output INDEX ls_rows-index INTO gs_output.IF sy-subrc EQ 0.READ TABLE gt_menge INDEX 1 INTO gs_menge."可解冻库存IF sy-subrc EQ 0.lv_menge = gs_output-menge101 - gs_menge-menge343.ELSE.lv_menge = gs_output-menge101.ENDIF.IF gs_output-menge343 > lv_menge.MESSAGE s001(zmm0001) WITH TEXT-e02 DISPLAY LIKE 'E'."累计解冻数量大于冻结收货数量，请修改后保存！ELSE."Goods Move"Headergs_goodsmvt_header-pstng_date = sy-datum.gs_goodsmvt_header-doc_date = sy-datum."GM Codegv_goodsmvt_code = '06'.   "收货"Itemwa_goodsmvt_item-material      = gs_output-matnr.     "物料wa_goodsmvt_item-plant         = gs_output-werks101.  "工厂wa_goodsmvt_item-stge_loc      = gs_output-lgort101.  "库存地点wa_goodsmvt_item-move_type     = '343'.               "移动类型 343wa_goodsmvt_item-entry_qnt     = gs_output-menge343.  "交货数量wa_goodsmvt_item-entry_uom     = gs_output-meins.     "销售单位wa_goodsmvt_item-entry_uom_iso = gs_output-meins.     "基本的单位APPEND wa_goodsmvt_item TO gt_goodsmvt_item.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGgoodsmvt_header  = gs_goodsmvt_headergoodsmvt_code    = gv_goodsmvt_codeIMPORTINGgoodsmvt_headret = gs_goodsmvt_headrefTABLESgoodsmvt_item    = gt_goodsmvt_itemreturn           = gt_return.LOOP AT gt_return INTO wa_return WHERE type CA 'AEX'.IF sy-subrc = 0.lv_error = 'E'.EXIT.ENDIF.ENDLOOP.IF lv_error EQ 'E'.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.MESSAGE '过账失败' TYPE 'S' DISPLAY LIKE 'E'.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.MESSAGE '过账成功' TYPE 'S'."保存解冻记录PERFORM frm_save_record USING gs_goodsmvt_headrefls_rows-index.ENDIF.ENDIF.ENDIF.FREE:lt_rows,lt_mm0063_2.ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_insert_line
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_insert_line .CLEAR gs_output.READ TABLE gt_output INDEX 1 INTO gs_output.IF sy-subrc EQ 0.READ TABLE gt_menge INTO gs_mengeWITH KEY mblnr101 = gs_output-mblnr101zeile101 = gs_output-zeile101BINARY SEARCH.IF sy-subrc EQ 0.gs_output-menge343  = gs_output-menge101 - gs_menge-menge343.gs_output-ablad     = ''.gs_output-budat343  = sy-datum.gs_output-cellstyle = gt_cellstyle[].IF gs_output-menge101 = gs_menge-menge343.MESSAGE s001(zmm0001) WITH TEXT-s01 DISPLAY LIKE 'E'."解冻已完成EXIT.ENDIF.ENDIF.APPEND gs_output TO gt_output.CLEAR gs_output.ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_data_changed
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> ER_DATA_CHANGED
*&---------------------------------------------------------------------*
FORM frm_data_changed  USINGpo_data_changed TYPE REF TO cl_alv_changed_data_protocol.DATA:lt_modi  TYPE lvc_t_modi,ls_modi  TYPE lvc_s_modi,lv_menge TYPE ztmm0063_2-menge101.CLEAR:ls_modi,lv_menge.REFRESH:lt_modi.LOOP AT po_data_changed->mt_mod_cells INTO ls_modi.CASE ls_modi-fieldname.WHEN 'MENGE343'.CALL METHOD po_data_changed->get_cell_valueEXPORTINGi_row_id    = ls_modi-row_idi_fieldname = ls_modi-fieldnameIMPORTINGe_value     = lv_menge.CLEAR gs_output.READ TABLE gt_output INDEX ls_modi-row_id INTO gs_output.IF sy-subrc EQ 0.READ TABLE gt_menge INTO gs_mengeWITH KEY mblnr101 = gs_output-mblnr101zeile101 = gs_output-zeile101BINARY SEARCH.IF sy-subrc EQ 0.IF lv_menge > gs_output-menge101 - gs_menge-menge343.CALL METHOD po_data_changed->add_protocol_entryEXPORTINGi_msgid     = 'ZMM0001'i_msgty     = 'E'i_msgno     = '000'i_msgv1     = TEXT-e02i_fieldname = ls_modi-fieldnamei_row_id    = ls_modi-row_id.ENDIF.ENDIF.ENDIF.WHEN OTHERS.ENDCASE.ENDLOOP.FREE:lt_modi.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_save_record
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GS_GOODSMVT_HEADREF
*&---------------------------------------------------------------------*
FORM frm_save_record  USING  ps_goodsmvt TYPE bapi2017_gm_head_retpv_index.DATA:ls_mm0063_2 TYPE ztmm0063_2,lv_zeile    TYPE ztmm0063_2-zeile101.CLEAR:ls_mm0063_2,lv_zeile.SELECT SINGLE MAX( zeile343 )FROM ztmm0063_2INTO lv_zeilewhere mblnr343 = ps_goodsmvt-mat_docGROUP BY mblnr343.CLEAR gs_output-cellstyle[].MODIFY gt_output FROM gs_output INDEX pv_index.MOVE-CORRESPONDING gs_output TO ls_mm0063_2.ls_mm0063_2-mandt    = sy-mandt.ls_mm0063_2-mblnr343 = ps_goodsmvt-mat_doc.ls_mm0063_2-zeile343 = lv_zeile + 1.ls_mm0063_2-cpudt343 = sy-datum.ls_mm0063_2-cputm343 = sy-uzeit.ls_mm0063_2-usnam343 = sy-uname.MODIFY ztmm0063_2 FROM ls_mm0063_2.IF gs_output-menge343 = gs_output-menge101 - gs_menge-menge343."相同物料收货冻结凭证&行项目下的累计MENGE343=MENGE101时，"所有MBLNE101 & ZEILE101相关行项目的ELIKZ解冻完成标识更新为“X”UPDATE ztmm0063_2SET elikz = 'X'WHERE mblnr101 = gs_output-mblnr101AND zeile101 = gs_output-zeile101.ENDIF."更新累计解冻数量gs_menge-menge343 = gs_menge-menge343 + gs_output-menge343.MODIFY gt_menge FROM gs_menge INDEX 1.
ENDFORM.
*&---------------------------------------------------------------------*
*& 包含               ZMMR0063_I01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT_COMMAND  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit_command INPUT.LEAVE TO SCREEN 0.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.save_ok = ok_code.CASE save_ok.WHEN 'EXIT' OR 'BACK' OR 'CANCEL'.LEAVE TO SCREEN 0.ENDCASE.CLEAR: save_ok,ok_code.ENDMODULE.
*&---------------------------------------------------------------------*
*& 包含               ZMMR0063_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
DATA: lv_title TYPE string.CLEAR: lv_title.lv_title = '海外BG收货冻结库存解冻入库'.SET PF-STATUS '9000'.SET TITLEBAR '9000' WITH lv_title.ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CREATE_ALV_GRID OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE create_alv_grid OUTPUT.IF gv_docking_container IS INITIAL.PERFORM frm_create_alv.ELSE.PERFORM frm_refresh_alv.ENDIF.ENDMODULE.