Olá pessoal! Como faço para copiar uma linha do browse para temporária do windows, para que o usuário possa colar no word, email, txt, excel, etc.... Att, Diogo
Não sei se existe uma forma mais simples de se fazer isso, eu faço assim: Código: def var loop as int. def var bh as handle. bh = browse seu-browse:handle. on "ctrl-c" of bh do: output to "clipboard". do loop = 1 to bh:num-columns: put unformatted bh:get-browse-column(loop):screen-value " ". end. output close. end.
Boa Tarde! Muito interessante este post, queria usar aqui tb, porém tentei aqui o código do amigo e não deu certo... será que é questão de versão? Estou usando 91c Erro: Referência a Atributos Multi-Levels e permitida somente para com-handles.(5713)
Legal a lógica, Fiz um ajuste para inserir na primeira linha o cabeçalho e na segunda os dados e separados por ";". Código: def var loop as int. def var bh as handle. bh = browse seu-browse:handle. on "ctrl-c" of bh do: output to "clipboard" no-convert. do loop = 1 to bh:num-columns: put unformatted right-trim(bh:get-browse-column(loop):label) ";". end. put skip. do loop = 1 to bh:num-columns: put unformatted bh:get-browse-column(loop):screen-value ";". end. put skip. output close. message clipboard:value view-as alert-box. end.
eriutoncharles, na v9 precisa fazer um pequeno ajuste no codigo: Código: def var loop as int. def var bh as handle. def var fh as handle. bh = browse seu-browse:handle. on "ctrl-c" of bh do: output to "clipboard" no-convert. do loop = 1 to bh:num-columns: fh = bh:get-browse-column(loop). put unformatted right-trim(fh:label) ";". end. put skip. do loop = 1 to bh:num-columns: fh = bh:get-browse-column(loop). put unformatted fh:screen-value ";". end. put skip. output close. message clipboard:value view-as alert-box. end.
