Skip to Content
0
Dec 14, 2006 at 07:46 AM

Table maintenace - adding my own screen fields

28 Views

Hi, I made a table zx with 4 columns and table maintenace also. Besides I need a column on the screen wich is not exist in my table. This column must be fiiled by values that are taken according values of first column..

I add this column on the screen by se80 and made such changes in code

PROCESS BEFORE OUTPUT.

MODULE LISTE_INITIALISIEREN.

LOOP AT EXTRACT WITH CONTROL

TCTRL_ZPM_144_EQ_STTYP CURSOR NEXTLINE.

MODULE LISTE_SHOW_LISTE.

ENDLOOP.

*

PROCESS AFTER INPUT.

MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.

MODULE LISTE_BEFORE_LOOP.

LOOP AT EXTRACT.

MODULE LISTE_INIT_WORKAREA.

CHAIN.

FIELD ZPM_144_EQ_STTYP-EQART .

FIELD ZPM_144_EQ_STTYP-STTYPE_10 .

FIELD ZPM_144_EQ_STTYP-STTYPE_20 .

FIELD ZPM_144_EQ_STTYP-STTYPE_30 .

FIELD ZPM_144_EQ_STTYP-STTYPE_40 .

MODULE INIT_EARTX. <--- my module

MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.

ENDCHAIN.

FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.

CHAIN.

FIELD ZPM_144_EQ_STTYP-EQART .

MODULE LISTE_UPDATE_LISTE.

ENDCHAIN.

ENDLOOP.

MODULE LISTE_AFTER_LOOP.:

MODULE INIT_EARTX INPUT.

DATA: t_EARTX TYPE TABLE OF T370K_T-EARTX WITH HEADER LINE.

SELECT SINGLE EARTX FROM T370K_T

INTO t_EARTX

WHERE EQART = ZPM_144_EQ_STTYP-EQART AND

SPRAS = SY-LANGU.

APPEND t_EARTX.

ENDMODULE.

But I don't know how to display values on the screen. I know that it must be done ib PBO but HOW???