Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r549 -r808
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 549)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 808)
@@ -242,12 +242,30 @@
 	. Do ..pxOrder.Lijnen.Insert(pxLijn)
 	. 
 	. // Extra aanpassingen op lijnniveau
-	. Set:('OrderBevatGlasOfInschuifElement) pxLijn.ItemKVOms="-"
+	. ;Set:('OrderBevatGlasOfInschuifElement) pxLijn.ItemKVOms="-"
+	. Do ..WijzigKleurenInfo(pxLijn)
 	. Do ..VulActieCodesListPerLijn(pxLijn)
 	. Do ..VulNietMeeleverenDataPerLijn(pxLijn,NietMeeleverenOms)
 ]]></Implementation>
 </Method>
 
+<Method name="WijzigKleurenInfo">
+<Description>
+Om verwarring te vermijden i.v.m. Kleur inschuifelement indien dit onderdeel niet aanwezig is.</Description>
+<FormalSpec>pxLijn:BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(##class(TECH.StringUtils).Equals(pxLijn.ItemBX, "INSCHF","BG","COV")) {   // Beter?  method LadeBevatGlasOfInschuifElement() op WSLn oproepen
+		Set pxLijn.ItemKV = ""
+		Set pxLijn.ItemKVOms = "-"
+	}
+	If $$$Not(##class(TECH.StringUtils).Equals(pxLijn.ItemBX, "CAP","BD","BDD")) {
+		Set pxLijn.ItemKX = ""
+		Set pxLijn.ItemKXOms = "-"
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BerekenTotaalPrijzenVanWebOrder">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -598,6 +616,7 @@
 	Set pxLijn.ItemDIV=WSLn.ItemDIV   ; WSLn.ItemDIVToLB() 
 	Set pxLijn.ItemDC=WSLn.ItemDC
 	Do ..FillKleurOmsPropts(pxLijn,WSLn)
+	Do ..WijzigKleurenInfo(pxLijn)	
 	
 	// Copy Prijzen 
 	Set:(..blnShowVKP) pxLijn.KostPrijs=WSLn.KostPrijs   ; ..PrijsConvert(MuntCalc,  WSLn.KostPrijs)