‎2007 Sep 03 12:28 PM
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.
‎2007 Sep 03 12:42 PM
Hi Rams..
Check the Correct one here: in BOLD
IF IT_RETURN IS NOT INITIAL.
READ TABLE IT_RETURN INTO WA_RETURN
<b>WITH KEY TYPE EQ 'E'.</b>
IF SY-SUBRC NE 0.
Note : in the structure BAPIRET2 the component TYPE stores the Message type
when it is storing 'E' means error message.
<b>REWARD IF HELPFUL.</b>
‎2007 Sep 03 12:42 PM
Hi Rams..
Check the Correct one here: in BOLD
IF IT_RETURN IS NOT INITIAL.
READ TABLE IT_RETURN INTO WA_RETURN
<b>WITH KEY TYPE EQ 'E'.</b>
IF SY-SUBRC NE 0.
Note : in the structure BAPIRET2 the component TYPE stores the Message type
when it is storing 'E' means error message.
<b>REWARD IF HELPFUL.</b>