Re: Disappeared row data from table control.

Former Member — Sun, 10 Feb 2008 06:25:42 GMT

Dear Ramesh

Thanks a lot for your prompt reply.

Please help me.

Thanks & Best regards.

This is my program

==============

Pushbutton: DISP,EDIT,SAVE,NEW

REPORT zchar_conv.

TABLES : cabn,cabnt,cawn,cawnt,tline.

DATA : BEGIN OF itab OCCURS 0,

atinn LIKE cabn-atinn,

atnam LIKE cabn-atnam,

atzhl LIKE cawn-atzhl,

atwrt LIKE cawn-atwrt,

atwtb LIKE cawnt-atwtb,

atkla LIKE cabn-atkla,

atmst LIKE cabn-atmst,

zl_entry LIKE BDCDATA-FVAL,

zg_entry LIKE BDCDATA-FVAL,

zGE_TXT LIKE BDCDATA-FVAL,

zCON_RMKS LIKE BDCDATA-FVAL,

lkenz LIKE cabn-lkenz,

END OF itab.

data atn like BDCDATA-FVAL.

data atw like BDCDATA-FVAL.

DATA itab1 like TABLE OF itab.

DATA : atnam LIKE cabn-atnam.

DATA : zatinn LIKE cawn-atinn.

DATA : atwrt LIKE cawn-atwrt.

DATA : leng LIKE cabn-anzst.

DATA desc LIKE cabnt-atbez.

DATA : flg, "Flag to set the change mode

ln TYPE i.

*&SPWIZARD: DECLARATION OF TABLECONTROL 'T_CTRL' ITSELF

CONTROLS: t_ctrl TYPE TABLEVIEW USING SCREEN 9000.

*&SPWIZARD: LINES OF TABLECONTROL 'T_CTRL'

DATA: g_t_ctrl_lines LIKE sy-loopc.

DATA: ok_code LIKE sy-ucomm.

*&SPWIZARD: OUTPUT MODULE FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR

MODULE t_ctrl_change_tc_attr OUTPUT.

DESCRIBE TABLE itab LINES t_ctrl-lines.

ENDMODULE. "T_CTRL_CHANGE_TC_ATTR OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE t_ctrl_get_lines OUTPUT.

g_t_ctrl_lines = sy-loopc.

ENDMODULE. "T_CTRL_GET_LINES OUTPUT

*&SPWIZARD: INPUT MODULE FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MODIFY TABLE

MODULE t_ctrl_modify INPUT.

MODIFY itab

INDEX t_ctrl-current_line.

ENDMODULE. "T_CTRL_MODIFY INPUT

*&SPWIZARD: INPUT MODUL FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MARK TABLE

MODULE t_ctrl_mark INPUT.

DATA: g_t_ctrl_wa2 LIKE LINE OF itab.

IF t_ctrl-line_sel_mode = 1

AND itab-lkenz = 'X'.

LOOP AT itab INTO g_t_ctrl_wa2

WHERE lkenz = 'X'.

g_t_ctrl_wa2-lkenz = ''.

MODIFY itab

FROM g_t_ctrl_wa2

TRANSPORTING lkenz.

ENDLOOP.

ENDIF.

MODIFY itab

INDEX t_ctrl-current_line

TRANSPORTING lkenz.

ENDMODULE. "T_CTRL_MARK INPUT

*&SPWIZARD: INPUT MODULE FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: PROCESS USER COMMAND

MODULE t_ctrl_user_command INPUT.

ok_code = sy-ucomm.

PERFORM user_ok_tc USING 'T_CTRL'

'ITAB'

'LKENZ'

CHANGING ok_code.

sy-ucomm = ok_code.

ENDMODULE. "T_CTRL_USER_COMMAND INPUT

----

INCLUDE TABLECONTROL_FORMS *

----

&----

*& Form USER_OK_TC *

&----

FORM user_ok_tc USING p_tc_name TYPE dynfnam

p_table_name

p_mark_name

CHANGING p_ok LIKE sy-ucomm.

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA: l_ok TYPE sy-ucomm,

l_offset TYPE i.

&SPWIZARD: END OF LOCAL DATA----

*&SPWIZARD: Table control specific operations *

*&SPWIZARD: evaluate TC name and operations *

SEARCH p_ok FOR p_tc_name.

IF sy-subrc <> 0.

EXIT.

ENDIF.

l_offset = STRLEN( p_tc_name ) + 1.

l_ok = p_ok+l_offset.

*&SPWIZARD: execute general and TC specific operations *

CASE l_ok.

WHEN 'INSR'. "insert row

PERFORM fcode_insert_row USING p_tc_name

p_table_name.

