Index: Sys/FOP/emDocMulti.cls.xml
===================================================================
diff -u -r1785 -r1892
--- Sys/FOP/emDocMulti.cls.xml	(.../emDocMulti.cls.xml)	(revision 1785)
+++ Sys/FOP/emDocMulti.cls.xml	(.../emDocMulti.cls.xml)	(revision 1892)
@@ -269,7 +269,8 @@
 	. If DocType=$$$ppodtFactuur Do
 	. . Do ardBuildBasisDocDef("BL.Flow.Factuur.Doc", $LI(lbDocDefs,i))
 	. Else  If DocType=$$$ppodtOfferte Do
-	. . Do ardBuildBasisDocDef("BL.Flow.Offerte.Doc", $LI(lbDocDefs,i))
+	. . ;Do ardBuildBasisDocDef("BL.Flow.Offerte.Doc", $LI(lbDocDefs,i))
+	. . Do ardBuildOfferteDocDef(##class(BL.Flow.Offerte.Doc).%New(), $LI(lbDocDefs,i))   ; De klasse BL.Flow.Offerte.Doc is nog volgens de oude implementatie  - modified by WimV on 26/08/2011  (na Sync 01) 
 	. Else  If DocType=$$$ppodtOrder Do
 	. . Do ardBuildBasisDocDef("BL.Flow.Order.Doc", $LI(lbDocDefs,i))
 	. Else  If DocType=$$$ppodtLevBon Do
@@ -310,62 +311,7 @@
 	Do emDoc.Tags.SetAt(FName,$$$TagMailFile)
 	Set emDoc=""
 	Quit
-ardBuildRappelDocDef(ClassBLDoc,lbDocDef)
-	; No validation on Rappel, just add DocDef.
-	Set emDoc=DocMulti.AddDoc()
-	Set sc=ClassBLDoc.DocSetRenderDefs(emDoc, lbDocDef, , TFType, lbKeywordsPPOD, pWithLogo, $G(blnIncRappel,0))
-	Do ClassBLDoc.BuildFileData("Mail", .FName, , , lbDocDef)   ; Get FileName for Mail-attachment
-	Do emDoc.Tags.SetAt(FName,$$$TagMailFile)
-	Set emDoc=""
-	Quit
-ardBuildSpecialDocDef(ClassBLDoc,lbDocDef)
-	;Set sc=ClassBLDoc.ValidateDocDefs(lbDocDef,.KLNr)  Quit:($$$ISERR(sc))
-	;Set emDoc=DocMulti.AddDoc()
-	;Set sc=ClassBLDoc.DocSetRenderDefs(emDoc, lbDocDef, , TFType, lbKeywordsPPOD, pWithLogo)
-	;Do ClassBLDoc.BuildFileData("Mail", .FName, , , lbDocDef)   ; Get FileName for Mail-attachment
-	;Do emDoc.Tags.SetAt(FName,$$$TagMailFile)
-	;Set emDoc=""
-	;Quit
-]]></Implementation>
-</Method>
-
-<Method name="AddListOfRenderDefsXXXxxxOLD">
-<FormalSpec>lbDocTypes:%List,lbDocDefs:%List,KLNr:%String,TFType:%String,lbKeywordsPPOD:%List,pWithLogo:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-#define TagMailFile   "TempFName"
-	Set DocMulti=%this
-	Set TFType=$G(TFType,"PDF")
-	Set lbKeywordsPPOD=$G(lbKeywordsPPOD,"")   ; Defaulted by Proxy + set by Tseq-builder AnalyseFopTask()
-	Set pWithLogo=$G(pWithLogo)
-	Set sc=$$$OK
-	; Add RenderData  for each doc 
-	For i=1:1:$LL(lbDocTypes) Do:($$$ISOK(sc))
-	. Set DocType=$$$UCase($LI(lbDocTypes,i))
-	. Set FName=""
-	. If DocType=$$$ppodtFactuur Do
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.Factuur.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtOfferte Do
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.Offerte.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtOrder Do
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.Order.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtLevBon Do
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.Levering.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtToelev Do
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.Toelevering.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtPrijsLijst Do
-	. . Set sc=$$$ERROR($$$GeneralError,"DocType "_DocType_" not implemented in DocMulti.AddListOfRenderDefs()")  Quit
-	. . Do ardBuildBasisDocDef(##class(BL.Flow.PrijsLijst.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType=$$$ppodtRappel Do
-	. . Set sc=$$$ERROR($$$GeneralError,"DocType "_DocType_" not implemented in DocMulti.AddListOfRenderDefs()")  Quit
-	. . Do ardBuildRappelDocDef(##class(BL.Flow.Rappel.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  If DocType="xxSPECIALxx" Do
-	. . Set sc=$$$ERROR($$$GeneralError,"DocType "_DocType_" not implemented in DocMulti.AddListOfRenderDefs()")  Quit
-	. . ;Do ardBuildSpecialDocDef(##class(BL.Flow.Special.Doc).%New(), $LI(lbDocDefs,i))
-	. Else  Do
-	. . Set sc=$$$ERROR($$$GeneralError,"DocType "_DocType_" not implemented in DocMulti.AddListOfRenderDefs()")  Quit
-	Quit sc
-ardBuildBasisDocDef(ClassBLDoc,lbDocDef)
+ardBuildOfferteDocDef(ClassBLDoc,lbDocDef)
 	Set sc=ClassBLDoc.ValidateDocDefs(lbDocDef,.KLNr)  Quit:($$$ISERR(sc))
 	Set emDoc=DocMulti.AddDoc()
 	Set sc=ClassBLDoc.DocSetRenderDefs(emDoc, lbDocDef, , TFType, lbKeywordsPPOD, pWithLogo)
@@ -469,14 +415,15 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ToString = ""
-	Set AantalDocs = ..Docs.Count()
+	Set Docs = ..Docs
+	Set AantalDocs = Docs.Count()
 	For i=1:1:AantalDocs {
-		Set Doc = ..Docs.GetAt(i)
-		If AantalDocs > 1 {
-			Set ToString = ToString_" [Doc"_i_"] "
+		Set Doc = Docs.GetAt(i)
+		If (AantalDocs > 1) {
+			Set ToString = ToString_"[Doc"_i_"] "
 		}
 		Set ToString = ToString_Doc.ToString()
-		
+		Set ToString = ToString_$C(13,10)
 	}
 	Quit ToString
 ]]></Implementation>