topic Insert, Delete and Update options in Table control in Application Development and Automation Discussions

Insert, Delete and Update options in Table control

Former Member — Fri, 29 Feb 2008 14:03:56 GMT

Experts,

I have writen code for Insert, Delete and Update options in Table control. They are not working properly...

can any one send the code for the above please...

Thanks in advance..

Re: Insert, Delete and Update options in Table control

Former Member — Fri, 29 Feb 2008 14:16:04 GMT

Hi ,

Like this u can write for insert and delete

In your PBO, you can adjust the field properties using the usual "loop

at screen." style logic - but with a table control, you just need to do

this inside the table control loop e.g. along the lines of this (not

syntax checked):

Screen flow PBO

loop at gt_data1 into gs_data1 with control gtc_9999.

module d9999_modify_screen_tc.

endloop.

PBO module

Module d9999_modify_screen_tc output.

if sy-ucomm eq 'INSERT'.

loop at screen. "for current row of TC

if screen-name = 'XYZ'. "for one cell

screen-input = 1.

endif.

modify screen.

endloop.

endif.

endmodule.

Regards,

Re: Insert, Delete and Update options in Table control

Former Member — Sat, 01 Mar 2008 14:04:39 GMT

Hi,

Following steps will help you.

1.TOP-INCLUDE

DATA: ITAB1 LIKE KNA1 OCCURS 0 WITH HEADER LINE.

DATA: ITAB2 LIKE KNA1 OCCURS 0 WITH HEADER LINE.

DATA: WA LIKE KNA1.

DATA: ANT TYPE I,CUR TYPE I.

DATA: OK_CODE TYPE SY-UCOMM.

CONTROLS: TABCTRL TYPE TABLEVIEW USING SCREEN 100.

IN FLOWLOGIC

PROCESS BEFORE OUTPUT.

LOOP AT ITAB1 CURSOR CUR WITH CONTROL TABCTRL.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE CLEAR_DATA.

LOOP AT ITAB1.

MODULE MOVE_DATA.

ENDLOOP.

ADD “OK_CODE” IN ELEMENT LIST. CLICK ON LAYOUT AND ADD TABLE CONTROL(name it as TABCTRL) AND PUSHBUTTONS AS FOLLOWS.

SELECT THE FIELDS FROM PROGRAM. SAVE CHECK AND ACTIVATE.

CLICK ON FLOWLOGIC EDITOR FROM APPLICATION TOOL BAR.

DOUBLE CLICK ON MODULE “CLEAR_DATA”.

write the in this module as below.

CLEAR ITAB2. REFRESH ITAB2.

DOUBLE CLICK ON MODULE “MOVE_DATA”.

write the code in this module as below.

APPEND ITAB1 TO ITAB2.

ACTIVATE PAI AND WRITE THE CODE AS BELOW.

CASE OK_CODE.

WHEN 'FETCH'.

SELECT * FROM KNA1 INTO TABLE ITAB1 UP TO 20 ROWS.

TABCTRL-LINES = SY-DBCNT.

WHEN 'ADD'.

GET CURSOR LINE CNT.

CNT = TABCTRL-TOP_LINE + CNT - 1.

CLEAR WA.

INSERT WA INTO ITAB1 INDEX CNT.

WHEN 'MODIFY'.

GET CURSOR LINE CNT.

READ TABLE ITAB2 INDEX CNT.

LOOP AT ITAB2.

MODIFY KNA1 FROM ITAB2.

ENDLOOP.

SELECT * FROM KNA1 INTO TABLE ITAB1.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

SAVE,CHECK AND ACTIVATE ALL.

CREATE TCODE AND EXECUTE.

contact if u hv any issues regarding this code.

reward points,if it is useful.

Thanks,

Chandu.