TABLE CONTROL

[szabina123]

Hello
I cannot find a mistake... My table is empty, but why?

*infocube gyak 0800 dynpro

TYPES: BEGIN OF T_CUBET,

INFOCUBE LIKE RSDCUBET-INFOCUBE,

TXTSH LIKE RSDCUBET-TXTSH,

TXTLG LIKE RSDCUBET-TXTLG,

OBJVERS LIKE RSDCUBE-OBJVERS,

END OF T_CUBET.

DATA: G_CUBET_ITAB TYPE TABLE OF T_CUBET,

G_CUBET_WA TYPE T_CUBET.

DATA: G_CUBET_COPIED.

CONTROLS: CUBET TYPE TABLEVIEW USING SCREEN 0800.

MODULE CUBET_INIT OUTPUT.

IF G_CUBET_COPIED IS INITIAL.

SELECT * FROM RSDCUBET

INNER JOIN RSDCUBE

ON RSDCUBET~INFOCUBE = RSDCUBE~INFOCUBE

* WHERE OBJVERS = 'A'

INTO CORRESPONDING FIELDS

OF TABLE G_CUBET_ITAB.

G_CUBET_COPIED = 'X'.

REFRESH CONTROL 'CUBET' FROM SCREEN '0800'.

ENDIF.

ENDMODULE.

MODULE CUBET_MOVE OUTPUT.

DATA: G_TEMP_CUBET TYPE T_CUBET.

MOVE-CORRESPONDING G_CUBET_WA TO G_TEMP_CUBET.

APPEND G_TEMP_CUBET TO G_CUBET_ITAB.

ENDMODULE.

PROCESS BEFORE OUTPUT.

MODULE CUBET_CHANGE_TC_ATTR.

LOOP AT G_CUBET_ITAB

INTO G_CUBET_WA

WITH CONTROL CUBET

CURSOR CUBET-CURRENT_LINE.

ENDLOOP.

MODULE STATUS_0800.

PROCESS AFTER INPUT.

LOOP AT G_CUBET_ITAB.

CHAIN.

FIELD G_CUBET_WA-INFOCUBE.

FIELD G_CUBET_WA-TXTSH.

FIELD G_CUBET_WA-TXTLG.

FIELD G_CUBET_WA-OBJVERS.

endchain.

ENDLOOP.

MODULE USER_COMMAND_0800.