Hi,
I want to upload some data in Item Master...
there are more than 10,000 items that required to be uploaded in Baan IV.
If anyone an help me with AFS script for tiitm0101m000 session....

Regards,
Mitesh

That is an easy session - just put what fields you need. Our system runs tppdm0110m000 when you launch tiitm0101m000. The code below probably will not work on you system, but you can use it as your basis.


function extern insert_item( domain tcitem baan.item,
domain tcdsca baan.dsca,
domain tckitm baan.kitm,
domain tccitg baan.citg,
domain tcctyp baan.ctyp,
domain tccsig baan.csig,
domain tccuni baan.cuni,
domain tccuni baan.stgu,
domain tccwar baan.cwar,
domain tckltc baan.kltc,
domain tcobpr baan.obpr,
domain tckpsl baan.kpsl,
domain tcqbia baan.npsl,
domain tcemno baan.buyr,
domain tcemno baan.cplb,
domain tcoltm baan.oltm,
domain tiqbm1 baan.unom,
domain tiqro1 baan.runi,
ref string msg())
{

msg = ""
stpapi.put.field( "tppdm0110m000", "tiitm001.item", baan.item ) | Put item again
|stpapi.put.field( "tppdm0110m000", "tiitm001.dscb", str$(baan.dsca) )
stpapi.put.field( "tppdm0110m000", "tiitm001.dsca", baan.dsca )
stpapi.put.field( "tppdm0110m000", "tiitm001.kitm", str$(baan.kitm) )
stpapi.put.field( "tppdm0110m000", "tiitm001.citg", baan.citg )
stpapi.put.field( "tppdm0110m000", "tiitm001.ctyp", baan.ctyp )
stpapi.put.field( "tppdm0110m000", "tiitm001.csig", str$(baan.csig) )
stpapi.put.field( "tppdm0110m000", "tiitm001.uset", " ALL" ) | Must enter unit set
stpapi.put.field( "tppdm0110m000", "tiitm001.cuni", str$(baan.cuni) )
stpapi.put.field( "tppdm0110m000", "tiitm001.stgu", str$(baan.stgu) )
stpapi.put.field( "tppdm0110m000", "tiitm001.cwar", str$(baan.cwar) )
stpapi.put.field( "tppdm0110m000", "tiitm001.kltc", str$(baan.kltc) )
stpapi.put.field( "tppdm0110m000", "tiitm001.obpr", str$(baan.obpr) )
stpapi.put.field( "tppdm0110m000", "tiitm001.kpsl", str$(baan.kpsl) )
stpapi.put.field( "tppdm0110m000", "tiitm001.npsl", str$(baan.npsl) )
stpapi.put.field( "tppdm0110m000", "tiitm001.buyr", str$(baan.buyr) )
stpapi.put.field( "tppdm0110m000", "tiitm001.cplb", str$(baan.cplb) )
stpapi.put.field( "tppdm0110m000", "tiitm001.oltm", str$(baan.oltm) )
stpapi.put.field( "tppdm0110m000", "tiitm001.unom", str$(baan.unom) )
stpapi.put.field( "tppdm0110m000", "tiitm001.runi", str$(baan.runi) )

| Possible questions
stpapi.enum.answer("tppdm0110m000", "tiitm0101s", tcyesno.yes)

rc = stpapi.insert( "tppdm0110m000", 1, msg )
if not isspace(msg) then
| Clear out what was done, do not worry about some.msg yet
rc = stpapi.recover("tppdm0110m000", some.msg)
| End the session.
stpapi.end.session("tppdm0110m000")
return
endif
}