Update shipment partner address E1ADRM4 & BADI_LE_SHIPMENT

Question

Hi,
We want to update an existing shipment with updated detailed address information from an incoming Idoc from the forwarding agent. The idea is to replace the generic phone, email, name etc. with the specific clerk handling this shipment.
We are on release 6.02, so OSS note 982041 is in. Still, I can not get the data on the E1ADRM4 segment to do any updates.
As an alternative plan, I am looking into BADI_LE_SHIPMENT. By setting a breakpoint in FM SD_PARTNER_ADDRESSES_TO_DB, I have studied how a manual change in VT02N affects the address update. When the shipment is created, the adress number from the Vendor master is copied to the shipment. When I change the address, a new 90* number is created. I replicated the update flag (UPDKZ) in both VBPA and VBADR level, but to no avail. This is the current code. A new 90* address number is assigned, but it does not contain any address data ...
method if_ex_badi_le_shipment~at_save.
  data : ld_e_mail(70) type c.
  data : ld_name_co(40) type c.
  data : ld_telephone1(30) type c.
  data : ls_vbpa type vbpavb.
  data : ls_vbadr type sadrvb.
  clear : ld_e_mail, ld_name_co , ld_telephone1.
import from memory id. EXPORT done in edi program zxtrku09
  import e_mail to ld_e_mail from memory id 'Z_E1ADRM4'.
  import name_co to ld_name_co from memory id 'Z_E1ADRM4'.
  import telephone1 to ld_telephone1 from memory id 'Z_E1ADRM4'.
ld_e_mail = 'Email'.
ld_name_co = 'Ole Elmose'.
ld_telephone1 = '555.555 1111'.
  if not ( ld_e_mail is initial
  and ld_name_co is initial
  and ld_telephone1 is initial ).
    cha_shipments_at_save-old_vbpa[] = im_shipments_at_save-old_vbpa[].
    cha_shipments_at_save-new_vbpa[] = im_shipments_at_save-new_vbpa[].
    cha_shipments_at_save-old_sadr[] = im_shipments_at_save-old_sadr[].
    cha_shipments_at_save-new_sadr[] = im_shipments_at_save-new_sadr[].
Get shipment partner data
    read table cha_shipments_at_save-new_vbpa
    with key parvw = 'SP'
    posnr = '000000'
    into ls_vbpa.
Get shipment address data
    read table cha_shipments_at_save-new_sadr
    index 1
    into ls_vbadr.
    case ls_vbpa-adrda.
      when 'D'.
First change from Vendor master adress
        ls_vbadr-telf1 = ld_telephone1.
        ls_vbadr-email_addr = ld_e_mail.
        ls_vbadr-updkz = 'I'.
       ls_vbadr-addr_renumbered = 'X'.
        ls_vbadr-adrnr = 'SP  $00000'.
        append ls_vbadr to cha_shipments_at_save-new_sadr.
        loop at cha_shipments_at_save-new_vbpa
        into ls_vbpa.
          ls_vbpa-updkz = 'U'.
          ls_vbpa-adrnr = 'SP  $00000'.
          ls_vbpa-adrda = 'E'.
          modify cha_shipments_at_save-new_vbpa
          from ls_vbpa index sy-tabix.
        endloop.
      when 'E'.
Change an already changed (90*) address number
        ls_vbadr-telf1 = ld_telephone1.
        ls_vbadr-email_addr = ld_e_mail.
        ls_vbadr-updkz = 'U'.
        modify cha_shipments_at_save-new_sadr
        from ls_vbadr index 1.
        ls_vbpa-updkz = 'U'.
        modify cha_shipments_at_save-new_vbpa
        from ls_vbpa index 1.
      when others.
    endcase.
  endif.
endmethod.                    "if_ex_badi_le_shipment~before_update
Anyone who have succeeded in updating shipment address either from Idoc or BADI ?

Answer 1

