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
Cookies Anuncie aqui Patrocinador Anuncios

Duvida obter nome dos itens selecionados de uma combobox

Discussão em 'Progress 4GL' iniciado por ueluis, Fevereiro 5, 2019.

Página 2 de 2
  1. ueluis

    ueluis Membro Participativo

    simplifiquei o código mais ainda assim é feio!
    Código:
    DEF VAR teste AS CHAR VIEW-AS COMBO-BOX LIST-ITEM-PAIRS "002 setup_AZ.job", 002,"003 setup amarelo_CB.job",003,"004 setup roxo_CB.job",004,"007 setup inclolor_AZ.job",007,"008 setup cinza.job",008,"010 setup vermelho.job",010.

DEFINE FRAME f teste .
ENABLE teste WITH FRAME f.
ON VALUE-CHANGED OF teste DO:
  DISP
     
      teste SKIP
      SUBSTRING(SELF:LIST-ITEM-PAIRS IN FRAME f,
                INDEX(SELF:LIST-ITEM-PAIRS IN FRAME f,
                SELF:INPUT-VALUE IN FRAME f),
                INDEX(SUBSTRING(SELF:LIST-ITEM-PAIRS IN FRAME f,
                INDEX(SELF:LIST-ITEM-PAIRS IN FRAME f,
                SELF:INPUT-VALUE IN FRAME f),
                LENGTH(SELF:LIST-ITEM-PAIRS IN FRAME f)),",")- 1) FORMAT "x(60)"  SKIP
      WITH FRAME f.
END.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
    ueluis, Fevereiro 8, 2019
    #7
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    cara, para tudo, que trabalhão, coloca o combo-box como list-items somente, e coloca o "002 setup_AZ.job, 003 setup amarelo_CB.job" por exemplo,

    o input-value será a string completa "002 setup_AZ.job". correto ???? agora entry(1,campo,' ') retorna o 002 e entry(2,campo,' ') retorna setup_AZ.job, não ísso que vc quer ? entre as aspas do comano entry eu coloquei um espaço em branco.
    bootstrapmaster, Fevereiro 8, 2019
    #8
  3. ueluis

    ueluis Membro Participativo

    opa, obrigadopela resposta,
    o cenário aqui são dois sistemas de visão diferente e a comunicação tcp também, o sistema 1 troca de setup através de numeror isolados ex: 001,002,003 , já o sistema 2 tem apenas uma matriz numérica "200 343 232 121", "323 322 3 232", o usuário final precisa apenas saber que tem que selecionar por exemplo "001 setup_cb" e a comunicação via tcp se dá através do parametro itenpairs que pode ser 001 ou "200 343 232 121", no exemplo acima eu coloquei os dados do combo de uma maneira simples para o entendimento, um listbox não se adequaria a rotina.

    ainda assim agradeço a ajuda!
    ueluis, Fevereiro 13, 2019
    #9
Página 2 de 2

Compartilhe esta Página