Index: BL/Flow/PrijsLijst/Doc.cls.xml
===================================================================
diff -u -r1785 -r1889
--- BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
+++ BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1889)
@@ -858,90 +858,5 @@
 	Quit
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/***   *** /
-/// Geeft de standaard Keywords terug op basis van de opgegeven AnalyseRoutine
-ClassMethod KeywordsDefaultXXXxxxOLD(DocType As %String, AnalyseRoutine As %String) As %String
-{
-	Set DocType=$G(DocType,$$$ppodtPrijsLijst)
-	Quit:(AnalyseRoutine["PrijsLijstPPODArchiveren" ) DocType_";RenderToPPOD;Archive"
-	;Quit:(AnalyseRoutine["PrijsLijstArchiveren"     ) DocType_";Archive"               ; CacheTask or via FOP ?
-	Quit ##class(BL.Flow.Basis.Doc).KeywordsDefault(DocType,AnalyseRoutine)
-}
-
-/// XSLT-parameters voor RenderDoc berekenen. 
-/// Geeft een $LB() terug.  Bvb:  $LB("pWithLogo=0","pWithBgColors=1")
-ClassMethod BuildXsltParamsOLD(lbXsltParams As %List, pWithLogo As %Boolean = 0, pWithBgColors As %Boolean = "", pTraySelect As %String = "", pTraySelectVoorblad As %String = "", pImageColVisible As %String = "") As %List
-{
-	Quit:($G(lbXsltParams)=$LB()) $LB()
-	Quit:($L($G(lbXsltParams))) lbXsltParams
-	
-	;Set pWithLogo=$G(pWithLogo,0)    ; pWithLogo
-	Set pWithBgColors=""              ; pWithBgColors=1
-	Set tmpLB=""
-	Set:($L(pWithLogo)          ) tmpLB=tmpLB_$LB("pWithLogo="_pWithLogo)
-	Set:($L(pWithBgColors)      ) tmpLB=tmpLB_$LB("pWithBgColors="_pWithBgColors)
-	Set:($L(pTraySelect)        ) tmpLB=tmpLB_$LB("pTraySelect="_pTraySelect)
-	Set:($L(pTraySelectVoorblad)) tmpLB=tmpLB_$LB("pTraySelectVoorblad="_pTraySelectVoorblad)
-	Set:($L(pImageColVisible)   ) tmpLB=tmpLB_$LB("pImageColVisible="_pImageColVisible)
-	Quit tmpLB
-}
-
-/// Create Task-object
-///   AnalyseRoutine is een verplichte parameter 
-///   Keywords is optioneel. Bij voorkeur ";"-gescheiden 
-///   UserID is optioneel. 
-/// Keywords en UserID worden berekend indien niet gedefinieerd.
-ClassMethod CreateFopTaskXXXxxxOLD(AnalyseRoutine As %String, Keywords As %String, UserID As %String) As Sys.FOP.Task
-{
-	Set:('$D(UserID)) UserID=##class(BL.Sys.FOP.CommonTasks).CurrentUserID()   ; 1007 = WimV 
-	Set Task=##class(BL.Sys.FOP.Interface).NewTask(,,UserID)
-	Set Task.AnalyseRoutine=AnalyseRoutine        ; custom routine to convert FopTask to (TaskSeq + SeqItems)
-	Set:($G(Keywords)="") Keywords=..KeywordsDefault(,AnalyseRoutine)
-	Set Task.KeyWords=Keywords
-	Quit Task
-}
-
-/// De render-data toevoegen aan het Doc. 
-ClassMethod DocSetRenderDataXXXxxxOLD(Doc As Sys.FOP.emDoc, DataInVia As %String, DataIn, Template As %String, TransformType As %String = "PDF", lbPPODKeywords As %List, lbXsltParams As %List) As %Status
-{
-	Set DataType=$G(DataType,"XML")
-	Set sc=..GetRenderInfo(.Template, .TransformType, .lbXsltParams, .Taal, .Options, .OptionsPDF)
-	Do Doc.SetRenderData(.DataInVia, DataIn, DataType, .Template, .TransformType, .lbPPODKeywords, .lbXsltParams, .Taal, .Options, .OptionsPDF)
-	Quit $$$OK
-}
-
-/// De render-data ophalen, i.e. invullen in de parameters (als .local doorgeven). 
-ClassMethod GetRenderInfoXXXxxxOLD(ByRef Template As %String, ByRef TransformType As %String, ByRef lbXsltParams As %List, ByRef Taal As %String, ByRef Options As %String, ByRef OptionsPDF As %String) As %Status
-{
-	Set Template=$G(Template,..#ADBTemplate)
-	Set TransformType=$S($$$UCase(TransformType)="PS":"PS", 1:"PDF")
-	Set Taal=$G(Taal,"N")
-	Set lbXsltParams=..BuildXsltParams(lbXsltParams)   ; , .pWithLogo,.pWithBgColors,.pTraySelect)
-	Set Options=$G(Options,"")
-	Set OptionsPDF=$G(OptionsPDF,"")
-	Quit $$$OK
-}
-
-/// De render-data toevoegen aan het Doc. 
-/// Alleen gebruiken wanneer de data van het document gedefinieerd is via lbDocs, i.e. xml wordt pas later gegenereerd via method GetFopXML()
-ClassMethod DocSetRenderDefsXXXxxxOLD(Doc As Sys.FOP.emDoc, lbDocs As %List, Template As %String, TransformType As %String = "PDF", lbPPODKeywords As %List, pWithLogo As %Boolean, pTraySelect As %String, pTraySelectVoorblad As %String, oPLSettings As Sys.FOP.emDocOptions) As %Status
-{
-	;Set:($L(lbDocs)) lbDataIn=$LB("CLS.MTH.XML",..%ClassName(1),"GetFopXML",lbDocs)
-	Set:($L(lbDocs)) lbDataIn=$LB("BL.MTH.PROXY",..%ClassName(1),"BuildProxy",lbDocs)
-	Set lbXsltParams=..BuildXsltParams(,.pWithLogo,,.pTraySelect,.pTraySelectVoorblad,$$$xslpFromDoc)   ; ,.pWithBgColors,,,)
-	Set:($IsObject($G(oPLSettings))) Doc.Options=oPLSettings
-	Quit ..DocSetRenderData(Doc, "DEFS", lbDataIn, .Template, .TransformType, .lbPPODKeywords, .lbXsltParams)
-}
-
-ClassMethod DefaultPDFNameXXXxxxOLD(KLNr As %String, Extension As %String = "pdf") As %String
-{
-	Quit ..#DocName_"_"_KLNr_"_"_$ZD($H,8)_"."_Extension
-}
- /***   ** */
-]]></Content>
-</UDLText>
 </Class>
 </Export>