Index: PRBS.mac.rou
===================================================================
diff -u -r734 -r918
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 734)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 918)
@@ -226,6 +226,10 @@
  If VolgNr>1,$L(BSPopNm),$P($G(^RES(BSPopGrp,"PI",BSPopNm,"D",$P(BSKey,"."))),"`",4) Quit "" ; Uniek: mag maar 1 maal voorkomen
  Quit $P(BSCode,".")_"."_$TR($J(VolgNr,3)," ","0")
  
+SCRNTYPVia(Ref) ; SCRNTYP voor transfert
+ If Ref'["^HULP" Quit ""
+ Quit ";"_$$SCRNTYP($P(@Ref,D,20))
+ 
 SCRNTYP(BSKey) ; Welk detail scherm er gebruikt moet worden
  Set BSTyp=$P($G(^HULP(%J,"C",BSKey)),D,3)
  Set:BSTyp="" BSTyp=$P(^RES(BSPopGrp,"PI",BSPopNm,"D",$P(BSKey,".")),"`",3)
@@ -249,7 +253,6 @@
  If $D(^HULP(%J,"C")),'$D(^PRBS(BSNode,PRNr)) Do  ;Alleen links
  . Set ^HULP(%J,"C")="M\KP"
  Do GETPOP
- ;zw ^HULP(%J,"C") r k
  Quit
  
 FETCHLNK(PRNr) 
@@ -306,7 +309,24 @@
 UNLOCK(PRNr) 
  Lock -^PRBS("BS",PRNr),-^PRBS("BSS",PRNr)
  Quit
+ 
+ ; Extra parameterkolom (Filler) voor kindproduct
+Filler(sRec)
+ New Filler
+ Set Filler=$P(sRec,D,12)
+ Set:$L($P(sRec,D,23)) Filler=Filler_" Inkort:"_$S($P(sRec,D,23):"ja",1:"neen")
+ Set:$L($P(sRec,D,24)) Filler=Filler_" (#:"_$P(sRec,D,24)_")"
+ Quit Filler
  		 
+ ; Extra parameterkolom (Supplement) voor kost
+Supplement(sRec)
+ New X,Supplement
+ Set X=$P(sRec,D,4)
+ If 'X Set Supplement="faktor:"_$TR($J($P(sRec,D,5),0,3),".",",")_$C(59)_$S($P(sRec,D,6)="":"gans",1:$P(sRec,D,6))
+ Else  If $L($P(sRec,D,9)) Set Supplement="Mat:"_$TR($J(X,0,2),".",",")_$C(59)_$P(sRec,D,9)
+ Else  Set Supplement="suppl:"_$TR($J(X,0,3),".",",")
+ Quit Supplement
+  
 SwitchNoSa(WithData)
  ;zw ^HULP(%J,"C") r k
  ; Opslaan huidige data voor switch
@@ -575,16 +595,16 @@
  
  Quit
  
-PRINT q ;niet gebruikt PV 29/11/2003
- New PList,PRLink
- If $D(sMod("N"))  Quit:'$$SAVE(0)  Do
- .Kill ^HULP(%J),sMod
- .Do FETCH()
- .;Set PRLink=$$CHKLINK(PRNr) Set:PRLink="" PRLink="M"
- .Do INIT^vhLIST("PRLINK","PRLINK"_PRLink,.List),WRITE^vhLIST(.List)
- Do MFETCHE^PRLINKL(PRNr)
+PRINT(Output)
+ Do
+ . New List,Print
+ . Do INIT^vhLISTO("PRBS","LIJST",.List)
+ . Set List(10)="SCRNTYPVia^PRBS"
+ . Set List(8)="Groep|Code|Type|Meerwaarde|Product/omschrijving|Aantal|Extra par.|Extra par.|Kost"
+ . Do PRINT^OUTPUT(.List,Output,,"Bouwstenen "_MPRNr_".TXT")
+ Do WRITE^vhLIST(.List)
  Quit
- ;
+ 
 REFRESH 
  ;Do SYNCPR^HADWIZ(MPRNr) ; Syncronisatie van de tree
  Write @F11,@F1
@@ -1010,7 +1030,7 @@
 	For  Set VolgNr=$O(Result(VolgNr)) Quit:VolgNr=""  Do
 	. Set Oms=$LG(Result(VolgNr),1)
 	. Set HFPRNr=$LG(Result(VolgNr),2)
-	. Set Aantal=$LG(Result(VolgNr),3)
+	. Set Aantal=$LG(Result(VolgNr),3)/$$GroepAantal(PRNr)
 	. Set Lengte=$LG(Result(VolgNr),4)
 	. Set Breedte=$LG(Result(VolgNr),5)
 	. Set HistID=$LG(Result(VolgNr),6)
@@ -1049,6 +1069,15 @@
 	Do UPDATE^PRBS
  	Quit
  	
+GroepAantal(PRNr)
+	Quit $S($$IsAntiSlipMat(PRNr):4,1:1)
+	
+IsAntiSlipMat(PRNr)
+	{
+		Set KortTekst=$$$PRGet($$$KortTekst)
+		Quit ($E(KortTekst,1,5)="OL.AR") || ($E(KortTekst,1,5)="OL.AO") || ($E(KortTekst,1,5)="OL.AY")
+	}
+	
  ; verkorte ingave van de orgalux inpak 
  ; vertrekt van de bestaande gegevens indien ingevuld of probeert afhankelijk van de verpakking nieuwe te definieren.
 AutoOrgalux(PRNr)