topic Re: Hi in Application Development and Automation Discussions

Hi

Former Member — Mon, 03 Sep 2007 11:32:44 GMT

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.

Re: Hi

Former Member — Mon, 03 Sep 2007 11:39:01 GMT

<b>IF IT_RETURN IS NOT INITIAL.

READ TABLE IT_RETURN INTO WA_RETURN

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

Regards

peram

Re: Hi

Former Member — Mon, 03 Sep 2007 11:39:11 GMT

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.

Thanks

Seshu

Re: Hi

Former Member — Mon, 03 Sep 2007 11:43:11 GMT

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