Problem with checkbox in the selection screen

Question

Hi guys,
I have a problem with the check box in the selection screen.When i select a check box then a field in the selection screen should be enabled for entering a value.Again if i unselect the checkbox then the field should be disabled for entering a value.I have written the code in at selection-screen output.
The problem is when i select the check box ,the field is not enabled.But when i press enter after selecting the checkbox then the field is enabled for input.It is the same when i unselect the checkbox,after i press enter only the field is getting disabled.What could be the problem.Any suggestions please?
Thanks.

Answer 1

Hi d p
             Please try this code . I think this code have some way that you would like.
REPORT  zdownload_to_application_server.
TABLES : caufvd, jest.
I N C L U D E  P R O G R A M                                        *
*INCLUDE znrpstnd.
Selection Screen                                                    *
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.
PARAMETERS: p_outb RADIOBUTTON GROUP g1 USER-COMMAND outb DEFAULT 'X' ,
            p_inb RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS : p_werks LIKE caufvd-werks MODIF ID a.        " Plant   "OBLIGATORY
SELECT-OPTIONS  :  s_auart FOR caufvd-auart MODIF ID a,       " Order Type
                   s_aufnr FOR caufvd-aufnr MODIF ID a.       " Order number
PARAMETERS: p_path TYPE string DEFAULT 'C:\SchedulerInterface-OutboundTextFile\' MODIF ID a,
            p_actual AS CHECKBOX MODIF ID a.                  " Transfer Actual
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS : p_werks2 LIKE caufvd-werks MODIF ID b,   " Plant   "OBLIGATORY
             p_path2 TYPE string DEFAULT 'C:\SchedulerInterface-InboundTextFile\' MODIF ID b,
             p_path3 TYPE string DEFAULT 'C:\SchedulerInterface-InboundTextFile\' MODIF ID b,
             p_sessio TYPE apqi-groupid MODIF ID b.   " BDC Session
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
  IF p_outb EQ 'X'.   " Outbound --> Hide inbound
    LOOP AT SCREEN.
      "IF screen-name = '%BT02011_BLOCK_1000'.
      IF screen-group2 = 'BLK'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'A'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'B'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      "IF screen-name = '%BT01004_BLOCK_1000'.
      IF screen-group3 = 'BLK'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'A'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'B'.
        screen-active = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path2.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\SchedulerInterface-InboundTextFile\'
      mask             = ',Text Files,.txt,All files,.*.'
    IMPORTING
      filename         = p_path2
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path3.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = 'C:\SchedulerInterface-InboundTextFile\'
      mask             = ',Text Files,.txt,All files,.*.'
    IMPORTING
      filename         = p_path3
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
TOP-OF-PAGE.
START-OF-SELECTION.
Regards
Wiboon