.Script
.Version "7.3"
 
.input po6600, 5, 78
.placement 3, 1
.title ' Purchase Receiving Cost Report ', highlight
.paint _
 
.field strdate, d8, pos(1,1), prompt("Starting date"), fpos(1,20), -
 help(POSTRDTE), date, default(19010101)
 
.field enddate, d8, pos(2,1), prompt("Ending date"), fpos(2,20), -
 help(POENDDTE), date(today)
 
.field stritem, a24, pos(3,1), prompt("Starting item"), fpos(3,20), -
 help(POSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a30, fpos(3,48)
 
.field enditem, a24, pos(4,1), prompt("Ending item"), fpos(4,20), -
 help(POENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a30, fpos(4,48)
 
.field outtype, a1, pos(5,1), prompt("Output type"), fpos(5,20), -
 help(PORPTTYPE), select(1,3,,"Report","Export")

.structure rec1, strdate,enddate,stritem,enditem,outtype
.set set1, rec1, strdate,enddate,stritem,enditem,outtype
.end

