Index: BL/Sys/FOP/DocBaseV7/dto/beanRuntimeProperty.cls.xml
===================================================================
diff -u -r73230 -r73432
--- BL/Sys/FOP/DocBaseV7/dto/beanRuntimeProperty.cls.xml	(.../beanRuntimeProperty.cls.xml)	(revision 73230)
+++ BL/Sys/FOP/DocBaseV7/dto/beanRuntimeProperty.cls.xml	(.../beanRuntimeProperty.cls.xml)	(revision 73432)
@@ -4,7 +4,7 @@
 <Description>
 Copied from : WS.FOPv7.tns.sourceBeanRuntimeProperty.cls </Description>
 <ClassType/>
-<CompileAfter>BL.Sys.FOP.DocBaseV7Helper</CompileAfter>
+<CompileAfter>BL.Sys.FOP.DocBaseV7.DtoGeneratedCodeModifier</CompileAfter>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <Inheritance>right</Inheritance>
Index: BL/Sys/FOP/DocBaseV7/DtoGeneratedCodeModifier.cls.xml
===================================================================
diff -u
--- BL/Sys/FOP/DocBaseV7/DtoGeneratedCodeModifier.cls.xml	(revision 0)
+++ BL/Sys/FOP/DocBaseV7/DtoGeneratedCodeModifier.cls.xml	(revision 73432)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Sys.FOP.DocBaseV7.DtoGeneratedCodeModifier">
+<Super>TECH.RegisteredObject</Super>
+
+<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>
+</Class>
+
+
+</Export>