Skip to Content
0
Former Member
Jan 21, 2011 at 05:29 AM

BAPI_NETWORK_COMP_ADD

251 Views

this is my code in FoxPro, can uguide me where i am doing wrong.

i want to create reservation same as CN22. for said material.

******************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