item valuation no report

Hello,
I created afs for item valuation report (whina1210m000) but not report coming and the error.msg variable is empty. pls advice.

function extern afs.run.owhina1210()
|domain tcitem i.ina.item)
{ |generate item valuation report
domain tcmcs.str100 error.msg
domain tcyesno ys.ans, no.ans
error.msg = ""
no.ans=tcyesno.no
ys.ans=tcyesno.yes
|* AFS Script


stpapi.put.field("whina1210m000","sel.use.whwmd400",str$(etol(use.whwmd400)))
stpapi.put.field("whina1210m000","item.type.f",str$(etol(tckitm.purchase)))
stpapi.put.field("whina1210m000","item.type.t",str$(etol(tckitm.manufacture)))
stpapi.put.field("whina1210m000","item.val.group.f","")
stpapi.put.field("whina1210m000","item.val.group.t","ZZZZZZ")
stpapi.put.field("whina1210m000","wh.val.group.f","")
stpapi.put.field("whina1210m000","wh.val.group.t","ZZZZZZ")
stpapi.put.field("whina1210m000","warehouse.f","")
stpapi.put.field("whina1210m000","warehouse.t","ZZZZZZ")
stpapi.put.field("whina1210m000","owner.f","")
stpapi.put.field("whina1210m000","owner.t","ZZZZZZZZZ")
stpapi.put.field("whina1210m000","buy.from.bp.f","")
stpapi.put.field("whina1210m000","buy.from.bp.t","ZZZZZZZZZ")
stpapi.put.field("whina1210m000","item.f"," FM110004")
stpapi.put.field("whina1210m000","item.t"," FM110004") |"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ")
stpapi.put.field("whina1210m000","stoc.date",str$(asof.date))
stpapi.put.field("whina1210m000","currency","SAR")
stpapi.put.field("whina1210m000","rate.type","PUR")
stpapi.put.field("whina1210m000","compare.with",str$(etol(no.ans)))
|stpapi.put.field("whina1210m000","difference.to",str$(etol(no.ans)))
|stpapi.put.field("whina1210m000","only.exceeds",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","price.to.be.used",str$(etol(tcprus.market)))
stpapi.put.field("whina1210m000","level.market.pric",str$(etol(whina.prap.item)))
stpapi.put.field("whina1210m000","on.hand",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","to.wh.no.inv",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","to.wh.inv.ni",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","to.wh.inv.inr",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","to.project",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","maint.sls.loan",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","sls.not.appr",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","sls.rj.no.ret",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","comp.owned",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","consigned",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","cust.owned",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","inventory",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","inventory.wip",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","pr.error.rep",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","include.antedated",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","maint.reject.whs",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","fin.whs",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","wh.details",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","item.details",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","owner.details",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","buy.from.bp.det",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","suppr.zero.stoc",str$(etol(ys.ans)))
stpapi.put.field("whina1210m000","print.cost.detail",str$(etol(no.ans)))
|stpapi.put.field("whina1210m000","supp.zero.amounts",str$(etol(no.ans)))
stpapi.put.field("whina1210m000","pr.inv.det",str$(etol(ys.ans)))
stpapi.set.report("whina1210m000", "rwhina121011000","N", error.msg)
stpapi.set.report("whina1210m000", "rwhina121022000","N", error.msg)
stpapi.form.command("whina1210m000", 5, "exec.cont.process",error.msg)
stpapi.end.session("whina1210m000")
}
regards,
jojo