.Script
.Version "7.3"
 
.input po4350, 15, 52
.placement 1, 1
.title ' Set PO Receivings (2-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 pdate, d8, fpos(1,40), date
 
.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 received"), fpos(10,20), -
 help(POQTYRCVD), copy, format("ZZZ,ZZZ.XXX-")
 
.field bin, a8, pos(11,1), prompt("Bin"), fpos(11,20), -
 HELP(POSTKTOBIN)
 
.field acpt, d9.3, pos(12,1), prompt("Qty accepted"), fpos(12,20), -
 help(POQTYACPT), copy, format("ZZZ,ZZZ.XXX-")
 
.field rjct, d9.3, pos(13,1), prompt("Qty rejected"), fpos(13,20), -
 help(POQTYRJCT), copy, format("ZZZ,ZZZ.XXX-")
 
.field rcde, a3, pos(14,1), prompt("Reject code"), fpos(14,20), -
 help(POCODERJCT), user('#Drill/Opt/K#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field rcde_descr, a20, fpos(14,26), paint(" ")
 
.field ucost, d9.3, pos(15,1), prompt("Unit cost"), fpos(15,20), -
 help(PORECVUCOST), format("ZZZ,ZZZ.XXX-")
 
.structure rec1, scan,bin,rcvd,acpt,rjct,rcde,ucost
.structure rec8, phvend,phname,phadr1,phadr2,phcity,phstat,phzipc
.structure rec9, item,desc
.set set1, rec1, scan
.set set2, rec1, rcvd
.set set3, rec1, bin,acpt,rjct,rcde,ucost
.set set8, rec8, phvend,phname,phadr1,phadr2,phcity,phstat,phzipc
.set set9, rec9, item,desc
.end
