SentFTP ; подключение к ftp для отправки файлов
 n server,user,pass,ftpdir,ftp,proxysrv,proxyport,proxyuser,proxypass,yesproxy
 s server=par.Get("ftpserver")
 s user=par.Get("ftpuser")
 s pass=par.Get("ftppass")
 s ftpdir=par.Get("ftpdir")
 s proxysrv=par.Get("proxysrv")
 s proxyport=par.Get("proxyport")
 s proxyuser=par.Get("proxyuser")
 s proxypass=par.Get("proxypass")
 s yesproxy=par.Get("yesproxy")
 s ftpdir=par.Get("ftpdir")
 D LOG("Подключаюсь к ftp")
 i 'yesproxy {
	 S ftp=##class(%Net.FtpSession).%New()
	 D LOG("Передача файлов")
	 I 'ftp.Connect(server,user,pass) D LOG("Несмог подключится к серверу, код ошибки: "_ftp.ReturnCode) Q
	 d ftp.Binary() 
	 i 'ftp.SetDirectory(ftpdir) D LOG("Несмог перейти в папку, код ошибки: "_ftp.ReturnCode) q
 } 
 else {
	s url="ftp://"_user_":"_pass_"@"_server_"/"_ftpdir	
	D LOG("Передача файлов через прокси")
	s ht=##class(Net.HttpRequest).%New()
 	s ht.Server=proxysrv
 	i proxyport="" s proxyport=8080
 	s ht.Port=proxyport
 	i proxyuser'="" s ht.ProxyAuthorization="Basic "_$system.Encryption.Base64Encode(proxyuser_":"_proxypass)
 	s res=ht.Get(url)
 	s st=ht.HttpResponse.StatusCode
 	s stl=ht.HttpResponse.StatusCode
 	i 'res D LOG("Ошибка подключения к прокси: "_$system.Status.GetErrorText(res)) q
 	i $E(st)'= 2  {
	 	i st= 404  D LOG("Несмог перейти в папку на фтп-сервере")
	 	i st= 403  D LOG("Ошибка авторизации на фтп")
	 	i st= 407  D LOG("Ошибка авторизации на прокси")
 	} 
 	w !	
 } 
 s file="" 
 f  s file=$O(files(file)) q:file=""  D SentFile(file)
 d:'yesproxy ftp.Logout() 
 q
SentFile(File) ; отправка файла на ftp
 n file,st,stream,str
 s file=$P($G(File),"\",$L($G(File),"\"))
 S id=##class(%FileCharacterStream).GetStreamIdForFile(File)
 S st=##class(%FileCharacterStream).%Open(id) 
 S stream=##class(%GlobalCharacterStream).%New()
 D stream.CopyFrom(st) 
 s str="Отправка файла "_file
 i 'yesproxy {
 	d ftp.Delete(file)
 	I 'ftp.Append(file,stream) D LOG(str_" - ошибка: "_ftp.ReturnCode) 
 	E  D LOG(str_" - успешно")
 } else {
	s url="ftp://"_user_":"_pass_"@"_server_"/"_ftpdir_"/"_file
	i proxyuser'="" s ht.ProxyAuthorization="Basic "_$system.Encryption.Base64Encode(proxyuser_":"_proxypass)
	s ht.EntityBody=stream
	s res=ht.Put(url)
	s st=ht.HttpResponse.StatusCode
	s stl=ht.HttpResponse.StatusLine
	i 'res D LOG(str_" - ошибка: "_$system.Status.GetErrorText(res)) 
	i $E(st)'= 2  D LOG(str_" - ошибка: "_stl)
	else  D LOG(str_" - успешно")
 } 
 Q