Index: BL/Derde/KlantInfoDoc.cls.xml =================================================================== diff -u -r1074 -r2548 --- BL/Derde/KlantInfoDoc.cls.xml (.../KlantInfoDoc.cls.xml) (revision 1074) +++ BL/Derde/KlantInfoDoc.cls.xml (.../KlantInfoDoc.cls.xml) (revision 2548) @@ -118,13 +118,13 @@ Set blKF.Options=$G(objSettings) Set sc=blKF.BuildTaskRenderAndMail(MailTo,.Subject,.Body, .FileName, .MailFrom) Set Task=blKF.FopTask - -#If (0)&&(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="DEV") - Set tmpDoc=Task.Docs.GetNext("") - Set FileName="\\Cache02\c$\Temp\KlantFiche_"_($P($H,",",2))_".xml" - Set %blnIndentProxy=1 - Set:($G(blnTest,1))&&($$$ISOK(sc)) sc=##class(BL.Sys.FOP.DataMgr).SaveDocDataToFile(tmpDoc,.FileName) -#EndIf + if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.Derde.KlantInfoDoc_DumpFile") { + Set tmpDoc=Task.Docs.GetNext("") + set Path = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory") + set FileName = ##class(TECH.Files).AppendFile(Path,"KlantFiche_"_($P($H,",",2))_".xml") + Set %blnIndentProxy=1 + Set:($G(blnTest,1))&&($$$ISOK(sc)) sc=##class(BL.Sys.FOP.DataMgr).SaveDocDataToFile(tmpDoc,.FileName) + } Do blKF.Close() Set blKF="" Index: vhDeploy/JCL/D20111028BLDerdeKlantInfoDoc.cls.xml =================================================================== diff -u --- vhDeploy/JCL/D20111028BLDerdeKlantInfoDoc.cls.xml (revision 0) +++ vhDeploy/JCL/D20111028BLDerdeKlantInfoDoc.cls.xml (revision 2548) @@ -0,0 +1,18 @@ + + + +1 +svn.Deploy +0 + + +ConfigItems - BLDerdeKlantInfoDoc + + + +1 + + + +