Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

sample code

Former Member
0 Kudos
447

plz send me some sample code for

BAPI , BAPI_SALESORDER_CREATEFROMDAT1 in which you have used below parameters successfully.

order_cfgs_ref =

order_cfgs_inst =

order_cfgs_part_of =

order_cfgs_value =

order_cfgs_blob =

plz help its urgent.

1 ACCEPTED SOLUTION

Former Member
0 Kudos
234

Hi Vivek Gaur,

Check the below code :

report zbc800_whs_040311 .

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

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

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

*&----


*

  • text

*----


*

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'. "¿Í‘ô’ñُ†ÎÌ–´a

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

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

form set_item.

***í—Ä¿ÙYÁÏ**************************

order_items_in-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_items_in-material = 'M11032-ST000-49C'. "ÎïÁÏÌ–´a

  • order_items_in-ITEM_CATEG = 'TAC'.

order_items_in-po_itm_no = '000050'. "±ÜëU˜ËµÄ’ñُ†ÎµÄí—Ä¿Ì–´a

  • 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'. "¸üÐÂָʾ´a

order_items_inx-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_items_inx-material = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_items_inx-po_itm_no = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

  • 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'. "äNÊÛÎļþí—Ä¿

order_schedules_in-req_date = '29.08.2004'. "•r³ÌÃ÷¼šÈÕÆÚ

order_schedules_in-req_qty = '10.000'. "ÒÔäNÊÛ†Îλ±íʾµÄӆُ”µÁ¿

order_schedules_inx-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_schedules_inx-req_date = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_schedules_inx-req_qty = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_schedules_inx-updateflag = 'I'. "¸üÐÂָʾ´a

append order_schedules_in.

append order_schedules_inx.

**½M‘BÙYÁÏ************************

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

*&----


*

*& Form set_text

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

*form set_text.

**±íî^ƒÈÎÄ**********

  • 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.

*

*

*endform. " set_text

*&----


*

*& Form call_bapi

*&----


*

  • 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

.

call function 'BAPI_TRANSACTION_COMMIT'.

loop at li_return.

write:/ li_return-type,

li_return-message.

endloop.

endform. " call_bapi

Thanks,

Greetson

3 REPLIES 3

Former Member
0 Kudos
235

Hi Vivek Gaur,

Check the below code :

report zbc800_whs_040311 .

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

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

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

*&----


*

  • text

*----


*

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'. "¿Í‘ô’ñُ†ÎÌ–´a

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

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

form set_item.

***í—Ä¿ÙYÁÏ**************************

order_items_in-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_items_in-material = 'M11032-ST000-49C'. "ÎïÁÏÌ–´a

  • order_items_in-ITEM_CATEG = 'TAC'.

order_items_in-po_itm_no = '000050'. "±ÜëU˜ËµÄ’ñُ†ÎµÄí—Ä¿Ì–´a

  • 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'. "¸üÐÂָʾ´a

order_items_inx-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_items_inx-material = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_items_inx-po_itm_no = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

  • 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'. "äNÊÛÎļþí—Ä¿

order_schedules_in-req_date = '29.08.2004'. "•r³ÌÃ÷¼šÈÕÆÚ

order_schedules_in-req_qty = '10.000'. "ÒÔäNÊÛ†Îλ±íʾµÄӆُ”µÁ¿

order_schedules_inx-itm_number = '000010'. "äNÊÛÎļþí—Ä¿

order_schedules_inx-req_date = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_schedules_inx-req_qty = 'X'. "ÏàêPʹÓÃÕßÙYÁÏ™ÚλµÄ¸üÐÂÙYӍ

order_schedules_inx-updateflag = 'I'. "¸üÐÂָʾ´a

append order_schedules_in.

append order_schedules_inx.

**½M‘BÙYÁÏ************************

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

*&----


*

*& Form set_text

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

*form set_text.

**±íî^ƒÈÎÄ**********

  • 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.

*

*

*endform. " set_text

*&----


*

*& Form call_bapi

*&----


*

  • 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

.

call function 'BAPI_TRANSACTION_COMMIT'.

loop at li_return.

write:/ li_return-type,

li_return-message.

endloop.

endform. " call_bapi

Thanks,

Greetson

Former Member
0 Kudos
234

hi use like this....

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT1'

EXPORTING

ORDER_HEADER_IN = SD_ORDER_HEADER

IMPORTING

RETURN = RETURN1

SALESDOCUMENT = ORDER_NUMBER

SOLD_TO_PARTY = SD_SOLD_TO_PARTY

SHIP_TO_PARTY = SD_SHIP_TO_PARTY

BILLING_PARTY = SD_BILLING_PARTY

TABLES

ORDER_ITEMS_IN = SD_ORDER_ITEMS_IN

ORDER_PARTNERS = SD_ORDER_PARTNERS

ORDER_ITEMS_OUT = SD_ORDER_ITEMS_OUT

ORDER_CFGS_REF = SD_ORDER_CFGS_REF

ORDER_CFGS_INST = SD_ORDER_CFGS_INST

ORDER_CFGS_PART_OF = SD_ORDER_CFGS_PART_OF

ORDER_CFGS_VALUE = SD_ORDER_CFGS_VALUE

ORDER_CCARD = SD_ORDER_CCARD.

or check programs MV45WF0S RBUS2032

reagrds,

venkat.

Former Member
0 Kudos
234

Hello Vivek,

Looks like you are not getting any error messages. You are getting only warning messages.... I think you didn't use the COMMIT BAPI.

Try using COMMIT bapi.

Thanks,

Greetson