Index: BL/Sys/FOP/DocBaseV7Helper.cls.xml
===================================================================
diff -u -r73225 -r73437
--- BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73225)
+++ BL/Sys/FOP/DocBaseV7Helper.cls.xml	(.../DocBaseV7Helper.cls.xml)	(revision 73437)
@@ -60,55 +60,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WijzigGegenereerdeCodeXmlExport">
-<Description>
-Public classmethod, wordt opgeroepen vanuit BL.Sys.FOP.DocBaseV7.dto.beanRuntimeProperty om %code van XmlExport() aan te passen. 
-Parameter %code als .local doorgeven </Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&pctCode:%CacheString]]></FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<Implementation><![CDATA[
-	/* 
-		
-	Deze method moet opgeroepen worden door de "CodeGenerated method XmlExport() van de klasse BL.Sys.FOP.DocBaseV7.dto.beanRuntimeProperty 
-	Die zou normaal gezien volgende code genereren (in de .INT file) 
-		
-		... 
-		XMLBSTREAMbase64(val)
-		 Do val.Rewind() Set len=5700 While 'val.AtEnd { Write $system.Encryption.Base64Encode(val.Read(.len,.sc)) Quit:'sc }
-		... 
-		
-	maar deze code moet gemanipuleerd worden om door de nieuwe versie (v7) van DocBase te worden aanvaard als geldige input.
-			
-		... 
-		XMLBSTREAMbase64(val)   ; Generated code was 02 intercepted and modified by WimV.
-		 Do val.Rewind() Set len=5700 While 'val.AtEnd { Write $Translate($system.Encryption.Base64Encode(val.Read(.len,.sc)), $C(13,10), "") Quit:'sc }
-		... 
-		
-	*/
-	
-	#define FunctionToFind   "XMLBSTREAMbase64(val)"
-	#define CodeToFind       "Write $system.Encryption.Base64Encode(val.Read(.len,.sc))"
-	#define CodeNew          "Write $Translate($system.Encryption.Base64Encode(val.Read(.len,.sc)), $C(13,10), """")"
-
-	#dim i As %Integer
-	Set i = ""
-	For  { Set i = $Order(pctCode(i)) Quit:(i="") 
-		if (pctCode(i)) = $$$FunctionToFind {
-			
-			// Mark this line as modified 
-			Set pctCode(i) = $$$FunctionToFind_"   ; Generated code was intercepted and modified by WimV.  See method WijzigGegenereerdeCodeXmlExport()"
-			
-			// Jump to next subnode of %code and replace the "code to find" 
-			Set i = $Order(pctCode(i))
-			If (i > 0) && (pctCode(i) [ $$$CodeToFind) {
-				Set pctCode(i) = $Replace(pctCode(i), $$$CodeToFind, $$$CodeNew)   ; Modify the generated code, so that the Base64Encode does not add the CRLF anymore :-P   
-			}
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ConvertSeedDataNaarVersie7">
 <FormalSpec>SeedDataToConvert:%ListOfObjects(ELEMENTTYPE="BL.Sys.FOP.BeanRuntimeProperty")</FormalSpec>
 <Private>1</Private>