.input in2600, 22, 66
.placement 1, 1
.title ' Item Inquiry ', highlight
.line Line1, 66, pos(2,1), horizontal
.line Line2, 17, pos(2,43), vertical
.line Line3, 66, pos(18,1), horizontal
.line Line4, 22, pos(1,66), vertical
.paint " "

.field item, a24, pos(1,1), prompt("Item ID"), fpos(1,13)

.field desc, a30, pos(3,1), prompt("Description"), fpos(3,13)

.field skey, a20, pos(4,1), prompt("Search name"), fpos(4,13)

.field catlg1, a3, pos(5,1), prompt("Catalog mfg"), fpos(5,13)
.field catlg1_descr, a25, fpos(5,18)

.field catlg2, a3, pos(6,1), prompt("Catalog sub"), fpos(6,13)
.field catlg2_descr, a25, fpos(6,18)

.field catlg3, d4, pos(7,1), prompt("Catalog seq"), fpos(7,13), -
 format("XXXX")

.field catg, a3, pos(8,1), prompt("Category"), fpos(8,13)
.field catg_descr, a25, fpos(8,18)

.field suom, a3, pos(9,1), prompt("Sell UOM"), fpos(9,13)
.field suom_descr, a25, fpos(9,18)

.field buom, a3, pos(10,1), prompt("Buy UOM"), fpos(10,13)
.field buom_descr, a25, fpos(10,18)

.field uomf, d6, pos(11,1), prompt("UOM factor"), fpos(11,13), -
 format("ZZZZZX")

.field comm, a3, pos(12,1), prompt("Commission"), fpos(12,13)
.field comm_descr, a25, fpos(12,18)

.field warc, a3, pos(13,1), prompt("Warranty"), fpos(13,13)
.field warc_descr, a25, fpos(13,18)

.field upc, a14, pos(14,1), prompt("UPC"), fpos(14,13)

.field status, a1, pos(15,1), prompt("Status"), fpos(15,13)

.field prodtype, a1, pos(16,1), prompt("Type"), fpos(16,13)

.field txbl, a1, pos(16,19), prompt("Taxable"), fpos(16,30)

.field picname, a30, pos(17,1), prompt("Picture"), fpos(17,13)

.field ctrl, a1, pos(3,45), prompt("Controlled"), fpos(3,58)

.field mfgd, a1, pos(4,45), prompt("Manufactured"), fpos(4,58)

.field usage, a1, pos(5,45), prompt("Usage"), fpos(5,58)

.field qtyprc, a1, pos(6,45), prompt("Qty pricing"), fpos(6,58)

.field slst, a1, pos(7,45), prompt("Serial/lot"), fpos(7,58)

.field frtclass, d3, pos(8,45), prompt("Frt Class"), fpos(8,58), -
 format("ZXX")

.field wght, d6.2, pos(9,45), prompt("Unit weight"), fpos(9,58), -
 format("ZZZZ.XX")

.field cube, d4.2, pos(10,45), prompt("Cubes"), fpos(10,58), -
 format("ZZ.XX")

.field sizeln, d5.2, pos(11,45), prompt("Length"), fpos(11,58)

.field sizewd, d5.2, pos(12,45), prompt("Width"), fpos(12,58)

.field sizeht, d5.2, pos(13,45), prompt("Height"), fpos(13,58)

.field packsize, a8, pos(14,45), prompt("Pack size"), fpos(14,58)

.field packqty, d5, pos(15,45), prompt("Pack qty"), fpos(15,58), -
 format("ZZZZX")

.field pallet, d3, pos(16,45), prompt("Pallet qty"), fpos(16,58), -
 format("ZZX")

.field perbox, d3, pos(17,45), prompt("Ship box qty"), fpos(17,58), -
 format("ZX")

.field edesc, 4a60, fpos(19,1)

.structure rec1, <2>,item,desc,skey,upc,status,ctrl,mfgd,usage,qtyprc, -
	<1>,catlg1,catlg2,catlg3,warc,comm,catg,buom,suom,uomf, -
	prodtype,txbl,slst,wght,cube,sizeln,sizewd,sizeht,pallet,-
	perbox,packsize,<1>,packqty,frtclass,edesc,<21>,picname
.set set_chg, rec1, item
.set set_show, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
	comm,warc,upc,status,prodtype,txbl,picname,ctrl,mfgd,usage,qtyprc,slst, -
	frtclass,wght,cube,sizeln,sizewd,sizeht,packsize,packqty,pallet, -
	perbox,edesc
.button LOC, text("Locs"), select("L")
.button BIN, text("Bins"), select("B")
.button CUS, text("Custs"), select("C")
.button VEN, text("Vends"), select("V")
.button POO, text("P/O"), select("P")
.button SOO, text("S/O"), select("S")
.button BOM, text("BOM"), select("M")
.button SLT, text("Ser/Lot"), select("E")
.button pic, text("Picture")
.button_set right
.end
