Regarding using of EXTENSION1 and EXTENSION2 in BAPI_OUTB_DELIVERY_CHANGE

Question

Hi,
Can any one please help me how to code for zfields in EXTENSION1 and EXTENSION2 in BAPI_OUTB_DELIVERY_CHANGE
Thanks,
Nethaji.

Answer 1

I had a requirement to change a Z field in LIKP by a BAPI call and found this thread.
Although the original participant probably have found alternative ways, I hope this can be helpful for others search for a solution to this.
These are my findings u2013 please correct me if I am wrong. The EXTENSION1 & EXTENSION2 can NOT be used to change LIKP Z-fields. These doesnu2019t do anything in themselves, but can be imported in BADI IF_EX_SMOD_V50B0001~EXIT_SAPLV50I_010 (Thereu2019s a corresponding CMOD in older versions).
However, the data available here are :
CS_VBKOK
CT_VBPOK
CT_VBSUPCON
EXTENSION1
EXTENSION2
So, for changes to delivery header, only fields in structure CS_VBKOK can be changed. As VBKOK does not have any customer appends, this is not possible. Furthermore is the BAPI BAPI_OUTB_DELIVERY_CHANGE only calling WS_DELIVERY_UPDATE anyway, so the BAPI can not do any magic the FM canu2019t. So what is the purpose with  EXTENSION1/ EXTENSION2 ?
As I see it, itu2019s a handy way to transfer data to the BADI, so you can build logic to manipulate any of the existing CS_VBKOK fields. You could have done the same with a Memory export/import anyway.
/END-BAD-NEWS
/BEGIN-GOOD-NEWS
After some trial and error, I managed to use BAPI_OUTB_DELIVERY_CHANGE to change Z fields in LIKP. Before the call, I export the desired content to a memory ID, which I then import in MV50AFZ1, BAPI_OUTB_DELIVERY_CHANGE
See this working demonstration code :
Calling program :
*& Report  ZTEST_BAPI_DELIVERY_CHANGE
report  ztest_bapi_delivery_change.
data : gs_bapiobdlvhdrchg        type bapiobdlvhdrchg.
data : gs_bapiobdlvhdrctrlchg    type bapiobdlvhdrctrlchg.
data : gs_bapidlvcontrol         type bapidlvcontrol.
data : gt_bapireturn type standard table of  bapiret2.
data : gs_bapireturn type  bapiret2.
data : gs_likp type likpvb.
data : ld_zzhuload   type erlkz.
constants: gc_x(1)     type c value 'X'.
parameter : p_vbeln like likp-vbeln.
Get relevant LIKP fields
select * from likp
into corresponding fields of gs_likp
where vbeln = p_vbeln.
endselect.
  Fill header data - convert to BAPI format
call function 'MAP2E_LIKPVB_TO_BAPIOBDLVHDRCH'
  exporting
    likpvb          = gs_likp
  changing
    bapiobdlvhdrchg = gs_bapiobdlvhdrchg.
Field to set as LIKP Z-field
ld_zzhuload = 'X'.
Memory-ID imported in MV50AFZ1
export ld_zzhuload to memory id 'ZZHULOAD'.
call function 'BAPI_OUTB_DELIVERY_CHANGE'
  exporting
    header_data           = gs_bapiobdlvhdrchg
    header_control        = gs_bapiobdlvhdrctrlchg
    delivery              = gs_bapiobdlvhdrchg-deliv_numb
    techn_control         = gs_bapidlvcontrol
  tables
    return                = gt_bapireturn
  exceptions
    communication_failure = 1
    system_failure        = 2
    others                = 3.
if gt_bapireturn[] is initial.
  call function 'BAPI_TRANSACTION_COMMIT'
    exporting
      wait = gc_x.
else.
  loop at gt_bapireturn into gs_bapireturn
    where type = 'E'.
    message id gs_bapireturn-id type 'S'
    number gs_bapireturn-number with
    gs_bapireturn-message_v1
    gs_bapireturn-message_v2
    gs_bapireturn-message_v3
    gs_bapireturn-message_v4.
    exit.
  endloop.
endif.
MV50AFZ1, form USEREXIT_SAVE_DOCUMENT_PREPARE
data : ld_zzhuload   type erlkz.
if xlikp-vbtyp = 'J' " outbound delivery
and  t180-trtyp = 'V'. " Change
Memory-ID exported from program ZZZ...
import ld_zzhuload from MEMORY ID 'ZZHULOAD'.
  if sy-subrc is initial
  and not ld _zzhuload is initial.
    LOOP AT xlikp.
      xlikp-zzhuload = ld_zzhuload.
      MODIFY xlikp transporting zzhuload.
    ENDLOOP.
    free MEMORY ID 'ZZHULOAD'.
  endif.
endif.
I hope someone will find this helpful. Obviously I can not take responsibility for the functionality
Sorry for the format, I can not get the tags to work.....