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)
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)