.Script
.Version "7.3"
 
.input po4320, 7, 54
.placement 6, 13
.title ' Receivings Labels ', highlight
.line Line1, 54, pos(4,1), horizontal
.line Line1, 54, pos(6,1), horizontal
.paint _
 
.field price, a1, pos(1,1), prompt("Price"), fpos(1,20),-
 help(PORLBLPRICE), -
 select(1,3,,"N - none","1 - price 1","2 - price 2","3 - price 3",-
	     "4 - price 4","5 - price 5","A - avg cost markup",-
	     "L - last cost markup")
 
.field order, d6, pos(2,1), prompt("Order no"), fpos(2,20), -
 help(PORLBLORDNO), change_method("ANYFLD_CHANGE")
 
.field vendid, d8, pos(3,1), prompt("Vendor ID"), fpos(3,20), -
 format('XXXXXXXX')
.field vendid_descr, a30, fpos(3,29)
 
.field cutdat, d8, pos(5,1), prompt("Due date cut-off"), fpos(5,20), -
 help(POSHPCUT), date(today), change_method("ANYFLD_CHANGE")
 
.field correct, a1, pos(7,1), prompt("Correct"), fpos(7,20), -
 help(UTYNNDEF), selwnd(0,3,yesno)
 
.structure rec1, price,order,cutdat,correct
.set set1, rec1, price,order,cutdat
.set set2, rec1, correct
.end
