ALV TABLE-COTROL

1.画屏幕

 2.流逻辑

CONTROLS gr_9112_control TYPE TABLEVIEW USING SCREEN 9112.PROCESS BEFORE OUTPUT.MODULE status_9112.
*处理LOOP从内表读到表控制LOOP WITH CONTROL gr_9112_control.MODULE filltbl1_9112.ENDLOOP.PROCESS AFTER INPUT.
*处理LOOP从表控制更新内表LOOP WITH CONTROL gr_9112_control.MODULE readtbl1_9112.ENDLOOP.MODULE user_command_9112.MODULE exit_9112 AT EXIT-COMMAND.*&---------------------------------------------------------------------*
*& Module STATUS_9112 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9112 OUTPUT.SET PF-STATUS 'STATUS_9112'.SET TITLEBAR 'TITLE_9112'.DESCRIBE TABLE gt_belnr LINES gv_lines.IF gv_lines < 13.gr_9112_control-lines = 13.ELSE.gr_9112_control-lines = gv_lines.ENDIF.ENDMODULE.*&---------------------------------------------------------------------*
*& Module FILLTBL1_9112 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE filltbl1_9112 OUTPUT.READ TABLE gt_belnr INTO gs_belnr INDEX gr_9112_control-current_line.
ENDMODULE.*&---------------------------------------------------------------------*
*&      Module  READTBL1_9112  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE readtbl1_9112 INPUT.PERFORM readtbl1_9112.
ENDMODULE.*&---------------------------------------------------------------------*
*& Form readtbl1_9112
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM readtbl1_9112 .IF gr_9112_control-current_line <= lines( gt_belnr ).MODIFY gt_belnr FROM gs_belnr INDEX gr_9112_control-current_line.ELSE.APPEND gs_belnr TO gt_belnr.ENDIF.
ENDFORM.*&---------------------------------------------------------------------*
*& Form frm_user_command_9112
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_user_command_9112 .CLEAR:gv_ok_code.gv_ok_code = ok_code.CLEAR:ok_code.CASE gv_ok_code.WHEN 'CREA_ITEML'.PERFORM frm_crea_iteml.LEAVE TO SCREEN 0.ENDCASE.
ENDFORM.*&---------------------------------------------------------------------*
*&      Module  EXIT_9112  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit_9112 INPUT.CLEAR:gv_ok_code.gv_ok_code = ok_code.CLEAR:ok_code.CASE gv_ok_code.WHEN 'ZCANCEL'.LEAVE TO SCREEN 0.ENDCASE.
ENDMODULE.