method IF_EX_BADI_SCD_CREATE~SET_HEADER_DATA .
*Parameters
*IMPORTING
*I_REFOBJ Shipment
*CHANGING
*C_VFKK_EXTI1 External identification 1
*C_VFKK_EXTI2 External identification 2
*C_VFKK_PRSDT Pricing date
*C_VFKK_BUDAT Settlement date
 
 
SET PARAMETER ID 'ZTN' FIELD I_REFOBJ-VTTKF-TKNUM.
 
 
C_VFKK_EXTI1 = I_REFOBJ-VTTKF-EXTI1.
C_VFKK_EXTI2 = I_REFOBJ-VTTKF-EXTI2.
 
endmethod.