Hi

[Former Member]

Hi,

Plz let me know the error in this program.

DATA:

WA_ORDERHEADER TYPE BAPISDHD1,

WA_ORDERHEADERX TYPE BAPISDHD1X,

V_ORDERNUMBER TYPE BAPIVBELN-VBELN,

IT_RETURN TYPE TABLE OF BAPIRET2,

WA_RETURN TYPE BAPIRET2,

IT_ITEMS TYPE TABLE OF BAPISDITM,

WA_ITEMS TYPE BAPISDITM,

IT_ITEMSX TYPE TABLE OF BAPISDITMX,

WA_ITEMSX TYPE BAPISDITMX,

IT_PARTNER TYPE TABLE OF BAPIPARNR,

WA_PATNR TYPE BAPIPARNR.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

• SALESDOCUMENTIN =

ORDER_HEADER_IN = WA_ORDERHEADER

ORDER_HEADER_INX = WA_ORDERHEADERX

• SENDER =

• BINARY_RELATIONSHIPTYPE =

• INT_NUMBER_ASSIGNMENT =

• BEHAVE_WHEN_ERROR =

• LOGIC_SWITCH =

• TESTRUN =

• CONVERT = ' '

IMPORTING

SALESDOCUMENT = V_ORDERNUMBER

TABLES

RETURN = IT_RETURN

ORDER_ITEMS_IN = IT_ITEMS

ORDER_ITEMS_INX = IT_ITEMSX

ORDER_PARTNERS = IT_PARTNER

• ORDER_SCHEDULES_IN =

• ORDER_SCHEDULES_INX =

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

.

<b>IF IT_RETURN IS NOT INITIAL.

READ TABLE IT_RETURN INTO WA_RETURN

WITH KEY P TYPE EQ 'E'.

IF SY-SUBRC NE 0.</b>

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

• EXPORTING

• WAIT =

• IMPORTING

• RETURN =

ENDIF.

ENDIF.

[Former Member]

Check the below code :

REPORT ZSAI1.

DATA:

WA_ORDERHEADER TYPE BAPISDHD1,

WA_ORDERHEADERX TYPE BAPISDHD1X,

V_ORDERNUMBER TYPE BAPIVBELN-VBELN,

IT_RETURN TYPE TABLE OF BAPIRET2,

WA_RETURN TYPE BAPIRET2,

IT_ITEMS TYPE TABLE OF BAPISDITM,

WA_ITEMS TYPE BAPISDITM,

IT_ITEMSX TYPE TABLE OF BAPISDITMX,

WA_ITEMSX TYPE BAPISDITMX,

IT_PARTNER TYPE TABLE OF BAPIPARNR,

WA_PATNR TYPE BAPIPARNR.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

• SALESDOCUMENTIN =

ORDER_HEADER_IN = WA_ORDERHEADER

ORDER_HEADER_INX = WA_ORDERHEADERX

• SENDER =

• BINARY_RELATIONSHIPTYPE =

• INT_NUMBER_ASSIGNMENT =

• BEHAVE_WHEN_ERROR =

• LOGIC_SWITCH =

• TESTRUN =

• CONVERT = ' '

IMPORTING

SALESDOCUMENT = V_ORDERNUMBER

TABLES

RETURN = IT_RETURN

ORDER_ITEMS_IN = IT_ITEMS

ORDER_ITEMS_INX = IT_ITEMSX

ORDER_PARTNERS = IT_PARTNER

• ORDER_SCHEDULES_IN =

• ORDER_SCHEDULES_INX =

• 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 IT_RETURN IS INITIAL.

READ TABLE IT_RETURN INTO WA_RETURN

WITH KEY TYPE = 'E'.

IF SY-SUBRC NE 0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = space.

• IMPORTING

• RETURN =

endif.

endif.

Thanks

Seshu

[Former Member]

<b>IF IT_RETURN IS NOT INITIAL.

READ TABLE IT_RETURN INTO WA_RETURN

WITH KEY TYPE EQ 'E'.</b>

Regards

peram

[Former Member]

Check the below code :

REPORT ZSAI1.

DATA:

WA_ORDERHEADER TYPE BAPISDHD1,

WA_ORDERHEADERX TYPE BAPISDHD1X,

V_ORDERNUMBER TYPE BAPIVBELN-VBELN,

IT_RETURN TYPE TABLE OF BAPIRET2,

WA_RETURN TYPE BAPIRET2,

IT_ITEMS TYPE TABLE OF BAPISDITM,

WA_ITEMS TYPE BAPISDITM,

IT_ITEMSX TYPE TABLE OF BAPISDITMX,

WA_ITEMSX TYPE BAPISDITMX,

IT_PARTNER TYPE TABLE OF BAPIPARNR,

WA_PATNR TYPE BAPIPARNR.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

• SALESDOCUMENTIN =

ORDER_HEADER_IN = WA_ORDERHEADER

ORDER_HEADER_INX = WA_ORDERHEADERX

• SENDER =

• BINARY_RELATIONSHIPTYPE =

• INT_NUMBER_ASSIGNMENT =

• BEHAVE_WHEN_ERROR =

• LOGIC_SWITCH =

• TESTRUN =

• CONVERT = ' '

IMPORTING

SALESDOCUMENT = V_ORDERNUMBER

TABLES

RETURN = IT_RETURN

ORDER_ITEMS_IN = IT_ITEMS

ORDER_ITEMS_INX = IT_ITEMSX

ORDER_PARTNERS = IT_PARTNER

• ORDER_SCHEDULES_IN =

• ORDER_SCHEDULES_INX =

• 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 IT_RETURN IS INITIAL.

READ TABLE IT_RETURN INTO WA_RETURN

WITH KEY TYPE = 'E'.

IF SY-SUBRC NE 0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = space.

• IMPORTING

• RETURN =

endif.

endif.

Thanks

Seshu

[Former Member]

Check the sample code and it is creating sales order ,

practice purpose create sales order manully at VA01 and use same data at FM

data : so_header like BAPISDHD1.

data : so_item like BAPISDITM occurs 0 with header line,

so_partner like BAPIPARNR occurs 0 with header line.

data : v_vbeln like BAPIVBELN-VBELN.

data : so_return like BAPIRET2 OCCURS 0 WITH HEADER LINE.

data : v_soldto like BAPISOLDTO,

v_shipto like BAPISHIPTO.

*Populate header

so_header-DOC_TYPE = 'TA'.

so_header-SALES_ORG = 'ZNS1'.

so_header-DISTR_CHAN = '01'.

so_header-DIVISION = '00'.

SO_HEADER-CREATED_BY = 'WEBDYNP'.

*SO_HEADER-REF_1 = 'NWC01'.

*populate item data

so_item-MATERIAL = 'NWM08'.

so_item-TARGET_QTY = '10'.

so_item-TARGET_QU = 'EA'.

*so_item-purch_no_c = 'TESTCOE'.

*so_item-REF_1_S = 'NWC01'.

append so_item.

*populate partner data.

SO_PARTNER-PARTN_ROLE = 'AG'.

so_partner-PARTN_NUMB = 'NWC01'.

append so_partner.

*Call a BAPI to create SO

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

EXPORTING

order_header_in = so_header

IMPORTING

SALESDOCUMENT = v_VBELN

tables

order_items_in = so_item

order_partners = so_partner

RETURN = SO_RETURN

.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = SPACE

• IMPORTING

• RETURN =

.

break-point.

write / so_return.

Thanks

Seshu