‎2005 Nov 10 1:57 PM
Hi
I am using INPUT ON addition for a write statement. When i change the values and click on menu button, the changed values are not reflecting. Below is the source code.The previous MARA table values are only getting printed again. My changed values are not getting printed.
REPORT ZINPUT.
DATA : IT_MARA TYPE TABLE OF MARA,
WA_MARA LIKE LINE OF IT_MARA.
set pf-status 'GUI'.
SELECT * FROM MARA UP TO 1 ROWS INTO WA_MARA.
ENDSELECT.
WRITE:/ 'Material Number :'.
WRITE: WA_MARA-MATNR INPUT ON.
WRITE:/ 'Material UOM :'.
WRITE: WA_MARA-MEINS INPUT ON.
WRITE:/ 'Material Type :'.
WRITE: WA_MARA-MTART INPUT ON.
AT USER-COMMAND.
IF SY-UCOMM = 'CLICK'.
WRITE:/ WA_MARA-MATNR.
WRITE:/ WA_MARA-MEINS.
WRITE:/ WA_MARA-MTART.
ENDIF.
‎2005 Nov 10 2:05 PM
‎2006 Jan 17 7:08 AM
You need to read from the screen after the changes are made. plz look into the correct code below.
DATA : it_mara TYPE TABLE OF mara,
wa_mara LIKE LINE OF it_mara.
START-OF-SELECTION.
SELECT * FROM mara UP TO 1 ROWS INTO wa_mara.
ENDSELECT.
END-OF-SELECTION.
SET PF-STATUS 'GUI'.
WRITE:/ 'Material Number :'.
WRITE: wa_mara-matnr INPUT ON.
WRITE:/ 'Material UOM :'.
WRITE: wa_mara-meins INPUT ON.
WRITE:/ 'Material Type :'.
WRITE: wa_mara-mtart INPUT ON.
AT USER-COMMAND.
IF sy-ucomm = 'NEXT'.
READ LINE 1 OF CURRENT PAGE FIELD VALUE wa_mara-matnr.
IF sy-subrc EQ 0.
READ LINE 2 OF CURRENT PAGE FIELD VALUE wa_mara-meins.
IF sy-subrc EQ 0.
READ LINE 3 OF CURRENT PAGE FIELD VALUE wa_mara-mtart.
ENDIF.
ENDIF.
ENDIF.
WRITE: wa_mara-matnr,wa_mara-MEINS,wa_mara-MTART.
‎2006 Jan 17 7:09 AM
You need to read from the screen after the changes are made. plz look into the correct code below.
DATA : it_mara TYPE TABLE OF mara,
wa_mara LIKE LINE OF it_mara.
START-OF-SELECTION.
SELECT * FROM mara UP TO 1 ROWS INTO wa_mara.
ENDSELECT.
END-OF-SELECTION.
SET PF-STATUS 'GUI'.
WRITE:/ 'Material Number :'.
WRITE: wa_mara-matnr INPUT ON.
WRITE:/ 'Material UOM :'.
WRITE: wa_mara-meins INPUT ON.
WRITE:/ 'Material Type :'.
WRITE: wa_mara-mtart INPUT ON.
AT USER-COMMAND.
IF sy-ucomm = 'NEXT'.
READ LINE 1 OF CURRENT PAGE FIELD VALUE wa_mara-matnr.
IF sy-subrc EQ 0.
READ LINE 2 OF CURRENT PAGE FIELD VALUE wa_mara-meins.
IF sy-subrc EQ 0.
READ LINE 3 OF CURRENT PAGE FIELD VALUE wa_mara-mtart.
ENDIF.
ENDIF.
ENDIF.
WRITE: wa_mara-matnr,wa_mara-MEINS,wa_mara-MTART.