Pular para o conteúdo
Início » Advpl VTRead

Advpl VTRead

    Tipo: TELNET VT100
    Ativa edição em tela usando objetos GET
    Sintaxe
    VTREAD
    Descrição
    O comando READ executa um módulo de edição em tela usando todos os objetos VTGET criados e adicionados.
    Dentro de um READ, o usuário pode editar o buffer de cada objeto VTGET bem como mover-se de um objeto GET
    para outro. Antes que o usuário possa entrar com um objeto VTGET, o controle passa para o respectivo WHEN.
    Quando o usuário pressiona uma tecla de saída de VTGET, o controle passa VALID respectivo, caso tenha sido
    especificada.
    O exemplo abaixo define vários VTGETs e a seguir usa o comando
    READ:
    #include ‘apvt100.ch’
    cVar1 := cVar2 := cVar3 := SPACE(10)
    @ 1, 1 VTSAY "Um :" VTGET cVar1 VALID !EMPTY(cVar1)
    @ 2, 1 VTSAY "Dois:" VTGET cVar2 WHEN RTRIM(cVar1) != "Um"
    @ 3, 1 VTSAY "Tres:" VTGET cVar3 VALID !EMPTY(cVar3)
    VTREAD