.Script
 
.input po4300, 13, 52
.placement 6, 14
.title ' Set PO Receivings (1-step) ', highlight
.line Line1, 52, pos(2,1), horizontal
.line Line2, 52, pos(7,1), horizontal
.paint _
 
.field scan, a10, pos(1,1), prompt("Scan data"), fpos(1,20), -
 help(POSCANDATA), change_method("ANYFLD_CHANGE")
 
.field podate, d8, pos(1,36), prompt("Date"), fpos(1,41), -
 help(PORECDATE), date(today)
 
.field phvend, d8, pos(3,1), prompt("Vendor"), fpos(3,8), format('XXXXXXXX')
.field phname, a30, fpos(3,17)
.field phadr1, a30, fpos(4,17)
.field phadr2, a30, fpos(5,17)
.field phcity, a20, fpos(6,17)
.field phstat, a2, fpos(6,38)
.field phzipc, a10, fpos(6,41)
 
.field item, a24, pos(8,1), prompt("Item ID"), fpos(8,20)
 
.field desc, a30, pos(9,1), prompt("Description"), fpos(9,20)
 
.field rcvd, d9.3, pos(10,1), prompt("Qty remaining"), fpos(10,20), -
 help(POQTYRCVD), copy, format("ZZZ,ZZZ.XXX-")
 
.field acpt, d9.3, pos(11,1), prompt("Qty accepted"), fpos(11,20), -
 help(POQTYACPT), copy, format("ZZZ,ZZZ.XXX-")
 
.field rjct, d9.3, pos(12,1), prompt("Qty rejected"), fpos(12,20), -
 help(POQTYRJCT), copy, format("ZZZ,ZZZ.XXX-")
 
.field abin, a8, pos(13,1), prompt("Bin"), fpos(13,20), -
 help(PORECABIN)

.structure rec1, scan,abin,rcvd,acpt,rjct
.structure rec2, podate
.structure rec8, phvend,phname,phadr1,phadr2,phcity,phstat,phzipc
.structure rec9, item,desc
.set set1, rec1, scan
.set set2, rec1, rcvd
.set set3, rec1, acpt,rjct,abin
.set set8, rec8, phvend,phname,phadr1,phadr2,phcity,phstat,phzipc
.set set9, rec9, item,desc
.set set99, rec2, podate
.end
