TABLE CONTROL; CREATE F4 SEARCH ON THE SALES ORDER
TO SELECT DATA.
SE80 MODULE POOL PROGRAM NAME (ZMOD_TC) TOP NAME
(ZMOD_TC1_TOP).
SAVE IT. CREATE A NEW SCREEN 1010.THEN GO TO SCREEN 1010S LAYOUT.
IN THE LAYOUT TAKE OBJECT.
1. RADIO BOTTONS R1 AND R2.
SELECT BOTH RADIO BOTTONS (RC) GROUP DEFINES.
Put the function code FC & save it.
Select Data dictionary/ program fields EKPO SELECT 1 FIELD EBELN
PUT IT IN THE SCREEN.
CHANGE THE NAME OF THE FIELD P_EBELN. SAVE IT.
TAKE A ANOTHER TEXT EQUAL TO THE R2 SALES ORDER. AND TAKE
ANOTHER INPUT OUTPUT FIELD GIVE NAME P_VBELN.
SET PROPERTY
TAKE 2 COMMAND BOTTON DISPLAY EXIT.
SET THE PROPERTY LIKE PIC FOR DISPLAY BOTTON
SET THE PROPERTY LIKE PIC FOR EXIT BOTTON.
SAVE & ACTIVE THE SCREEN.
CREATE A NEW SCREEN 1011. GOTO LAYOUT.THERE TAKEN A
TABLECONTROL. GIVE THE NAME TC.
TICK ON RESIZING AND SEPARETORS IN THE TC PROPERTY.
GOTO Select Data dictionary/ program fields EKPO SELECT 3 FIELDS AND
PUT IN THE TC.
CLICK
DC ON FIRST COLOUM CHANGE THE NAME IT_EKPO-EBELN
SIMILAR SECOND , THIRD COLOUM NAME SHOULD CHANGE LIKE THAT.
SELECT THE 1ST COLOUM & GO TO PROPERTIES ; & UNCHECK THE INPUT
FIELD.
SAME THINGS DO FOR ANOTHER 2 FIELDS.
THEN ACTIVE WITH THE ERROR.
CREATE A NEW SCREEN 1012. GOTO LAYOUT.THERE SELECT 3 FIELDS FROM
VBAK TABLE.
GOTO Select Data dictionary/ program fields VBAK SELECT 3 FIELDS AND
PUT IN THE SCREEN.
SELECT 1ST FIELD & CHANGE NAME TO VBELN.
SELECT 2ND FIELD & CHANGE NAME TO ERNAM
SELECT 3RD FIELD & CHANGE NAME TO KTEXT. THEN ADD A BOTTON.
NAME BACK.
ACTIVE THE SCREEN. GOTO SCREEN 1010S FLOW LOGIC.
PROCESS ON VALUE-REQUEST.
FIELD P_VBELN MODULE F4_HELP.
(DC) in MODULE F4_HELP.
SELECT MAIN PROGRAM.OK.
THEN CODE THE PROGRAM.
MODULE F4_HELP INPUT.
TYPES : BEGIN OF TY_VBAK,
VBELN TYPE VBELN_VA,
KUNNR TYPE KUNAG,
END OF TY_VBAK.
DATA : IT_VBAK TYPE STANDARD TABLE OF TY_VBAK.
SELECT VBELN KUNNR FROM VBAK
INTO TABLE IT_VBAK
UP TO 900 ROWS.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'VBELN'
* PVALKEY = ' '
DYNPPROG = 'ZMOD_TC'
DYNPNR = '1010'
DYNPROFIELD = 'P_VBELN'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = IT_VBAK
* FIELD_TAB =
* RETURN_TAB =
* DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDMODULE.
ACTIVE THE CODE.
THEN GOTO TOP FOR GLOBAL DECLARATIONS.
DECLARE:
REPORT ZMOD_TC.
DATA : P_EBELN TYPE EBELN,
P_VBELN TYPE VBELN,
OK_CODE TYPE SY-UCOMM.
TYPES : BEGIN OF TY_EKPO,
EBELN TYPE EBELN,
EBELP TYPE EBELP,
MATNR TYPE MATNR,
END OF TY_EKPO.
DATA : IT_EKPO TYPE STANDARD TABLE OF TY_EKPO WITH HEADER LINE.
CONTROLS TC TYPE TABLEVIEW USING SCREEN 1011.
DATA : VBELN TYPE VBELN_VA,
ERNAM TYPE ERNAM,
KTEXT TYPE KTEXT_V,
R1 TYPE C VALUE 'X',
R2 TYPE C.
ACTIVE IT.
THEN GOTO 1011 SCREENS FLOWLOGIC.
PROCESS BEFORE OUTPUT.
* MODULE STATUS_1011.
LOOP AT IT_EKPO WITH CONTROL TC
CURSOR TC-CURRENT_LINE.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_1011.
LOOP AT IT_EKPO.
ENDLOOP.
THEN DC ON USER_COMMAND_1011. PUT IT IN MAIN PROGRAM.
PUT THE CODE THERE.
MODULE USER_COMMAND_1011 INPUT.
CLEAR OK_CODE.
OK_CODE = SY-UCOMM.
CLEAR SY-UCOMM.
CASE OK_CODE.
WHEN 'BACK'.
CALL SCREEN 1010.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
ACTIVE IT.
BACK IT IN THE SCREEN 1010S FLOW LOGIC . IN PBO PUT THE CODE.