CLEAR p_ok.

WHEN 'DELE'. "delete row

PERFORM fcode_delete_row USING p_tc_name

p_table_name

p_mark_name.

CLEAR p_ok.

WHEN 'P--' OR "top of list

'P-' OR "previous page

'P+' OR "next page

'P++'. "bottom of list

PERFORM compute_scrolling_in_tc USING p_tc_name

l_ok.

CLEAR p_ok.

WHEN 'L--'. "total left
PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.

WHEN 'L-'. "column left
PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.

WHEN 'R+'. "column right
PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.

WHEN 'R++'. "total right
PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.

WHEN 'MARK'. "mark all filled lines

PERFORM fcode_tc_mark_lines USING p_tc_name

p_table_name

p_mark_name .

CLEAR p_ok.

WHEN 'DMRK'. "demark all filled lines

PERFORM fcode_tc_demark_lines USING p_tc_name

p_table_name

p_mark_name .

CLEAR p_ok.

WHEN 'SASCEND' OR
'SDESCEND'. "sort column
PERFORM FCODE_SORT_TC USING P_TC_NAME
l_ok.

ENDCASE.

ENDFORM. " USER_OK_TC

&----

*& Form FCODE_INSERT_ROW *

&----

FORM fcode_insert_row

USING p_tc_name TYPE dynfnam

p_table_name .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA l_lines_name LIKE feld-name.

DATA l_selline LIKE sy-stepl.

DATA l_lastline TYPE i.

DATA l_line TYPE i.

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <lines> TYPE i.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.

ASSIGN (l_lines_name) TO <lines>.

*&SPWIZARD: get current line *

GET CURSOR LINE l_selline.

IF sy-subrc <> 0. " append line to table

l_selline = <tc>-lines + 1.

*&SPWIZARD: set top line *

IF l_selline > <lines>.

<tc>-top_line = l_selline - <lines> + 1 .

ELSE.

<tc>-top_line = 1.

ENDIF.

ELSE. " insert line into table

l_selline = <tc>-top_line + l_selline - 1.

l_lastline = <tc>-top_line + <lines> - 1.

ENDIF.

*&SPWIZARD: set new cursor line *

l_line = l_selline - <tc>-top_line + 1.

*&SPWIZARD: insert initial line *

INSERT INITIAL LINE INTO <table> INDEX l_selline.

<tc>-lines = <tc>-lines + 1.

*&SPWIZARD: set cursor *

SET CURSOR LINE l_line.

ENDFORM. " FCODE_INSERT_ROW

&----

*& Form FCODE_DELETE_ROW *

&----

FORM fcode_delete_row

USING p_tc_name TYPE dynfnam

p_table_name

p_mark_name .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

*&SPWIZARD: delete marked lines *

DESCRIBE TABLE <table> LINES <tc>-lines.

LOOP AT <table> ASSIGNING <wa>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

IF <mark_field> = 'X'.

DELETE <table> INDEX syst-tabix.

IF sy-subrc = 0.

<tc>-lines = <tc>-lines - 1.

ENDIF.

ENDLOOP.

ENDFORM. " FCODE_DELETE_ROW

&----

*& Form COMPUTE_SCROLLING_IN_TC

&----

text

----

-->P_TC_NAME name of tablecontrol
-->P_OK ok code

----

FORM compute_scrolling_in_tc USING p_tc_name

p_ok.

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA l_tc_new_top_line TYPE i.

DATA l_tc_name LIKE feld-name.

DATA l_tc_lines_name LIKE feld-name.

DATA l_tc_field_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <lines> TYPE i.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.

ASSIGN (l_tc_lines_name) TO <lines>.

*&SPWIZARD: is no line filled? *

IF <tc>-lines = 0.

*&SPWIZARD: yes, ... *

l_tc_new_top_line = 1.

ELSE.

*&SPWIZARD: no, ... *

CALL FUNCTION 'SCROLLING_IN_TABLE'

EXPORTING

entry_act = <tc>-top_line

entry_from = 1

entry_to = <tc>-lines

last_page_full = 'X'

loops = <lines>

ok_code = p_ok

overlapping = 'X'

IMPORTING

entry_new = l_tc_new_top_line

EXCEPTIONS

NO_ENTRY_OR_PAGE_ACT = 01
NO_ENTRY_TO = 02
NO_OK_CODE_OR_PAGE_GO = 03

OTHERS = 0.

ENDIF.

*&SPWIZARD: get actual tc and column *

GET CURSOR FIELD l_tc_field_name

AREA l_tc_name.

IF syst-subrc = 0.

IF l_tc_name = p_tc_name.

*&SPWIZARD: et actual column *

