Buenos días alguien me puede decir como hacer que una aplicación PROGRESS (Appbuilder) abra la ventana para seleccionar un archivo. quiero implementar eso en una aplicacion caracter en el menú Archivo/ Abrir.
Saludos
SI es windows no debes de tener problemas con este código:
DEF VAR F-arch AS CHAR NO-UNDO.
DEF VAR preg1 AS LOG NO-UNDO.
SYSTEM-DIALOG GET-FILE F-arch
TITLE "Digite archivo a procesar ..."
FILTERS "Archivos a buscar (*.csv)" "*.csv", "Todos los archivos (*.*)" "*.*"
INITIAL-DIR "c:\temp"
MUST-EXIST
USE-FILENAME
UPDATE preg1.
IF F-arch <> "" THEN F-arch:SCREEN-VALUE = F-arch.
DEFINE VARIABLE fName AS CHARACTER NO-UNDO. DEFINE VARIABLE bPicked AS LOGICAL NO-UNDO. SYSTEM-DIALOG GET-FILE fName FILTERS "*.pdf" "*.pdf" /* Filter */ DEFAULT-EXTENSION "*.pdf" /* default-extensions */ TITLE "Abrir..." UPDATE bPicked. /*IF bPicked THEN DISPLAY fName WITH FRAME {&FRAME-NAME}. */ IF bPicked THEN DO: ASSIGN fArchivo = fName. DISPLAY fArchivo WITH FRAME {&FRAME-NAME}. END.
Gracias
Gracias