SCHWINST ;Invullen schaduw winstpercentage in de produkten vanuit ^KLAS ;[ 09/18/96  4:22 PM ]
 ;
 New
 Do INIT^vhTERMINA
 Write @F11,@F1
 Set LEVNr=$$SELECT^LEVER(1)
 Quit:'LEVNr
 ;
 Set LevRef="",(Totaal,Verwerkt)=0
 For  Set LevRef=$O(^KPL(LEVNr_" ","  ",LevRef)) Quit:LevRef=""  Do
 .Set KortComp=""
 .For  Set KortComp=$O(^KPL(LEVNr_" ","  ",LevRef,KortComp)) Quit:KortComp=""  Do
 ..Set PRNr=^KPL(LEVNr_" ","  ",LevRef,KortComp)
 ..Set Totaal=Totaal+1
 ..Set I=$O(^KPR(PRNr,"I")) Quit:$E(I)'="I"
 ..Set Verwerkt=Verwerkt+1
 ..Do:'(Verwerkt#100) VERWERKT^PRODUKT(Totaal,Verwerkt)
 ..Set KKey=$P(^KPR(PRNr,I),D,4),%Winst=$P(^KLAS("K",KKey),D,11)*100
 ..Set R=^KPR(PRNr,2)
 ..Set $P(R,D,6)=%Winst
 ..Set ^KPR(PRNr,2)=R
 Quit
 ;