topic Re: select option with multiple values using F4 help in Application Development and Automation Discussions

select option with multiple values using F4 help

SwarnaliBasu — Mon, 24 Aug 2009 13:58:45 GMT

i am using select option , i want to use it for multiple values and pass it through REUSE_ALV_BLOCK_LIST_APPEND, but when i am selecting multiple values then the last value is considered not the other 2, can anyone help for refrence i am posting the code

SELECT-OPTIONS:s_grpid  FOR apqi-groupid
*&---------------------------------------------------------------------*
*& AT SELECTION SCREEN WITH VALUE REQUEST for select-option-high
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_grpid-high." and

  PERFORM f_choose USING 'GROUPID'
                       's_grpid'
                CHANGING s_grpid-high.

  CHECK NOT s_grpid IS INITIAL.

  SELECT qid INTO p_qid FROM apqi UP TO 2 ROWS
                       WHERE datatyp = c_bdc
                         AND  mandant = sy-mandt
                         AND groupid = s_grpid-high.
*                         AND qstate = 'E'.
*                         and CREDATE = s_date
*                         AND cretime = s_time.
  ENDSELECT.

  CHECK sy-dbcnt = 2.

  PERFORM f_choose_bdc1 USING 'QID' ''
                     CHANGING p_qid.



*&---------------------------------------------------------------------*
*& AT SELECTION SCREEN WITH VALUE REQUEST for select-option-low
*&---------------------------------------------------------------------
*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_grpid-low.

  PERFORM f_choose_low USING 'GROUPID'
                             's_grpid'
                             CHANGING s_grpid-low.
*  PERFORM f_choose_bdc USING 'GROUPID'
*                              's_grpid-low'
*                     CHANGING s_grpid-low.
*
  CHECK NOT s_grpid IS INITIAL.


  SELECT qid INTO  p_qid FROM apqi UP TO 2 ROWS
                        WHERE groupid = s_grpid-low
                          AND mandant = sy-mandt
                          AND datatyp = c_bdc.

  ENDSELECT.
  CHECK sy-dbcnt = 2.

  PERFORM f_choose_bdc USING 'QID' ''
                     CHANGING p_qid.

Re: select option with multiple values using F4 help

SwarnaliBasu — Mon, 24 Aug 2009 13:59:47 GMT

FORM   f_choose_low USING u_value1 TYPE fieldname
                         u_value2 TYPE dynfnam
                CHANGING u_val .

  TYPES:
    BEGIN OF ty_s_values,
      qid      TYPE apq_quid,
      groupid  TYPE apq_grpn,
      creator  TYPE apq_mapn,
      credate  TYPE apq_crda,
      cretime  TYPE apq_crti,
      transcnt TYPE apq_tran,
      msgcnt   TYPE apq_reco,
    END OF ty_s_values.

  DATA:
    lt_values  TYPE TABLE OF ty_s_values,
    lt_return  TYPE  TABLE OF ddshretval,
    wg_return  LIKE ddshretval,
    l_progname TYPE sy-repid,
    l_dynnum   TYPE sy-dynnr.

  l_progname = sy-repid.
  l_dynnum   = sy-dynnr.

  IF u_value1 = 'GROUPID'.
    SELECT groupid qid userid credate cretime transcnt msgcnt
      FROM apqi
      INTO CORRESPONDING FIELDS OF TABLE lt_values
*     WHERE groupid in s_grpid
     where datatyp = c_bdc
       AND mandant = sy-mandt
       AND qstate = 'E'
       AND credate IN s_date
      AND cretime IN s_time.
  ELSE.
    SELECT groupid qid userid credate cretime transcnt msgcnt
      FROM apqi
      INTO CORRESPONDING FIELDS OF TABLE lt_values
*      WHERE groupid in s_grpid
     where datatyp = c_bdc
       AND mandant = sy-mandt
       AND groupid = s_grpid-low  " change
       AND qstate = 'E'
      AND credate IN s_date
      AND cretime IN s_time.
  ENDIF.

* F4 help
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = u_value1
      dynpprog        = l_progname
      dynpnr          = l_dynnum
      dynprofield     = 's_grpid-low'
      value_org       = 'S'
    TABLES
      value_tab       = lt_values
      return_tab      = lt_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CHECK NOT lt_return[] IS INITIAL.
  READ TABLE lt_return INTO wg_return INDEX 1.
  u_val = wg_return-fieldval.

ENDFORM.                    "f_choose_low

Re: select option with multiple values using F4 help

SwarnaliBasu — Mon, 24 Aug 2009 14:00:32 GMT


FORM f_choose_bdc USING u_value1 TYPE fieldname
                         u_value2 TYPE dynfnam
                CHANGING u_val.

  TYPES:
    BEGIN OF ty_s_values,
      qid      TYPE apq_quid,
      groupid  TYPE apq_grpn,
      creator  TYPE apq_mapn,
      credate  TYPE apq_crda,
      cretime  TYPE apq_crti,
      transcnt TYPE apq_tran,
      msgcnt   TYPE apq_reco,
    END OF ty_s_values.

  DATA:
    lt_values  TYPE TABLE OF ty_s_values,
    lt_return  TYPE  TABLE OF ddshretval,
    wg_return  LIKE ddshretval,
    l_progname TYPE sy-repid,
    l_dynnum   TYPE sy-dynnr.

  l_progname = sy-repid.
  l_dynnum   = sy-dynnr.

  IF u_value1 = 'GROUPID'.
    SELECT groupid qid userid credate cretime transcnt msgcnt
      FROM apqi
      INTO CORRESPONDING FIELDS OF TABLE lt_values
     WHERE datatyp = c_bdc
       AND mandant = sy-mandt
             AND qstate = 'E'
       AND credate IN s_date
      AND cretime IN s_time.
  ELSE.
    SELECT groupid qid userid credate cretime transcnt msgcnt
      FROM apqi
      INTO CORRESPONDING FIELDS OF TABLE lt_values
     WHERE datatyp = c_bdc
       AND mandant = sy-mandt
       AND groupid = s_grpid-low
       AND qstate = 'E'
      AND credate IN s_date
      AND cretime IN s_time.
  ENDIF.

* F4 help
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = u_value1
      dynpprog        = l_progname
      dynpnr          = l_dynnum
      dynprofield     = u_value2
      value_org       = 'S'
    TABLES
      value_tab       = lt_values
      return_tab      = lt_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CHECK NOT lt_return[] IS INITIAL.
  READ TABLE lt_return INTO wg_return INDEX 1.
  u_val = wg_return-fieldval.

ENDFORM.                               " F_CHOOSE_BDC

Re: select option with multiple values using F4 help

SwarnaliBasu — Tue, 13 Oct 2009 07:29:58 GMT

no successful reply, so closing