Histórico da Página

...

Portuguese

Descrição:

Monta um browse com referência a um array.

Sintaxe:

VTABrowse - Monta um Browse com referência a um Array ( nTopo nEsquerda nBase nDireita aCab [ aItens ] [ aSize ] [ cFuncaoUsuario ] [ nItemInicial ] ) --> nPosicao

Retorno:
nPosicao

Retorna a posição numérica ocupada pelo item de menu selecionado no vetor "aItens". Se o processo de seleção for interrompido, retorna zero.

Observações

Tipo: TELNET VT100

Função de usuário:
Da mesma forma que as demais funções de interface com o usuário, VTABROWSE () aceita uma função de usuário.

Modos de VTABROWSE():
0 - Inativo
1 - Tentativa de passar início da lista
2 - Tentativa de passar final da lista
3 - Normal
4 - Itens não selecionados

Após ter executado as operações apropriadas ao modo VTABROWSE(), a função de usuário deve retornar um valor que solicite ao VTABROWSE() executar uma operação entre o seguinte conjunto de ações:

Valores de Retorno da Função de Controle de VTABROWSE()
0 - Aborta seleção
1 - Executa seleção
2 - Continua VTABROWSE()
3 - Vai para o próximo item cuja primeira letra é a tecla pressionada

Bloco de código

language	cpp
theme	RDark
title	Exemplo

#include "protheus.ch"

/*
Função para demonstrar o uso da VTaBrowse
*/
Function Exemplo1()
Local aCab
Local aSize
Local nPos
Local aItens

VTClear()

aCab := {"Codigo",;
        "Cod            ",;
        "Descricao                           ",;
        "UM"}

aItens := {	{"1010 ",10 ,"DESCRICAO1","UN "},;
    {"2010 ",20 ,"DESCRICAO2","CX "},;
    {"2020 ",30 ,"DESCRICAO3","CX "},;
    {"2010 ",40 ,"DESCRICAO4","CX "},;
    {"2020 ",50 ,"DESCRICAO5","CX "},;
    {"3010 ",60 ,"DESCRICAO6","CX "},;
    {"3020 ",70 ,"DESCRICAO7","CX "},;
    {"3030 ",80 ,"DESCRICAO7","CX "},;
    {"3040 ",90 ,"DESCRICAO7","CX "},;
    {"2010 ",40 ,"DESCRICAO4","CX "},;
    {"2020 ",50 ,"DESCRICAO5","CX "},;
    {"3010 ",60 ,"DESCRICAO6","CX "},;
    {"3020 ",70 ,"DESCRICAO7","CX "},;
    {"3030 ",80 ,"DESCRICAO7","CX "},;
    {"3050 ",100,"DESCRICAO7","CX "}}

aSize:= {10,4,20,10}

nPos := 12

nPos := VTaBrowse(0,0,7,15,aCab,aItens,aSize,"TesteCtrl",nPos)

Return

/*
Função de usuario a ser utilizada na chamada da função VTABROWSE()
*/
Function TesteCtrl(nModo,nElem,nElemW)

If nModo == 1
    VtAlert("Top")
ElseIf nModo == 2
    VtAlert("Bottom")
Else
    If VTLastkey() == 27
        VtAlert("Sair")
        VTBeep(3)
        Return 0
    ElseIf VTLastkey() == 13
        VtAlert("Ok")
        VtBeep(1)
        Return 1
    EndIf
EndIf
Return 2

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

nTopo

Numérico

Define a coordenada do canto superior da janela. Valores de linha e coluna podem variar entre 0, 0 e VTMAXROW(), VTMAXCOL().

X

nEsquerda

Array of Record

Define a coordenada do canto esquerdo da janela. Valores de linha e coluna podem variar entre 0, 0 e VTMAXROW(), VTMAXCOL().

X

nBase

Array of Record

Define a coordenada do canto inferior da janela. Valores de linha e coluna podem variar entre 0, 0 e VTMAXROW(), VTMAXCOL().

X

nDireita

Array of Record

Define a coordenada do canto direito da janela. Valores de linha e coluna podem variar entre 0, 0 e VTMAXROW(), VTMAXCOL().

X

aCab

Array of Record

Vetor que contém os títulos das colunas.

X

aItens

Array of Record

Vetor que contém os dados que serão mostrados.

aSize

Array of Record

Vetor que contém o tamanho de cada coluna.

cFuncaoUsuario

Array of Record

Nome de uma função definida pelo usuário que é executada quando uma tecla não reconhecida for pressionada. O nome da função é especificado como uma expressão caracter sem parênteses ou argumentos. Note que o comportamento de VTABROWSE() é afetado pela presença desse argumento. Consulte as observações para mais informações.

nItemInicial

Array of Record

Posição ocupada no vetor “aItens” pelo item que aparecerá em destaque quando o menu for exibido pela primeira vez. Caso um item de menu que não esteja disponível seja especificado, ou use algum argumento, o item que aparecerá em destaque será o primeiro item selecionável do vetor.

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave