DATA header_in  TYPE bapisdhd1.
DATA header_inx TYPE bapisdhd1x.
DATA partner_in TYPE TABLE OF bapiparnr.
DATA item_in    TYPE TABLE OF bapisditm.
DATA item_inx   TYPE TABLE OF bapisditmx.
DATA order_out  TYPE bapivbeln-vbeln.
DATA bapiret2   TYPE TABLE OF bapiret2.
DATA ext_in     TYPE TABLE OF bapiparex.
DATA ext_inx    TYPE TABLE OF bapiparex.
DATA ls_bape_vbap TYPE bape_vbap.
DATA order_conditions_in TYPE TABLE OF bapicond.
DATA order_schedules_in TYPE TABLE OF bapischdl.

DATA class_values TYPE TABLE OF bapicuval.
DATA class_ref TYPE TABLE OF bapicucfg.
DATA class_inst TYPE TABLE OF bapicuins.
DATA class_vk TYPE TABLE OF bapicuvk.

header_in-doc_type = 'ZSDE'.
header_in-currency = 'EUR'.
header_in-doc_date = sy-datum.
header_in-purch_date = sy-datum.
header_in-curr_iso = 'EUR'.
header_in-sales_org = 'NL10'.
header_in-distr_chan = '60'.
header_in-division = '60'.
header_in-purch_no_c = 'ETM=0100000671'.
header_in-pmnttrms  = '0001'.

" Sold To Party
APPEND INITIAL LINE TO partner_in ASSIGNING FIELD-SYMBOL(<partner_soldto>).
<partner_soldto>-partn_numb = '0013100000'.
<partner_soldto>-partn_role = 'AG'.

" Ship To Party
APPEND INITIAL LINE TO partner_in ASSIGNING FIELD-SYMBOL(<partner_shipto>).
<partner_shipto>-partn_numb = 'FI-460210'.
<partner_shipto>-partn_role = 'WE'.

*" Add Item Line With Material
APPEND INITIAL LINE TO item_in ASSIGNING FIELD-SYMBOL(<item>).
<item>-itm_number = '000010'.
<item>-material   = 'T1CONF-46-CONT-CS'.
<item>-target_qty = '1'.
<item>-plant      = 'NL10'.
<item>-po_itm_no  = '000010'.            " wordt gebruikt om kenmerken te vinden (?)

*" Schedule lines
APPEND INITIAL LINE TO order_schedules_in ASSIGNING FIELD-SYMBOL(<sched>).
<sched>-itm_number = '10'.
<sched>-req_qty = '1'.

*" Add Extension Fields
APPEND INITIAL LINE TO ext_in ASSIGNING FIELD-SYMBOL(<ext>).
ls_bape_vbap-posnr      = '000010'.
ls_bape_vbap-j_3glvart  = 'DELV'.
ls_bape_vbap-j_3gbelnri = '0100000671'.
ls_bape_vbap-j_3gposnri = '00010'.
ls_bape_vbap-j_3gdatvo  = sy-datum.
<ext>-structure         = 'BAPE_VBAP'.
<ext>-valuepart1        = ls_bape_vbap.

APPEND INITIAL LINE TO class_ref     ASSIGNING FIELD-SYMBOL(<ref>).
APPEND INITIAL LINE TO class_inst    ASSIGNING FIELD-SYMBOL(<inst>).

<ref>-posex          = '000010'.
<ref>-config_id      = '000001'.
<ref>-root_id        = '00000001'.
<ref>-complete       = 'T'.
<ref>-consistent     = 'T'.
<ref>-cbase_id_type  = 'G'.
<ref>-sce            = '1'.

<inst>-config_id     = '000001'.
<inst>-inst_id       = '00000001'.
<inst>-obj_type      = 'MARA'.
<inst>-class_type    = '300'.
<inst>-obj_key       = 'T1CONF-46-CONT-CS'.
<inst>-quantity      = '1'.
<inst>-quantity_unit = 'PC'.
<inst>-complete      = 'T'.
<inst>-consistent    = 'T'.
<inst>-object_guid   = 'T1CONF-46-CONT-CS'.
<inst>-persist_id_type = 'G'.

*" All available characteristics
APPEND INITIAL LINE TO class_values  ASSIGNING FIELD-SYMBOL(<value>).
<value>-config_id    = '000001'.
<value>-inst_id      = '00000001'.
<value>-charc        = 'LOAD_CARRIER_NEW'.
<value>-value        = '200'.

APPEND INITIAL LINE TO class_values  ASSIGNING <value>.
<value>-config_id    = '000001'.
<value>-inst_id      = '00000001'.
<value>-charc        = 'QUALITY_NEW'.
<value>-value        = '2'.

APPEND INITIAL LINE TO class_values  ASSIGNING <value>.
<value>-config_id    = '000001'.
<value>-inst_id      = '00000001'.
<value>-charc        = 'TRAY_LC_NEW'.
<value>-value        = '50'.


APPEND INITIAL LINE TO class_vk ASSIGNING FIELD-SYMBOL(<vk>).
<vk>-config_id       = '000001'.
<vk>-inst_id         = '00000001'.
<vk>-vkey            = 'LOAD_CARRIER_NEW'.

APPEND INITIAL LINE TO class_vk ASSIGNING <vk>.
<vk>-config_id       = '000001'.
<vk>-inst_id         = '00000001'.
<vk>-vkey            = 'QUALITY_NEW'.

APPEND INITIAL LINE TO class_vk ASSIGNING <vk>.
<vk>-config_id       = '000001'.
<vk>-inst_id         = '00000001'.
<vk>-vkey            = 'TRAY_LC_NEW'.


CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
  EXPORTING
    order_header_in       = header_in
*    int_number_assignment = abap_true
  IMPORTING
    salesdocument         = order_out
  TABLES
    return                = bapiret2
    order_items_in        = item_in
    order_schedules_in    = order_schedules_in
    order_cfgs_ref        = class_ref
    order_cfgs_inst       = class_inst
    order_cfgs_value      = class_values
    order_cfgs_vk         = class_vk
    order_partners        = partner_in
    extensionin           = ext_in.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = abap_true.