Dynpro - Listboxeintrag speichern

Code: Alles auswählen.

MODULE status_0120 OUTPUT.

  TYPE-POOLS : vrm.
  DATA: ld_field    TYPE vrm_id ,
        it_listbox  TYPE vrm_values,
        wa_listbox  LIKE LINE OF it_listbox.
  DATA: it_rg TYPE STANDARD TABLE OF z_rg,
        wa_rg TYPE z_rg.


  SELECT *
  UP TO 10 ROWS
  FROM z_brg
  INTO TABLE it_rg.

  LOOP AT it_rg INTO wa_rg.
    wa_listbox-key = wa_rg-reg_id.
    wa_listbox-text = wa_rg-reg.

    APPEND wa_listbox TO it_listbox.

  ENDLOOP.

  ld_field = 'Z_RG-REG'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = ld_field
      values = it_listbox.

ENDMODULE.                 " STATUS_0120  OUTPUT

Code: Alles auswählen.

MODULE user_command_0120 INPUT.
  CASE ok_code.
    WHEN 'BUTTON'.
      z_ca-id = wa_z_ca-id.
      z_ca-name = wa_z_ca-name.
      z_ca-cls = wa_z_ca-cls.
      z_rg-reg = z_rg-reg.
      MODIFY z_ca.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0120  INPUT