Showing posts with label BAPI CODE. Show all posts
Showing posts with label BAPI CODE. Show all posts

BAPI Code for outbound delivery change

BAPI_OUTB_DELIVERY_CHANGE - BAPI for Change to Outbound Delivery

BAPI_INB_DELIVERY_SAVEREPLICA - Create Inbound Delivery

RV_DELIVERY_CREATE - Create Delivery

GN_DELIVERY_CREATE - Create an Outbound Delivery
Код:

FORM xkomdlgn_fill USING p_open_qty LIKE ekpo-menge
p_eindt LIKE eket-eindt
p_licha LIKE eket-licha
p_charg LIKE eket-charg
p_uzeit LIKE eket-uzeit.

STATICS: h_grkor LIKE lips-grkor,
h_bsmng LIKE ekpo-menge.
CLEAR t_xkomdlgn.

CHECK t_ekpo-uptyp NE '5' " Lot
AND t_ekpo-uptyp NE '6' " Display
AND t_ekpo-uptyp NE '7' " VK-Set
AND t_ekpo-uptyp NE 'H'. " GT-Stuckliste

IF t_ekpo-uebpo IS INITIAL AND t_ekpo-upvor CA '1I'.
CHECK 1 = 2.
ENDIF.
IF NOT ekko-lifnr IS INITIAL.
CALL FUNCTION 'VENDOR_MASTER_DATA_SELECT_12'
EXPORTING
pi_lifnr = ekko-lifnr
pi_ekorg = ekko-ekorg
IMPORTING
pe_lfm1 = lfm1
EXCEPTIONS
no_entry_found = 1
OTHERS = 2.

t_xkomdlgn-vsbed = lfm1-vsbed.
ELSE.
CLEAR t_xkomdlgn-vsbed.
ENDIF.
t_xkomdlgn-adrnr_li = ekko-adrnr.
t_xkomdlgn-lifnr = ekko-lifnr.
t_xkomdlgn-inco1 = ekko-inco1.
t_xkomdlgn-inco2 = ekko-inco2.
t_xkomdlgn-exnum = ekko-exnum.
t_xkomdlgn-bukrs_best = ekko-bukrs.
t_xkomdlgn-matnr = t_ekpo-matnr.
t_xkomdlgn-werks = t_ekpo-werks.
*IF STORAGE LOCATION IS MISSING APPEND
*FG01 As storage location
IF t_ekpo-lgort IS INITIAL .
t_xkomdlgn-lgort = 'FG01' .
ELSE .
t_xkomdlgn-lgort = t_ekpo-lgort.
ENDIF.

xkomdlgn-charg = ?
T_XKOMDLGN-VRKME = T_EKPO-MEINS.
t_xkomdlgn-meins = t_ekpo-lmein.
t_xkomdlgn-umvkz = t_ekpo-umrez.
t_xkomdlgn-umvkn = t_ekpo-umren.
IF t_ekpo-matnr EQ space.
t_xkomdlgn-meins = t_ekpo-meins.
t_xkomdlgn-umvkz = 1.
t_xkomdlgn-umvkn = 1.
ENDIF.
t_xkomdlgn-insmk = t_ekpo-insmk.
t_xkomdlgn-kzfme = t_ekpo-kzfme.
t_xkomdlgn-kzvbr = t_ekpo-kzvbr.
t_xkomdlgn-lfimg = p_open_qty.
t_xkomdlgn-lfdat = p_eindt.
t_xkomdlgn-lfuhr = p_uzeit.
xkomdlgn-vstel = ?
XKOMDLGN-VKORG = ?
xkomdlgn-vtweg = ?
XKOMDLGN-SPART = ?

t_xkomdlgn-traid = t_ekpo-traid."CARRIER CODE
t_xkomdlgn-lifex = t_ekpo-lifex."External ID
t_xkomdlgn-bolnr = t_ekpo-bolnr."Bill Of Lading
t_xkomdlgn-xabln = t_ekpo-xabln."Goods Receipt/Issue Slip Number

t_xkomdlgn-vgbel = t_ekpo-ebeln.
t_xkomdlgn-vgpos = t_ekpo-ebelp.
t_xkomdlgn-lfart = gf_dlv_type.
t_xkomdlgn-vgtyp = 'V'.
t_xkomdlgn-kzazu = 'X'.
t_xkomdlgn-knttp = t_ekpo-knttp.
t_xkomdlgn-sobkz = t_ekpo-sobkz.