SET CURSOR FIELD l_tc_field_name LINE 1.

ENDIF.

*&SPWIZARD: set the new top line *

<tc>-top_line = l_tc_new_top_line.

ENDFORM. " COMPUTE_SCROLLING_IN_TC

&----

*& Form FCODE_TC_MARK_LINES

&----

marks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM fcode_tc_mark_lines USING p_tc_name

p_table_name

p_mark_name.

&SPWIZARD: EGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

*&SPWIZARD: mark all filled lines *

LOOP AT <table> ASSIGNING <wa>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

<mark_field> = 'X'.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

*& Form FCODE_TC_DEMARK_LINES

&----

demarks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM fcode_tc_demark_lines USING p_tc_name

p_table_name

p_mark_name .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

*&SPWIZARD: demark all filled lines *

LOOP AT <table> ASSIGNING <wa>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

<mark_field> = space.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

*& Module USER_COMMAND_9000 INPUT

&----

text

----

MODULE user_command_9000 INPUT.

DATA :lv_fcode LIKE sy-ucomm, "Function Code

lv_answer(1) TYPE c. "Storing the answer

lv_fcode = sy-ucomm.

DATA atbez_d2 LIKE cabnt-atbez.

DATA atbez LIKE cabnt-atbez.

DATA anzst LIKE cabn-anzst.

DATA atinn LIKE cabn-atinn.

DATA zatnam LIKE cabn-atnam.

DATA desc LIKE cabnt-atbez.
DATA leng LIKE cabn-anzst.

CLEAR: atbez_d2, anzst.

DATA lkenz TYPE c.

CASE lv_fcode.

WHEN 'BNEW'.

zatnam = ''.

desc = ''.

leng = 3.
CLEAR: itab. REFRESH: itab.

WHEN 'BDISP'.

CLEAR: itab. REFRESH: itab.
CLEAR: desc.

SELECT SINGLE * FROM cabn WHERE atnam = zatnam.

atinn = cabn-atinn.

zatinn = atinn.

anzst = cabn-anzst.

SELECT SINGLE * FROM cabnt WHERE atinn = cabn-atinn.

atbez = cabnt-atbez.

atbez_d2 = atbez.

DESCRIBE TABLE itab LINES t_ctrl-lines.

SELECT cabn~atinn cabn~atnam cawn~atzhl cawn~atwrt cawnt~atwtb

cabn~atkla cabn~atmst

INTO CORRESPONDING FIELDS OF TABLE itab

FROM cabn

INNER JOIN cawn ON cabn~atinn = cawn~atinn

INNER JOIN cawnt ON cabn~atinn = cawnt~atinn

WHERE cabn~atnam = cabn-atnam

AND cawn~atzhl = cawnt~atzhl.

DESCRIBE TABLE itab LINES ln.

To make the vertical scroll bar to come on runtime

t_ctrl-lines = ln + 100.

desc = atbez_d2.

leng = anzst.

WHEN 'BACK'.

SET SCREEN '0'.

LEAVE PROGRAM.

WHEN 'BEDIT'.

flg = 'Y'.

WHEN 'BSAVE'.

PERFORM checkchar.

LOOP AT itab.

UPDATE zzz_makt FROM TABLE i_makt.

MOVE itab-lkenz TO cawnt-lkenz.

UPDATE cawnt SET lkenz = ITAB-LKENZ
WHERE atinn = itab-atinn AND atzhl = itab-atzhl.

update cawnt set lkenz = itab-lkenz.

DELETE itab WHERE lkenz = 'X'.

DELETE FROM cawnt WHERE lkenz = 'X'.

MOVE:
itab-atwtb TO cawnt-atwtb.

UPDATE cawnt SET atwtb = itab-atwtb
WHERE atinn = itab-atinn AND atzhl = itab-atzhl.

*break-point.

ENDLOOP.

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

&----

*& Module STATUS_9000 OUTPUT

&----

text

----

MODULE status_9000 OUTPUT.

SET PF-STATUS '9000'.

SET TITLEBAR '900'.

ENDMODULE. " STATUS_9000 OUTPUT

&----

*& Module set_screen_fields OUTPUT

&----

text

----

MODULE set_screen_fields OUTPUT.

LOOP AT SCREEN.

IF flg IS INITIAL.

screen-input = 0.

ELSEIF ( flg EQ 'Y' ).

IF ( ( screen-name = 'Itab-atwrt'

OR screen-name = 'Itab-lkenz' )

AND t_ctrl-current_line LE ln ) .

Making the screen fields as editable

screen-input = 1.

ELSEIF ( ( screen-name = 'Itab-atwrt' )

AND t_ctrl-current_line LE ln ).

