... hmon:="ftp.txt" if oFtp:hFtp > 0 SendFile(cFTPDir,cFile,oFtp,hMon,oInt) else //msginfo("HAY PROBLEMAS EN SU CONEXIÒN A INTERNET, DATOS NO PUDIERON SER ENVIADOS","IMPORTANTE") end oInt:End() oFtp:end() RETUrn NIL FUNCTION FtpInit(oInt,oFtp,cFTPServer,cFTPUser,cFTPPwd) //--------------------------------------------------------// ...