Variable refresh

[Former Member]

Howdy,

After having created a master data record from the web in bps i would want to see it now in the drop-down list for one of my variables. The how-to papers generally say it's not possible as you would have to get out and come back in for variables to get refreshed and their values to be put into the buffer.

I want to trigger the re-read of variable values and update the buffer with them. What i've done so far is created an FM which would create a master data record. Within this module i call my other module which is responsible for creating a list of values for the variable. So it reads it again and when i debug i see the list including my newly created value (so far so great).

Now am stuck as to what would trigger the update into the buffer for this specific variable. I look at the FM UPARU_UI_REFRESH_VARIABLE. I pass on to it the right i_area, the i_variable and a table (etk_varsel) with the new variable values and want the buffer to be refreshed with the new values. The code i use is the following:

FUNCTION z_tims_request_create.
*"----------------------------------------------------------------------
*"*"Ëîêàëüíûé èíòåðôåéñ:
*"  IMPORTING
*"     REFERENCE(I_AREA) TYPE  UPC_Y_AREA
*"     REFERENCE(I_PLEVEL) TYPE  UPC_Y_PLEVEL
*"     REFERENCE(I_METHOD) TYPE  UPC_Y_METHOD
*"     REFERENCE(I_PARAM) TYPE  UPC_Y_PARAM
*"     REFERENCE(I_PACKAGE) TYPE  UPC_Y_PACKAGE
*"     REFERENCE(IT_EXITP) TYPE  UPF_YT_EXITP
*"     REFERENCE(ITO_CHASEL) TYPE  UPC_YTO_CHASEL
*"     REFERENCE(ITO_CHA) TYPE  UPC_YTO_CHA
*"     REFERENCE(ITO_KYF) TYPE  UPC_YTO_KYF
*"  EXPORTING
*"     REFERENCE(ET_MESG) TYPE  UPC_YT_MESG
*"  CHANGING
*"     REFERENCE(XTH_DATA) TYPE  HASHED TABLE
*"----------------------------------------------------------------------

  TABLES: /bic/pzdatareq, /bic/tzdatareq.

  FIELD-SYMBOLS:  <ls_data>  TYPE ANY,
                  <zreqt>    TYPE ANY,
                  <zdate>    TYPE ANY,
                  <ztxtm>    TYPE ANY.


  DATA: lr_data  TYPE REF TO data,
        k_attr   TYPE rsd_t_iobjnm,
        k_h_attr TYPE rsd_s_iobjnm,
        ls_mesg  TYPE upc_ys_mesg,
        curva_v  TYPE upc_yto_charsel OCCURS 0.


  DATA: BEGIN OF req_a OCCURS 0, "attributes
         reqt LIKE /bic/pzdatareq-/bic/zdatareq,
         objv LIKE /bic/pzdatareq-objvers,
         chan LIKE /bic/pzdatareq-changed,
         date LIKE /bic/pzdatareq-date0,
        END OF req_a.
  DATA: BEGIN OF req_t OCCURS 0, "texts
         reqt LIKE /bic/tzdatareq-/bic/zdatareq,
         lang LIKE /bic/tzdatareq-langu,
         txt  LIKE /bic/tzdatareq-txtmd,
        END OF req_t.

  CONSTANTS: BEGIN OF rsdmd_c_tabclass,
              md    LIKE rsdmdenq-tabclass VALUE 'M',
              text  LIKE rsdmdenq-tabclass VALUE 'T',
             END   OF rsdmd_c_tabclass.

  break svobodina.

  k_h_attr-iobjnm = 'ZDATE'.
  APPEND k_h_attr TO k_attr.

  CREATE DATA lr_data LIKE LINE OF xth_data.
  ASSIGN lr_data->* TO <ls_data>.

  ASSIGN COMPONENT 'S_CHAS-ZDATAREQ1' OF STRUCTURE <ls_data>
  TO <zreqt>.
  ASSIGN COMPONENT 'S_CHAS-0DATE'     OF STRUCTURE <ls_data>
  TO <zdate>.
  ASSIGN COMPONENT 'S_CHAS-ZTXTMD'    OF STRUCTURE <ls_data>
  TO <ztxtm>.

  LOOP AT xth_data INTO <ls_data>.

    req_a-reqt = <zreqt>.
    req_a-objv = 'A'.
    req_a-date = <zdate>.
    APPEND req_a.
    req_t-reqt = <zreqt>.
    req_t-lang = sy-langu.
    req_t-txt =  <ztxtm>.
    APPEND req_t.


    CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
      EXPORTING
        i_iobjnm               = 'ZDATAREQ'
        i_tabclass             = rsdmd_c_tabclass-md
        i_t_attr               = k_attr
      TABLES
        i_t_table              = req_a
      EXCEPTIONS
        attribute_name_error   = 1
        iobj_not_found         = 2
        generate_program_error = 3
        OTHERS                 = 4.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.


    CALL FUNCTION 'RSDMD_WRITE_ATTRIBUTES_TEXTS'
      EXPORTING
        i_iobjnm               = 'ZDATAREQ'
        i_tabclass             = rsdmd_c_tabclass-text
      TABLES
        i_t_table              = req_t
      EXCEPTIONS
        attribute_name_error   = 1
        iobj_not_found         = 2
        generate_program_error = 3
        OTHERS                 = 4.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSE.
      ls_mesg-msgty  = 'I'.
      ls_mesg-msgid  = 'ZTIMS'.
      ls_mesg-msgno  = '024'.
      ls_mesg-msgv1  = <zreqt>.
      ls_mesg-msgv2  = <zdate>.
      APPEND ls_mesg TO et_mesg.
    ENDIF.

* Try to refresh the variable value for requests

    CALL FUNCTION 'Z_TIMS_REQUEST_VARIABLE'
      EXPORTING
        i_area      = 'ZPSBP09'
        i_variable  = 'DATAREQ2'
      IMPORTING
        eto_charsel = curva_v.

    CALL FUNCTION 'UPARU_UI_REFRESH_VARIABLE'
      EXPORTING
        i_area     = 'ZPSBP09'
        i_variable = 'DATAREQ2'
      TABLES
        etk_varsel = curva_v.

*    CALL FUNCTION 'RSDMD_MD_ACTIVATE'
*      EXPORTING
*        i_chabasnm = 'ZDATAREQ'.

  ENDLOOP.

ENDFUNCTION.

And the confusion i have is in the " * Try to refresh the variable value for requests" section. Anyone done anything similar to it? By the way, the first part of the code deals with creating master data records from the BPS layout, for those interested.

Thanks

Alex

[Former Member]

Hi Alex,

I noticed your issue related to the Variable Refresh.

We're having the same issue!

Could you please let me know exactly which Abap-coding

you used to solve your issue.

Thanks for your help!

Kurt