Making the screen field as uneditable

screen-input = 0.

ENDIF.

Modifying the screen after making changes

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " set_screen_fields OUTPUT

&----

*& Form charsave2

&----

text

----

--> p1 text
<-- p2 text

----

FORM charsave2 .

ENDFORM. " charsave2

&----

*& Form CheckChar

&----

text

----

--> p1 text
<-- p2 text

----

FORM checkchar .

DATA it_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA zcharname LIKE bapicharactkey-charactname.

DATA it_detail LIKE bapicharactdetail OCCURS 0 WITH HEADER LINE.

DATA it_descr LIKE bapicharactdescr OCCURS 0 WITH HEADER LINE.

DATA it_actv LIKE bapicharactvaluesdescr OCCURS 0 WITH HEADER LINE.

DATA it_char LIKE bapicharactvalueschar OCCURS 0 WITH HEADER LINE.

DATA it_snum LIKE bapicharactvaluesnum OCCURS 0 WITH HEADER LINE.

DATA it_curr LIKE bapicharactvaluescurr OCCURS 0 WITH HEADER LINE.

DATA it_nces LIKE bapicharactreferences OCCURS 0 WITH HEADER LINE.

DATA it_ions LIKE bapicharactrestrictions OCCURS 0 WITH HEADER LINE.

DATA zatinn LIKE cabn-atinn.

DATA it_return1 LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA zcharname1 LIKE bapicharactkey-charactname.

DATA it_detail1 LIKE bapicharactdetail OCCURS 0 WITH HEADER LINE.

DATA it_descr1 LIKE bapicharactdescr OCCURS 0 WITH HEADER LINE.

DATA it_actv1 LIKE bapicharactvaluesdescr OCCURS 0 WITH HEADER LINE.

DATA it_char1 LIKE bapicharactvalueschar OCCURS 0 WITH HEADER LINE.

DATA it_snum1 LIKE bapicharactvaluesnum OCCURS 0 WITH HEADER LINE.

DATA it_curr1 LIKE bapicharactvaluescurr OCCURS 0 WITH HEADER LINE.

DATA it_nces1 LIKE bapicharactreferences OCCURS 0 WITH HEADER LINE.

DATA it_ions1 LIKE bapicharactrestrictions OCCURS 0 WITH HEADER LINE.

DATA zatinn1 LIKE cabn-atinn.

DATA:BEGIN OF it_msg OCCURS 0,

atnam(30) type c,

type LIKE bapiret2-type,

msgno LIKE bapiret2-number,

messg LIKE bapiret2-message,

END OF it_msg.

CLEAR: it_detail,it_descr,it_actv.
REFRESH: it_descr,it_actv.
perform char_check.

READ TABLE itab.

*DESCRIBE TABLE itab LINES t_ctrl-lines.

READ TABLE itab INDEX t_ctrl-CURRENT_LINE.

LOOP AT itab.

zcharname = zatnam.

it_detail-charact_name = zcharname.

it_detail-data_type = 'CHAR'.

it_detail-length = leng.

it_detail-charact_group = '/AFS/SAP-D'.

it_detail-status = '1'.

it_detail-value_assignment = 'X'.

APPEND it_detail.

it_descr-description = desc.

it_descr-language_int = sy-langu.

APPEND it_descr.

it_char-value_char = itab-atwrt.

APPEND it_char.

it_actv-value_char = itab-atwrt.

it_actv-language_int = sy-langu.

it_actv-description = itab-atwtb.

APPEND it_actv.

ENDLOOP.

LOOP AT it_return.

CLEAR it_msg.

it_msg-type = it_return-type.

it_msg-msgno = it_return-number.

it_msg-messg = it_return-message.

APPEND it_msg.

ENDLOOP.

break-point.

CALL FUNCTION 'BAPI_CHARACT_CHANGE'

EXPORTING

charactname = zcharname

CHANGENUMBER =

keydate = sy-datum

TABLES

charactdetailnew = it_detail

charactdescrnew = it_descr

CHARACTVALUESNUMNEW =

charactvaluescharnew = it_char

CHARACTVALUESCURRNEW =

charactvaluesdescrnew = it_actv

CHARACTREFERENCESNEW =
CHARACTRESTRICTIONSNEW =

return = it_return

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'

IMPORTING
RETURN =

endloop.

ENDFORM. " CheckChar

topic Re: Disappeared row data from table control. in Application Development and Automation Discussions

Disappeared row data from table control.

Re: Disappeared row data from table control.

Re: Disappeared row data from table control.

Re: Disappeared row data from table control.

Re: Disappeared row data from table control.

Re: Disappeared row data from table control.

Re: Disappeared row data from table control.