Botão Browser

Código:

def button btn-abrir.
def var varq as char format "X(60)".
def var lok as log.

def frame a
   varq
   btn-abrir
   with side-label three-d no-box.

on choose of btn-abrir
do:
   system-dialog get-file varq
      title "Abrir"
      filters "Bitmap (*.bmp)"   "*.bmp",
              "JPEG (*.jpg)"     "*.jpg", 
              "PNG (*.png)"      "*.png", 
              "Todos Arquivos"   "*.*"
      update lok.
   
   if lok then
      disp varq with frame a.
end.

enable all with frame a.

wait-for window-close of current-window.

f-pg-sel é o nome do frame, você precisa alterar para o nome do seu frame.

Bom dia Tandujar,
Eu fiz conforme você me passou, mas está abrindo a tela do "Salvar Como" e eu necessito do "Abrir".

Att,
Leandro.

Neste caso você pode utilizar o código que o LeandroSantos enviou.

Exemplo alterado:

def var c-arquivo-input as char format "x(200)".

def var l-ok as log.

system-dialog get-file c-arquivo-input
title "Abrir"
filters "Documentos de texto (*.txt)" "*.txt",
"Todos Arquivos" "*.*"
update l-ok.

IF l-ok = YES THEN DO:

ASSIGN c-arquivo:SCREEN-VALUE IN FRAME f-pg-sel = c-arquivo-input.

END.

Valeu pessoal, funcionou corretamente.
Obrigado pela ajuda.

Abraço.

Att,
Leandro.