SELECT * FROM t163g WHERE bstae EQ t_ekpo-bstae
AND ebtyp EQ gf_ebtyp.
EXIT.
ENDSELECT.
IF sy-subrc = 0.
prufen, ob lieferavis we-zuordnung hat (vorauss. fur we uber vl32)
und wepos prufen
if t163g-wezuo eq space or t_ekpo-wepos eq space.
t_xkomdlgn-nowab = 'X'.
ELSE.
CLEAR t_xkomdlgn-nowab.
ENDIF.
ENDIF.

IF t_ekpo-matnr IS INITIAL OR t_ekpo-pstyp = '6'.
t_xkomdlgn-posar = 'B'.
ENDIF.
t_xkomdlgn-ematn = t_ekpo-ematn.
t_xkomdlgn-mfrnr = t_ekpo-mfrnr.
t_xkomdlgn-mfrpn = t_ekpo-mfrpn.
t_xkomdlgn-emnfr = t_ekpo-emnfr.
t_xkomdlgn-cuobj = t_ekpo-cuobj.
t_xkomdlgn-uebto = t_ekpo-uebto.
t_xkomdlgn-untto = t_ekpo-untto.
t_xkomdlgn-uebtk = t_ekpo-uebtk.
t_xkomdlgn-lichn = p_licha.
t_xkomdlgn-charg = p_charg.
t_xkomdlgn-bwtar = t_ekpo-bwtar.
t_xkomdlgn-kdmat = t_ekpo-idnlf.
t_xkomdlgn-arktx = t_ekpo-txz01.
t_xkomdlgn-mfrgr = t_ekpo-mfrgr.
t_xkomdlgn-gewei = t_ekpo-gewei.
t_xkomdlgn-voleh = t_ekpo-voleh.
t_xkomdlgn-ntgew = t_ekpo-ntgew * t_xkomdlgn-lfimg.
t_xkomdlgn-brgew = t_ekpo-brgew * t_xkomdlgn-lfimg.
t_xkomdlgn-volum = t_ekpo-volum * t_xkomdlgn-lfimg.
t_xkomdlgn-ean11 = t_ekpo-ean11.
t_xkomdlgn-podrel = t163l-podrel.
t_xkomdlgn-aktnr = t_ekpo-aktnr.
t_xkomdlgn-abeln = t_ekpo-abeln.
t_xkomdlgn-abelp = t_ekpo-abelp.
xkomdlgn-ltssf = only SORT criteria IN vl31n
T_XKOMDLGN-AUREL = T_EKPO-AUREL.
t_xkomdlgn-idnlf = t_ekpo-idnlf.
t_xkomdlgn-matkl = t_ekpo-matkl.

leergut-stuckliste ubernehmen
clear t_xkomdlgn-grkor.
CLEAR t_xkomdlgn-kmpmg.
CLEAR t_xkomdlgn-uepos.
CLEAR t_xkomdlgn-uepvw. "549736
IF t_ekpo-upvor CA '3X'.
h_grkor = h_grkor + 1.
t_xkomdlgn-grkor = h_grkor.
h_bsmng = t_ekpo-menge.
ENDIF.
IF NOT t_ekpo-uebpo IS INITIAL AND
t_ekpo-uptyp CA '3X'.
t_xkomdlgn-uepvw = 'G'. "549736
t_xkomdlgn-uepos = t_ekpo-uebpo.
t_xkomdlgn-grkor = h_grkor.
IF h_bsmng NE 0.
t_xkomdlgn-kmpmg = t_ekpo-menge / h_bsmng.
ENDIF.
ENDIF.

IF t_ekpo-pstyp EQ '2'.
t_xkomdlgn-sobkz = 'K'.
ENDIF.
kontierungsfelder
if t_ekpo-sobkz eq 'E' or t_ekpo-sobkz eq 'Q'.
CALL FUNCTION 'MMPUR_EKKN_READ_EBELN_EBELP'
EXPORTING
pi_ebeln = t_ekpo-ebeln
pi_ebelp = t_ekpo-ebelp
pi_bypassing_buffer = pi_refresh_buffer
=
tables
pto_ekkn_po = xekkn
EXCEPTIONS
no_records_requested = 1
OTHERS = 2.

IF sy-subrc EQ 0.
READ TABLE xekkn INDEX 1.
t_xkomdlgn-ps_psp_pnr = xekkn-ps_psp_pnr.
t_xkomdlgn-vbelv = xekkn-vbeln.
t_xkomdlgn-posnv = xekkn-vbelp.
ENDIF.
ENDIF.

