Hi,

I am trying to build a AFS for inventory adjustment starting from
tdilc1120m000 and then it calls tdilc1121s000.
But i am able to create a inventory adjustment order on the first screen (tdilc1120m000) but it is not inserting the data on the second session (tdilc1121s000), if anybody has a working code for this (not the dll one, the direct AFS), it will be of great help.

Thank you

Hi,

Check the following posts:
http://www.baanboard.com/baanboard/showthread.php?t=23143&highlight=tdilc1120m000
http://www.baanboard.com/baanboard/showthread.php?t=10383&highlight=tdilc1120m000
http://www.baanboard.com/baanboard/showthread.php?t=9586&highlight=tdilc1120m000

You might find more threads if you search for "tdilc1120m000" inside the AFS Forum. For more help please post your code.

- George

Hi,

Attached is the code i have, please let me know what am i missing!!

stpapi.put.field("tdilc1120m000","tdinv100.item",str$(item))
stpapi.put.field("tdilc1120m000","tdinv100.cwar",str$(cwar))
stpapi.put.field("tdilc1120m000","tdinv100.idat",str$(date.num()))
stpapi.put.field("tdilc1120m000","tdinv100.kowt",str$(etol(tckowt.stc.correction)))
stpapi.put.field("tdilc1120m000","tdinv100.recd","ASN")
stpapi.put.field("tdilc1120m000","tdinv100.odat",str$(date.num()))
stpapi.put.field("tdilc1120m000","reject",str$(etol(tcyesno.no)))
stpapi.put.field("tdilc1120m000","tdinv100.pqan",str$(recp * -1))
stpapi.put.field("tdilc1120m000","tdinv100.trdt",str$(date.num()))
stpapi.insert("tdilc1120m000",1,errm)
stpapi.save("tdilc1120m000",errm)

stpapi.get.field("tdilc1120m000","tdinv100.wrho",wrho)
stpapi.handle.subproc("tdilc1120m000","tdilc1121s000","add")
stpapi.continue.process("tdilc1120m000",errm)

stpapi.put.field("tdilc1121s000","tdilc102.loca"," RECEIPT")
stpapi.put.field("tdilc1121s000","tdilc102.idat",str$(date.num()))

stpapi.put.field("tdilc1121s000","tdinv100.qstr",str$(recp * -1))
stpapi.put.field("tdilc1121s000","tdinv100.qstk",str$(recp * -1))
| stpapi.save("tdilc1121s000",errm)
stpapi.update("tdilc1121s000",true,errm)

stpapi.end.session("tdilc1121s000")
stpapi.get.field("tdilc1120m000","tdinv100.wrho",wrho)
stpapi.end.session("tdilc1120m000")

Thank you,

See my code:

| Put this - 08-26-2004.
| Get serial number of the adjustment from tdilc1121s000.
serial.number = tdilcf1120m000.get.Sequence_Number()

| Continue and init sub-session(tdilc1121s000).
tdilcf1120m000.continue(err)
if(strip$(err)<>"") then
msg = tdilcf1120m000.get.last.message.code()
msg = "tdilc1120m000 Continue: "& strip$(err)&" "&strip$(msg)
cleanup.processes(0)
return(0)
endif

tdilcf1121s000.handle.sub.process("tdinv1101s10b","add")
tdilcf1121s000.put.Item(adj.item)
tdilcf1121s000.put.Warehouse(adj.cwar)
tdilcf1121s000.put.Input_Date(today)
tdilcf1121s000.put.Sequence_no.tdilc102.sera(serial.number)

| Find the correct record in tdilc1121s000.
rc = stpapi.find("tdilc1121s000")


You will see that when the tdilc1121s000 session starts I find the record. This comes from my inventory adj. session which we have been using for years. Also read my mantra - there is always the possibility you need something updated.

Hi all,

Thank you all for your responses,

Baan gave me the following solution and it worked for me.

stpapi.put.field("tdilc1120m000","tdinv100.item",str$(item))
stpapi.put.field("tdilc1120m000","tdinv100.cwar",str$(cwar))
stpapi.put.field("tdilc1120m000","tdinv100.idat",str$(date.num()))
stpapi.put.field("tdilc1120m000","tdinv100.kowt",str$(etol(tckowt.stc.correction)))
stpapi.put.field("tdilc1120m000","tdinv100.recd","001")
stpapi.put.field("tdilc1120m000","tdinv100.odat",str$(date.num()))
stpapi.put.field("tdilc1120m000","reject",str$(etol(tcyesno.no)))
stpapi.put.field("tdilc1120m000","tdinv100.pqan",str$(recp))
stpapi.put.field("tdilc1120m000","tdinv100.trdt",str$(date.num()))
retval = stpapi.insert("tdilc1120m000",1,errm)
stpapi.save("tdilc1120m000",errm)

stpapi.get.field("tdilc1120m000","tdinv100.wrho",wrho)

stpapi.handle.subproc("tdilc1120m000","tdilc1121s000","add")
stpapi.continue.process("tdilc1120m000",errm)
stpapi.put.field("tdilc1121s000","tdilc102.loca"," A003")
stpapi.put.field("tdilc1121s000","tdinv100.qstr",str$(recp))
stpapi.put.field("tdilc1121s000","tdinv100.qstk",str$(recp))

retval = stpapi.insert("tdilc1121s000",1, errm)
stpapi.end.session("tdilc1121s000")
stpapi.end.session("tdilc1120m000")

Thank you,