topic Re: REGARDING BAPI in Application Development and Automation Discussions

REGARDING BAPI

Former Member — Wed, 23 Jul 2008 08:02:30 GMT

Hi,

i am creating a service order through BAPI_ALM_ORDER_MAINTAIN. So lpz tell me what value should be passed to field OBJECTKEY of structure BAPI_ALM_ORDER_METHOD ?

Re: REGARDING BAPI

Former Member — Wed, 23 Jul 2008 08:08:11 GMT

Hi Vishal,

Check with below links:

http://www.sapfans.com/forums/viewtopic.php?t=182938&highlight=bapialmordermaintain

http://www.sapfans.com/forums/viewtopic.php?t=76695&highlight=bapialmordermaintain

http://www.sapfans.com/forums/viewtopic.php?t=104180&highlight=bapialmordermaintain

http://www.sapfans.com/forums/viewtopic.php?t=147301&highlight=bapialmordermaintain

If Found Help Full Do Reward.

Regards.

Eshwar.

Re: REGARDING BAPI

Former Member — Wed, 23 Jul 2008 08:10:16 GMT

Hi,

Refer this:

https://forums.sdn.sap.com/click.jspa?searchID=14388042&messageID=4236927

https://forums.sdn.sap.com/click.jspa?searchID=14388042&messageID=1444639

Regards,

Shiva Kumar

Re: REGARDING BAPI

Former Member — Wed, 23 Jul 2008 09:13:40 GMT

please don't send any link.

Re: REGARDING BAPI

Former Member — Wed, 23 Jul 2008 09:16:58 GMT

Hi,

We are using BAPI_ALM_ORDER_MAINTAIN to update Special Stock indicator

(RESB-SOBKZ) at component level for a service order (IW32).

BAPI is not updating the value which we are passing for this field but

intrestingly BAPI is updating rest of the fields at component level,

like Component Quntity, Componen Plant etc. Only Special Stock

Indicator field is an exception.

We are passing value in "BAPI_ALM_ORDER_COMPONENT-SPECIAL_STOCK" field

and updating BAPI Update table with X for this field.

Can somebody provide help on this.

Steps for the Reconstruction

Below is the source code which i am using to update Srvice order via

this BAPI

**************************************************************

REPORT zbapi .

DATA t_meth TYPE TABLE OF bapi_alm_order_method.

**Internal table for Operation (BAPI)

DATA t_oper TYPE TABLE OF bapi_alm_order_operation.

DATA t_comp TYPE TABLE OF bapi_alm_order_component.

**Internal Table for Opertaions UP (BAPI)

DATA t_comp_up TYPE TABLE OF bapi_alm_order_component_up.

**Internal table for BAPI Return code

DATA t_ret TYPE TABLE OF bapiret2.

***WORK AREA DECLARATIONS

**Work Area for Hedaer

DATA:wa_header TYPE caufvdb,

wa_meth TYPE bapi_alm_order_method,

wa_op TYPE afvgb,

wa_comp TYPE resbb,

wa_comp1 TYPE bapi_alm_order_component,

wa_comp_up TYPE bapi_alm_order_component_up,

wa_oper TYPE bapi_alm_order_operation.

PARAMETERS:TEST.

****Fill Method Internal table

CLEAR wa_meth.

wa_meth-method = 'SAVE'.

APPEND wa_meth TO t_meth.

wa_meth-refnumber = sy-tabix.

wa_meth-objecttype = 'COMPONENT'.

wa_meth-method = 'CHANGE'.

wa_meth-objectkey(12) = '000004000104'.

wa_meth-objectkey+12(4) = '0010'.

wa_meth-objectkey+16(4) = '0010'.

APPEND wa_meth TO t_meth.

**Component Internal table

wa_comp1-reserv_no = '0000001072'.

wa_comp1-res_item = '0001'.

wa_comp1-activity = '0010'.

wa_comp1-item_number = '0010'.

wa_comp1-special_stock = 'B'.

wa_comp1-requirement_quantity = '15'.

wa_comp1-stge_loc = '0001'.

wa_comp1-backflush = 'X'.

APPEND wa_comp1 TO t_comp.

**Component Update Internal table

wa_comp_up-special_stock = 'X'.

wa_comp_up-backflush = 'X'.

wa_comp_up-requirement_quantity = 'X'.

wa_comp_up-stge_loc = 'X'.

APPEND wa_comp_up TO t_comp_up.

**Call Bapi

BREAK-POINT.

CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN'

TABLES

it_methods = t_meth

it_component = t_comp

it_component_up = t_comp_up

