Hi All

Sorry I am reopen the the case.
I am trying to maintain a new order through AFS and I am able to maintain three step
1 ) Maintain sales order ( tdsls4101m000)
2 ) Maintain extention to sales ordre header ( tdsls101s002)
3 ) maintain sales order line ( tdsls4102s000)
4 ) Maintain extention to sales order line ( tdsls102s002)

Bur I am umabe to maintain the last one . it gives error " Extention to sales order header not exits " , where as i have checked that is maintain. Is there any relation to Extention to sales order line with extention to sales order header .

I am attaching my code , any help

Regards



function read.main.table()
{
aa = 40
| For Order Header
stpapi.put.field( "tdsls4101m000", "tdsls040.orno", str$(aa))
stpapi.put.field( "tdsls4101m000", "tdsls040.cuno", "DA0015")
stpapi.insert( "tdsls4101m000", 1, error )
|End order header

| For Order Header extention details - ok
stpapi.handle.subproc( "tdsls4101m000", "tdslsl101s002", "add")
stpapi.zoom.option( "tdsls4101m000",21,"tdslsl101s002", error)
stpapi.continue.process( "tdslsl101s002", error )
stpapi.put.field( "tdslsl101s002", "tdind013.orno",str$(tdsls040.orno))
stpapi.insert( "tdslsl101s002", 1, error )
stpapi.end.session("tdslsl101s002", error)
| End for Order header ok

| For Line details
stpapi.handle.subproc( "tdsls4101m000", "tdsls4102s000", "add")
stpapi.continue.process( "tdsls4101m000", error )
stpapi.put.field( "tdsls4102s000", "tdsls041.cuno",(tdsls040.cuno))
stpapi.put.field( "tdsls4102s000", "tdsls041.pono",str$(1))
stpapi.put.field( "tdsls4102s000", "tdsls041.item","LSGPA0050AA50050")
stpapi.put.field( "tdsls4102s000", "tdsls041.cwar","F01")
stpapi.put.field( "tdsls4102s000", "tdsls041.oqua",str$(20.00))
stpapi.put.field( "tdsls4102s000", "tdsls041.pric",str$(200.00))
stpapi.insert( "tdsls4102s000", 1, error )
stpapi.end.session("tdsls4102s000", error)
| end for Line details
*************Problem area ***********not inserting data ***************************
| For Item Line extention details
stpapi.put.field( "tdsls4102s000", "tdsls041.orno",str$(tdsls040.orno))
stpapi.find("tdsls4102s000",error)
stpapi.handle.subproc( "tdsls4102s000", "tdslsl102s002", "add")
stpapi.zoom.option( "tdsls4102s000",1,"tdslsl102s002", error)
stpapi.put.field( "tdslsl102s002", "tdind017.orno",str$(tdsls040.orno))
stpapi.put.field( "tdslsl102s002", "tdind017.pono",str$(1))
stpapi.put.field( "tdslsl102s002", "tdind017.otcc","01")
stpapi.put.field( "tdslsl102s002", "tdsls017.otca",str$(4.00))
stpapi.continue.process( "tdslsl102s002", error )
stpapi.get.field( "tdslsl102s002", "tdsls017.otca",bb)
message("%s",bb)
stpapi.insert( "tdslsl102s002", 1, error )
stpapi.end.session("tdslsl102s002", error)
| end for Line details
stpapi.end.session("tdsls4101m000", error)
| End for Line details ok
| endselect
}

Moved it to this forum and you need to check your private messages. As for this post - I am not familiar with the sessions but I wonder if closing them is causing the problem. I would put comment marks in fron of stpapi.end.session("tdsls4102s000", error), stpapi.put.field( "tdsls4102s000", "tdsls041.orno",str$(tdsls040.orno)) and the stpapi.find("tdsls4102s000",error). No promise this will work, but I though maybe by ending the session and restarting it was losing something.

Mark



function read.main.table()
{
aa = 40
| For Order Header
stpapi.put.field( "tdsls4101m000", "tdsls040.orno", str$(aa))
stpapi.put.field( "tdsls4101m000", "tdsls040.cuno", "DA0015")
stpapi.insert( "tdsls4101m000", 1, error )
|End order header

| For Order Header extention details - ok
stpapi.handle.subproc( "tdsls4101m000", "tdslsl101s002", "add")
stpapi.zoom.option( "tdsls4101m000",21,"tdslsl101s002", error)
stpapi.continue.process( "tdslsl101s002", error )
stpapi.put.field( "tdslsl101s002", "tdind013.orno",str$(tdsls040.orno))
stpapi.insert( "tdslsl101s002", 1, error )
stpapi.end.session("tdslsl101s002", error)
| End for Order header ok

| For Line details
stpapi.handle.subproc( "tdsls4101m000", "tdsls4102s000", "add")
stpapi.continue.process( "tdsls4101m000", error )
stpapi.put.field( "tdsls4102s000", "tdsls041.cuno",(tdsls040.cuno))
stpapi.put.field( "tdsls4102s000", "tdsls041.pono",str$(1))
stpapi.put.field( "tdsls4102s000", "tdsls041.item","LSGPA0050AA50050")
stpapi.put.field( "tdsls4102s000", "tdsls041.cwar","F01")
stpapi.put.field( "tdsls4102s000", "tdsls041.oqua",str$(20.00))
stpapi.put.field( "tdsls4102s000", "tdsls041.pric",str$(200.00))
stpapi.insert( "tdsls4102s000", 1, error )
| stpapi.end.session("tdsls4102s000", error)
| end for Line details
*************Problem area ***********not inserting data ***************************
| For Item Line extention details
| stpapi.put.field( "tdsls4102s000", "tdsls041.orno",str$(tdsls040.orno))
|stpapi.find("tdsls4102s000",error)
stpapi.handle.subproc( "tdsls4102s000", "tdslsl102s002", "add")
stpapi.zoom.option( "tdsls4102s000",1,"tdslsl102s002", error)
stpapi.put.field( "tdslsl102s002", "tdind017.orno",str$(tdsls040.orno))
stpapi.put.field( "tdslsl102s002", "tdind017.pono",str$(1))
stpapi.put.field( "tdslsl102s002", "tdind017.otcc","01")
stpapi.put.field( "tdslsl102s002", "tdsls017.otca",str$(4.00))
stpapi.continue.process( "tdslsl102s002", error )
stpapi.get.field( "tdslsl102s002", "tdsls017.otca",bb)
message("%s",bb)
stpapi.insert( "tdslsl102s002", 1, error )
stpapi.end.session("tdslsl102s002", error)
| end for Line details
stpapi.end.session("tdsls4101m000", error)
| End for Line details ok
| endselect
}