Problem is solved !!!

Has anybody successfully used AFS to automate the session tdsls4404m000 with handle subsession tdsls4820s000.

Here my Sourcecode that is not successful.


stpapi.put.field("tdsls4404m000", "printed", str$(etol(tcyesno.no)))
stpapi.put.field("tdsls4404m000", "inv.date", str$(rgdatum))
stpapi.put.field("tdsls4404m000", "selection", str$(etol(tcyesno.yes)))

stpapi.handle.subproc("tdsls4404m000","tdsls4820s000", "add")
stpapi.zoom.option("tdsls4404m000", 1, "tdsls4820s000", error.mess)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno1),1)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno2),2)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno3),3)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno4),4)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno5),5)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno6),6)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno7),7)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno8),8)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno9),9)
stpapi.put.field( "tdsls4820s000", "orno.select", str$(orno10),10)
stpapi.continue.process("tdsls4820s000", error.mess)
stpapi.end.session( "tdsls4820s000", error.mess )

stpapi.put.field("tdsls4404m000", "definite", str$(etol(definitiv)))
stpapi.set.report("tdsls4404m000", "rtdsls440401s10", desc3 , error.mess)

if not isspace(error.mess) then
message(error.mess)
endif

stpapi.continue.process("tdsls4404m000", error.mess)

stpapi.end.session("tdsls4820s000")

if not isspace(error.mess) then
message(error.mess)
endif

stpapi.end.session("tdsls4404m000")


Thanks for all help.

Peter

Good catch and thanks for the update.