return = t_ret.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

Re: REGARDING BAPI

Former Member — Wed, 23 Jul 2008 11:45:20 GMT

Hi,

check this samole code,

REPORT Z_SALES_ORDER_CHANGE

NO STANDARD PAGE HEADING

LINE-SIZE 132

LINE-COUNT 65(0)

MESSAGE-ID ZZ.

TABLES: VBAP.

DATA:

V_FILEIN(90) TYPE C,

V_RECIN TYPE I,

V_RECVBAP TYPE I,

V_RECORDER TYPE I,

V_VBELN LIKE VBAP-VBELN,

ORDERHEADERINX LIKE BAPISDH1X.

DATA: BEGIN OF I_ORDERS OCCURS 0,

VBELN LIKE VBAK-VBELN,

POSNR LIKE VBAP-POSNR,

BRGEW(18) TYPE C,

VOLUM(18) TYPE C,

END OF I_ORDERS.

DATA: BEGIN OF I_OUTPUT OCCURS 0,

VBELN LIKE VBAK-VBELN,

POSNR LIKE VBAP-POSNR,

GEWEI LIKE VBAP-GEWEI,

BRGEW LIKE VBAP-BRGEW,

VOLUM LIKE VBAP-VOLUM,

CKWGT TYPE C,

CKVOL TYPE C,

END OF I_OUTPUT.

DATA: BEGIN OF ORDERITEMIN OCCURS 0.

INCLUDE STRUCTURE BAPISDITM.

DATA: END OF ORDERITEMIN.

DATA: BEGIN OF ORDERITEMINX OCCURS 0.

INCLUDE STRUCTURE BAPISDITMX.

DATA: END OF ORDERITEMINX.

DATA: BEGIN OF RETURN OCCURS 0.

INCLUDE STRUCTURE BAPIRET2.

DATA: END OF RETURN.

DATA: BEGIN OF BAPIRETURN OCCURS 0.

INCLUDE STRUCTURE BAPIRET2.

DATA: END OF BAPIRETURN.

PARAMETERS:

P_PATH(45) TYPE C DEFAULT '/usr/users/ftpsapom/' LOWER CASE,

P_FNAME(32) TYPE C DEFAULT '/sweetjo.txt' LOWER CASE.

START-OF-SELECTION.

CONCATENATE PATH AND FILE NAME INTO ONE VARIABLE

CONCATENATE P_PATH P_FNAME INTO V_FILEIN.

OPEN DATASET

IF V_FILEIN IS INITIAL.

MESSAGE E002 WITH 'FILE' V_FILEIN 'DOES NOT CONTAIN ANY DATA!'.

& & & &

ELSE.

OPEN DATASET V_FILEIN

FOR INPUT

IN TEXT MODE.

IF SY-SUBRC = 0.

READ DATASET

DO.

READ DATASET V_FILEIN INTO I_ORDERS.

IF SY-SUBRC = 0.

APPEND I_ORDERS.

ELSE.

EXIT.

ENDIF.

ENDDO.

CLOSE DATASET

CLOSE DATASET V_FILEIN.

IF SY-SUBRC <> 0.

MESSAGE E002 WITH 'ERROR - CLOSING' V_FILEIN.

& & & &

ENDIF.

ELSE.

MESSAGE E002 WITH 'ERROR - COULD NOT OPEN' V_FILEIN.

& & & &

ENDIF.

SORT AND REMOVE DUPLICATES FROM I_ORDERS

SORT I_ORDERS BY VBELN POSNR.

DELETE ADJACENT DUPLICATES FROM I_ORDERS.

POPULATE I_OUTPUT

LOOP AT I_ORDERS.

SHIFT I_ORDERS-POSNR LEFT DELETING LEADING SPACE.

CONCATENATE '0' I_ORDERS-POSNR INTO I_ORDERS-POSNR.

SELECT SINGLE BRGEW VOLUM

FROM VBAP

INTO (VBAP-BRGEW, VBAP-VOLUM)

WHERE VBELN = I_ORDERS-VBELN

AND POSNR = I_ORDERS-POSNR.

IF SY-SUBRC = 0.

IF VBAP-BRGEW = 0.

I_OUTPUT-CKWGT = 'X'.

ENDIF.

IF VBAP-VOLUM = 0.

I_OUTPUT-CKVOL = 'X'.

ENDIF.

I_OUTPUT-VBELN = I_ORDERS-VBELN.

I_OUTPUT-POSNR = I_ORDERS-POSNR.

I_OUTPUT-GEWEI = 'ST'.