APPEND t_xkomdlgn.

ENDFORM. "xkomdlgn_fill

LOOP AT t_xkomdlgn.

  • set default parameter

t_xkomdlgn-vgtyp = 'V'.
t_xkomdlgn-kzazu = 'X'.
IF t_xkomdlgn-lfart IS INITIAL.
t_xkomdlgn-lfart = 'EL'.
ENDIF.
MODIFY t_xkomdlgn.
ENDLOOP.

SELECT SINGLE * FROM tvsa WHERE smart = xvbsk-smart.
IF sy-subrc 0.

  • Error Handling To be Done
  • Meldung ins Protokoll

ENDIF.
l_nrnr = tvsa-numki.

CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = l_nrnr
object = 'RV_SAMMG'
IMPORTING
number = xvbsk-sammg
EXCEPTIONS
OTHERS = 1.
IF sy-subrc 0.
error hadling tbd
meldung ins protokoll
endif.

CALL FUNCTION 'GN_DELIVERY_CREATE'
EXPORTING

  • no_commit = 'X'

vbsk_i = xvbsk

  • if_no_deque = 'X'
  • IF_MASS_READ_MAT_SW = 'X'
  • vbls_pos_rueck = 'X'

TABLES
xkomdlgn = t_xkomdlgn
xvbfs = xvbfs
xvbls = xvbls
xxlips = xlips.

RELATED POST

BAPI PURCHAGE ORDER GET DETAIL SAMPLE CODE

fico internal summery report sap abap

sap finance cost center summery report

SAP FICO cost center actual line items report

Cost center overview sap fico report

Vendor balance in local currency report

BAPI PURCHAGE ORDER GET DETAIL

FORM get_position_details USING
pi_bukrs TYPE ekko-bukrs
pi_lifnr TYPE ekko-lifnr
pi_ebeln TYPE ekko-ebeln
pi_zterm TYPE ekko-zterm
pi_bsart TYPE ekko-bsart
pi_date TYPE d
pi_file TYPE string.

  • Read informations of all order positions for one purchase order

DATA:
ls_poitem TYPE bapiekpo,
ls_item_hist TYPE bapiekbe,
lt_poitem TYPE STANDARD TABLE OF bapiekpo,
lt_item_hist TYPE STANDARD TABLE OF bapiekbe,
lt_item_total TYPE STANDARD TABLE OF bapiekbes,
l_ebeln TYPE ekpo-ebeln,
l_ebelp TYPE ekpo-ebelp.

CALL FUNCTION 'BAPI_PO_GETDETAIL'
EXPORTING
purchaseorder = pi_ebeln
items = c_yes
history = c_yes
TABLES
po_items = lt_poitem
po_item_history = lt_item_hist
po_item_history_totals = lt_item_total.

  • Check posting date, because the bapi list the complete
  • history of a delivery plan

DELETE lt_item_hist WHERE pstng_date LT pi_date.

RELATED POST

DELIVERY PROCESS WITH BAPI SAMPLE CODE
ABAP ASSIGNMENT

ABAP REAL TIME INTERVIEW QUESTIONS PART ONE

ABAP REAL TIME INTERVIEW QUESTIONS PART TWO

ABAP REAL TIME INTERVIEW QUESTIONS PART THREE

Delevary processing with BAPI

************SALES ORDER INPUT CREATION. 
 
PARAMETERS: p_auart TYPE auart OBLIGATORY. 
PARAMETERS: p_vkorg TYPE vkorg OBLIGATORY. 
PARAMETERS: p_vtweg TYPE vtweg OBLIGATORY. 
PARAMETERS: p_spart TYPE vtweg OBLIGATORY. 
 
PARAMETERS: p_sold TYPE kunnr OBLIGATORY. 
PARAMETERS: p_ship TYPE kunnr OBLIGATORY. 
 
*ITEM 
PARAMETERS: p_matnr TYPE matnr OBLIGATORY. 
PARAMETERS: p_menge TYPE kwmeng OBLIGATORY. 
PARAMETERS: p_plant TYPE werks_d OBLIGATORY. 
PARAMETERS: p_itcat TYPE pstyv OBLIGATORY. 
 
