Hi all,
Please help me in sale order line session its does not get handle properly
problem in putting line data sale order Line data session does not got handle properly.
I m creating new sales return order of already prepare Sale order
Its Urgent Yaar


its prepare Header Properly .
sales order Line session Does get Handle with support of Header.
its run Indepently.



declaration:

table ttdsls040 | Sales Orders
table ttdind013
table ttdind017
table ttdsls041

extern domain tcorno orno.f,orno,orno1
extern domain tcorno orno.t
extern domain tcpono pon,pono1
extern domain tcnama cuno.nama
extern domain tcdsca cpls.dsca
extern domain tcdsca pldd.dsca
extern domain tcnama pcpr.nama
extern domain tcnama pctx.nama
extern domain tcmcs.str100 err.msg
extern domain tcmcs.str6 ordno
extern domain tcmcs.str50 code
extern string series(2),pono(2)
long ret
#pragma used dll ottstpapihand
#pragma used dll ottdllbw
#pragma nowarnings
|****************************** form section **********************************

form.1:
init.form:
get.screen.defaults()

|****************************** choice section ********************************

choice.cont.process:
on.choice:
execute(print.data)

choice.print.data:
on.choice:
if rprt_open() then
read.main.table()
rprt_close()
else
choice.again()
endif


|****************************** field section *********************************

field.orno.f:
when.field.changes:
orno.t = orno.f


|****************************** function section ******************************

functions:

function read.main.table()
{
select tdsls040.orno:orno,tdsls040.*
from tdsls040
where tdsls040._index1 inrange {:orno.f}
and {:orno.t}
order by tdsls040._index1
selectdo
series=str$(tdsls040.orno)
stpapi.put.field("tdsls4101m000", "tdsls040.orno", series)
stpapi.put.field("tdsls4101m000", "tdsls040.cuno", tdsls040.cuno)
stpapi.put.field("tdsls4101m000", "tdsls040.cotp", str$("DN1"))
stpapi.put.field("tdsls4101m000", "tdsls040.refa", str$(orno))
stpapi.put.field("tdsls4101m000", "tdsls040.refb", str$("Test SalesOrder"))
stpapi.put.field("tdsls4101m000", "tdsls040.prdt", str$(date.num()))
stpapi.put.field("tdsls4101m000", "tdsls040.ddat", str$(date.num()))
stpapi.put.field("tdsls4101m000", "tdsls040.odis", str$(tdsls040.odis))
stpapi.put.field("tdsls4101m000", "tdsls040.ccor", tdsls040.ccor)
stpapi.put.field("tdsls4101m000", "tdsls040.cdel", tdsls040.cdel)
stpapi.put.field("tdsls4101m000", "tdsls040.cpay", tdsls040.cpay)
stpapi.insert("tdsls4101m000",true,err.msg)
if isspace(err.msg) then
stpapi.get.field("tdsls4101m000","tdsls040.orno",ordno)
stpapi.handle.subproc("tdsls4101m000","tdsls4102s000","add") |problem facing
stpapi.continue.process("tdsls4101m000",err.msg) |problem facing
select tdsls041.*,tdsls041.pono:pon
from tdsls041
where tdsls041._index1={:orno}
selectdo
endselect
stpapi.put.field("tdsls4102s000","tdsls041.item",tdsls041.item)
stpapi.put.field("tdsls4102s000","tdsls041.cntr",tdsls041.cntr)
stpapi.put.field("tdsls4102s000","tdsls041.cwar",tdsls041.cwar)
stpapi.put.field("tdsls4102s000","tdsls041.oqua",str$(tdsls041.oqua))
stpapi.put.field("tdsls4102s000","tdsls041.drct",str$(etol(tdsls041.drct)))
stpapi.put.field("tdsls4102s000","tdsls041.pric",str$(tdsls041.pric))
stpapi.handle.subproc("tdsls4102s000","mtdsls000090451","10")
stpapi.insert("tdsls4102s000",true,err.msg)
stpapi.save("tdsls4102s000",err.msg)
if isspace(err.msg) then
else
message("Error in Sales order,%s Line",err.msg)
code=err.msg
stpapi.end.session("tdsls4102s000")
stpapi.end.session("tdsls4101m000")
end()
endif
endif
endselect
}






Regards,
Guru