.script
;===============================================================
.input in8400, 13, 80
.placement 3, 15
.title ' Copy Items From/to Locations ', highlight
.paint _

.field frlocn, a3, pos(1,1), prompt("From location"), fpos(1,25), - 
 help(INFRMLOC), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field frlocn_descr, a25, fpos(1,32)

.field tolocn, a3, pos(2,1), prompt("To location"), fpos(2,25), - 
 help(INCTOLOCN), user('#Drill/Req/L#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field tolocn_descr, a25, fpos(2,32)

.field strcatg, a3, pos(3,1), prompt("Starting category"), fpos(3,25), - 
 help(INFTSTRCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field strcatg_descr, a25, fpos(3,35)

.field endcatg, a3, pos(4,1), prompt("Ending category"), fpos(4,25), - 
 help(INFTENDCAT), default("*"), user('#Drill/All/C#'), -
 drill_method("SMCODE_FIND"), change_method("SMCODE_CHANGE")
.field endcatg_descr, a25, fpos(4,35)

.field stritem, a24, pos(5,1), prompt("Starting item"), fpos(5,25), -
 help(INFTSTRITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field stritem_descr, a27, fpos(5,52)

.field enditem, a24, pos(6,1), prompt("Ending item"), fpos(6,25), -
 help(INFTENDITM), default("*"), user('#Drill/All#'), -
 drill_method("INITEM_FIND"), change_method("INITEM_CHANGE")
.field enditem_descr, a27, fpos(6,52)

.field zeroqty, a1, pos(7,1), prompt("Zero quantities"), fpos(7,25), - 
 help(INZEROQTY), selwnd(1,3,yesno)

.field zeroprc, a1, pos(8,1), prompt("Zero prices"), fpos(8,25), - 
 help(INZEROPRICE), selwnd(1,3,yesno)

.field zerohst, a1, pos(9,1), prompt("Zero history qtys"), fpos(9,25), - 
 help(INZEROHIST), selwnd(1,3,yesno)

.field copyitvc, a1, pos(10,1), prompt("Copy vend/cust"), fpos(10,25), - 
 help(INCOPYITVC), selwnd(1,3,noyes)

.field copybin, a1, pos(11,1), prompt("Copy Bin"), fpos(11,25), -
 selwnd(1,3,noyes), change_method("ANYFLD_CHANGE")

.field zerobin, a1, pos(12,1), prompt("Zero bin record"), fpos(12,25), - 
 help(INZEROBIN), selwnd(1,3,yesno)

.field delitem, a1, pos(13,1), prompt("Delete after copy"), fpos(13,25), - 
 help(INCOPYDEL), selwnd(1,3,noyes)

.structure rec1, frlocn,tolocn,strcatg,endcatg,stritem,enditem, -
	 zeroqty,zeroprc,zerohst,copyitvc,copybin,zerobin,delitem
.set set1, rec1, frlocn,tolocn,strcatg,endcatg,stritem,enditem, -
	 zeroqty,zeroprc,zerohst,copyitvc,copybin,zerobin,delitem
.end
;
