Validate select option fields

Question

Hi all,
I have two fields on my selection screen(Select Options). Now I want to validate if the user the entered the values in the select options or not.
I have used the following code which are not working.
data: range_table_chn type ref to data,
range_table_chn = WD_THIS->M_HANDLER->GET_VALUE_OF_PARAMETER_FIELD( i_id = 'KUNNR' ).
if not range_table_chn is initial.
Message.
endif.
and
data: range_table_chn type ref to data,
range_table_chn = WD_THIS->M_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD( i_id = 'KUNNR' ).
if not range_table_chn is initial.
Message.
endif.
Both of these are not working . Can any one suggest me the correct way of validating the select options if the user entered or not?
Thanks,

Answer 1

Hi,
Try this code for validation.
METHOD onactionsearch_data .
Processing For OnAction ´SEARCH` on Screen
  DATA:lo_po_list             TYPE REF TO if_wd_context_node     ,
       lo_el_po_list          TYPE REF TO if_wd_context_element  ,
       lo_werks               TYPE REF TO data                   ,
       lo_ebeln               TYPE REF TO data                   ,
       lo_ebdat               TYPE REF TO data                   .
DATA lt_werks TYPE if_wd_select_options=>tt_selection_screen_item.
DATA:lt_po_list     TYPE /bay0/msdts_cl_whp_goods_rcp=>tt_po_list ,
lv_valid       TYPE abap_bool                             .
DATA lv_text_key    TYPE wdr_text_key .
FIELD-SYMBOLS: <lt_ebeln>  TYPE ANY TABLE,
<lt_ebdat>  TYPE ANY TABLE.
**----Get the Data from the select Option&Parameter-----***
  Returns the data from a parameter field-P_WERKS*
wd_this->m_handler->get_parameter_fields( IMPORTING et_fields = lt_werks ).
  Retrieve the data from the select option*
lo_ebeln = wd_this->m_handler->get_range_table_of_sel_field( i_id = 'SO_EBELN' ).
  Assign it to a field symbol*
ASSIGN lo_ebeln-> TO .*
  Retrieve the data from the select option
lo_ebdat = wd_this->m_handler->get_range_table_of_sel_field( i_id = 'SO_EBDAT' ).
  Assign it to a field symbol
ASSIGN lo_ebdat-> TO .*
**----Data access using the methods of Assistance Class-----***
  Validate the entered data on Selection Screen
wd_assist->validate_sel_screen_data( EXPORTING it_so_ebeln = lo_ebeln
it_p_werks  = lt_werks
IMPORTING ev_valid    = lv_valid
ev_text_key = lv_text_key ).
  Display Message if LV_VALID = X means when input is Invalid
  IF lv_valid EQ 'X'.
  Msg-Please enter correct Purchase Order Num.
    EXIT.
  ENDIF.
ENDMETHOD.
METHOD validate_sel_screen_data.
  DATA ls_ekko TYPE ekko.
  DATA lv_werks TYPE werks_d.
  DATA ls_werks TYPE if_wd_select_options=>t_selection_screen_item.
  FIELD-SYMBOLS:   TYPE ANY .
  READ TABLE it_p_werks INTO ls_werks INDEX 1.
  IF sy-subrc EQ 0.
  Assign it to a field symbol
    ASSIGN ls_werks-m_value->* TO  IS not ASSIGNED.
     MOVE '106' TO ev_text_key.
      ev_valid = 'Y'.
      exit.
    ENDIF.
  Validate Plant eneterd on selection screen
    SELECT SINGLE werks
      FROM t001w
      INTO lv_werks
     WHERE werks EQ .
    IF sy-subrc EQ 0.
     Do the Authority Check
      AUTHORITY-CHECK OBJECT 'M_BEST_WRK'
      ID 'ACTVT' FIELD '03'
      ID 'WERKS' FIELD lv_werks.
      IF sy-subrc NE 0.
        MOVE '105' TO ev_text_key.
        ev_valid = abap_true.
        exit.
      ENDIF.
    ELSE.
      MOVE '104' TO ev_text_key.
      ev_valid = abap_true.
      exit.
    ENDIF.
  ENDIF.
Assign it to a field symbol
  ASSIGN it_so_ebeln->* TO  IS NOT INITIAL.
Get Purch. Order from EKKO table
  SELECT ebeln
    FROM ekko
    INTO ls_ekko
    UP TO 1 ROWS
   WHERE ebeln IN .
  ENDSELECT.
  IF sy-subrc EQ 0.
    ev_valid = abap_false.
  ELSE.
    MOVE '102' TO ev_text_key.
    ev_valid = abap_true.
  ENDIF. "if sy-subrc eq 0.
ENDMETHOD.
Regard
Manoj Kumar
Edited by: Manoj Kumar on Mar 10, 2009 10:30 AM