Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r365 -r390
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 365)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 390)
@@ -1038,7 +1038,7 @@
 		. Set arWSVTL("LN",i,"DIV")=$$pwoTransItemValue(WSLn.ItemDIVToLB(),"DIV")   ; ..ItemDIVToLB()   ; Returns $LB()
 		. Set arWSVTL("LN",i,"AANT")=$$pwoTransItemValue(WSLn.Qty,"AANT")   ; _$$pwoTransItemValue(WSLn.ItemVPK,"VPK")
 		. Set arWSVTL("LN",i,"PRIJS")=$$pwoTransItemValue($S(blnIsBeursUser:99.99, blnShowAKPrijs:WSLn.AKPrijs, 1:WSLn.KostPrijs),"PRIJS")
-		. Set blnContainsGlas=(blnContainsGlas)||(WSLn.ItemBX?1(1"BG",1"COV",1"INSCHF"))||(WSLn.ItemBGRP?1(1"V"))
+		. Set blnContainsGlas=(blnContainsGlas)||(WSLn.LadeBevatGlasOfInschuifElement())
 		. Set:(WSLn.KostPrijs["ERROR") blnWSErrors=1
 		. Set:(blnShowAKPrijs) SomAKPrijs=SomAKPrijs+(WSLn.AKPrijs*WSLn.Qty)
 		If 'blnContainsGlas Set arWSVTL("KLR_KV")=""