.Script
.Version "6.3"
 
.input po4100, 7, 54
.placement 4, 13
.title ' Purchase Orders ', highlight
.line Line1, 54, pos(2,1), horizontal
.line Line2, 54, pos(5,1), horizontal
.paint _
 
.field option, a1, pos(1,1), prompt("Option"), fpos(1,20), -
 help(POPRTOPT), change_method("ANYFLD_CHANGE"), -
 select(1,3,,"One order","All")
 
.field order, d6, pos(3,1), prompt("Order no"), fpos(3,20), -
 help(POORDERNO), required, change_method("ANYFLD_CHANGE")
 
.field vendid, d8, pos(4,1), prompt("Vendor ID"), fpos(4,20), -
 change_method("namast_change")
.field vendid_descr, a30, fpos(4,30)
 
.field begord, d6, pos(6,1), prompt("Beginning order no"), fpos(6,20), -
 help(POBEGORD), default(1), required
 
.field endord, d6, pos(7,1), prompt("Ending order no"), fpos(7,20), -
 help(POENDORD), default(999999), required
 
.structure rec1, option,order,begord,endord
.set set1, rec1, option,order,begord,endord
.end
