Verificar Existencia de Programa em tempo de compilacao

Discussão em 'Progress 4GL' iniciado por renato.schlogel, Fevereiro 1, 2013.

  1. renato.schlogel

    renato.schlogel Membro Participativo

    /****
    Existe alguma forma de verificar se um programa existe em tempo de compilacao sem que ele apresente erro de compilador ?
    Erro: ** "programa.i" nao foi encontrado. (293).

    o que ocorre:
    Eu preciso pegar o valor de uma variavel global em tempo de compilacao, esta variavel vem de outro fonte que pode existir ou não.
    Se existir quero que popule a variavel, se não gostaria de poder tratar o erro.

    Exemplo:

    programa.i >>

    &GLOBAL Versao_programa_p 2012.11.22

    Procedute mensagem:
    do.
    message 'eu posso usar este Programa' view-as alert-box.
    return.
    end.
    End Procedure.

    << fim programa.i

    programa.p >>

    { programa.i }. /* existe com verificar se o fonte existe aqui em tempo de compilacao sem que o mesmo apresente o erro
    talvez algum &if programa &then.. se isso for possivel e alguem souber como fazer ja agradeço pela ajuda */

    &if "{&Versao_programa_i}" >= "2012.11.22" &then
    run mensagem in this-procedure.
    &Else
    message 'nao posso usar o programa programa.i' view-as alert-box.

    &Endif
    << Fim programa.p
  2. muertebr

    muertebr Membro Participativo

    Algo assim que vc está querendo?

    IF SEARCH("c:\work\arquivo.txt") = ? THEN
    arquivo nao existe
    ELSE
    arquivo existe
  3. renato.schlogel

    renato.schlogel Membro Participativo

    Bom dia Muertebr, então o search('diretorio/programa') ate funciona. Porém somente para tempo de execução. O que eu precisava e verificar se o programa existe antes da execucao, no momento da compilacao do programa.

    Mas obrigado pela resposta.

Compartilhe esta Página