.script
.input in2000, 19, 96
.placement 5, 20
.title ' Items ', highlight
.line Line1, 86, pos(2,1), horizontal
.line Line2, 13, pos(2,44), vertical
;.line Line3, 40, pos(15,45), horizontal
.line Line4, 40, pos(5,44), horizontal
.line Line2, 10, pos(5,66), vertical
.paint _
 
.field item, a24, pos(1,1), prompt("Item"), fpos(1,6), -
 help(INITEMID), change_method("ANYFLD_CHANGE")
 
.field desc, a30, pos(1,31), prompt("Desc"), fpos(1,36), -
 help(INITDESC), required
 
.field skey, a20, pos(3,1), prompt("Search name"), fpos(3,13), -
 help(INITSKEY), uc, change_method("ITM_SORT_CHANGE")
 
.field catlg1, a3, pos(4,1), prompt("Catalog mfg"), fpos(4,13), -
 help(INITCATELOG1), user('#Drill/Opt/G#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catlg1_descr, a20, fpos(4,19), paint(" ")
 
.field catlg2, a3, pos(5,1), prompt("Catalog sub"), fpos(5,13), -
 help(INITCATELOG2), user('#Drill/Opt/G#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catlg2_descr, a20, fpos(5,19), paint(" ")
 
.field catlg3, d4, pos(6,1), prompt("Catalog seq"), fpos(6,13), -
 help(INITCATELOG3), format("XXXX")
 
.field catg, a3, pos(7,1), prompt("Category"), fpos(7,13), -
 help(INITCATG), user('#Drill/Req/C#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field catg_descr, a20, fpos(7,19), paint(" ")
 
.field suom, a3, pos(8,1), prompt("Sell UOM"), fpos(8,13), -
 help(INITSUOM), user('#Drill/Req/U#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field suom_descr, a20, fpos(8,19), paint(" ")
 
.field buom, a3, pos(9,1), prompt("Buy UOM"), fpos(9,13), -
 help(INITBUOM), user('#Drill/Req/U#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field buom_descr, a20, fpos(9,19), paint(" ")
 
.field uomf, d6, pos(10,1), prompt("UOM factor"), fpos(10,13), -
 help(INITUOMF), format("ZZZZZX"), default(1), range(1,999999)
 
.field comm, a3, pos(11,1), prompt("Commission"), fpos(11,13), -
 help(INITCOMM), user('#Drill/Opt/M#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field comm_descr, a20, fpos(11,19), paint(" ")
 
.field warc, a3, pos(12,1), prompt("Warranty"), fpos(12,13), -
 help(INITWNTY), user('#Drill/Opt/W#'), drill_method("SMCODE_FIND"), -
 change_method("SMCODE_CHANGE"), hyperlink_method("SMCODE_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")
.field warc_descr, a20, fpos(12,19), paint(" ")
 
.field prodtype, a1, pos(13,1), prompt("Type"), fpos(13,13), -
 help(INITPRODTYP), -
 select(0,3,,"F:finished product","C:finished component","L:labor", -
	     "P:purchased component","R:raw material")
 
.field txbl, a1, pos(14,1), prompt("Taxable"), fpos(14,13), -
 help(INITTAXB), -
 select(1,3,,"Not taxable","Taxable always","Inhouse usage taxable")
 
.field picture, a30, pos(15,1), prompt("Picture"), fpos(15,13), -
help (INITPICTURE)

.field upc, a14, pos(3,45), prompt("UPC"), fpos(3,53), -
 help(INITUPC), hyperlink_method("INSNLT_HYPER"), -
 info("FIND(Lookup) ... ^A(Maintenance)")

.field slmask, a5, pos(3,69), prompt("SL mask"), fpos(3, 78), -
 help(INITSLMASK)

.field createdate, d8, fpos(4,68), date
.field createby, a3, fpos(4,80) 

.field status, a1, pos(4,45), prompt("Status"), fpos(4,53), -
 help(INITSTATUS), -
 select(0,3,,"Active","Inactive","No sale","Closeout")
 
.field ctrl, a1, pos(6,45), prompt("Controlled"), fpos(6,57), -
 help(INITCTRL), selwnd(1,3,yesno)
 
.field mfgd, a1, pos(7,45), prompt("Built"), fpos(7,57), -
 help(INITMFGD), select(1,3,,"No","Yes","Doc")
 
.field qtyprc, a1, pos(8,45), prompt("Qty pricing"), fpos(8,57), -
 help(INITQTYPRICE), selwnd(1,3,noyes)
 
.field usage, a1, pos(9,45), prompt("Usage"), fpos(9,57), -
 help(INITUSAGE), selwnd(1,3,yesno)

.field slst, a1, pos(10,45), prompt("Serial/lot"), fpos(10,57), -
 help(INITSNLT), change_method("ANYFLD_CHANGE"), -
 select(0,3,,"None","Serial","Lot","Kit")
 
.field hazard, a1, pos(11,45), prompt("Hazardous"), fpos(11,57), -
 help(INITHAZARD), selwnd(1,3,noyes)

.field revision, a3, pos(12,45), prompt("Revision"), fpos(12,57), -
 help(INITREVLEVEL)
 
.field frtclass, d3, pos(13,45), prompt("Frt Class"), fpos(13,57), -
 help(INITFRTCLASS), format("ZXX")

.field pallet, d3, pos(14,45), prompt("Pallet qty"), fpos(14,57), -
 help(INITPALLET), format("ZZX"), default(0), range(0,999)

.field wght, d6.2, pos(6,67), prompt("Weight"), fpos(6,76), -
 help(INITWGHT), format("ZZZZ.XX")
 
.field cube, d4.2, pos(7,67), prompt("Cubes"), fpos(7,76), -
 help(INITCUBE), format("ZZ.XX")
 
.field sizeln, d5.2, pos(8,67), prompt("Length"), fpos(8,76), -
 help(INITSIZELN)
 
.field sizewd, d5.2, pos(9,67), prompt("Width"), fpos(9,76), -
 help(INITSIZEWD)
 
.field sizeht, d5.2, pos(10,67), prompt("Height"), fpos(10,76), -
 help(INITSIZEHT)
 
.field packsize, a8, pos(11,67), prompt("Pack"), fpos(11,76), -
 help(INITPACKSIZE)
 
.field packqty, d5, pos(12,67), prompt("Pack qty"), fpos(12,76), -
 help(INITPACKQTY), format("ZZZZX")
 
.field boxing, a1, pos(13,67), prompt("Rebox"), fpos(13,76), -
 help(INITREBOX), selwnd(1,3,noyes)
 
.field perbox, d3, pos(14,67), prompt("Box qty"), fpos(14,76), -
 help(INITPERBOX), format("ZX"), default(1), range(1,999)
 
.field edesc, 4a60, pos(16,1), prompt("Extended"), fpos(16,13), -
 help(INITDESC)
.text Text1, pos(17,1)
Description
 
.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,boxing,hazard,-
        revision,slmask,createdate,createby, picture
.set set_add, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
        comm,warc,prodtype,txbl,picture,upc,slmask,status,ctrl,mfgd,qtyprc, -
        usage,slst,hazard,revision,frtclass,pallet,wght,cube,sizeln,sizewd, -
        sizeht,packsize,packqty,boxing,perbox,edesc
.set set_chg, rec1, desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
        comm,warc,prodtype,txbl,picture,upc,slmask,status,ctrl,mfgd,qtyprc, -
        usage,slst,hazard,revision,frtclass,pallet,wght,cube,sizeln,sizewd, -
        sizeht,packsize,packqty,boxing,perbox,edesc
.set set_show, rec1, item,desc,skey,catlg1,catlg2,catlg3,catg,suom,buom,uomf, -
        comm,warc,status,prodtype,txbl,picture,upc,ctrl,mfgd,usage,qtyprc,slst,-
        frtclass,wght,cube,pallet,sizeln,sizewd,sizeht,packsize,packqty, -
        perbox,edesc,boxing,hazard,revision,slmask,createdate,createby
.button pic, text("Picture")
.button_set bottom, right
.end
