Local computer user name

Mafanya

Как можно получить в абап программе логин пользователя который запускает SAP GUI? Не sy-uname а имя ползователя front-end: Администратор, узер1 и т.д.??

Dzed Maroz

Как-нибудь так ?

Code:

DATA  : value   TYPE string.
 CALL METHOD cl_gui_frontend_services=>registry_get_value
  EXPORTING
    root                 = cl_gui_frontend_services=>hkey_current_user
    key                  =
'Software\Microsoft\Windows\CurrentVersion\Explorer'
    value                = 'Logon User Name'
  IMPORTING
    reg_value            = value
  EXCEPTIONS
    get_regvalue_failed  = 1
    cntl_error           = 2
    error_no_gui         = 3
    not_supported_by_gui = 4
    OTHERS               = 5.
 CALL METHOD cl_gui_cfw=>flush.
write value.

Besa

Определение пользователя домена?

Mafanya

Оба FMа работают,

Code:

DATA  : value   TYPE string,
      username TYPE CHAR50,
      filename_jpg(100) TYPE C.



CALL FUNCTION 'GUI_GET_DESKTOP_INFO'
  EXPORTING
    type          = 5
  changing
    return        = username.
CONCATENATE '`C:\Documents and Settings' username 'temp.jpg`' INTO filename_jpg SEPARATED BY '\'.

но образовалась новая проблема: когда я передаю полученное значение в другой FM, создается фолдер temp.jpg а в нем фаил data ,

Code:

CALL FUNCTION 'SCMS_DOC_READ_FILES'
  EXPORTING
    stor_cat              = space
    crep_id               = l_connect_info-archiv_id
    doc_id                = l_connect_info-arc_doc_id
    path                  = filename_jpg
    frontend              = 'X'
  TABLES
    comps                 = comps2
    comp_names            = comp_names
  EXCEPTIONS
    bad_storage_type      = 1
    bad_request           = 2
    unauthorized          = 3
    not_found             = 4
    conflict              = 5
    internal_server_error = 6
    error_http            = 7
    error_signature       = 8
    error_config          = 9
    error_hierarchy       = 10
    error_download        = 11
    error_open            = 12
    error_parameter       = 13
    error                 = 14
    OTHERS                = 15.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
ENDIF.

а если передать то же самое значение через литерал 'C:\Documents and Settings\UGTUSER\temp.jpg' FM загружает все правилно, т.е. создается temp.jpg картинка

Code:

CALL FUNCTION 'SCMS_DOC_READ_FILES'
  EXPORTING
    stor_cat              = space
    crep_id               = l_connect_info-archiv_id
    doc_id                = l_connect_info-arc_doc_id
    path                  = 'C:\Documents and Settings\UGTUSER\temp.jpg'
    frontend              = 'X'
  TABLES
    comps                 = comps2
    comp_names            = comp_names
  EXCEPTIONS
    bad_storage_type      = 1
    bad_request           = 2
    unauthorized          = 3
    not_found             = 4
    conflict              = 5
    internal_server_error = 6
    error_http            = 7
    error_signature       = 8
    error_config          = 9
    error_hierarchy       = 10
    error_download        = 11
    error_open            = 12
    error_parameter       = 13
    error                 = 14
    OTHERS                = 15.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
ENDIF.

что это такое???

Besa

Code:

CONCATENATE '`C:\Documents and Settings' username 'temp.jpg`' INTO filename_jpg SEPARATED BY '\'.

Зачем тут символы (`)? Попробуйте их убрать.

Mafanya

sorry, Символы тут непричем, проста это я уже все варианты <я не знать русский языка>

Besa

Попробуйте так

Code:

...
  DATA: len TYPE i.
  len = STRLEN( filename_jpg ).
...
CALL FUNCTION 'SCMS_DOC_READ_FILES'
  EXPORTING
...
    path                  = filename_jpg+0(len)
...

Mafanya

Теперь все работает, спасибо!

Правила форума

Local computer user name

Кто сейчас на конференции