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

Advpl VTDBBrowse

    Tipo: TELNET VT100
    Monta um browse com referencia a uma tabela
    Sintaxe
    VTDBBROWSE(<nTopo>, <nEsquerda>, <nBase>, <nDireita>,<cAlias>, <aCab>, [<aFields>], [<aSize>],
    [<cFuncaoUsuario>],[<cTop>],[<cBottom>]) –> nRecno
    Parâmetros
    <nTopo>, <nEsquerda> e <nBase>, <nDireita> são as
    coordenadas do canto superior esquerdo e canto inferior direito da janela. Valores de linha podem variar entre zero e
    VTMAXROW(), e valores de coluna podem variar entre zero e VTMAXCOL().
    <cAlias>, é uma string com alias da tabela
    <aCab>, é um vetor que contem os títulos das colunas
    <aFields>, é um vetor que contem os campos do alias
    <aSize> , é um vetor que contem o tamanho de cada coluna
    <cFuncaoUsuario> é o nome de uma função definida pelo usuário que é executada quando uma tecla não
    reconhecível for pressionada. O nome da função é especificado como uma expressão caractere sem parênteses ou
    argumentos. Note que o comportamento de VTDBBROWSE () é afetado pela presença deste argumento. Consulte o
    texto abaixo para maiores informações.
    <cTop> string com a condição de validação de top
    <cBottom> string com a condição de validação de Bottom
    Retorna
    VTDBBROWSE () retorna o recno() Se o processo de seleção for interrompido, VTDBBROWSE () retorna zero.
    Função de usuário: Utilizada da mesma forma que VTACHOICE e VTaBROWSE.
    Modos de VTDBBROWSE ()
    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 a função de usuário ter executado as operações apropriadas ao modo VTDBBROWSE () ela deve retornar
    um valor que solicite ao VTDBBROWSE () executar uma operação entre o seguinte conjunto de ações:
    Valores de Retorno da Função de Controle de VTDBBROWSE ()
    0-Aborta seleção
    1-Executa seleção
    2-Continua VTDBBROWSE ()
    3-Vai para o próximo item cuja primeira letra for a tecla pressionada
    Exemplo
    VtClear
    aFields := {"B1_COD","B1_DESC","B1_UM","B1_PICM"}
    aSize := {16,20,10,15}
    aHeader := {'COD','DESCRICAO ','UM',"% ICM"}
    sb1->(dbseek(xfilial()+'00000000000001'))
    nRecno := VTDBBrowse(0,0,7,15,"SB1",aHeader,aFields,aSize,'testectrl',;
    "xfilial('SB1')+'00000000000001'",;
    "xfilial('SB1')+'00000000000002'")

    vtclear()