Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r1358 -r1360
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1358)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1360)
@@ -1543,8 +1543,8 @@
 	. Quit:'$D(^KTO($$$LevHalux,TOENr))
 	. Set ASM=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
 	. Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
-	. If ((VPK="A")!(VPK="B"))&(ASM'=0) Set AantASM(TOENr)=$G(AantASM(TOENr))+Aantal
-	. If (VPK="O")!(VPK="B") Set AantOnderdelen(TOENr)=$G(AantOnderdelen(TOENr))+Aantal
+	. If (VPK?1(1"A",1"B",1"X",1"Y"))&(ASM'=0) Set AantASM(TOENr)=$G(AantASM(TOENr))+Aantal   ; ASM afzonderlijk : tellen indien verticale stapeling (i.e. VHoss of Probox) 
+	. If (VPK?1(1"O",1"B",1"X")) Set AantOnderdelen(TOENr)=$G(AantOnderdelen(TOENr))+Aantal   ; Losse onderdelen : tellen indien bulk MET onderdelen 
 	Set TOENr=""
 	For  Set TOENr=$O(AantASM(TOENr)) Quit:TOENr=""  Do                   ; labels naar de bartender sturen
 	. Set Aantal=$S(AantASM(TOENr)#$$$GrpAantalMat=0:AantASM(TOENr)\$$$GrpAantalMat,1:AantASM(TOENr)\$$$GrpAantalMat+1)