I need help!

Former Member — Thu, 27 Sep 2007 02:18:54 GMT

Currently i have this codes below. But the table populated does not have field name. I do not know what i have to add to make the field name appear in the table.

Can anyone help me?

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

REPORT ZRECT1.

PARAMETERS: p_table TYPE dntab-tabname DEFAULT 'ZSTUD03' OBLIGATORY.

TYPE-POOLS : abap.

CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: o_grid TYPE REF TO cl_gui_alv_grid,

o_custom_container TYPE REF TO cl_gui_custom_container,

o_event_receiver TYPE REF TO lcl_event_receiver.

FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE,

<fs_warea> TYPE ANY,

<fs_field> TYPE ANY.

DATA: o_table TYPE REF TO data,

o_line TYPE REF TO data,

w_fcat TYPE lvc_s_fcat,

i_fcat TYPE lvc_t_fcat,

i_sort TYPE lvc_t_sort,

i_layo TYPE lvc_s_layo.

DATA : i_nametab TYPE TABLE OF dntab,

w_nametab TYPE dntab.

----

CLASS lcl_event_receiver DEFINITION

----

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

handle_user_command FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

ENDCLASS. "lcl_event_receiver DEFINITION

&----

*& Classes implementation section

&----

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD handle_toolbar.

CONSTANTS:

c_button_normal TYPE i VALUE 0,

c_separator TYPE i VALUE 1.

DATA: ls_toolbar TYPE stb_button.

CLEAR ls_toolbar.

APPEND ls_toolbar TO e_object->mt_toolbar.

CLEAR ls_toolbar.

MOVE 'EDIT' TO ls_toolbar-function.

MOVE icon_system_copy TO ls_toolbar-icon.

MOVE 'Sets Grid in Edit Mode' TO ls_toolbar-quickinfo.

MOVE 'Edit' TO ls_toolbar-text.

MOVE ' ' TO ls_toolbar-disabled.

APPEND ls_toolbar TO e_object->mt_toolbar.

MOVE 'UPDATE' TO ls_toolbar-function.

MOVE icon_system_save TO ls_toolbar-icon.

MOVE 'Updates all the changed data' TO ls_toolbar-quickinfo.

MOVE 'Update' TO ls_toolbar-text.

MOVE ' ' TO ls_toolbar-disabled.

APPEND ls_toolbar TO e_object->mt_toolbar.

MOVE 'DELETE' TO ls_toolbar-function.

MOVE icon_delete TO ls_toolbar-icon.

MOVE 'Deletes the current record' TO ls_toolbar-quickinfo.

MOVE 'Delete' TO ls_toolbar-text.

MOVE ' ' TO ls_toolbar-disabled.

APPEND ls_toolbar TO e_object->mt_toolbar.

ENDMETHOD. "handle_toolbar

Method that check the events in the created buttons. *

METHOD handle_user_command.

CASE e_ucomm.

WHEN 'EDIT'.

CALL METHOD o_grid->set_ready_for_input

EXPORTING

i_ready_for_input = 1.

WHEN 'UPDATE'.

PERFORM update_modified_information.

WHEN 'DELETE'.

PERFORM delete_modified_information.

ENDCASE.

ENDMETHOD. "handle_user_command

ENDCLASS. "lcl_event_receiver IMPLEMENTATION

START-OF-SELECTION.

CALL SCREEN 9000.

&----

*& Module STATUS_9000 OUTPUT

&----

text

----

MODULE STATUS_9000 OUTPUT.

SET PF-STATUS 'SE16'.

SET TITLEBAR 'SE16'.

ENDMODULE. " STATUS_9000 OUTPUT

&----

*& Module USER_COMMAND_9000 INPUT

&----

text

----

MODULE USER_COMMAND_9000 INPUT.

CASE sy-ucomm .

WHEN 'BACK' OR 'EXIT'.

SET SCREEN 0.

LEAVE SCREEN.

WHEN OTHERS.

MESSAGE 'Function Not Defined' TYPE 'I'.

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

&----

*& Module init_9000 OUTPUT

&----

text

----

MODULE init_9000 OUTPUT.

