Leitor de Documentos

Discussão em 'Progress 4GL' iniciado por angeloata, Maio 16, 2014.

  1. angeloata

    angeloata Membro Participativo

    Preciso criar um programa no qual estarei anexando varios tipos de arquivos em uma pasta (pdf, xls, doc, e-mail) e quero que o usuario clique em cima do documento e o mesmo seja aberto.

    Como fazer? Alguem poderia me ajudar?
    angeloata, Maio 16, 2014
    #1
  2. valdir_fantin

    valdir_fantin Membro Participativo

    Prezado , @angeloata

    Segue lógica . basta criar dois botões no seu programa.


    &Scoped-define SELF-NAME bt-arq-ori
    &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL bt-arq-ori C-Win
    ON CHOOSE OF bt-arq-ori IN FRAME f-selecao /* Seleciona na Pasta o arquivo Desejado */
    DO:
    Main:
    REPEAT:
    SYSTEM-DIALOG GET-FILE procname
    TITLE "Abrir Arquivo ..."
    FILTERS "All (*.*)" "*.*" , ".pdf" "*.pdf" , ".xls" "*.xls" , ".doc" "*.doc"
    DEFAULT-EXTENSION ".xls;.pdf"
    INITIAL-DIR "C:\temp"
    MUST-EXIST
    ASK-OVERWRITE
    USE-FILENAME

    f-arq-ori = procname.
    DISPLAY f-arq-ori
    WITH FRAME f-selecao IN WINDOW C-Win.
    LEAVE.
    END.
    LEAVE Main.
    END.


    END.

    /* _UIB-CODE-BLOCK-END */
    &ANALYZE-RESUME


    &Scoped-define SELF-NAME Btn-Abrir
    &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn-Abrir C-Win
    ON CHOOSE OF Btn-Abrir IN FRAME f-selecao /* Abrir o arquivo selecionado */
    DO:
    DOS SILENT value(f-arq-ori).
    END.

    /* _UIB-CODE-BLOCK-END */
    &ANALYZE-RESUME

    Abraços
    valdir_fantin, Maio 16, 2014
    #2

Compartilhe esta Página