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

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

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

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

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

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

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

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

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

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

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

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

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

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