O
OctavioOlguin
Guest
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.
Continue reading...
Continue reading...