1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Duvida Duvida sobre parametro extent

Discussão em 'Progress 4GL' iniciado por ueluis, Abril 16, 2018.

  1. ueluis

    ueluis Membro Participativo

    Boa tarde galera,

    quero criar uma função que receberá o valor de duas variáveis como parametro, como fazer isso quando o imput da variavel é um extent?

    abaixo exemplo:
    Código:
    DEF VAR a AS CHAR INIT "123".
    DEF VAR b AS CHAR INIT "222".
    
    PROCEDURE teste :
        DEF INPUT PARAM t AS CHAR EXTENT 2.
        MESSAGE t[1] t[2] VIEW-AS ALERT-BOX.
    END.
    
    RUN teste(INPUT [A,B] ).
  2. don.junior

    don.junior Membro Participativo

    Já tentou:

    Assign t[1] = A
    t[2] = B
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    O parâmetro de entrada tem que ser o mesmo da entrada informada, ou seja, o parâmetro precisa ser do mesmo tipo e formato.

    Sendo assim, o que você pretende fazer não é possível sem uma "variável de compatibilidade", digamos assim.

    Se realmente há a necessidade de variáveis separadas:

    Código:
    DEF VAR a AS CHAR INIT "123".
    DEF VAR b AS CHAR INIT "222".
    DEF VAR e AS CHAR EXTENT 2.
    
    PROCEDURE teste :
        DEF INPUT PARAM t AS CHAR EXTENT 2.
        MESSAGE t[1] t[2] VIEW-AS ALERT-BOX.
    END.
    
    ASSIGN e[1] = a
           e[2] = b.
    
    RUN teste(INPUT e ).
    
  4. ueluis

    ueluis Membro Participativo

    Obrigado,
    essa era minha dúvida, queria saber se em casos assim poderia economizar a declaração de uma variável, mais não é possível.

Compartilhe esta Página