* DATA DECLARATIONS. 
DATA: v_vbeln LIKE vbak-vbeln. 
DATA: header LIKE bapisdhead1. 
DATA: headerx LIKE bapisdhead1x. 
DATA: item LIKE bapisditem OCCURS 0 WITH HEADER LINE. 
DATA: itemx LIKE bapisditemx OCCURS 0 WITH HEADER LINE. 
DATA: partner LIKE bapipartnr OCCURS 0 WITH HEADER LINE. 
DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE. 
DATA: lt_schedules_inx TYPE STANDARD TABLE OF bapischdlx 
WITH HEADER LINE. 
DATA: lt_schedules_in TYPE STANDARD TABLE OF bapischdl 
WITH HEADER LINE. 
 
* HEADER DATA 
header-doc_type = p_auart. 
headerx-doc_type = 'X'. 
 
header-sales_org = p_vkorg. 
headerx-sales_org = 'X'. 
 
header-distr_chan = p_vtweg. 
headerx-distr_chan = 'X'. 
 
header-division = p_spart. 
headerx-division = 'X'. 
 
headerx-updateflag = 'I'. 
 
* PARTNER DATA 
partner-partn_role = 'AG'. 
partner-partn_numb = p_sold. 
APPEND partner. 
 
partner-partn_role = 'WE'. 
partner-partn_numb = p_ship. 
APPEND partner. 
 
* ITEM DATA 
itemx-updateflag = 'I'. 
 
item-itm_number = '000010'. 
itemx-itm_number = 'X'. 
 
 
item-material = p_matnr. 
itemx-material = 'X'. 
 
item-plant = p_plant. 
itemx-plant = 'X'. 
 
item-target_qty = p_menge. 
itemx-target_qty = 'X'. 
 
item-target_qu = 'EA'. 
itemx-target_qu = 'X'. 
 
item-item_categ = p_itcat. 
itemx-item_categ = 'X'. 
 
APPEND item. 
APPEND itemx. 
 
* Fill schedule lines 
lt_schedules_in-itm_number = '000010'. 
lt_schedules_in-sched_line = '0001'. 
lt_schedules_in-req_qty = p_menge. 
APPEND lt_schedules_in. 
 
* Fill schedule line flags 
lt_schedules_inx-itm_number = '000010'. 
lt_schedules_inx-sched_line = '0001'. 
lt_schedules_inx-updateflag = 'X'. 
lt_schedules_inx-req_qty = 'X'. 
APPEND lt_schedules_inx. 
 
* Call the BAPI 
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1' 
EXPORTING 
sales_header_in = header 
sales_header_inx = headerx 
IMPORTING 
salesdocument_ex = v_vbeln 
TABLES 
return = return 
sales_items_in = item 
sales_items_inx = itemx 
sales_schedules_in = lt_schedules_in 
sales_schedules_inx = lt_schedules_inx 
sales_partners = partner. 
 
* Check the return table. 
LOOP AT return WHERE type = 'E' OR type = 'A'. 
EXIT. 
ENDLOOP. 
 
IF sy-subrc = 0. 
 
WRITE: / 'Error in creating document'. 
 
ELSE. 
 
COMMIT WORK AND WAIT. 
 
WRITE: / 'Document ', v_vbeln, ' created'. 
 
ENDIF. 
 
 
************DELIVERY CREATION. 
 
DATA: BEGIN OF t_vbap OCCURS 0, 
vbeln LIKE vbap-vbeln, 
posnr LIKE vbap-posnr, 
zmeng LIKE vbap-kwmeng, 
matnr LIKE vbap-matnr, 
werks LIKE vbap-werks, 
END OF t_vbap. 
 
DATA: t_request TYPE STANDARD TABLE OF bapideliciousrequest 
WITH HEADER LINE. 
 
 
DATA: t_created TYPE STANDARD TABLE OF bapideliciouscreateditems 
WITH HEADER LINE. 
 
 
DATA: t_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE. 
 
SELECT vbeln posnr zmeng matnr werks 
INTO TABLE t_vbap 
FROM vbap 
WHERE vbeln = v_vbeln. 
 
 
LOOP AT t_vbap. 
 
t_request-document_numb = t_vbap-vbeln. 
t_request-document_item = t_vbap-posnr. 
t_request-quantity_sales_uom = t_vbap-zmeng. 
t_request-quantity_base__uom = t_vbap-zmeng. 
t_request-id = 1. 
t_request-document_type = 'A'. 
t_request-delivery_date = sy-datum. 
t_request-material = t_vbap-matnr. 
t_request-plant = t_vbap-werks. 
t_request-date = sy-datum. 
t_request-goods_issue_date = sy-datum. 
t_request-goods_issue_time = sy-uzeit. 
APPEND t_request. 
 
