2008 Mar 26 4:17 PM
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.
2008 Mar 26 5:00 PM
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.
**½MBÙ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
2008 Mar 26 5:00 PM
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.
**½MBÙ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
2008 Mar 26 5:11 PM
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.
2008 Mar 27 1:38 PM
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