Hi,

I am trying to create an AFS for INventory transfer, in which few Items are with Lot, so i have written a code like :


stpapi.put.field("tdilc1120m000","tdinv100.item",str$(tdind042.item))
stpapi.put.field("tdilc1120m000","tdinv100.cwar","215")
stpapi.put.field("tdilc1120m000","tdinv100.idat",str$(cdat))
stpapi.put.field("tdilc1120m000","tdinv100.odat",str$(cdat))
stpapi.put.field("tdilc1120m000","tdinv100.idat",str$(cdat))
stpapi.put.field("tdilc1120m000","tdinv100.trdt",str$(cdat))
stpapi.put.field("tdilc1120m000","tdinv100.pqan",str$(tdind042.quan))
stpapi.put.field("tdilc1120m000","tdinv100.dwar",tccom020.cwar)
stpapi.put.field( "tdilc1120m000", "tdinv100.kowt", str$(tckowt.wrh.transfer))
ret=stpapi.insert( "tdilc1120m000", true, error )

if not ret then
stpapi.recover("tdilc1120m000",error)
else
stpapi.get.field("tdilc1120m000","tdinv100.wrho",worno1)
stpapi.get.field("tdilc1120m000","tdinv100.sern",sern1)
sern = val(sern1)
endif


stpapi.put.field("tdilc1120m000","tdinv100.wrho",worno1)
stpapi.find("tdilc1120m000",error)
stpapi.handle.subproc("tdilc1120m000","tdilc1122s000","add")

stpapi.continue.process("tdilc1120m000",continue.mess)

stpapi.put.field("tdilc1122s000","tdilc103.item",str$(tdilc101.item))
stpapi.put.field("tdilc1122s000","tdilc103.lcfr",str$(tdilc101.loca))
stpapi.put.field("tdilc1122s000","tdilc103.idat",str$(cdat))
stpapi.put.field("tdilc1122s000","tdilc103.sera",str$(sern))
stpapi.put.field("tdilc1122s000","tdilc103.serb",str$(serb))
stpapi.put.field("tdilc1122s000","tdilc103.ltfr",str$(tdilc101.clot))
stpapi.put.field("tdilc1122s000","tdilc103.dtfr",str$(cdat))
stpapi.put.field("tdilc1122s000","tdilc103.sufr",str$(tdilc101.stun))
stpapi.put.field("tdilc1122s000","tdilc103.qstr",str$(tdind042.quan))
stpapi.put.field("tdilc1122s000","tdilc103.lcto",str$(tdilc101.loca))
stpapi.put.field("tdilc1122s000","tdilc103.dtto",str$(cdat))
stpapi.put.field("tdilc1122s000","tdilc103.suto",str$(tdilc101.stun))
stpapi.put.field("tdilc1122s000","tdilc103.qstk",str$(tdind042.quan))
stpapi.put.field("tdilc1122s000","tdilc103.strt",str$(tdind042.quan))


tdilc1122s000f.insert(1,error)


Now while saving the record, i am getting an error "Item /Lot not found",
the same item & lot is getting transfered through manual operation.