ENDLOOP. 
 
CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC' 
TABLES 
request = t_request 
createditems = t_created 
return = t_return. 
 
 
READ TABLE t_return WITH KEY type = 'E'. 
 
IF sy-subrc = 0. 
MESSAGE e208(00) WITH 'Delivery creation error'. 
ENDIF. 
 
 
COMMIT WORK. 
* 
************Post goods issue. 
READ TABLE t_created INDEX 1. 
 
DATA: vbkok_wa TYPE vbkok. 
 
vbkok_wa-vbeln_vl = t_created-document_numb. 
vbkok_wa-wabuc = 'X'. 
 
DATA: v_error. 
 
CALL FUNCTION 'WS_DELIVERY_UPDATE' 
EXPORTING 
vbkok_wa = vbkok_wa 
delivery = t_created-document_numb 
IMPORTING 
ef_error_in_goods_issue_0 = v_error. 
 
COMMIT WORK.

RELATED POST

SAMPLE SD INTERACTIVE REPORT
SAP ABAP INTERVIEW QUESTIONS ON MODULARIZATION

SAP ABAP INTERVIEW QUESTIONS ON BASIS LAYER

SAP ABAP FAQ'S ON RFC

SAP ABAP OPTIMIZATION

SAP ABAP CROSS APPLICATIONS

BAPI SAMPLE CODE FOR BAPI_SALESORDER_CREATEFROMDAT1

The required parameters are

order_cfgs_ref =
order_cfgs_inst =
order_cfgs_part_of =
order_cfgs_value =
order_cfgs_blob =

The code of the report is

report z_ .
tables: vbak , vbap.

data: begin of order_header_in occurs 1.
include structure bapisdhd1.
data: end of order_header_in.
data: begin of order_header_inx occurs 1.
include structure bapisdhd1x.
data: end of order_header_inx.

data: begin of order_items_in occurs 1.
include structure bapisditm.
data: end of order_items_in.
data: begin of order_items_inx occurs 1.
include structure bapisditmx.
data: end of order_items_inx.

data: begin of order_schedules_in occurs 1.
include structure bapischdl.
data: end of order_schedules_in.
data: begin of order_schedules_inx occurs 1.
include structure bapischdlx.
data: end of order_schedules_inx.
data: begin of order_partners occurs 1.

include structure bapiparnr.
data: end of order_partners.
*data: begin of order_text occurs 1.

  • include structure bapisdtext.

*data: end of order_text.

data: begin of li_return occurs 1.
include structure bapiret2.
data: end of li_return.

data: begin of order_cfgs_vk occurs 1.
include structure bapicuvk.
data: end of order_cfgs_vk.

data: begin of order_cfgs_inst occurs 1.
include structure bapicuins.
data: end of order_cfgs_inst.

data: begin of order_cfgs_part_of occurs 1.
include structure bapicuprt.
data: end of order_cfgs_part_of.

data: begin of order_cfgs_ref occurs 1.
include structure bapicucfg.
data: end of order_cfgs_ref.

data: begin of order_cfgs_value occurs 1.
include structure bapicuval.
data: end of order_cfgs_value.

data: l_vbeln like bapivbeln-vbeln.
data: l_salesdocument like bapivbeln-vbeln.

parameters: p_vbeln like vbak-vbeln.

start-of-selection.
l_salesdocument = p_vbeln.
perform set_header.
perform set_item.
perform set_partner.

  • PERFORM set_text.

perform call_bapi.

form set_partner.
clear order_partners.
order_partners-partn_role = 'AG'. "Remember German codes !
order_partners-partn_numb = 'ST000'.
append order_partners .

clear order_partners.
order_partners-partn_role = 'WE'. "Remember German codes !
order_partners-partn_numb = 'ST000'.
append order_partners.

clear order_partners.
order_partners-partn_role = 'RE'. "Remember German codes !
order_partners-partn_numb = 'ST000'.
append order_partners.

clear order_partners.
order_partners-partn_role = 'RG'. "Remember German codes !
order_partners-partn_numb = 'ST000'.
append order_partners.

endform. " set_partner

form set_header.

  • Sales document type

