PVRPLSCHAD
	Do BMChange(KLNr)
	Do FETCH^RPLSCHAD(KLNr,1)
	Do REFRESH^RPLSCHAD
	Quit
 
BMChange(KLNr)
	Set PRNr=0
	For  Set PRNr=$O(^HULP($J,"K"_KLNr,"SPVC",PRNr)) Quit:PRNr=""  Do
	. Set KT=$P(^KPR(PRNr,0),D)
	. Quit:'((($E(KT,1,4)="558.")||($E(KT,1,4)="559.")&&($E(KT,9)="A"))||($E(KT,1,4)="Z70."))
	. Set $P(^KSTKL(KLNr,PRNr,0),D,8)="N" ; Deze producten alleen in de huidige tonen
	. Quit:$E(KT,1,2)'="55"
	. Set Size=$E(KT,5,6),Gewicht=$E(KT,3)
	. Set List=""
	. If Size=27,Gewicht=8 Set List=$LB(124339,124340)
	. If Size=35,Gewicht=8 Set List=$LB(130147,130153)
	. If Size=40,Gewicht=8 Set List=$LB(130154,130155)
	. If Size=45,Gewicht=8 Set List=$LB(130156,130157)
	. If Size=50,Gewicht=8 Set List=$LB(128173,128175)
	. If Size=50,Gewicht=9 Set List=$LB(120209,120212)
	. If Size=60,Gewicht=9 Set List=$LB(134342,134343)
	. If Size=65,Gewicht=9 Set List=$LB(134254,134264)
	. If List="" Quit
	. Set Qty=$P(^HULP($J,"K"_KLNr,"SPVC",PRNr,"S"),D,2)
	. For I=1:1:2 Do
	. . Set NewPRNr=$LI(List,I)
	. . If '$D(^KSTKL(KLNr,NewPRNr,0)) Do
	. .	. Set $P(^KSTKL(KLNr,NewPRNr,0),D,9)=Qty
	. . Set $P(^KSTKL(KLNr,NewPRNr,0),D,8)="S"