Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r417 -r427
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 417)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 427)
@@ -155,9 +155,6 @@
 		Set ..WebOrder = WebOrderIterator.Next()			
 		If ($$$ISOK(sc)) {
 			Set ctrWebOrders = ctrWebOrders + 1
-		;	If ctrWebOrders = 1 {
-		;		Do ..VulActieCodesListVanWebOrder()
-		;	}
 			Do ..VoegToeAlleLijnenVanWebOrder(.sc)
 			Do ..BerekenTotaalPrijzenVanWebOrder()
 		}
@@ -223,8 +220,6 @@
 <Implementation><![CDATA[
 	Do ..VulOrderHoofdingBasis()
 	Do ..VulLeverTijdData()
-	;Do ..VulActieCodesList()
-	;Do ..VulNietMeeleverenData()
 	Do ..VulLoggingData()
 	Do ..VulURLPrintPage()
 ]]></Implementation>
@@ -304,27 +299,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VulActieCodesList() [ Private ]
-{
-	If $IsObject(..GroepWebOrder) {
-		// Voorlopig niks; wachten totdat ActieCodesList verplaatst is van Order naar OrderAbstract 
-	}
-	Else {
-		Do ..VulActieCodesListVanWebOrder()
-	}
-}
-
-Method VulActieCodesListVanWebOrder() [ Private ]
-{
-	Set ..pxOrder.ActieCodesList=..WebOrder.ActieCodesList
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="VulActieCodesListPerLijn">
 <FormalSpec>pxLijn:BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn</FormalSpec>
 <Private>1</Private>
@@ -363,27 +337,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VulNietMeeleverenData() [ Private ]
-{
-	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
-	
-	Set str=""
-	For i=1:1:$L(WSOrd.NietMeeleveren,";") Do
-	. Set VertalingNietMeeleveren=..GeefVertalingNietMeeleveren($P(WSOrd.NietMeeleveren,";",i))
-	. If $L(VertalingNietMeeleveren) Do
-	. . Set str=str_$S($L(str):", ", 1:"")_$$$LCase(VertalingNietMeeleveren)
-	Set WSOrd.NietMeeleverenOms=str
-
-	Set ..pxOrder.NietMeeleveren=WSOrd.NietMeeleveren
-	Set ..pxOrder.NietMeeleverenOms=WSOrd.NietMeeleverenOms
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="GeefNietMeeleverenOmsVanWO">
 <Description>
 Naam GeefNietMeeleverenOmsVanWebOrder() is langer dan 31 tekens; afgekort tot ...WO()</Description>
@@ -496,13 +449,6 @@
 	Set:(..blnShowVKP) pxLijn.KostPrijs=##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(WSLn.KostPrijs,..Munt)    ; ..PrijsConvert(MuntCalc,  WSLn.KostPrijs)
 	Set:(..blnShowAKP) pxLijn.AKPrijs  =##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(WSLn.AKPrijs, ..MuntAK)   ; ..PrijsConvert(MuntCalcAK,WSLn.AKPrijs)
 
-	/*
- 	// NietMeeleveren per lijn 
-	Set pxLijn.NietMeeleveren=..WSOrd.NietMeeleveren
-	Set pxLijn.NietMeeleverenOms=..WSOrd.NietMeeleverenOms
-	;Set pdlNietMee=..WSOrd.NietMeeleveren
-	;For i=1:1:$L(pdlNietMee,";") Set:($L($P(pdlNietMee,";",i))) $zobjproperty(pxLijn,"Item"_"NM"_$P(pdlNietMee,";",i))=1   ; Not tested! 
-	*/
 	Quit pxLijn
 ]]></Implementation>
 </Method>
@@ -917,13 +863,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-*/
-]]></Content>
-</UDLText>
-
 <Method name="GeefOrderDomein">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -953,23 +892,5 @@
 	Quit Klantnummer
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method OrderBevatGlasOfInschuifElement() As %Boolean [ Private ]
-{
-	Set BevatGlasOfInschuifElement=""
-	If $IsObject(..GroepWebOrder) { 
-		Set BevatGlasOfInschuifElement=..GroepWebOrder.BevatGlasOfInschuifElement()
-	} 
-	Else {
-		Set BevatGlasOfInschuifElement=..WebOrder.BevatGlasOfInschuifElement()
-	}
-	Quit BevatGlasOfInschuifElement
-}
-*/
-]]></Content>
-</UDLText>
 </Class>
 </Export>