Skip to Content
0
Former Member
Apr 27, 2009 at 12:09 PM

bapi

39 Views

Hi Please suggest me how to capture messages into return parameter and wt I need to pass into FM bapi_transaction_commit i.e wt all things need to be uncommented .

This is the coding iam using here :

DATA: salesdocument like BAPIVBELN-VBELN.

DATA: i_schdule type standard table of BAPISCHDL, " for gl date & load date

i_schdulex type standard table of BAPISCHDLX, " for partner role and partner function.

i_partner type standard table of BAPIPARNR,

i_partnerx type standard table of BAPIPARNRC,

i_return type standard table of BAPIRET2 with header line.

DATA: wa_schdule Like BAPISCHDL,

wa_schdulex Like BAPISCHDLX,

wa_partner Like BAPIPARNR,

wa_partnerx Like BAPIPARNRC,

wa_simulation like BAPIFLAG, " for simulation

wa_dlvblock like BAPISDH1, " for lifsk field

wa_dlvblockx like BAPISDH1X. " for update indicator

salesdocument = WA_HEADER_BAPI-VBELN.

  • Header

wa_dlvblock-DLV_BLOCK = wa_header_bapi-lifsk. " Delivery block

  • header X

wa_dlvblockX-DLV_BLOCK = 'X'. " Delivery block

wa_dlvblockX-UPDATEFLAG = 'U'.

  • simulation flag

wa_simulation-BAPIFLAG = 'U'.

  • IF NOT i_header_bapi IS INITIAL.

LOOP AT I_HEADER_BAPI INTO WA_HEADER_BAPI.

move WA_HEADER_BAPI-WADAT to wa_schdule-gi_date.

move WA_HEADER_BAPI-lddat to wa_schdule-load_date.

move WA_HEADER_BAPI-PARVW to wa_partner-PARTN_ROLE.

MOVE WA_HEADER_BAPI-KUNNR TO wa_partner-PARTN_NUMB.

append wa_schdule to i_schdule.

append wa_partner to i_partner.

CLEAR WA_HEADER_BAPI.

CLEAR I_HEADER_BAPI.

ENDLOOP.

wa_schdulex-UPDATEFLAG = 'U'.

wa_schdulex-gi_date = 'X'.

wa_schdulex-load_date = 'X'.

append wa_schdulex to i_schdulex.

wa_partnerx-UPDATEFLAG = 'U'.

wa_partnerx-PARTN_ROLE = 'X'.

wa_partnerx-P_NUMB_NEW = 'X'.

append wa_partnerx to i_partnerx.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

salesdocument = salesdocument

ORDER_HEADER_IN = wa_dlvblock

order_header_inx = wa_dlvblockX

SIMULATION = wa_simulation

  • BEHAVE_WHEN_ERROR = ' '

  • INT_NUMBER_ASSIGNMENT = ' '

  • LOGIC_SWITCH =

  • NO_STATUS_BUF_INIT = ' '

tables

return = i_return[]

  • ORDER_ITEM_IN =

  • ORDER_ITEM_INX =

PARTNERS = i_partner

PARTNERCHANGES = i_partnerx

  • PARTNERADDRESSES =

  • ORDER_CFGS_REF =

  • ORDER_CFGS_INST =

  • ORDER_CFGS_PART_OF =

  • ORDER_CFGS_VALUE =

  • ORDER_CFGS_BLOB =

  • ORDER_CFGS_VK =

  • ORDER_CFGS_REFINST =

SCHEDULE_LINES = i_schdule

SCHEDULE_LINESX = i_schdulex

  • ORDER_TEXT =

  • ORDER_KEYS =

  • CONDITIONS_IN =

  • CONDITIONS_INX =

  • EXTENSIONIN =

.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

  • EXPORTING

  • WAIT =

  • IMPORTING

  • RETURN =

.

ENDIF.