Dear All;

Can anybody help me how to create DAL for sales order line.

Thanks

HI,

DAL Script to create Sales Order and Lines.


function extern gbpcs.dll00010.dal.script.for.so.header(
domain tcdate s.odat,
domain tcorno s.orno,
domain tccom.bpid s.bpid,
domain tccotp s.cotp,
domain tccwoc s.cofc,
domain tcccur s.ccur,
domain tcrefa s.refa,
domain tcrefb s.refb,
domain tcemno s.crep,
domain tcmcs.str30 s.corn,
domain tcorno s.trid,
domain tfgld.srno s.seqn)

{
dal.new.object("tdsls400")
dal.set.field("tdsls400.ofbp", s.bpid)
dal.set.field("tdsls400.sotp", s.cotp)
dal.set.field("tdsls400.cofc", s.cofc)
dal.set.field("tdsls400.orno", s.orno)
dal.set.field("tdsls400.odat", s.odat)
dal.set.field("tdsls400.ddat", s.odat)
dal.set.field("tdsls400.crep", s.crep)
dal.set.field("tdsls400.corn", s.corn)
dal.set.field("tdsls400.ccur", s.ccur)
dal.set.field("tdsls400.stbp", s.bpid)
dal.set.field("tdsls400.refa", s.refa)
dal.set.field("tdsls400.refb", s.refb)
ret = dal.save.object("tdsls400")
m.orno = tdsls400.orno

if ret< 0 then
ret=dal.get.error.message(w.err.msg)
message("Error......!%s", w.err.msg)
test.str = "Error in Sales Order Header"
error.file.generation(s.trid,s.seqn)
endif

commit.transaction()
}

function extern gbpcs.dll00010.dal.script.for.so.lines(
domain tcorno l.orno,
domain tcitem l.item,
domain tcwght l.qoor,
domain tccuni l.cuni,
domain tccwar l.cwar,
domain tcpric l.pric,
domain tccom.bpid l.cuno,
domain tcdate l.odat,
domain tcnama l.name,
domain tcmcs.str11 l.turc,
domain tccprj l.cprj,
domain tcdate l.rdat,
domain tcamnt l.oamt,
domain tcorno s.trid,
domain tfgld.srno s.seqn)



{

dal.new.object("tdsls401")
dal.set.field("tdsls401.orno", l.orno)
dal.set.field("tdsls401.ofbp", l.cuno)
dal.set.field("tdsls401.item", l.item)
dal.set.field("tdsls401.pric", l.pric)
dal.set.field("tdsls401.cuqs", l.cuni)
dal.set.field("tdsls401.odat", l.odat)
dal.set.field("tdsls401.ddta", l.odat)
dal.set.field("tdsls401.rdta", l.rdat)
dal.set.field("tdsls401.qoor", l.qoor)
dal.set.field("tdsls401.cwar", l.cwar)
dal.set.field("tdsls401.stbp", l.cuno)
dal.set.field("tdsls401.prdt", (l.odat + 60))
dal.set.field("tdsls401.corn", tdsls400.corn)
dal.set.field("tdsls401.corp", l.name)
dal.set.field("tdsls401.turc", l.turc)

if l.oamt <> 0 then
dal.set.field("tdsls401.oamt", l.oamt)
endif

if (l.pric <> 0) or (l.qoor <> 0) then
dal.set.field("tdsls401.porg", tdgen.porg.manual)
endif

if not isspace(l.cprj) then
dal.set.field("tdsls401.cprj", l.cprj)
endif
ret = dal.save.object("tdsls401",db.return.error)

if ret>=0 then
commit.transaction()
else

ret = dal.get.error.message(w.err.msg )
message("%s", w.err.msg)
test.str = "Error in Sales Order Lines"
error.file.generation(s.trid,s.seqn)
endif
}