Skip to Content
0
Former Member
Sep 28, 2007 at 01:17 PM

Screen Painter - Enter clears all fields

42 Views

I have 2 input fields in a screen and a table control. When I press the enter key all fields are cleared except the table control values. How to retain the values

PROCESS BEFORE OUTPUT.

  MODULE status_0100.

  MODULE tblcntrl_change_tc_attr.
  LOOP AT   i_items
       INTO wa_items
       WITH CONTROL tblcntrl
       CURSOR tblcntrl-current_line.
  ENDLOOP.

PROCESS AFTER INPUT.

  LOOP AT i_items.
    MODULE tblcntrl_modify.
  ENDLOOP.

  MODULE user_command_0100.

MODULE tblcntrl_change_tc_attr OUTPUT.
  DESCRIBE TABLE i_items LINES tblcntrl-lines.
  tblcntrl-lines = tblcntrl-lines + 10.
ENDMODULE.           

MODULE tblcntrl_modify INPUT.
  MODIFY i_items FROM wa_items INDEX tblcntrl-current_line.
  IF sy-subrc <> 0.
    INSERT wa_items INTO i_items INDEX tblcntrl-current_line.
  ENDIF.
ENDMODULE. 

MODULE user_command_0100 INPUT.

  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BACK'.   LEAVE PROGRAM.
    WHEN 'EXIT'.   LEAVE PROGRAM.
    WHEN 'CANCEL'. LEAVE PROGRAM.
    WHEN 'CREATE'.
      SET SCREEN 200.
    WHEN OTHERS.   CALL SCREEN 100.
  ENDCASE.

ENDMODULE.