BAPI_SALESORDER_CHANGE field REF_DOC (VGBEL) not updated

Question

Hi,
I use BAPI BAPI_SALESORDER_CHANGE to update link between sales order and contract. It means updated field VGBEL (for VBAK and VBAP)
It works fine for sales order header : VBAK-VGBEL is updated.
But it doesn't work for VBAP-VGBEL.
I have tried to update other fields on vbap with the BAPI and it works fine.
I copy bellow source code used (it is a test program)
Do you have any ideas why VGBEL is not updated?
thanks in advance for your help.
Luc
source code:
REPORT ZLM01 .
tables vbak.
Tables and structures used in BAPI
DATA : wt_order_header_in  LIKE bapisdh1,      " Order Header Fields
       wt_order_header_inx LIKE bapisdh1x.   " Order Header checkbox
DATA : t_bapiret            LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
DATA : t_bapiret2           LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
DATA : s_bapiret2           LIKE bapiret2   OCCURS 0 WITH HEADER LINE.
DATA : wt_order_item_in    LIKE bapisditm  OCCURS 0 WITH HEADER LINE.
DATA : wt_order_item_inx   LIKE bapisditmx OCCURS 0 WITH HEADER LINE.
DATA : wt_partnerchange    LIKE bapiparnrc OCCURS 0 WITH HEADER LINE.
DATA : wt_schedule_in      LIKE bapischdl  OCCURS 0 WITH HEADER LINE.
DATA : wt_schedule_inx     LIKE bapischdlx OCCURS 0 WITH HEADER LINE.
DATA : wt_sales_text       LIKE bapisdtext OCCURS 0 WITH HEADER LINE.
clear : wt_order_header_in , wt_order_header_inx, t_bapiret2.
Header
wt_order_header_inx-updateflag = 'U'.
wt_order_header_in-refdoc_cat  = 'G'.
wt_order_header_inx-refdoc_cat = 'X'.
wt_order_header_in-ref_doc     = '0040001508'.
wt_order_header_inx-ref_doc    = 'X'.
*ligne 1
wt_order_item_in-itm_number  = '000010'.
wt_order_item_inx-itm_number = '000010'.
wt_order_item_inx-updateflag = 'U'.
wt_order_item_in-ref_doc     = '0040001508'.
wt_order_item_inx-ref_doc    = 'X'.
wt_order_item_in-ref_doc_it     = '000010'.
wt_order_item_inx-ref_doc_it    = 'X'.
append wt_order_item_in.
append wt_order_item_inx.
call function 'BAPI_SALESORDER_CHANGE'
     EXPORTING
          salesdocument    = '0000025246'
          order_header_in  = wt_order_header_in
          order_header_inx = wt_order_header_inx
     TABLES
          order_item_in   = wt_order_item_in
          order_item_inx  = wt_order_item_inx
          return           = t_bapiret2.
loop at t_bapiret2.
write :/ t_bapiret2.
endloop.
call function 'BAPI_TRANSACTION_COMMIT'
     EXPORTING
          wait   = 'X'
     IMPORTING
          return = s_bapiret2.
move-corresponding s_bapiret2 to t_bapiret.
append t_bapiret. clear t_bapiret.

Answer 1

i give one example :
pass SCHEDULE_LINES .
REPORT  ZSALESORDER_CHANGE MESSAGE-ID 38.
Selection Screen Definitions *
PARAMETERS: p_vbeln TYPE vbap-vbeln OBLIGATORY, "Order Number
p_posnr TYPE vbap-posnr OBLIGATORY, "Order Item
p_etenr TYPE vbep-etenr OBLIGATORY, "Schedule Line
p_reqqty TYPE bapischdl-req_qty OBLIGATORY. " Order Qty
Internal Tables/Structures/Variables for calling BAPI. *
DATA: i_hdr TYPE bapisdh1,
i_hdrx TYPE bapisdh1x,
i_ret TYPE bapiret2 OCCURS 0 WITH HEADER LINE,
wa_ret TYPE bapiret2.
DATA: BEGIN OF i_sched OCCURS 10.
INCLUDE STRUCTURE bapischdl.
DATA: END OF i_sched.
DATA: BEGIN OF i_schedx OCCURS 10.
INCLUDE STRUCTURE bapischdlx.
DATA: END OF i_schedx.
START-OF-SELECTION Event *
START-OF-SELECTION.
*" Initialize internal tables.
REFRESH: i_sched, i_schedx, i_ret.
CLEAR: i_sched, i_schedx, i_ret.
*" Fill required ORDER_HEADER_IN data.
i_hdrx-updateflag = 'U'.
*" Fill required SCHEDULE_LINES data.
i_sched-itm_number = p_posnr.
i_sched-sched_line = p_etenr.
i_sched-req_qty = p_reqqty.
i_schedx-updateflag = 'U'.
i_schedx-itm_number = p_posnr.
i_schedx-sched_line = p_etenr.
i_schedx-req_qty = 'X'.
APPEND i_sched.
APPEND i_schedx.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = p_vbeln
order_header_in = i_hdr
order_header_inx = i_hdrx
TABLES
return = i_ret
schedule_lines = i_sched
schedule_linesx = i_schedx.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
LOOP AT i_ret.
WRITE / i_ret-message.
ENDLOOP.