select * form teste into cursor teste
m.Cursor=filetostr(dbf("teste"))
use in teste
return m.Cursor

m.CursorRetorno=strtofile(Menucomponente(<parametro>),"teste.dbf")
use teste in 0