EWPRSET ;E'WMS product settings [ 11/27/98  9:46 AM ]
 Set (HG,GR,SG,KTxt)=""
 For  Set HG=$O(^KPH(HG)) Quit:HG=""  Do
 .For  Set GR=$O(^KPH(HG,GR)) Quit:GR=""  Do
 ..For  Set SG=$O(^KPH(HG,GR,SG)) Quit:SG=""  Do
 ...For  Set KTxt=$O(^KPH(HG,GR,SG,"  ",KTxt)) Quit:KTxt=""  Do
 ....Do ONE(^(KTxt))
 Quit
ONE(PRNr) 
 Do FETCHPR^UTILI(PRNr,"PRec")
 ;Write !,$P(PRec("I"),D,3),"  ",$P(PRec(0),D),$S($P(PRec(1),D,20):"*",1:" ")," = "
 ;Write $$STOCKGRP," ",$$OPSLAGZ
 Set $P(^KPR(PRNr,2),D,11)=$$TELWIJZE
 Set $P(^KPR(PRNr,2),D,12)=$$SAMPLE
 Set $P(^KPR(PRNr,1),D,2)=$$CYCLEC
 Set $P(^KPR(PRNr,1),D,1)=$$STOCKGRP
 Set $P(^KPR(PRNr,2),D,15)=$$OPSLAGZ
 Quit
 
TELWIJZE() Set Gewicht=$P(PRec(1),D,13)
 Set TW="Z"
 Set:Gewicht<10 TW="B" ; <10g
 Set:Gewicht>3000 TW="L" ;>3kg
 Quit TW
SAMPLE() Set Gewicht=$P(PRec(1),D,13)
 Set SA="E"
 Set:Gewicht<10 SA="H" ; <10g
 Set:'$P(PRec(1),D,20) SA="H" ; Niet stock product
 Quit SA
CYCLEC() Set CC=3
 Set:'$P(PRec(1),D,20) CC="4" ; Niet stock product
 Quit CC
STOCKGRP() Set HG=$P(PRec("I"),D,1)
 Set KKey=$P(PRec("I"),D,4)
 Set KT=$P(PRec(0),D,1)
 Set StockGrp=1
 If HG["SD"&($E(KT,1,3)="RAI") Set StockGrp=3 ; Rails voor schuifdeuren
 If $E(KT,1,8)="CDY.ST20"!($E(KT,1,8)="CDY.ST25")!($E(KT,1,9)="CDY.STA12") Set StockGrp=4 ; Slotstangen
 If HG["DE" Do
 .Set StockGrp=6 ; Deuren
 .If $E(KT,1,4)="D400"!($E(KT,1,4)="D800") Do
 ..Set List=".90,.91,.M5,.98,.TP,FR15,.94,.93,.97,DD32,DD65,.EP7,.EP8,.EP6,.96"
 ..For I=1:1:$L(List,",") Do
 ...Set Type=$P(List,",",I)
 ...If $E(KT,8,11)[Type Set StockGrp=5 ; Lijsten
 If KKey=56 Set StockGrp=7
 Quit StockGrp
 
OPSLAGZ() Set OpslagZ=1
 If StockGrp=6!(StockGrp=7) Set OpslagZ=2 ; Deuren en BBP
 If KKey=207!(KKey=423)!(KKey=416) Set OpslagZ=2 ; Gemonteerde laden
 If StockGrp=3!(StockGrp=4)!(StockGrp=5) Set OpslagZ=3  ; Langgoed
 quit OpslagZ