**** ----------------------------------------- Декларирование ftp ------------------------------------------------------------
DECLARE INTEGER InternetOpen IN wininet.dll STRING sAgent, LONG nAccessType, STRING sProxyName, STRING sProxyBypass, LONG nFlags
DECLARE INTEGER InternetCloseHandle IN wininet.dll LONG hInet
DECLARE INTEGER InternetConnect IN wininet.dll INTEGER hInternetSession, STRING sServerName,;
        INTEGER nServerPort, STRING sUserName, STRING sPassword,;
       	LONG nService, LONG dwFlags,  LONG dwContext
	
DECLARE LONG FtpSetCurrentDirectory IN wininet.dll INTEGER hFtpSession, STRING DirForFtp
DECLARE LONG FtpPutFile IN wininet.dll INTEGER hFtpSession, STRING FromFile, STRING ForFile, LONG dwFlags, LONG dwContext
DECLARE LONG FtpRenameFile IN wininet.dll LONG hFtpSession, STRING FromFile, STRING ToFile
DECLARE LONG FtpGetFile IN wininet.dll INTEGER hFtpSession, STRING FromFile, STRING ForFile, LONG fFailIfExists, ;
    	LONG dwFlagsAndAttributes, LONG dwFlags, LONG dwContext
	
DECLARE LONG FtpDeleteFile IN wininet.dll INTEGER hFtpSession, STRING FileDele


WAIT 'Передача информации на сервер по ftp-протоколу' WINDOW NOWAIT 
#DEFINE INTERNET_SERVICE_FTP   1 
#DEFINE INTERNET_FLAG_PASSIVE 0x8000000
FtpSession=InternetOpen('MyFTPClient',  1 , NULL, NUll,  0 ) && NonProxy
IF FtpSession# 0 
   FtpConnect=InternetConnect(FtpSession, cFtpURL,  21 , '', '', INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE,  0 )
   =FtpSetCurrentDirectory(FtpConnect, cFTPImport)	&& открываем корневой каталог на ФТП
   IF FtpConnect# 0 
      IF FtpPutFile(FtpConnect, "Trash\"+cSysName, cSysName,  2 ,  0 ) #  0  && Отправляем файл на ФТП
         lFtp = .t.
      ENDIF 
   ENDIF
ENDIF