ls_bapisdh1x-updateflag = 'U'.
    ls_bapisdh1x-telephone = 'X'.
    ls_bapisdh1-telephone = gv_oc_tel_number.
*   PARTNERS
    lt_bapiparnr-partn_role = 'AG'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = gv_oc_kunnr
      IMPORTING
        output = lt_bapiparnr-partn_numb.
      SELECT SINGLE vbpa~adrnr
        INTO lt_bapiaddr1-addr_no
        FROM vbpa
        WHERE vbpa~vbeln = vbak-vbeln
          AND vbpa~posnr = '000000'
          AND vbpa~parvw = 'AG'.
      lt_bapiaddr1-tel1_numbr = gv_oc_tel_number.
      APPEND lt_bapiaddr1.

      lt_bapiparnr-telephone = gv_oc_tel_number.
      lt_bapiparnr-telephone2 = gv_oc_mob_number.
      lt_bapiparnr-country = 'RU'.
      SELECT SINGLE ort01
        INTO lt_bapiparnr-city
        FROM kna1
        WHERE kunnr = lt_bapiparnr-partn_numb.
      APPEND lt_bapiparnr.

      lt_bapiparnrc-document = vbak-vbeln.
      lt_bapiparnrc-itm_number = '000000'.
      lt_bapiparnrc-updateflag = 'U'.
      lt_bapiparnrc-partn_role = 'AG'.
      lt_bapiparnrc-p_numb_old = lt_bapiparnr-partn_numb.
      lt_bapiparnrc-p_numb_new = lt_bapiparnr-partn_numb.
      lt_bapiparnrc-address = lt_bapiaddr1-addr_no.
      APPEND lt_bapiparnrc.
    CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
      EXPORTING
        salesdocument    = vbak-vbeln
        order_header_in  = ls_bapisdh1
        order_header_inx = ls_bapisdh1x
      TABLES
        partners         = lt_bapiparnr
        partnerchanges   = lt_bapiparnrc
        partneraddresses = lt_bapiaddr1
        return           = lt_bapireturn.

    TYPES: BEGIN OF szadr_addr1_complete,
             addrnumber LIKE addr1_sel-addrnumber,
             addrhandle LIKE addr1_sel-addrhandle,
             addr1_tab TYPE szadr_addr1_line OCCURS 0,
             adtel_tab TYPE szadr_adtel_line OCCURS 0,
             adfax_tab TYPE szadr_adfax_line OCCURS 0,
             adttx_tab TYPE szadr_adttx_line OCCURS 0,
             adtlx_tab TYPE szadr_adtlx_line OCCURS 0,
             adsmtp_tab TYPE szadr_adsmtp_line OCCURS 0,
             adrml_tab TYPE szadr_adrml_line OCCURS 0,
             adx400_tab TYPE szadr_adx400_line OCCURS 0,
             adrfc_tab TYPE szadr_adrfc_line OCCURS 0,
           adprt_tab TYPE szadr_adprt_line OCCURS 0,        "*178i
           adssf_tab TYPE szadr_adssf_line OCCURS 0,        "*178i
           aduri_tab TYPE szadr_aduri_line OCCURS 0,        "*178i
           adpag_tab TYPE szadr_adpag_line OCCURS 0,        "*178i
             adrct_tab TYPE szadr_adrct_line OCCURS 0,
             adrt_tab TYPE szadr_adrt_line OCCURS 0,
          END OF szadr_addr1_complete.

    DATA: addr1_complete TYPE szadr_addr1_complete,
          addr1_tab TYPE szadr_addr1_line OCCURS 0,
          addr1_tab_line LIKE LINE OF addr1_tab.

    addr1_complete-addrnumber = lt_bapiaddr1-addr_no.
    addr1_tab_line-data-name1 = 'Вася'.
    addr1_tab_line-data-country = 'RU'.
    APPEND addr1_tab_line TO addr1_tab.
    addr1_complete-addr1_tab = addr1_tab.


    DATA: returncode LIKE szad_field-returncode,
          addr1_complete_out TYPE szadr_addr1_complete,
          error_table LIKE addr_error OCCURS 10.
    CALL FUNCTION 'ADDR_MAINTAIN_COMPLETE'
      EXPORTING
        updateflag                           = 'U'
        addr1_complete                       = addr1_complete
        address_group                        = '1'
*   SUBSTITUTE_ALL_COMM_DATA             = ' '
*   CHECK_ADDRESS                        = 'X'
*   CONSIDER_CONSNUMBER_FOR_INSERT       = ' '
IMPORTING
   returncode                           = returncode
   addr1_complete_out                   = addr1_complete_out
TABLES
   error_table                          = error_table
EXCEPTIONS
   parameter_error                      = 1
   address_not_exist                    = 2
   handle_exist                         = 3
   internal_error                       = 4
   OTHERS                               = 5
              .

    CALL FUNCTION 'ADDR_GET_COMPLETE'
     EXPORTING
       addrnumber                    = lt_bapiaddr1-addr_no
