hi code for uplading a seles order data through BAPI,also error handling

Former Member — Mon, 16 Jun 2008 10:38:05 GMT

i want to code for uploading a salesorder data BAPI and eeror

HANDLING THROUGH BAPI

Re: hi code for uplading a seles order data through BAPI,also error handling

Former Member — Mon, 16 Jun 2008 10:51:32 GMT

Hi,

VA01 is the transaction for create the sales order.

Refer the below links about sales order creation using BAPI.

[http://abaplovers.blogspot.com/2008/02/bapi-sales-order-create-code.html|http://abaplovers.blogspot.com/2008/02/bapi-sales-order-create-code.html]

[http://abap.wikiprog.com/wiki/BAPI_SALESORDER_CREATEFROMDAT2|http://abap.wikiprog.com/wiki/BAPI_SALESORDER_CREATEFROMDAT2]

Reward if found helpful.

Regards,

Boobalan Suburaj

Re: hi code for uplading a seles order data through BAPI,also error handling

Former Member — Mon, 16 Jun 2008 13:09:26 GMT

Hi,

BAPI_SALESORDER_CREATEFROMDAT2

Use this BAPI for sales order Upload.

Sample code.

REPORT Z_DURAI_TEST.

----

Parameters

----

Parameters: P_order like vbak-vbeln.

Parameters: P_quote like BAPIVBELN-VBELN.

Parameters: P_new like BAPIVBELN-VBELN.

We need to create a new order number P_New from an existing order P_order
linked to an existing quotation P_quote

----

Tables

----

Tables: VBAK,

VBAP,

VBKD. "Sales Document: Business Data

----

Data and internal table

----

DATA: order_header_in1 LIKE BAPISDHD1.

DATA: order_header_intX like BAPISDHD1X.

DATA : SALESDOCUMENT1 TYPE BAPIVBELN-VBELN.

DATA : RETURN2 TYPE BAPIRET2.

DATA: order_partners1 type BAPIPARNR occurs 0 with header line.

DATA: ORDER_ITEMS_IN1 type BAPISDITM occurs 0 with header line.

DATA: ORDER_ITEMS_IN1X type BAPISDITMX occurs 0 with header line.

DATA: ORDER_SCHEDULES_IN1 type BAPISCHDL occurs 0 with header line.

DATA: ORDER_SCHEDULES_IN1X type BAPISCHDLX occurs 0 with header line.

DATA : RETURN1 TYPE BAPIRET2 OCCURS 0 with header line.

Start-of-selection.

Select single * from vbak where vbeln = p_quote.

if not sy-subrc = 0.

write:/ text-e02.

exit.

endif.

Select single * from vbak where vbeln = p_order.

if not sy-subrc = 0.

write:/ text-e01.

exit.

endif.

Select single * from vbkd where vbeln = p_order.

if not sy-subrc = 0.

write:/ text-e03.

exit.

endif.

order_header_in1-doc_type = 'TA'.

order_header_in1-sales_org = vbak-vkorg.

order_header_in1-distr_chan = vbak-vtweg.

order_header_in1-division = vbak-spart.

order_header_in1-REQ_DATE_H = sy-datum + 20.

order_header_in1-PURCH_NO_C = 'HBR_Commande'.

order_header_in1-REF_1 = 'E-DISTR'.

order_header_in1-SD_DOC_CAT = 'C'.

order_header_in1-REF_DOC = P_quote.

order_header_in1-REF_DOC_L = P_quote.

order_header_in1-REFDOC_CAT = 'B'.

order_header_in1-INCOTERMS1 = vbkd-inco1.

order_header_in1-INCOTERMS2 = vbkd-inco2.

order_header_in1-PMNTTRMS = vbkd-zterm.

order_header_in1-SALES_OFF = vbak-vkbur.

select * from vbap where vbeln = vbak-vbeln.

clear ORDER_ITEMS_IN1.

ORDER_ITEMS_IN1-PO_ITM_NO = vbap-posnr.

ORDER_ITEMS_IN1-material = vbap-MATNR.

ORDER_ITEMS_IN1-TARGET_QU = vbap-zieme.

ORDER_ITEMS_IN1-REF_DOC = P_quote.

ORDER_ITEMS_IN1-REF_DOC_IT = vbap-posnr.

ORDER_ITEMS_IN1-REF_DOC_CA = 'B'.

append ORDER_ITEMS_IN1.

clear ORDER_SCHEDULES_IN1.

ORDER_SCHEDULES_IN1-ITM_NUMBER = vbap-posnr.

ORDER_SCHEDULES_IN1-REQ_DATE = sy-datum + 20.

ORDER_SCHEDULES_IN1-REQ_QTY = vbap-KWMENG.

append ORDER_SCHEDULES_IN1.

endselect.

order_partners1-PARTN_ROLE = 'WE'.

order_partners1-PARTN_NUMB = vbak-KUNNR.

APPEND order_partners1.

order_partners1-PARTN_ROLE = 'AG'.

APPEND order_partners1.

Perform call_function.

&----

*& Form call_function

&----

text

----

--> p1 text
<-- p2 text

----

form call_function .

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

SALESDOCUMENTIN = P_new

ORDER_HEADER_IN = order_header_in1

ORDER_HEADER_INX = order_header_intX
SENDER =
BINARY_RELATIONSHIPTYPE =
INT_NUMBER_ASSIGNMENT =
BEHAVE_WHEN_ERROR =
LOGIC_SWITCH =
TESTRUN =
CONVERT = ' '

IMPORTING

SALESDOCUMENT = SALESDOCUMENT1

TABLES

RETURN = RETURN1

ORDER_ITEMS_IN = ORDER_ITEMS_IN1

ORDER_ITEMS_INX = ORDER_ITEMS_IN1X

ORDER_PARTNERS = order_partners1

ORDER_SCHEDULES_IN = ORDER_SCHEDULES_IN1

ORDER_SCHEDULES_INX = ORDER_SCHEDULES_IN1X
ORDER_CONDITIONS_IN =
ORDER_CONDITIONS_INX =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
ORDER_CCARD =
ORDER_TEXT =
ORDER_KEYS =
EXTENSIONIN =
PARTNERADDRESSES =

IF NOT SALESDOCUMENT1 IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN = RETURN2.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ENDIF.

endform. "call_function

Thanks,

Durai.V

topic Re: hi code for uplading a seles order data through BAPI,also error handling in Application Development and Automation Discussions

hi code for uplading a seles order data through BAPI,also error handling

Re: hi code for uplading a seles order data through BAPI,also error handling

Re: hi code for uplading a seles order data through BAPI,also error handling