AFS log is also pasted below..
>tdilc1120m000(134) put.field:tdinv100.item 10400000S
>tdilc1120m000(134) put.field:tdinv100.cwar 215
>tdilc1120m000(134) put.field:tdinv100.idat 733104
>tdilc1120m000(134) put.field:tdinv100.odat 733104
>tdilc1120m000(134) put.field:tdinv100.idat 733104
>tdilc1120m000(134) put.field:tdinv100.trdt 733104
>tdilc1120m000(134) put.field:tdinv100.pqan 1
>tdilc1120m000(134) put.field:tdinv100.dwar 150
>tdilc1120m000(134) put.field:tdinv100.kowt 6
>tdilc1120m000 insert
118dll->serv (add.set+save
134)
tdilc1120m000(134)-RUNNING:add.set+save
134serv<-4gl (add.set+save
0)
tdilc1120m000(134)-RUNNING:
<tdilc1120m000
>tdilc1120m000 get.field:tdinv100.wrho
<tdilc1120m000(134) get.field:tdinv100.wrho=625805
>tdilc1120m000 get.field:tdinv100.sern
<tdilc1120m000(134) get.field:tdinv100.sern=7
>tdilc1120m000(134) put.field:tdinv100.wrho 625805
>tdilc1120m000 Find
118dll->serv (def.find
134)
tdilc1120m000(134)-RUNNING:def.find
134serv<-4gl (def.find
0
1)
tdilc1120m000(134)-RUNNING:
<tdilc1120m000 record found (1)
>tdilc1120m000 handle.subproc tdilc1122s000 add
118dll->serv (handle.subsession
tdilc1122s000
2
134)
>tdilc1120m000 continue.process
118dll->serv (cont.process
134)
tdilc1120m000(134)-RUNNING:cont.process
135serv<-4gl (api.child.startedtdilc1122s000134)
<tdilc1120m000
>tdilc1122s000(135) put.field:tdilc103.item 10400000S
>tdilc1122s000(135) put.field:tdilc103.lcfr
>tdilc1122s000(135) put.field:tdilc103.idat 733104
>tdilc1122s000(135) put.field:tdilc103.sera 7
>tdilc1122s000(135) put.field:tdilc103.serb 1
>tdilc1122s000(135) put.field:tdilc103.ltfr 01LHM01-5556
>tdilc1122s000(135) put.field:tdilc103.dtfr 733104
>tdilc1122s000(135) put.field:tdilc103.sufr pcs
>tdilc1122s000(135) put.field:tdilc103.qstr 1
>tdilc1122s000(135) put.field:tdilc103.lcto
>tdilc1122s000(135) put.field:tdilc103.dtto 733104
>tdilc1122s000(135) put.field:tdilc103.suto pcs
>tdilc1122s000(135) put.field:tdilc103.qstk 1
>tdilc1122s000(135) put.field:tdilc103.strt 1
>tdilc1122s000(135) put.field:tdilc103.qstr 1
>tdilc1122s000(135) put.field:tdilc103.ltfr 01LHM01-5556
>tdilc1122s000 insert
118dll->serv (add.set+save
135)
tdilc1122s000(135)-RUNNING:add.set+save
135serv<-4gl (add.set+save
1)
tdilc1122s000(135)-RUNNING:
<tdilc1122s000 Item/lot not found
>tdilc1122s000 end.session
118dll->serv (end.program
135)
tdilc1122s000(135)-RUNNING:end.program
135serv<-4gl (end.program
1)
tdilc1122s000(135)-RUNNING:
135dll->serv (tdilc1122s000: exit(135))
134serv<-4gl (cont.process
0)
tdilc1120m000(134)-RUNNING:
>tdilc1120m000(134) put.field:tdinv100.wrho 625805
>tdilc1120m000 Find
118dll->serv (def.find
134)
tdilc1120m000(134)-RUNNING:def.find
134serv<-4gl (def.find
0
1)
tdilc1120m000(134)-RUNNING:
<tdilc1120m000 record found (1)
>tdilc1120m000 delete
118dll->serv (mark.delete+save
134)
tdilc1120m000(134)-RUNNING:mark.delete+save
134serv<-4gl (mark.delete+save
0)
tdilc1120m000(134)-RUNNING:
<tdilc1120m000
>tdilc1122s000 end.session
>tdilc1120m000 end.session
118dll->serv (end.program
134)
tdilc1120m000(134)-RUNNING:end.program
134dll->serv (tdilc1120m000: exit(134))



Pls Help

See this link (http://www.baanboard.com/baanboard/showthread.php?t=10383&highlight=tdilc1122s000) - note that I only put a few fields. I also do an insert then a save. You may also need updated objects, but this code has worked for years at our site.

Hi Mark,

I am loaded with latest patches, but while saving the record, i am getting error "ITEM/LOT not found"

If u can help me out, it would be great of you.

Rgds/Deepak

Are you trying to transfer a lot controlled part? The link I provided shows what fields I put on the form and my session works. First I notice you have str$ around everything in the 1122s000 session - that is not needed. Second notice I only put two fields on the session (and if lot controlled then I put the lot) to transfer the part. I do not think you need to put all those fields.

Hi Mark,

I have tried your code also, but could not suceed, i asked for Infor for the Debugger object in which i am able to reproduce the error (the value of Lot no is not getting passed to the tdilc1122s000)..
i have tried to export the value of the tdilc103.ltfr, but could not suceed.

do u have some idea how to solve this.?
Regds/Deepak

What I did notice from the information above is that the location from and to are empty. I can see this in the AFS log file - make sure tdilc101.loca has a value. Also I am not sure I understand why you are transferring from and to the same location. As it stands a debug object from baan should certainly help.