Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r508 -r511
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 508)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 511)
@@ -1176,12 +1176,13 @@
 	;#defin isBulkVPK_old (WSLn.ItemVPK?1(1"P",1"C",1"O"))
 	
 	Quit:('$G(WSOrdLn))
-	New WSLn,actTaal,DC,SPZKpc1,BlumotionVTL,SPZijkantVTL,SPZijkantVTL2,tmpLB,Klasse
+	New WSLn,actTaal,DC,SPZKpc1,BlumotionVTL,SPZijkantVTL,SPZijkantVTL2,tmpLB,Klasse,OpvullijstInfo
 	Set WSLn=WSOrdLn
 	Set actTaal=$G(Taal,"N")
 	Set DC=WSLn.ItemDC
 	Set SPZKpc1=$P(WSLn.ItemSPZK,";",1)
 	Set Klasse=..KLASFromLC(WSLn.ItemLT)   ; WSLn.ItemLT  bevat de LadeCode 
+	Set OpvullijstInfo=""
 
 	Do
 	. If WSLn.ItemBM?1(1"I",1"v")      Set BlumotionVTL=""
@@ -1203,6 +1204,13 @@
 	. Else  Do
 	. .                                Set SPZijkantVTL=$$$FCase(##class(Prod.GAMeta.BT.TBSPZijkant).TaalAfhOmsClass("",SPZKpc1,actTaal,,,DC))
 	. 
+	. If ($L(WSLn.ItemOPVL)>0) Do
+	. . If (WSLn.ItemOPVL["+") Do
+	. . . Set OpvullijstInfo=##class(cspBasis.GAProdTBox).WebTextValue("Opvullijsten_Kort",actTaal,"L")
+	. . Else  Do
+	. . . Set OpvullijstInfo=##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst_InfoDiverse",actTaal,"L")_" "_WSLn.ItemOPVL
+	. . Set OpvullijstInfo=OpvullijstInfo_" ("_##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("",WSLn.ItemKLROPVL,actTaal,,,DC)_")"
+	.
 	. Set ActieTeksten=WSLn.GeefActieTeksten(actTaal)
 	. 
 	Set tmpLB=""
@@ -1218,7 +1226,7 @@
 	Set:(WSLn.ItemSB>0    ) tmpLB=tmpLB_$LB("SB",##class(cspBasis.GAProdTBox).WebTextValue("Stabilisator",actTaal,"L"))
 	Set:($$$FScond        ) tmpLB=tmpLB_$LB("FS",  $$$FCase(##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("",WSLn.ItemFS,actTaal,,,DC)) )         ; ##class(cspBasis.GAProdTBox).WebTextValue("Frontsteun",actTaal,"L")_": "_WSLn.ItemFS)
 	Set:($$$DWVcond       ) tmpLB=tmpLB_$LB("DWV", $$$FCase(##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("",WSLn.ItemDWV,actTaal,,,DC)) )   ; ##class(cspBasis.GAProdTBox).WebTextValue("Dwarsverdeling",actTaal,"L")_": "_WSLn.ItemDWV)
-	Set:($L(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL_" ("_##class(Prod.GAMeta.BT.TBOpvullijstKleur).TaalAfhOmsClass("",WSLn.ItemKLROPVL,actTaal,,,DC)_")")
+	Set:($L(OpvullijstInfo)) tmpLB=tmpLB_$LB("OPVL",OpvullijstInfo)
 	Set:($$$isBulkVPK     ) tmpLB=tmpLB_$LB("VPK",##class(cspBasis.GAProdTBox).WebTextValue("VerpakBulk",actTaal,"L")_" - "_##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_WSLn.ItemVPK_"_kort",actTaal,"L"))
 	Set:($IsObject(ActieTeksten)) tmpLB=tmpLB_$LB("ACTIE",ActieTeksten.GetNext(""))   ; Moet uitgebreid worden naar alle acties, te overlopen met een iterator (added by WimV on 21/12/2010)