01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | *-----------------------------------------------------------------------* SELEKTIONSBILD*-----------------------------------------------------------------------SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.* Radiobutton 1 -> Deactivate FieldsSELECTION-SCREEN BEGIN OF LINE.PARAMETERS: p_radio1 RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND rad.SELECTION-SCREEN COMMENT 6(37) text-t01 FOR FIELD p_radio1. SELECTION-SCREEN : END OF LINE.* Radiobutton 2 -> Activate FieldsSELECTION-SCREEN : BEGIN OF LINE.PARAMETERS: p_radio2 RADIOBUTTON GROUP rad1.SELECTION-SCREEN COMMENT 6(37) text-t02 FOR FIELD p_radio2.SELECTION-SCREEN : END OF LINE.* Input fieldsPARAMETERS: p_vorna TYPE vorna OBLIGATORY DEFAULT 'Max', p_nachn TYPE nachn OBLIGATORY DEFAULT 'Mustermann'.SELECTION-SCREEN END OF BLOCK b1.*----------------------------------------------------------------------* AT SELECTION-SCREEN*----------------------------------------------------------------------AT SELECTION-SCREEN OUTPUT. " PBO LOOP AT SCREEN. CASE screen-name. WHEN 'P_VORNA' OR 'P_NACHN'. screen-input = COND #( WHEN p_radio2 = abap_true THEN 1 ELSE 0 ). MODIFY SCREEN. ENDCASE. ENDLOOP. |
Tag: input fields
[ABAP] Radiobutton with label (comment) and input field
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 | SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-b01.* SchnittstelleSELECTION-SCREEN BEGIN OF LINE.PARAMETERS: p_server RADIOBUTTON GROUP rad1.SELECTION-SCREEN COMMENT 6(26) text-t01 FOR FIELD p_server.PARAMETERS: p_sname(8) TYPE c DEFAULT ''. SELECTION-SCREEN END OF LINE.* Filename (optional)PARAMETERS: p_fname TYPE j_3sdsn.* Lokale DateiPARAMETERS: p_local RADIOBUTTON GROUP rad1 DEFAULT 'X'.* DateiauswahlPARAMETERS: p_up TYPE dxfile-filename DEFAULT ''.SELECTION-SCREEN END OF BLOCK b1. |