获取用户参数_SAP刘梦_新浪博客

US3 查看的信息

根据函数：SUSR_USER_READ 获取用户信息


参数信息：defaults

日期和小数点格式

根据用户参数修改日期格式

FORM frm_change_date  CHANGING lv_date  TYPE sy -datum .
   DATA :ls_default  LIKE usdefaults .
   DATA :  lv_year ( 4 )  TYPE  c ,
        lv_month ( 2 )  TYPE  c ,
        lv_day ( 2 )  TYPE  c .

   CALL  FUNCTION  'SUSR_USER_READ'
     EXPORTING
      user_name             = sy -uname
     IMPORTING
      user_defaults         = ls_default
     EXCEPTIONS
      user_name_not_exists  =  1
      internal_error        =  2
       OTHERS                =  3 .

   CHECK sy -subrc  =  0 .

  lv_year  = lv_date 0 ( 4 ) .
  lv_month  = lv_date 4 ( 2 ) .
  lv_day  = lv_date 6 ( 2 ) .

   CASE ls_default -datfm .
*  WHEN 1."DD.MM.YYYY
*  WHEN 2."MM/DD/YYYY
*  WHEN 3."MM-DD-YYYY
*  WHEN 4."YYYY.MM.DD
*  WHEN 5."YYYY/MM/DD
*  WHEN 6."YYYY-MM-DD
     WHEN  '1' .
       CONCATENATE lv_day
                  lv_month
                  lv_year  INTO lv_date  SEPARATED  BY  '.' .
     WHEN  '2' .
       CONCATENATE lv_month
                  lv_day
                  lv_year  INTO lv_date  SEPARATED  BY  '/' .
     WHEN  '3' .
       CONCATENATE lv_month
                  lv_day