*       ADDRHANDLE                    =
*       ARCHIVE_HANDLE                =
     IMPORTING
       addr1_complete                = addr1_complete
     EXCEPTIONS
       parameter_error               = 1
       address_not_exist             = 2
       internal_error                = 3
       wrong_access_to_archive       = 4
       OTHERS                        = 5
              .
    addr1_tab = addr1_complete-addr1_tab.
    LOOP AT addr1_tab INTO addr1_tab_line.
      addr1_tab_line-data-name1 = 'Вася'.
      MODIFY addr1_tab FROM addr1_tab_line.
    ENDLOOP.
    addr1_complete-addr1_tab = addr1_tab.
    DATA: RETURNCODE LIKE SZAD_FIELD-RETURNCODE,
          ERROR_TABLE TYPE ADDR_ERROR OCCURS 10 WITH header line.
    CALL FUNCTION 'ADDR_MAINTAIN_COMPLETE'
      EXPORTING
        updateflag                           = 'U'
        addr1_complete                       = addr1_complete
        address_group                        = '1'
*       SUBSTITUTE_ALL_COMM_DATA             = ' '
*       CHECK_ADDRESS                        = 'X'
*       CONSIDER_CONSNUMBER_FOR_INSERT       = ' '
     IMPORTING
       RETURNCODE                           = RETURNCODE
       ADDR1_COMPLETE_OUT                   = addr1_complete
     TABLES
       ERROR_TABLE                          = ERROR_TABLE
*     EXCEPTIONS
*       PARAMETER_ERROR                      = 1
*       ADDRESS_NOT_EXIST                    = 2
*       HANDLE_EXIST                         = 3
*       INTERNAL_ERROR                       = 4
*       OTHERS                               = 5
              .

    CALL FUNCTION 'ADDR_SINGLE_SAVE'
      EXPORTING
        address_number               = lt_bapiaddr1-addr_no
*       PERSON_NUMBER                = ' '
*       ADDRESS_TYPE                 = 1
*       EXECUTE_IN_UPDATE_TASK       = ' '
*     EXCEPTIONS
*       ADDRESS_NOT_EXIST            = 1
*       PERSON_NOT_EXIST             = 2
*       ADDRESS_NUMBER_MISSING       = 3
*       REFERENCE_MISSING            = 4
*       INTERNAL_ERROR               = 5
*       DATABASE_ERROR               = 6
*       PARAMETER_ERROR              = 7
*       OTHERS                       = 8
              .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    COMMIT WORK AND wait.

TYPE-POOLS szadr.

DATA: addr1_complete TYPE szadr_addr1_complete.

START-OF-SELECTION.

  CALL FUNCTION 'ADDR_GET_COMPLETE'
    EXPORTING
      addrnumber                    = '0000044882'
*     ADDRHANDLE                    =
*     ARCHIVE_HANDLE                =
    IMPORTING
      addr1_complete                = addr1_complete
    EXCEPTIONS
      parameter_error               = 1
      address_not_exist             = 2
      internal_error                = 3
      wrong_access_to_archive       = 4
      OTHERS                        = 5
            .

  FIELD-SYMBOLS: <wa> LIKE LINE OF addr1_complete-addr1_tab[].

  LOOP AT addr1_complete-addr1_tab[] ASSIGNING <wa>.
    <wa>-data-name1 = 'Вася'.
  ENDLOOP.

  DATA: returncode LIKE szad_field-returncode,
        error_table TYPE addr_error OCCURS 10 WITH HEADER LINE.

  CALL FUNCTION 'ADDR_MAINTAIN_COMPLETE'
    EXPORTING
      updateflag                           = 'U'
      addr1_complete                       = addr1_complete
      address_group                        = ''
*     SUBSTITUTE_ALL_COMM_DATA             = ' '
*     CHECK_ADDRESS                        = 'X'
*     CONSIDER_CONSNUMBER_FOR_INSERT       = ' '
   IMPORTING
     returncode                           = returncode
     addr1_complete_out                   = addr1_complete
   TABLES
     error_table                          = error_table
*     EXCEPTIONS
*     PARAMETER_ERROR                      = 1
*     ADDRESS_NOT_EXIST                    = 2
*     HANDLE_EXIST                         = 3
*     INTERNAL_ERROR                       = 4
*     OTHERS                               = 5
            .

  CALL FUNCTION 'ADDR_SINGLE_SAVE'
    EXPORTING
      address_number               = addr1_complete-addrnumber
*     PERSON_NUMBER                = ' '
*     ADDRESS_TYPE                 = 1
*     EXECUTE_IN_UPDATE_TASK       = ' '
*   EXCEPTIONS
*     ADDRESS_NOT_EXIST            = 1
*     PERSON_NOT_EXIST             = 2
*     ADDRESS_NUMBER_MISSING       = 3
*     REFERENCE_MISSING            = 4
*     INTERNAL_ERROR               = 5
*     DATABASE_ERROR               = 6
*     PARAMETER_ERROR              = 7
*     OTHERS                       = 8
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  COMMIT WORK AND WAIT.