save_parameters

最新推荐文章于 2021-06-29 09:51:30 发布

SAP剑客

最新推荐文章于 2021-06-29 09:51:30 发布

阅读量1.3k

点赞数

分类专栏：程序人生 ABAPer 文章标签： parameters 360

本文链接：https://blog.csdn.net/zhongguomao/article/details/7720792

版权

程序人生 ABAPer 专栏收录该内容

1330 篇文章 171 订阅

订阅专栏

*-----------------------------------------------------------"n547170
*    esdus_save_parameters                                  "n547170
*-----------------------------------------------------------"n547170

FORM ESDUS_SAVE_PARAMETERS.                                 "n547170
                                                            "n547170
* only in dialog mode
  CHECK : SY-BATCH IS INITIAL.

* Save the settings in release 4.6 and higher
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'LGBST'
    I_ACTIVE = LGBST ).
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'BWBST'
    I_ACTIVE = BWBST ).
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'SBBST'
    I_ACTIVE = SBBST ).
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'XCHAR'
    I_ACTIVE = XCHAR ).
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'XNOMCHB'     "838360
                                  I_ACTIVE  =  XNOMCHB  ).  "838360

*    CALL METHOD oref_settings->set( i_element = 'XONUL'
*                                    i_active  =  xonul   ).
*
*    CALL METHOD oref_settings->set( i_element = 'XVBST'
*                                    i_active  =  XVBST   ).
*    CALL METHOD oref_settings->set( i_element = 'XNVBST'
*                                    i_active  =  xnvbst  ).

*   save the list categories                                "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_WDZER'    "n599218
                                  I_ACTIVE  =  PA_WDZER ).  "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_WDZEW'    "n599218
                                  I_ACTIVE  =  PA_WDZEW ).  "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_WDWIZ'    "n599218
                                  I_ACTIVE  =  PA_WDWIZ ).  "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_WDWUW'    "n599218
                                  I_ACTIVE  =  PA_WDWUW ).  "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_WDWEW'    "n599218
                                  I_ACTIVE  =  PA_WDWEW ).  "n599218

  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_NDSTO'    "n599218
                                  I_ACTIVE  =  PA_NDSTO ).  "n599218
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_NDZER'    "n599218
                                  I_ACTIVE  =  PA_NDZER ).  "n599218

  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'XSUM'
    I_ACTIVE = XSUM ).
  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'PA_SUMFL'
    I_ACTIVE = PA_SUMFL ).

  CALL METHOD OREF_SETTINGS->SET( I_ELEMENT = 'NOSTO'
    I_ACTIVE = NOSTO ).

  CALL METHOD OREF_SETTINGS->FLUSH.

*   carry out the database updates only; the normal commit  "n599218
*   command does not allow to record this transaction for   "n599218
*   a batch input session using transaction SHDB            "n599218
  CALL FUNCTION 'DB_COMMIT'.                                "n599218

ENDFORM.                     "esdus_save_parameters         "n547170