
.script
;
;===============================================================
.input in5050, 15, 75
.placement 1, 1
.title ' Create Count Worksheet ', highlight
.paint _
 
.field reprint, a1, pos(1,1), prompt("Reprint"), fpos(1,25), -
 help(INCTREPRINT), selwnd(1,3,noyes), change_method("ANYFLD_CHANGE")
 
.field strtag, d8, pos(2,1), prompt("Beginning tag no"), fpos(2,25), -
 help(INCWSTRTAG), format("ZZZZZZZX"), required
 
.field cycle, a2, pos(3,1), prompt("Cycle code"), fpos(3,25), -
 help(INCNTCYC), required, default("*"), -
 arrive_method("ANYFLD_ARRIVE")
 
.field stritem, a24, pos(4,1), prompt("Starting item"), fpos(4,25), -
 help(INIRSTRITM), default("*"), user('#Drill/All#'), info("FIND(Lookup)"), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field stritem_descr, a25, fpos(4,47)
 
.field enditem, a24, pos(5,1), prompt("Ending item"), fpos(5,25), -
 help(INIRENDITM), default("*"), user('#Drill/All#'), info("FIND(Lookup)"), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field enditem_descr, a25, fpos(5,47)
 
.field strcatg, a3, pos(6,1), prompt("Starting category"), fpos(6,25), -
 help(INCTSTRCAT), default("*"), user('#Drill/All/C#'), info("FIND(Lookup)"), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field strcatg_descr, a25, fpos(6,26)
 
.field endcatg, a3, pos(7,1), prompt("Ending category"), fpos(7,25), -
 help(INCTENDCAT), default("*"), user('#Drill/All/C#'), info("FIND(Lookup)"), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field endcatg_descr, a25, fpos(7,26)
 
.field strlocn, a3, pos(8,1), prompt("Starting location"), fpos(8,25), -
 help(INCWSTRLOC), default("*"), user('#Drill/All/L#'), info("FIND(Lookup)"), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field strlocn_descr, a25, fpos(8,26)
 
.field endlocn, a3, pos(9,1), prompt("Ending location"), fpos(9,25), -
 help(INCWENDLOC), default("*"), user('#Drill/All/L#'), info("FIND(Lookup)"), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE"), -
 arrive_method("ANYFLD_ARRIVE")
.field endlocn_descr, a25, fpos(9,26)
 
.field inconh, a1, pos(10,1), prompt("Include onhand qty"), fpos(10,25), -
 help(INCNTONH), selwnd(1,3,noyes)

.field inedsc, a1, pos(11,1), prompt("Include extd descr"), fpos(11,25), -
 help(INCNTEXTD), selwnd(1,3,yesno)
 
.field insnlt, a1, pos(12,1), prompt("Include S/L nos"), fpos(12,25), -
 help(INCNTSNLT), selwnd(1,3,noyes)

.field inseqn, a1, pos(13,1), prompt("Report sequence"), fpos(13,25), -
 help(INCNSEQN), select(1,3,,"Tag no","Item ID")
 
.field type, a1, pos(14,1), prompt("Type"), fpos(14,25), -
 help(INOUTTYPE), select(1,3,,"Report","Export")

.field inact, a1, pos(15,1), prompt("Print inactive items"), fpos(15,25), -
 help(ININCSTATUS), selwnd(1,3,noyes) 

.structure rec1, reprint,strtag,cycle,stritem,enditem,strcatg,endcatg, -
	strlocn,endlocn,inconh,inedsc,insnlt,inseqn,type,inact
.set set1, rec1, reprint,strtag,cycle,stritem,enditem,strcatg,endcatg, -
	strlocn,endlocn,inconh,inedsc,insnlt,type,inact
.set set2, rec1, reprint,strtag,inconh,inedsc,insnlt,inseqn,type,inact
.end
;
;===============================================================
