Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Regarding table controls

Former Member
0 Kudos

hai can any one tell me how to display data in table controls and then how to read the data from table control and save in database, and also in the displayed table control how can i add a new row to the table control and save the new data

thanx in advance

afzal

1 ACCEPTED SOLUTION

Former Member
4 REPLIES 4

Former Member

Former Member
0 Kudos

hi,

PROCESS BEFORE OUTPUT.

MODULE STATUS_9000.

LOOP AT IT_STR WITH CONTROL TC.

MODULE FILL_MODULE_9OOO.

MODULE ICON_9000.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

LOOP AT IT_STR.

CHAIN.

FIELD IT_STR-MNO.

FIELD IT_STR-QTY.

MODULE FILL_TABLE_9000 ON CHAIN-REQUEST.

ENDCHAIN.

ENDLOOP.

****************************************************

MODULE FILL_TABLE_9000 ON CHAIN-REQUEST.

DATA : V_LINECOUNT TYPE I, "TO FIND NO OF LINES IN INTERNAL TABLE

V_PAGECOUNT TYPE I, "TO ADD LINES WHEN SCROLLING

V_ABS_LINE TYPE I. "FOR CURRENT LINE

IF SY-DATAR = 'X'. "CLICK IS ON MESSAGE OR IN SCROLL.

DESCRIBE TABLE IT_STR LINES V_LINECOUNT. "TO GET THE NO OF LINES

IF SY-SUBRC = 0.

V_ABS_LINE = TC-TOP_LINE + SY-STEPL - 1. "GETTING THE CURRENT LINE

IF V_ABS_LINE LE V_LINECOUNT. "CHECKING WHEATHER CURRENT LINE IS GT LINECOUNT

MODIFY IT_STR INDEX V_ABS_LINE. "SY-STEPL.

ELSE.

IT_STR-ZINO = V_ABS_LINE.

APPEND IT_STR.

ENDIF.

ENDIF.

*tc-lines = sy-tfill + 1.

V_PAGECOUNT = SY-STEPL DIV SY-LOOPC. "CHECKING WHEATHER TO ADD LINES OR NOT

IF V_PAGECOUNT > 0.

TC-LINES = V_LINECOUNT + SY-LOOPC.

ENDIF.

ENDMODULE.

ENDIF.

<b>reward useful points</b>

Siva

Former Member
0 Kudos

hi Afzal,

data declaration......

TABLES: SPFLI,SFLIGHT.

DATA: SCR TYPE SY-DYNNR VALUE '100'.

CONTROLS: TAB TYPE TABLEVIEW USING SCREEN '0110'.

DATA: T_SPFLI LIKE SPFLI." WITH HEADER LINE.

DATA: T_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

DATA: OK_CODE LIKE SY-UCOMM.

DATA: F_CARRID LIKE SPFLI-CARRID,

F_CONNID LIKE SPFLI-CONNID.

PAI................................

CASE OK_CODE.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'F1'.

SELECT SINGLE CARRID CONNID CITYFROM CITYTO DEPTIME DISTANCE

FROM SPFLI

INTO CORRESPONDING FIELDS OF T_SPFLI

WHERE CARRID = F_CARRID

AND CONNID = F_CONNID.

SELECT * FROM SFLIGHT INTO TABLE T_SFLIGHT

WHERE CARRID = F_CARRID

AND CONNID = F_CONNID.

CALL SCREEN '110'.

ENDCASE.

CASE OK_CODE.

WHEN'EXIT'.

LEAVE TO TRANSACTION SY-TCODE.

ENDCASE.

screens.........

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

PROCESS AFTER INPUT.

MODULE CLOSE_100 AT EXIT-COMMAND.

MODULE USER_COMMAND_0100.

Reward if useful.