HI,
PLEASE DO AS BELOW ...
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT GT_VBAP INTO GS_VBAP1 WITH CONTROL ITEM CURSOR
ITEM-CURRENT_LINE.
ENDLOOP.
*
PROCESS AFTER INPUT.
LOOP AT GT_VBAP.
ENDLOOP.
MODULE USER_COMMAND_0100.
CHAIN.
FIELD : GS_VBAP-POSNR,GS_VBAP-MATNR,GS_VBAP-QUANT.
ENDCHAIN.
pbo
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'STAT'.
* SET TITLEBAR 'xxx'.
*REFRESH GT_VBAP.
MOVE-CORRESPONDING GS_VBAP TO GS_VBAP1.
APPEND GS_VBAP1 TO GT_VBAP.
CLEAR GS_VBAP1.
DELETE GT_VBAP WHERE POSNR IS INITIAL.
ENDMODULE. " STA
pai
*----------------------------------------------------------------------*
***INCLUDE MZSP_MOD_TEST_PAI .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE TO SCREEN '0'.
ENDCASE.
ENDMODULE.
TOP INCLUDE
PROGRAM SAPMZSP_MOD_TEST.
TYPES : BEGIN OF TY_VBAP,
POSNR TYPE POSNR_D,
MATNR TYPE MATNR,
QUANT TYPE MENGE_D,
END OF TY_VBAP.
DATA : GT_VBAP TYPE TABLE OF TY_VBAP,
GS_VBAP TYPE TY_VBAP,
GS_VBAP1 TYPE TY_VBAP.
CONTROLS : ITEM TYPE TABLEVIEW USING SCREEN 100.