I_OUTPUT-BRGEW = I_ORDERS-BRGEW.

I_OUTPUT-VOLUM = I_ORDERS-VOLUM.

APPEND I_OUTPUT.

CLEAR: I_OUTPUT.

ENDIF.

V_RECIN = V_RECIN + 1.

ENDLOOP.

POPULATE BAPI DATA AND RUN BAPI

CLEAR: ORDERHEADERINX, ORDERITEMIN, ORDERITEMINX,

RETURN, BAPIRETURN.

REFRESH: ORDERITEMIN, ORDERITEMINX, RETURN, BAPIRETURN.

ORDERHEADERINX-UPDATEFLAG = 'U'.

LOOP AT I_OUTPUT WHERE CKWGT = 'X' OR CKVOL = 'X'.

V_RECVBAP = V_RECVBAP + 1.

IF I_OUTPUT-VBELN <> V_VBELN AND SY-TABIX <> 1.

V_RECORDER = V_RECORDER + 1.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

SALESDOCUMENT = V_VBELN

ORDER_HEADER_INX = ORDERHEADERINX

TABLES

RETURN = RETURN

ORDER_ITEM_IN = ORDERITEMIN

ORDER_ITEM_INX = ORDERITEMINX.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN = BAPIRETURN.

WRITE OUT RETURN

LOOP AT RETURN.

WRITE: / RETURN.

ENDLOOP.

WRITE: / BAPIRETURN.

SKIP.

CLEAR: ORDERITEMIN, ORDERITEMINX,

RETURN, BAPIRETURN.

REFRESH: ORDERITEMIN, ORDERITEMINX, RETURN, BAPIRETURN.

ENDIF.

ORDERITEMIN-ITM_NUMBER = I_OUTPUT-POSNR.

ORDERITEMIN-UNTOF_WGHT = I_OUTPUT-GEWEI.

IF NOT I_OUTPUT-CKWGT IS INITIAL.

ORDERITEMIN-GROSS_WGHT = I_OUTPUT-BRGEW.

ORDERITEMINX-GROSS_WGHT = 'X'.

ENDIF.

IF NOT I_OUTPUT-CKVOL IS INITIAL.

ORDERITEMIN-VOLUME = I_OUTPUT-VOLUM.

ORDERITEMINX-VOLUME = 'X'.

ENDIF.

APPEND ORDERITEMIN.

ORDERITEMINX-ITM_NUMBER = I_OUTPUT-POSNR.

ORDERITEMINX-UNTOF_WGHT = 'X'.

ORDERITEMINX-UPDATEFLAG = 'U'.

APPEND ORDERITEMINX.

V_VBELN = I_OUTPUT-VBELN.

ENDLOOP.

RUN BAPI ON LAST ORDER

IF NOT ORDERITEMIN IS INITIAL.

V_RECORDER = V_RECORDER + 1.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

SALESDOCUMENT = V_VBELN

ORDER_HEADER_INX = ORDERHEADERINX

TABLES

RETURN = RETURN

ORDER_ITEM_IN = ORDERITEMIN

ORDER_ITEM_INX = ORDERITEMINX.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN = BAPIRETURN.

WRITE OUT RETURN

LOOP AT RETURN.

WRITE: / RETURN.

ENDLOOP.

WRITE: / BAPIRETURN.

SKIP.

ENDIF.

WRITE OUT RECORD COUNT FROM FILE

WRITE: / 'RECORD COUNT FROM FILE ', V_RECIN.

SKIP.

WRITE OUT RECORD COUNT FROM FILE

WRITE: / 'RECORD COUNT OF LINES TO CHANGE ', V_RECVBAP.

SKIP.

WRITE OUT RECORD COUNT FROM FILE

WRITE: / 'RECORD COUNT OF ORDERS TO CHANGE ', V_RECORDER.

SKIP.

TOP OF PAGE

TOP-OF-PAGE.

WRITE:/1(5) TEXT-H01, 6(8) SY-DATUM MM/DD/YY,

100(8) TEXT-H02, 126(8) SY-PAGNO.

WRITE:/1(5) TEXT-H03, 6(8) SY-UZEIT USING EDIT MASK '__:__:__',

20(77) TEXT-H04,

100(8) TEXT-H05, 108(25) SY-REPID.

WRITE:/1(6) TEXT-H06, 8(12) SY-UNAME,

20(4) TEXT-H07, 25(32) SY-HOST,

100(13) TEXT-H08, 121(8) SY-SYSID,

129 '/', 130(3) SY-MANDT.

ULINE.

SKIP.

With thanks & regards,

Sravani yendru.