Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Issue in BAPI_NETWORK_COMP_ADD

Former Member
0 Likes
921

Dear all,

I have faced one problem in material Components adding thro bapi for

network.

I have used BAPI_NETWORK_COMP_ADD to add material Componets into

network.

After execution, I dont find any errors in se37. but material is not

included in the corresponding network.

I have executed commit fm also.

I have given the following fields.

ACTIVITY

TYPE_OF_PUR_RESV

ITEM_NUMBER

MATERIAL

PLANT

ENTRY_QUANTITY

BASE_UOM

BASE_UOM_ISO

ITEM_CAT

ITEM_TEXT

REQ_DATE

LEAD_TIME_OFFSET_OPR

DELIVERY_DAYS

PUR_GROUP

PRICE

PRICE_UNIT

CURRENCY

CURRENCY_ISO

WBS_ELEMENT

Kindly let me know in where is the actual problem ?

With Thanks,

MM Selvan.

2 REPLIES 2
Read only

Former Member
0 Likes
693

Try calling BAPI_TRANSACTION_COMMIT after you call the bapi to add the component

Read only

0 Likes
693

this is my code in FoxPRo where i am doing wrong pls guide

****************code*******************

SET DEFAULT TO E:\sap_add_comp_network

SET EXCLUSIVE OFF

CLOSE ALL

CLOSE ALL

SET EXCL OFF

SET STRICTDATE TO 0

SET DELE ON

CLOSE DATA

Functions = CREATEOBJECT("SAP.Functions")

Functions.CONNECTION.ApplicationServer ='10.25.0.66'

Functions.CONNECTION.SYSTEM = '00'

Functions.CONNECTION.tracelevel=6

Functions.CONNECTION.client = '400'

Functions.CONNECTION.USER = 'P10021331'

Functions.CONNECTION.PASSWORD = 'P@ssword4'

Functions.CONNECTION.language = 'EN'

IF Functions.CONNECTION.Logon(0,.f.)=.f. Then

RETURN

ENDIF

RfcCallTransaction = Functions.ADD("BAPI_NETWORK_COMP_ADD")

RfcCallTransaction.call

RfcCallTransaction.Exports("number")="500000000954"

RfcCallTransaction.tables.Item("I_COMPONENTS_ADD")

objtable=RfcCallTransaction.tables("I_COMPONENTS_ADD")

readtext = functions.Add("RFC_READ_TEXT")

Tableobj = READtext.tables.Item("TEXT_LINES")

?objtable.rowcount,objtable.ColumnCount,

RfcCallTransaction.exports("ACTIVITY")="0010"

RfcCallTransaction.Exports("TYPE_OF_PUR_RESV")="3"

RfcCallTransaction.Exports("ITEM_NUMBER")="0350"

RfcCallTransaction.Exports("MATERIAL")="000000002000884889"

RfcCallTransaction.Exports("PLANT")="JGE2"

RfcCallTransaction.Exports("ENTRY_QUANTITY")=5.000

RfcCallTransaction.Exports("BASE_UOM")="EA"

RfcCallTransaction.Exports("BASE_UOM_ISO")="EA"

RfcCallTransaction.Exports("ITEM_CAT")="L"

RfcCallTransaction.Exports("ITEM_TEXT")="PIPING MATERIAL ISSUE"

RfcCallTransaction.Exports("COST_RELEVANT")="X"

RfcCallTransaction.Exports("STGE_LOC")="JMPC"

RfcCallTransaction.Exports("WBS_ELEMENT")=00274971

RfcCallTransaction1 = Functions.ADD("BAPI_TRANSACTION_COMMIT")

RfcCallTransaction1.call

Create table ('E:\sap_add_comp_network\E_MESSAGE_TABLE') ; &&Change as required

(a1 C(100),a2 C(100),a3 c(100),a4 c(100),a5 c(100),a6 c(100),a7 c(100),a8 char(100),;

a9 C(100),a10 C(100),a11 c(100),a12 c(100),a13 c(100),a14 char(100),a15 t,a16 char(100),;

a17 C(100),a18 C(100),a19 c(100),a20 c(100),a21 c(100),a22 c(100),a23 c(100),a24 char(100),;

a25 C(100),a26 C(100),a27 c(100),a28 c(100),a29 c(100),a30 c(100),a31 c(100),a32 char(100),;

a33 C(100),a34 C(100),a35 c(100),a36 c(100),a37 c(100),a38 c(100),a39 c(100),a40 char(100),;

a41 C(100),a42 C(100),a43 c(100),a44 c(100),a45 c(100),a46 c(100),a47 c(100),a48 char(100),;

a49 C(100),a50 C(100),a51 c(100),a52 c(100),a53 c(100),a54 c(100),a55 c(100),a56 char(100),;

a57 C(100),a58 C(100),a59 c(100),a60 c(100),a61 c(100),a62 c(100),a63 c(100),a64 c(100),a65 c(100),;

a66 C(100),a67 C(100),a68 c(100),a69 c(100),a70 c(100),a71 c(100),a72 c(100),a73 c(100),a74 c(100),;

a75 C(100),a76 C(100),a77 c(100),a78 c(100),a79 c(100),a80 c(100),a81 c(100),a82 c(100),a83 c(100),a84 c(100),;

a85 c(100),a86 c(100),a87 c(100))

CLOSE TABLES

IF RfcCallTransaction.call=.t.

USE E_MESSAGE_TABLE

FOR i1 = 1 TO objtable.rowcount

APPEND BLANK

FOR j1=1 TO objtable.ColumnCount

mm1="a"+ALLTRIM(STR(j1))

chck=objtable.cell(i1,j1)

?chck,"CELL",MM1,"CO_CODE","ROW:",I1,"COLUMN",J1

replace &mm1 WITH objtable.cell(i1,j1)

ENDFOR

ENDFOR

ENDIF