Hi,
Yes and no.
I tried hard with several alternatives, but never got the partner update to work. The workaround was to write the updated information in a new dedicated shipment text field in ZXTRUKU11. Specific qualifiers are used if just part of the updated address is avaialble. The E-mail is checked as in the Vendor master.
Then this text is read in similar way in ZXTRKU02 for the EDI output.
CLEAR ls_idoc_data.  CLEAR gs_emaildata.
gs_emaildata-type = 'INT'. " Address type is E-mail
LOOP AT all_idoc_data INTO ls_idoc_data
WHERE segnam = 'E1ADRM4'.
  gd_tabix = sy-tabix.
  MOVE ls_idoc_data-sdata TO str_e1adrm4.
  CHECK str_e1adrm4-partner_q = 'SP'. " Forwarding agent
* Validate mail formatting
  IF NOT str_e1adrm4-e_mail IS INITIAL.
    MOVE str_e1adrm4-e_mail TO gs_emaildata-address.
* Use same validation as in partner maintenace
    CALL FUNCTION 'SX_INTERNET_ADDRESS_TO_NORMAL'
      EXPORTING
        address_unstruct    = gs_emaildata
      EXCEPTIONS
        error_address_type  = 1
        error_address       = 2
        error_group_address = 3
        OTHERS              = 4.
    IF NOT sy-subrc IS INITIAL.
      CLEAR str_e1adrm4-e_mail.
      MOVE str_e1adrm4 TO ls_idoc_data-sdata.
      MODIFY all_idoc_data FROM ls_idoc_data INDEX gd_tabix .
    ENDIF.
  ENDIF.
* Save updated address data in text object ( Ignore existing)
  CLEAR ls_lines.  CLEAR lt_lines.
* Add name to text ID with qualifier QN
  IF NOT str_e1adrm4-name_text IS INITIAL.
    CONCATENATE gc_qual_name   " Qualifier for name: QN:
    str_e1adrm4-name_text
    INTO  ls_lines-tdline
    SEPARATED BY space.
    ls_lines-tdformat = gc_star_format.
    APPEND ls_lines TO lt_lines.
    CLEAR ls_lines.
  ENDIF.
* Add Telephone to text ID with qualifier QT
  IF NOT str_e1adrm4-telephone1 IS INITIAL.
    CONCATENATE gc_qual_phone   " Qualifier for telephone: QT:
    str_e1adrm4-telephone1
    INTO  ls_lines-tdline
    SEPARATED BY space.
    ls_lines-tdformat = gc_star_format.
    APPEND ls_lines TO lt_lines.
    CLEAR ls_lines.
  ENDIF.
* Add E-mail to text ID with qualifier QM
  IF NOT str_e1adrm4-e_mail IS INITIAL.
    CONCATENATE gc_qual_email   " Qualifier for mail: QM:
    str_e1adrm4-e_mail INTO  ls_lines-tdline
    SEPARATED BY space.
    ls_lines-tdformat = gc_star_format.
    APPEND ls_lines TO lt_lines.
    CLEAR ls_lines.
  ENDIF.
  CLEAR  ls_header.
* Get shipment number
  READ TABLE all_idoc_data INTO ls_idoc_data
                      WITH KEY segnam = 'E1EDT20'.
  MOVE ls_idoc_data-sdata TO str_e1edt20.
  ls_header-tdobject  = 'VTTK'.              " Shipment
  ls_header-tdname    = str_e1edt20-tknum.   " Shipment #
  ls_header-tdid      = gc_address_tdid.     " Z016 - Text for DSP address details
  ls_header-tdspras   = 'EN'.
  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      client          = sy-mandt
      header          = ls_header
      insert          = 'X'
      savemode_direct = 'X'
    TABLES
      lines           = lt_lines
    EXCEPTIONS
      id              = 1
      language        = 2
      name            = 3
      object          = 4
      OTHERS          = 5.
ENDLOOP.
- Sorry for the mess, but can't get any markup to work ....