method GET_PARAM_FOR_USERNAME.
data: parameter1 type table of bapiparam1,
      parameter1_line like line of parameter1,
      return type bapiret2,
      i type i.

  call function 'BAPI_USER_GET_DETAIL'
    exporting
      username = username
    tables
      parameter1 = parameter1
      return = return2.
clear return.
i = 0.
loop at parameter1 into parameter1_line where parid = parid.
  parvalue = parameter1_line-parva.
  i = i + 1.
endloop.

if i = 0.
  return-type = 'E'.
  concatenate 'Отсутствует параметр ' parid ' для пользователя ' username into return-message.
  append return to return2.
endif.

endmethod.

type-POOLs: SZADR.

  DATA:
    address   LIKE usaddress,
    logondata LIKE uslogond,
    defaults  LIKE usdefaults,
    ref_user  LIKE bapirefus,
    alias     LIKE bapialias.

  DATA:
    addr3_tab TYPE szadr_addr3_line,
    ADTEL_TAB type szadr_adtel_line.

  DATA:
    addr3_complete TYPE szadr_addr3_complete.


CALL FUNCTION 'SUSR_USER_READ'
    EXPORTING
      user_name            = sy-uname
      with_text            = 'X'
    IMPORTING
      user_logondata       = logondata
      user_defaults        = defaults
      ref_user             = ref_user
      alias                = alias
      user_address         = address
    EXCEPTIONS
      user_name_not_exists = 1
      internal_error       = 2
      thers                = 3.



  CALL FUNCTION 'ADDR_PERS_COMP_GET_COMPLETE'
    EXPORTING
      addrnumber                    = address-addrnumber
*     ADDRHANDLE                    =
      persnumber                    = address-persnumber
*     PERSHANDLE                    =
*     ARCHIVE_HANDLE                =
    IMPORTING
      addr3_complete                = addr3_complete
    EXCEPTIONS
      parameter_error               = 1
      address_not_exist             = 2
      person_not_exist              = 3
      internal_error                = 4
      wrong_access_to_archive       = 5
      OTHERS                        = 6.

  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  LOOP AT addr3_complete-addr3_tab INTO addr3_tab.
    write addr3_tab-data-department.
  ENDLOOP.

LOOP AT gt_outtab ASSIGNING <fs_outtab>.
        MOVE-CORRESPONDING <fs_outtab> TO ls_zmmgyptable_temp.
        APPEND ls_zmmgyptable_temp TO it_zmmgyptable_temp.
      ENDLOOP.
      SELECT MAX( id ) INTO zid FROM zmmgyptable.  " забирает максимальное число из id и копирует его в zid
      LOOP AT it_zmmgyptable_temp ASSIGNING <fs_zmmgyptable> WHERE id IS INITIAL.
        zid = zid + 1.
        <fs_zmmgyptable>-id = zid.
        <fs_zmmgyptable>-whocreate = sy-uname.
        <fs_zmmgyptable>-datecreate = sy-datum.
        <fs_zmmgyptable>-whotechange = sy-uname.
        <fs_zmmgyptable>-datechange = sy-datum.
*        <fs_zmmgyptable>-PODRAZD = param.
        <fs_zmmgyptable>-PODRAZD = addr3_tab-data-department.
      ENDLOOP.

if podrazdelenie = 'ДРП'.
CALL SCREEN 1009.
else
message 'Ошибка: Неверные параметры: подразделения у пользователя!' type 'E' display like 'E'.
*            leave program.