print purchase receipt not printing

hi,

need some help on how to call group report 2 in afs. pls find below scripts:

string error.msg(100)
|*AFS script...
stpapi.put.field("tfacp1430m000","suno.f","")
stpapi.put.field("tfacp1430m000","suno.t","ZZZZZZZZZ")
stpapi.put.field("tfacp1430m000","fico.f","700")
stpapi.put.field("tfacp1430m000","fico.t","720")
stpapi.put.field("tfacp1430m000","comp.f","700")
stpapi.put.field("tfacp1430m000","comp.t","700")
stpapi.put.field("tfacp1430m000","otyp.f",str$(etol(tfacp.otyp.purchase)))
stpapi.put.field("tfacp1430m000","otyp.t",str$(etol(tfacp.otyp.purchase)))
stpapi.put.field("tfacp1430m000","orno.f",imp.orno1)
stpapi.put.field("tfacp1430m000","orno.t",imp.orno2)
stpapi.put.field("tfacp1430m000","cofc.f","")
stpapi.put.field("tfacp1430m000","cofc.t","ZZZZZZ")
stpapi.put.field("tfacp1430m000","date.f","0")
stpapi.put.field("tfacp1430m000","date.t",str$(utc.num()))
stpapi.put.field("tfacp1430m000","home.ccur","PHP")
stpapi.enum.answer("tfacp1430m000","print.invoices",tcyesno.no)
stpapi.enum.answer("tfacp1430m000","print.zero",tcyesno.no)
stpapi.enum.answer("tfacp1430m000","print.to.match",tcyesno.yes)
stpapi.set.report("tfacp1430m000","rtfacp143011000","N",error.msg)
stpapi.set.report("tfacp1430m000","rtfacp143012000","N",error.msg)
stpapi.set.report("tfacp1430m000","rtfacp143022000","N",error.msg)
stpapi.set.report("tfacp1430m000","rtfacp143041000","N",error.msg)
stpapi.set.report("tfacp1430m000","rtfacp143021000","N",error.msg)
stpapi.print.report("tfacp1430m000", error.msg)
stpapi.end.session("tfacp1430m000")

regards,
jojo