order_header_in-doc_type = 'ORD'. "Remember German codes !
order_header_in-sales_org = '2000'.
order_header_in-distr_chan = '00'.
order_header_in-division = '01'.
order_header_in-purch_no_c = 'DG-19970626-300'.
order_header_in-req_date_h = '20040829'.
order_header_in-cmlqty_dat = '20040829'.
append order_header_in.

order_header_inx-updateflag = 'I'.
order_header_inx-doc_type = 'X'.
order_header_inx-sales_org = 'X'.
order_header_inx-distr_chan = 'X'.
order_header_inx-division = 'X'.
order_header_inx-purch_no_c = 'X'.
order_header_inx-req_date_h = 'X'.

  • order_header_in-CMLQTY_DAT = '20040829'.

append order_header_inx.
endform. " set_header

form set_item.


order_items_in-itm_number = '000010'.
order_items_in-material = 'M11032-ST000-49C'.

  • order_items_in-ITEM_CATEG = 'TAC'.

order_items_in-po_itm_no = '000050'.

  • order_items_in-val_contr = '0040000101'.
  • order_items_in-val_con_i = '000010'.

order_items_in-ref_doc = '0040000101'.
order_items_in-ref_doc_it = '000010'.
append order_items_in.

order_items_inx-updateflag = 'I'.
order_items_inx-itm_number = '000010'.
order_items_inx-material = 'X'.
order_items_inx-po_itm_no = 'X'.

  • order_items_inx-val_contr = 'X'.
  • order_items_inx-val_con_i = 'X'.

order_items_inx-ref_doc = 'X'.
order_items_inx-ref_doc_it = 'X'.

  • order_items_inx-ITEM_CATEG ='X'.

append order_items_inx .

order_schedules_in-itm_number = '000010'.
order_schedules_in-req_date = '29.08.2004'.
order_schedules_in-req_qty = '10.000'.

order_schedules_inx-itm_number = '000010'.
order_schedules_inx-req_date = 'X'.
order_schedules_inx-req_qty = 'X'.
order_schedules_inx-updateflag = 'I'.
append order_schedules_in.
append order_schedules_inx.


order_cfgs_ref-posex = '000050'.
order_cfgs_ref-config_id = '000010'.
order_cfgs_ref-root_id = '000010'.
APPEND order_cfgs_ref.

order_cfgs_value-config_id = '000050'.
order_cfgs_value-inst_id = '000010'.
order_cfgs_value-charc = 'M05727_COLOR'.
order_cfgs_value-value = 'B'.
APPEND order_cfgs_value.

order_cfgs_value-config_id = '000050'.
order_cfgs_value-inst_id = '000010'.
order_cfgs_value-charc = 'M05727_SIZE'.
order_cfgs_value-value = '42-16-120'.
APPEND order_cfgs_value.

endform. " set_item

order_text-doc_number = p_vbeln.
  • order_text-text_id = '0003'.
  • order_text-langu = 'M'.
  • order_text-langu_iso = 'ZF'.
  • order_text-format_col = '*'.
  • order_text-text_line = 'text line 1'.

**order_text-FUNCTION

  • append order_text.
  • order_text-text_line = 'text line 2'.
  • append order_text.
  • order_text-text_line = 'text line 3'.
  • append order_text.
  • order_text-text_line = 'text line 4'.
  • append order_text.
  • order_text-doc_number = p_vbeln.
  • order_text-itm_number = '000010'.
  • order_text-text_id = '0002'.
  • order_text-langu = 'M'.
  • order_text-langu_iso = 'ZF'.
  • order_text-format_col = '*'.
  • order_text-text_line = 'item text'.
  • append order_text.
form call_bapi.

call function 'CUXC_INIT'.
call function 'BAPI_SALESORDER_CREATEFROMDAT2'
exporting
order_header_in = order_header_in
order_header_inx = order_header_inx
salesdocumentin = l_salesdocument

  • testrun = 'X'

importing
salesdocument = p_vbeln
tables
return = li_return
order_items_in = order_items_in
order_items_inx = order_items_inx
order_schedules_in = order_schedules_in
order_schedules_inx = order_schedules_inx
order_partners = order_partners

  • order_cfgs_ref = order_cfgs_ref
  • order_cfgs_inst = order_cfgs_inst
  • order_cfgs_part_of = order_cfgs_part_of
  • order_cfgs_value = order_cfgs_value
  • order_cfgs_vk = order_cfgs_vk
  • order_text = order_text