Работа с FTP и выгрузка данных в xlsx (Caché Object Script)

ClassMethod FTPGetFiles(ftp, fileName) As %Status
{
    s ftp = ##class(%Net.FtpSession).%New()
    s ftp.Timeout = 2000 
    s host = "11.111.11.111"
    s port = 2021
    s user = "myth/user"
    s pass = "userspass"
    
    if ftp.Connect(host, user, pass, port)
    {
    	d ftp.SetDirectory("/TestDir")
    	// Маска файла
    	s fileName = "????????t??????vK*.xml"
        // Работа с файлами по маске в указанной папке
        d ..ParserDir(ftp, fileName)
        
    	s fileName = "????????a??????yK*.xml"
        d ..ParserDir(ftp, fileName)
    }
    
    q ftp.Logout()
}

/// Загрузка в поток файлов, удовлетворяющих маске
ClassMethod ParserDir(ftp, fileName) As %Status
{
    s file = ""
    s x = 1
    s file(x) = ""
    
    // Список файлов из папки в поток
    d ftp.List(fileName, .stream)
    q:'$IsObject(stream)
   
    while 'stream.AtEnd 
    { 
    	// Чтение по одному символу из потока
		s file = stream.ReadLine(1, .sc, .eol) 
		if ( file = $C(10) )
		{
			// Формирование массива дескрипторов файла
			s x = x + 1
		    s file(x) = ""
		} 
		else 
		{
			// Формирование дескриптора файла
		    s file(x) = file(x) _ file
		}
		if $$$ISERR(sc) 
		{
		    w "ERROR" 
		    q
		}
    }
    
    // Переключение в бинарный режим
    d ftp.Binary()
    // Получение дескриптора следующего файла
    s key = $ORDER(file(""),1)
    
    while ( key '= "" )
    {
	    // Имя файла
        s fName = $E(file(key), 40, *)
        if ( $L(fName) > 0 ) 
		{
            #dim GlobalStream As %GlobalBinaryStream;
            	
			// Дописываем данные из потока в файл с именем fName. В нашем случае из-за настроек виндового FTP и писем в CP1251 необходима трансформация кодировки
            d ftp.Retrieve($zcvt($zcvt(fName,"I","CP1251"),"O","CP1251"),.GlobalStream)
            #dim status As %String;
            
            // Поиск вхождения буквы в имени файла
            if ( $F(fName,"s") > 0 ) 
            {	            
                s status = ..Parser(GlobalStream, "Product", "Shipment", parser)
            } 
            elseif ( $F(fName,"d") > 0 ) 
            {
                s status = ..Parser(GlobalStream, "Product", "Disposal" ,parser)
            }
            if ( status )
            {
                d ftp.Delete(fName)
            }
        }
        
        s key = $order(file(key),1)
    }

	q ftp.Logout()
}

/// Экспорт файлов на FTP сервер
ClassMethod RunExport() As %Status
{
	s ftp = ##class(%Net.FtpSession).%New()
	s ftp.Timeout = 2000
	s host = "11.111.11.111"
	s port = 2021
	s user = "myth/user"
    s pass = "userspass"

	if ftp.Connect(host, user, pass, port) 
	{
		d ftp.Binary()
		
		// Получение файлов по маске в папке в порядке сортировки
		s st = ##class(%SQL.Statement).%New()
		d st.%PrepareClassQuery("%File","FileSet")
		s rs = st.%Execute("/usr/cachesys201221/csp/sm/export_xml","*.xml","Size,Name")

		while rs.%Next() 
		{
			// Удаляем файл с сервера, если такой уже есть
			d ftp.Delete(rs.%GetData(6))
			// Загружаем файл в поток
			s stream = ##class(%FileBinaryStream).%New()
			// 1 - Полный путь до файла на нашем локальном сервере
			s stream.Filename = rs.%GetData(1)

			// Если файл УСПЕШНО дописан на сервер - перемещаем его в директорию "done"
			if ( ftp.Append(rs.%GetData(6),stream) = $$$OK ) 
			{
				d ##class(%File).Rename(rs.%GetData(1), ##class(%File).GetDirectory(rs.%GetData(1)) _ "done/" _ rs.%GetData(6))
			}

			k stream
		}

	}

	d ftp.Logout()
	k ftp

	q $$$OK
}

#server(TestProject.MakeExcelFile($("#table_to_excel").html(), "PriceList"))#

ClassMethod MakeExcelFile(Data As %String, FileName As %String) As %Status
{
	s FileName = "/tkf/reports/" _ FileName _ "_Excel.xls"
	    
   	s stream = ##class(%Library.FileCharacterStream).%New()
    	s FP = $$GetFilename^%apiCSP(FileName)
    
 	if ( $L(Data) = 22 )
  	{ 
    		d stream.CopyFrom(Data)
   	 }
    	else
    	{ 
    		d stream.Write(Data)
   	 }
 
    	d stream.SetAttribute("Content-Length",stream.Size)
    	d stream.SetAttribute("ContentType","application/excel")
    	d stream.SetAttribute("Charset","UTF8")
    	d stream.SetAttribute("ContentDisposition","attachment; filename=" _ $p(FileName,"/",4))
    	d stream.LinkToFile(FP)
    	d stream.SaveStream()
        	s oid = stream.%Oid()
 
    &js<window.location="#url(%25CSP.StreamServer.cls?STREAMOID=#(..Encrypt(oid))#)#";>
 
q $$$OK

}