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

Advpl TerGetRead

    Tipo: Microterminal
    Executa uma entrada de dados no microterminal.

    Sintaxe
    TerGetRead(nLin,nCol,uVar,cPict,[bValid],[bWhen])
    Parâmetros
    nLin – Linha a se executar a entrada de dados.
    nCol – Coluna a se executar a entrada de dados.
    uVar – Variavel a se devolver o valor da entrada de dados.
    cPict – Picture da entrada de dados, as pictures disponiveis sao:
    "X" – Para entrada de caracteres numéricos(0-9) e letras (A-Z).
    "9" – Para entrada de caracteres numéricos(0-9).
    "A" – Para entrada de caracteres letra(A-Z).
    "*" – Para entrada de caracteres numéricos(0-9) e letras (A-Z) mas exibindo "*" na tela.
    "." – Exibe ponto decimal na tela.
    "/" – Exibe a barra ("/") na tela.
    bValid – Code Block contendo a validação da entrada de dados.
    bWhen – Code Block contendo a condição para se executar a entrada de dados.
    Retorna
    NIL
    Exemplo
    lDigNome := .T.
    cNome := Space(10)
    cIdade := Space(02)
    TerCls()
    TerSay(00,00,"Nome:")
    TerGetRead(00,06,@cNome,"XXXXXXXXXX",{||!Empty(cNome)},{||lDigNome})
    TerGetRead(00,00,cIdade,"99",{||Val(cIdade)>0})
    Observações
    A variável da entrada de dados deve ser do tipo caracter.