Index: BL/Flow/PrijsLijst/Doc.cls.xml =================================================================== diff -u -r2042 -r2043 --- BL/Flow/PrijsLijst/Doc.cls.xml (.../Doc.cls.xml) (revision 2042) +++ BL/Flow/PrijsLijst/Doc.cls.xml (.../Doc.cls.xml) (revision 2043) @@ -308,9 +308,9 @@ If $$$ISOK(sc) { // De getransformeerde xml via ftp naar www verzenden Set FtpSrcPath=FilePath - Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp) + Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, .tmpBinaryFtp) Set DeleteAfterSend=1 - Set ActionFTP=##class(Sys.FOP.SubTaskFTP).%New(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend) + Set ActionFTP=##class(Sys.FOP.SubTaskFTP).%New(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, .tmpBinaryFtp, DeleteAfterSend) Set sc=##class(BL.Sys.FOP.CommonTasks).SendFileToFtpServer(ActionFTP, $$$rmInLine,) } @@ -341,9 +341,9 @@ // SubTask toevoegen voor verzenden via FTP Set FtpSrcPath=FilePath - Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp) + Do ##class(BL.Sys.FOP.TaskMgr).GeefFtpConnectionSettings(FtpServer, .tmpUserName, .tmpPassWord, .tmpPort, .tmpBinaryFtp) Set DeleteAfterSend=1 - Set:($$$ISOK(sc)) sc=Task.AddActionFtp(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, tmpBinaryFtp, DeleteAfterSend) + Set:($$$ISOK(sc)) sc=Task.AddActionFtp(FtpServer,FtpSrcPath,.DestDir,.DestFName, .tmpUserName, .tmpPassWord, .tmpPort, .tmpBinaryFtp, DeleteAfterSend) Quit:($$$ISERR(sc)) sc // Task aan Queue van FOP-scheduler toevoegen (runmode InLine --> tevens ook wachten tot de task afgehandeld is)