coolbaan
1st September 2010, 17:12
i m not able to create sale order extension line.


stpapi.put.field("tdsls4101m000", "tdsls040.orno", str$(ordno))
stpapi.find("tdsls4101m000",err.msg)

stpapi.handle.subproc("tdsls4101m000","tdsls4102s000","add")
stpapi.continue.process("tdsls4101m000",err.msg)

stpapi.put.field("tdsls4102s000","tdsls041.orno",str$(ordno))
stpapi.put.field("tdsls4102s000","tdsls041.pono",str$(pono))
stpapi.find("tdsls4102s000",err.msg)

|problem over here
stpapi.handle.subproc("tdsls4102s000","tdslsl102s002","add")
stpapi.zoom.option("tdsls4102s000",1,"tdslsl102s002",err.msg)
stpapi.continue.process("tdsls4102s000",err.msg)
|problem over here
if isspace(err.msg) then
select tdind017.*
from tdind017
where tdind017._index1={:orno,:pon}
selectdo
|stpapi.put.field("tdslsl102s002","tdind017.orno",str$(ordno))
|stpapi.put.field("tdslsl102s002","tdind017.pono",str$(pono))
stpapi.put.field("tdslsl102s002","tdind017.bdat",str$(date.num()))
stpapi.put.field("tdslsl102s002","tdind017.otcc",tdind017.otcc)
stpapi.put.field("tdslsl102s002","tdind017.oncc",tdind017.oncc)
stpapi.put.field("tdslsl102s002","tdind017.tper",str$(tdind017.tper))
stpapi.put.field("tdslsl102s002","tdind017.nper",str$(tdind017.nper))
stpapi.put.field("tdslsl102s002","tdind017.omt1",str$(tdind017.omt1))
stpapi.put.field("tdslsl102s002","tdind017.omt2",str$(tdind017.omt2))
stpapi.put.field("tdslsl102s002","tdind017.exci",str$(etol(tdind017.exci)))
stpapi.put.field("tdslsl102s002","tdind017.assv",str$(tdind017.assv))
stpapi.put.field("tdslsl102s002","tdind017.dasv",str$(tdind017.dasv))
stpapi.put.field("tdslsl102s002","tdind017.svyn",str$(etol(tdind017.svyn)))
stpapi.put.field("tdslsl102s002","tdind017.scty",tdind017.scty)
stpapi.put.field("tdslsl102s002","tdind017.svat",tdind017.svat)
stpapi.put.field("tdslsl102s002","tdind017.srtx",str$(etol(tdind017.srtx)))
stpapi.put.field("tdslsl102s002","tdind017.bstx",str$(etol(tdind017.bstx)))
stpapi.put.field("tdslsl102s002","tdind017.txam",str$(tdind017.txam))
stpapi.put.field("tdslsl102s002","tdind017.ctcd",tdind017.ctcd)
stpapi.put.field("tdslsl102s002","tdind017.loca",tdind017.loca)
stpapi.put.field("tdslsl102s002","tdind017.ocyn",str$(etol(tdind017.ocyn)))
stpapi.put.field("tdslsl102s002","tdind017.tono",str$(etol(tdind017.tono)))
stpapi.put.field("tdslsl102s002","tdind017.octr",tdind017.octr)
stpapi.insert("tdslsl102s002",true,err.msg)

mark_h
1st September 2010, 20:12
Don't really use these sessions, but I recommend searching on the sessions you are using. Search the AFS/DDC/OLE forum.

stpapi.put.field("tdsls4101m000", "tdsls040.orno", str$(ordno))
stpapi.find("tdsls4101m000",err.msg)

stpapi.handle.subproc("tdsls4101m000","tdsls4102s000","add")
stpapi.continue.process("tdsls4101m000",err.msg)

stpapi.put.field("tdsls4102s000","tdsls041.orno",str$(ordno))
stpapi.put.field("tdsls4102s000","tdsls041.pono",str$(pono))
stpapi.find("tdsls4102s000",err.msg)

The above looks okay to me, but I do not use those sessions.

|problem over here
stpapi.handle.subproc("tdsls4102s000","tdslsl102s002","add")
stpapi.zoom.option("tdsls4102s000",1,"tdslsl102s002",err.msg)
stpapi.continue.process("tdsls4102s000",err.msg)

The above looks like an issue. In the tdsls4102s000 session how do you activate the tdslsl102s002 session when running manually? Either zoom or by clicking continue? If zoom then delete the stpapi.continue code.