SELECT SINGLE name_text INTO fio FROM usr21
      JOIN adrp
       ON usr21~persnumber = adrp~persnumber
         WHERE
           bname = username.

translate lf_uname to upper case.
select single name_text from user_addrp into (full_name) where bname = lf_uname.

Далее VBA код. Я не сказал, что мне нужно отформатировать отчет в Bex Analyser (это BW), а он построен на MS Excell.

Private Sub FM_ExtGetUserDetail()
On Error GoTo errTrap
Dim objBAPIControl As Object
Dim objUserDetail As Object
Dim address As Object
Dim sapConnection As Object
Dim oWS as WorkSheet

Set objBAPIControl = CreateObject("SAP.Functions")
Set sapConnection = objBAPIControl.Connection

sapConnection.client = "100"
sapConnection.User = login
sapConnection.Language = "RU"
sapC :evil: onnection.ApplicationServer = AS
sapConnection.Password = pass
sapConnection.systemnumber = "0"
sapConnection.System = "00"

If sapConnection.Logon(1, True) <> True Then
    MsgBox "No connection to R/3!"
    Exit Sub
End If
Set objUserDetail = objBAPIControl.Add("BAPI_USER_GET_DETAIL")

objUserDetail.exports("USERNAME") = sUSER_NAME

returnFunc = objUserDetail.Call

If returnFunc = True Then
    Set address = objUserDetail.imports("Address")
    Set oWS = ActiveSheet
    oWS.Cells(1, 1) = address.Value("DEPARTMENT")
    oWS.Cells(1, 2) = address.Value("TEL1_EXT")
    oWS.Cells(1, 3) = address.Value("LASTNAME")
    oWS.Cells(1, 4) = address.Value("FIRSTNAME")
Else
    MsgBox "Error call BAPI_USER_GET_DETAIL ! "
    Exit Sub
End If
objBAPIControl.Connection.Logoff

errTrap:
Set address = Nothing
Set objUserDetail = Nothing
Set objBAPIControl = Nothing
Set sapConnection = Nothing

End Sub

Private Sub ExtGetUserDetail_BAPI()
On Error GoTo errTrap
Dim objBAPIControl As Object
Dim sapConnection As Object
Dim oUser As Object
Dim oAddress As Object

Set objBAPIControl = CreateObject("sap.bapi.1")
Set sapConnection = objBAPIControl.Connection

sapConnection.client = "100"
sapConnection.User = login
sapConnection.Language = "RU"
sapC :evil: onnection.ApplicationServer = AS
sapConnection.Password = pass
sapConnection.systemnumber = "0"
sapConnection.System = "00"

If sapConnection.Logon(1, True) <> True Then
    MsgBox "No connection to R/3!"
    Exit Sub
End If

Set oUser = objBAPIControl.GetSAPObject("USER", sUSER_NAME)
Set oAddress = objBAPIControl.DimAs(oUser, "GetDetail", "Address")

    Set oWS = ActiveSheet
    oWS.Cells(1, 1) = address.Value("DEPARTMENT")
    oWS.Cells(1, 2) = address.Value("TEL1_EXT")
    oWS.Cells(1, 3) = address.Value("LASTNAME")
    oWS.Cells(1, 4) = address.Value("FIRSTNAME")

objBAPIControl.Connection.Logoff

errTrap:
Set oUser = Nothing
Set oAddress = Nothing
Set objBAPIControl = Nothing
Set sapConnection = Nothing

End Sub

sapConnection.CodePage = "1504"

Set oUser = objBAPIControl.GetSAPObject("USER", sUSER_NAME)
Set oAddress = objBAPIControl.DimAs(oUser, "GetDetail", "Address")

Set oUser = objBAPIControl.GetSAPObject("USER", sUSER_NAME)
Set oAddress = objBAPIControl.dimas(oUser, "GetDetail", "Address")
oUser.GetDetail return:=oReturn, address:=oAddress

  DATA: l_adrp_name_last  TYPE ad_namelas,
        l_adrp_name_first TYPE ad_namefir.

      SELECT SINGLE                                         "#EC *
          adrp~name_last
          adrp~name_first
        FROM
          usr02 INNER JOIN usr21 ON
            usr02~bname = usr21~bname
          INNER JOIN adrp ON
            usr21~persnumber = adrp~persnumber
              INTO
           (l_adrp_name_last,
            l_adrp_name_first)
        WHERE
          usr02~bname = sy-uname.

      IF sy-subrc IS INITIAL.
        CONCATENATE
          l_adrp_name_last
          l_adrp_name_first
        INTO
          nameuser
        SEPARATED BY
          space.
      ELSE.
        nameuser = sy-usname.
      ENDIF.