Index: csp/tbx/printpage.cls.xml
===================================================================
diff -u -r320 -r390
--- csp/tbx/printpage.cls.xml	(.../printpage.cls.xml)	(revision 320)
+++ csp/tbx/printpage.cls.xml	(.../printpage.cls.xml)	(revision 390)
@@ -7,6 +7,7 @@
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%CSP.Page</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="CONTENTTYPE">
 <Default>text/xml</Default>
@@ -151,7 +152,7 @@
 	. Set:($L(WSLn.ItemKX)) WSLn.ItemKXOms=$$$GetVertaling("KL_"_WSLn.ItemKX,Taal,"L")
 	. Set:($L(WSLn.ItemKV)) WSLn.ItemKVOms=$$$GetVertaling("KLV_"_WSLn.ItemKV,Taal,"L")
 	. Set:(WSLn.ItemFB="NM") WSLn.ItemFB="-"
-	. Set blnContainsGlas=(blnContainsGlas)||(WSLn.ItemBX?1(1"BG",1"COV"))||(WSLn.ItemBGRP?1(1"V"))
+	. Set blnContainsGlas=(blnContainsGlas)||(WSLn.LadeBevatGlasOfInschuifElement())
 	
 	If 'blnContainsGlas Do
 	. ; Kan ook op voorhand bepaald worden, en dan 'niet invullen' i.p.v. achteraf te wissen 
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")=""
Index: WS/TBX/EM/OrderLijn.cls.xml
===================================================================
diff -u -r117 -r390
--- WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 117)
+++ WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 390)
@@ -303,6 +303,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LadeBevatGlasOfInschuifElement">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ItemBX?1(1"BG",1"COV",1"INSCHF"))||(..ItemBGRP?1(1"V"))
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeActieGegevens">
 <Description>
 Voegt de Actie toe aan de lijst.