IF o_custom_container IS INITIAL.

Create a custom container

CREATE OBJECT o_custom_container

EXPORTING

container_name = 'CONTAINER'

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

OTHERS = 6.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CREATE OBJECT o_grid

EXPORTING

i_parent = o_custom_container

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

OTHERS = 5 .

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CREATE OBJECT o_event_receiver. "Creating event receiver object

SET HANDLER o_event_receiver->handle_user_command FOR o_grid.

SET HANDLER o_event_receiver->handle_toolbar FOR o_grid.

CALL METHOD o_grid->set_ready_for_input

EXPORTING

i_ready_for_input = 0.

ENDIF.

ENDMODULE. " init_9000 OUTPUT

&----

*& Module build_struct_9000 OUTPUT

&----

text

----

MODULE build_struct_9000 OUTPUT.

Create dynamic Internal Table

CREATE DATA o_table TYPE TABLE OF (p_table) .

ASSIGN o_table->* TO <fs_table>.

Create dynamic work area

CREATE DATA o_line LIKE LINE OF <fs_table>.

ASSIGN o_line->* TO <fs_warea>.

Field Catalogue

CALL FUNCTION 'NAMETAB_GET'

EXPORTING

langu = sy-langu

tabname = p_table

TABLES

nametab = i_nametab.

LOOP AT i_nametab INTO w_nametab .

w_fcat-col_pos = w_nametab-position.

w_fcat-fieldname = w_nametab-fieldname .

w_fcat-datatype = w_nametab-datatype.

w_fcat-inttype = w_nametab-inttype.

w_fcat-intlen = w_nametab-intlen.

w_fcat-decimals = w_nametab-decimals.

IF w_nametab-keyflag NE 'X'.

w_fcat-edit = 'X'.

ENDIF.

APPEND w_fcat TO i_fcat.

ENDLOOP.

ENDMODULE. " build_struct_9000 OUTPUT

&----

*& Module display_in_grid_9000 OUTPUT

&----

text

----

MODULE display_in_grid_9000 OUTPUT.

SELECT * FROM (p_table) INTO TABLE <fs_table>.

IF sy-subrc EQ 0.

CALL METHOD o_grid->set_table_for_first_display

EXPORTING

i_save = 'A'

i_default = 'X'

is_layout = i_layo

CHANGING

it_outtab = <fs_table>

it_fieldcatalog = i_fcat

it_sort = i_sort

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDMODULE. " display_in_grid_9000 OUTPUT

&----

*& Form update_modified_information

&----

text

----

--> p1 text
<-- p2 text

----

FORM update_modified_information .

UPDATE (p_table) FROM TABLE <fs_table>.

CALL METHOD o_grid->set_ready_for_input

EXPORTING

i_ready_for_input = 0.

ENDFORM. " update_modified_information

&----

*& Form delete_modified_information

&----

text

----

--> p1 text
<-- p2 text

----

FORM delete_modified_information .

DATA: lv_line TYPE i,

lv_count TYPE i VALUE 0.

DATA: i_index_rows TYPE lvc_t_row,

w_index_rows LIKE lvc_s_row.

Reading the index of the selected row in the ALV grid.

CALL METHOD o_grid->get_selected_rows

IMPORTING

et_index_rows = i_index_rows.

DESCRIBE TABLE i_index_rows LINES lv_line.

IF lv_line LT 1.

MESSAGE 'Select atleast 1 row' TYPE 'I'.

EXIT.

ELSE.

LOOP AT i_index_rows INTO w_index_rows .

lv_line = w_index_rows-index - lv_count.

READ TABLE <fs_table> INTO <fs_warea> INDEX lv_line.

DELETE <fs_table> INDEX lv_line.

DELETE (p_table) FROM <fs_warea>.

lv_count = lv_count + 1.

ENDLOOP.

CALL METHOD o_grid->refresh_table_display.

CALL METHOD o_grid->set_ready_for_input

EXPORTING

i_ready_for_input = 0.

ENDIF.

ENDFORM. " delete_modified_information

topic Re: I need help! in Application Development and Automation Discussions

I need help!

Re: I need help!

Re: I need help!