Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Comandos para Telnet Vt100

Fazer download em doc, pdf ou txt
Fazer download em doc, pdf ou txt
Você está na página 1de 17

COMANDOS PARA TELNET VT100.

@...VTSay
Tipo: TELNET VT100 Exibe dados em uma linha e coluna especificadas Sintaxe @ <nLin>, <nCol> [VTSAY <exp> [PICTURE <cSayPicture>]] Parmetros <nLin> e <nCol> so as coordenadas de linha e coluna da sada. Os valores de linha podem variar entre zero e VTMAXROW(). O mesmo vale para as colunas. VTSAY <exp> exibe o resultado de uma expresso de qualquer tipo. PICTURE <cSayPicture> define a mascara para a sada de exp. Exemplo nQtd :=15.45 cDesc := "Teste descricao" // @ 1, 1 VTSAY nQtd PICTURE "@9999.99" @ 2, 1 VTSAY Teste VTG100 @ 4, 1 VTSAY cDesc PICTURE "@!"

VTClear Screen
Tipo: TELNET VT100 Apaga a tela e coloca o cursor na posio inicial Sintaxe VTCLEAR [SCREEN]

@...VTGet
Tipo: TELNET VT100 Cria um novo objeto VTGET e o coloca em exibio na tela Sintaxe @ <nLin>, <nCol> [VTSAY <exp> [PICTURE <cSayPicture>]] VTGET <idVar> [PICTURE <cGetPicture>] [WHEN <lPreCondicao>] [VALID <lPosCondicao>] [PASSWORD] [F3<tabela>] Parmetros <nLin> e <nCol> So as coordenadas de linha e coluna para a operao. Se a clausula VTSAY est presente, especificam as coordenadas para o VTSAY, e o VTGET exibido a direita deste. VTSAY exibe o valor de <exp> nas coordenadas especificadas. <cSayPicture> seja especificada. Caso a PICTURE

VTGET <idVar> define o nome da varivel de qualquer tipo de dados a ser editada. Ela pode ser caractere, data ou numrica . PICTURE <cGetPicture> especifica uma mascara para exibio e as regras para edio do VTGET. WHEN <lPreCondicao> especifica uma expresso que deve ser satisfeita antes do cursor entrar na regio de edio de VTGET. Se <lCondicao> avaliada como verdadeira (.T.), permitido ao cursor entrar; de outra forma, o VTGET corrente saltado e o cursor move-se para o prximo VTGET. VALID <lPosCondicao> especifica uma expresso que deve ser satisfeita antes que o cursor possa deixar a regio de edio do VTGET corrente. O VALID<lPosCondicao> avaliado sempre que o usurio tenta deixar a regio de edio do VTGET, a menos que a tecla Esc seja pressionada . Se <lPosCondicao> retorna falso (.F.), o controle retorna ao VTGET e o usurio no pode deixa -lo at que <lPosCondicao> retorne verdadeiro (.T.) ou o usurio aperte Esc. Um VALID <lPosCondicao> pode conter ou ser uma funo definida pelo usurio, permitindolhe executar buscas e outros tipos de operaes de validao. PASSWORD Monta o VTGET para entrada de dados com * na tela, utilizado para SENHAS F3 Associa este VTGET a uma tabela do SXB ou Sx5. Descrio Quando um comando VTREAD especificado, um VTGET executa uma edio do contedo de <idVar> de qualquer tipo de dado. Quando um objeto VTGET criado, o nome e valor corrente de <idVar> so guardados no objeto VTGET. O valor de <idVar> fica armazenado no que chamado de buffer do VTGET. O buffer de VTGET o que realmente mostrado na tela e editado. Exemplo #include apvt100.ch nNumber = 0 @ 0, 0 VTSAY "Digite um numero; VTGET nNumber; VALID nNumber > 0

VTRead
Tipo: TELNET VT100 Ativa edio em tela usando objetos GET Sintaxe VTREAD Descrio O comando READ executa um mdulo de edio em tela usando todos os objetos VTGET criados e adicionados. Dentro de um READ, o usurio pode editar o buffer de cada objeto VTGET bem como mover-se de um objeto GET para outro. Antes que o usurio possa entrar com um objeto VTGET, o controle passa para o respectivo WHEN. Quando o usurio pressiona uma tecla de sada de VTGET, o controle passa VALID respectivo, caso tenha sido especificada. O exemplo abaixo define vrios 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

VTSave Screen
Tipo: TELNET VT100 Grava a tela corrente numa varivel Sintaxe VTSAVE SCREEN TO <idVar> Parmetros TO <idVar> especifica a varivel que sero atribudos os contedos da tela corrente. Exemplo #include apvt100.ch VTSave Screen To aTela 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 VTRestore Screen From aTela

VTRestore Screen
Tipo: TELNET VT100 Exibe uma tela guardada Sintaxe VTRESTORE SCREEN [FROM <aTela>] Parmetros FROM <aTela> especifica uma varivel que contem o contedo da tela a ser exibida. Exemplo #include apvt100.ch VTSave Screen To aTela 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 VTRestore Screen From aTela

VTPause
Tipo: TELNET VT100 Suspende a execuo de um programa at que seja pressionada a tecla ENTER Sintaxe #include apvt100.ch VTPAUSE

@...VTPause
Tipo: TELNET VT100 Exibe dados em uma linha e coluna especificadas e para a execuo de um programa at que seja pressionada a tecla ENTER Sintaxe @ <nLin>, <nCol> [VTPAUSE <exp> [PICTURE <cSayPicture>]] Parmetros <nLin> e <nCol> so as coordenadas de linha e coluna da sada. Os valores de linha podem variar entre zero e VTMAXROW(). O mesmo vale para as colunas. VTPAUSE <exp> exibe o resultado de uma expresso de qualquer tipo. PICTURE <cSayPicture> define a mascara para a sada de exp. Exemplo #include apvt100.ch @ 7, 1 VTPause Tecle ENTER p/ Continuar

VTSetSize
Tipo: TELNET VT100 Seta o limite da rea de trabalho. Sintaxe VTSETSIZE <nLin>, <nCol> Parmetros <nLin> e <nCol> so as coordenadas mximas de linha e coluna. Exemplo #include apvt100.ch VTSetSize 8,20

VTSet Key
Tipo: TELNET VT100 Atribui a chamada de uma rotina a uma tecla Sintaxe VTSET KEY <nCodigoTecla> TO [<idRotina>] Parmetros <nCodigoTecla> o valor VTINKEY() da tecla a qual se atribui a rotina. TO <idRotina> especifica o nome da rotina que executada quando se aperta uma tecla. Se <idRotina> no especificada, a definio corrente liberada. Exemplo Este exemplo demonstra como usar VTSET KEY para invocar uma rotina quando o usurio aperta. A tecla A. #include apvt100.ch

VTSET KEY 65 TO TESTE CCodigo := space(6) @ 1, 1 VTGET cCodigo VTREAD RETURN FUNCTION Teste() @ 2,1 VTSay TESTE RETURN NIL

FUNCOES PARA TELNET VT100


VTReadVar()
Tipo: TELNET VT100 Retorna o nome da varivel VTGET corrente Sintaxe VTREADVAR() --> cNomeVar Retorna VTREADVAR() retorna o nome da varivel associada ao objeto VTGET corrente.

VTSave()
Tipo: TELNET VT100 Grava uma regio de tela para posterior exibio Sintaxe VTSAVE (<nTopo>, <nEsquerda>, <nBase>, <nDireita>) --> cTela Parmetros <nTopo>, <nEsquerda>, <nBase>, e <nDireita> definem as coordenadas da regio de tela a ser gravada. Caso <nBase> ou <nDireita> seja maior do que VTMAXROW() ou VTMAXCOL(), a tela cortada. Retorna VTSAVE () retorna a regio de tela especificada na forma de uma Exemplo #include apvt100.ch aTela := VTSave(0,0,4,10) 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 VTRestore(0,0,4,10,aTela) cadeia de caracteres.

VTRestore()
Tipo: TELNET VT100 Exibe uma regio de tela gravada em uma localizao especificada Sintaxe

VTRESTORE(<nTopo>, <nEsquerda>, <nBase>, <nDireita>, <aTela>) --> NIL Parmetros <nTopo>, <nEsquerda>, <nBase>, e <nDireita> definem as coordenadas da informao de tela contida em <aTela>. <aTela> uma varivel contedo o contedo da tela gravada. Retorna VTRESTORE () sempre retorna NIL. Exemplo #include apvt100.ch aTela := VTSave(0,0,4,10) 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 VTRestore(0,0,4,10,aTela)

VTScroll()
Tipo: TELNET VT100 Rola uma regio de tela para cima ou para baixo Sintaxe VTSCROLL(<nTopo>, <nEsquerda>, <nBase>, <nDireita>, <nLinhas>) --> NIL Parmetros <nTopo>, <nEsquerda>, <nBase>, e <nDireita> definem as coordenadas da regiao a ser rolada. Valores de linha e coluna podem variar entre 0, 0 e VTMAXROW(), VTMAXCOL(). <nLinhas> define a quantidade de linhas a serem roladas. Um valor maior do que zero rola para cima a quantidade especificada de linhas. Um valor menor do que zero rola para baixo a quantidade especificada de linhas. Um valor de zero apaga a rea especificada. Retorna VTSCROLL() sempre retorna NIL. Exemplo VTSCROLL(0,0, VTMAXROW(),VTMAXCOL,1)

VTLastKey()
Tipo: TELNET VT100 Retorna o valor VTINKEY() da ltima tecla extrada do buffer de teclado Sintaxe VTLASTKEY() --> nCodInkey Retorna VTLASTKEY() retorna um nmero de -39 a 386 que identifica o valor VTINKEY() ltima tecla extrada do buffer de teclado. da

Descrio VTLASTKEY() uma funo de tratamento de teclado que informa o valor VTINKEY() da ltima tecla capturada do buffer de teclado pela funo VTINKEY(), ou por um estado de espera como VTREAD, VTPAUSE, VTACHOICE(),VTABROWSE ou VTDBBROWSE. VTLASTKEY() retorna seu valor corrente at que outra tecla seja capturada do buffer de teclado. Exemplo #include apvt100.ch aTela := VTSave(0,0,4,10) 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 VTRestore(0,0,4,10,aTela) If VTLastKey() == 27 Return .f. Endif

VTSetKey()
Tipo: TELNET VT100 Atribui um bloco de ao a uma tecla Sintaxe VTSETKEY(<nCodInkey>, [<bAao>]) --> bAcaoCorrente Parmetros <nCodInkey> o valor INKEY() da tecla a ser associada ou questionada. <bAcao> especifica o bloco de cdigo a ser automaticamente executado sempre que a tecla especificada for pressionada durante um estado de espera. Retorna VTSETKEY() retorna o bloco de ao correntemente associado a tecla especificada, ou NIL caso a tecla especificada nao esteja associada a um bloco. Exemplo #include apvt100.ch bKeyAnt := VTSetKey(65,{|| teste()}) CCodigo := space(6) @ 1, 1 VTGET cCodigo VTREAD VTSetKey(65,bKeyAnt) RETURN FUNCTION Teste() @ 2,1 VTSay TESTE RETURN NIL

VTKeyBoard()
Tipo: TELNET VT100 Coloca uma cadeia de caracteres (string) no buffer de teclado Sintaxe

VTKEYBOARD(<cCodigoTecla>) Parmetros <cCodigoTecla> o conjunto de caracteres a ser colocado no buffer de teclado. Exemplo #include apvt100.ch bKeyAnt := VTSetKey(65,{|| teste()}) CCodigo := space(6) @ 1, 1 VTGET cCodigo VTREAD VTSetKey(65,bKeyAnt) RETURN FUNCTION Teste() @ 2,1 VTSay TESTE VTKeyBoard(chr(27)) RETURN NIL

VTRow()
Tipo: TELNET VT100 Retorna a posio de linha do cursor na tela Sintaxe VTROW() --> nLinha Retorna VTROW() retorna a posio de linha do cursor na forma de um valor numrico inteiro. A faixa do valor de retorno varia entre zero e VTMAXROW(). Exemplo @ 0,0 VTSay Teste @ VTRow()+1 ,0 VTSay Teste2

VTCol()
Tipo: TELNET VT100 Retorna a posio de coluna do cursor na tela Sintaxe VTCOL() --> nCol Retorna VTCOL() retorna um valor numrico inteiro. A faixa do valor de retorno de zero at VTMAXCOL(). Exemplo @ 1, 1 VTSAY "Cliente: " + TRIM(Cliente) @ VTROW(), VTCOL() + 1 VTSAY Status

VTInkey()
Tipo: TELNET VT100 Extrai um caractere do buffer de teclado

Sintaxe VTINKEY([<nSegundos>]) --> nCodInkey Parmetros <nSegundos> especifica a quantidade de segundos que VTINKEY() deve esperar por uma tecla. O valor pode ser especificado em incrementos do tamanho de at um dcimo de segundo. Se for especificado zero, o programa para at que uma tecla seja pressionada. Caso <nSegundos> seja omitido, VTINKEY() no espera por uma tecla. Retorna VTINKEY() retorna um valor numrico inteiro de -39 at 386, que identifica a tecla extrada do buffer de teclado. Caso o buffer de teclado esteja vazio, VTINKEY() retorna zero. Exemplo While .t. IF VtInkey(1) == 27 // correspondente a tela ESC exit EndIf End

VTMaxCol()
Tipo: TELNET VT100 Determina a coluna mxima visvel na tela Sintaxe VTMAXCOL() --> nColuna Retorna VTMAXCOL() retorna o nmero da coluna visvel mais a direita para fins de exibio. Exemplo @ 1, int(VTMaxCOL()/2) VTSAY *

VTMaxRow()
Tipo: TELNET VT100 Determina a mxima linha visvel na tela Sintaxe VTMAXROW() --> nLinha Retorna VTMAXROW() retorna o nmero da ltima linha visvel para fins de exibio. Descrio VTMAXROW() uma funo de tratamento de tela que pode ser utilizada para m xima linha visvel da tela. Nmeros de linha e coluna comeam com zero em Clipper. determinar a

Exemplo A seguinte funo definida pelo usurio, TamTela(), utiliza VTMAXROW() e VTMAXCOL() para retornar um vetor que contm o tamanho da tela corrente:

FUNCTION TamTela RETURN { VTMAXROW(), VTMAXCOL() }

VTBeep()
Tipo: TELNET VT100 Emite um beep Sintaxe VTBEEP([<nQtde>]) --> NIL Parmetros <nQtde> especifica a quantidade de beep que ser emitido, Caso <nQtde> seja omitido, VTBEEP() emitira um beep. Retorna VTBEEP() retorna NIL Exemplo VTBEEP(3)

VTReverso()
Tipo: TELNET VT100 Ativa ou desativa o modo reverso da tela. Sintaxe VTREVERSO([<lRev>]) --> lReverso Parmetros <lRev> Se verdadeiro ativa, falso desativa o modo de tela. VTReverso() retorna o modo atual. Caso <lRev> seja omitido,

Retorna VTREVERSO() retorna o modo atual, verdadeiro que est em reverso, falso no est em reverso. Exemplo #include apvt100.ch lReverso:= VTReverso(.t.) @ 0,0 VTSay Teste 1 VTReverso(lReverso) @ 1,0 VTSay Teste 2

VTClearBuffer()
Tipo: TELNET VT100 Limpa o buffer de teclado Sintaxe VTCLEARBUFFER() --> NIL Retorna VTCLEARBUFFER() retorna NIL

Exemplo VTCLEARBUFFER()

VTAlert()
Tipo: TELNET VT100 Mostra uma messagem na tela Sintaxe VTALERT(<cMsg>,[<cCaption>],[<lCenter>],[<nSleep>]) nTecla Parmetros <cMsg> Mensagem a ser exibida. <cCaption>Titulo da mensagem <lCenter> Se verdadeiro centraliza a mensagem conforme o VTSetSize. <nSleep> > especifica a quantidade de tempo em milsimo de segundos em a mensagem permanecera na tela, Caso omito, aguardara que seja digitado Enter ou ESC. Retorna VTALERT () retorna o cdigo da tecla digitada. Exemplo VTAlert(Produto no cadastrado,Aviso,.t.,4000)

VTYesNo()
Tipo: TELNET VT100 Mostra uma messagem a espera de uma confirmao na tela. Sintaxe VTYESNO (<cMsg>,[<cCaption>],[<lCenter>]) lConfrime Parmetros <cMsg> Mensagem a ser exibida. <cCaption>Titulo da mensagem <lCenter> Se verdadeiro centraliza a mensagem conforme o VTSetSize. Retorna VTYESNO () retorna o verdadeiro caso tenha confirmado. Exemplo IF ! VTYesNo(Confirma a alteracao,'Atencao ',.T.) Return .F. ENDIF

VTAchoice()
Tipo: TELNET VT100 Executa um menu pop-up Sintaxe VTACHOICE(<nTopo>, <nEsquerda>, <nBase>, <nDireita>, <acItensMenu>, [<alItensSelecionaveis>],

[<cFuncaoUsuario>],[<nItemInicial>], [lNaoBranco] , [<lMsg>], [<nLinhaJanela>],[<lScroll>]) --> nPosicao Parmetros <nTopo>, <nEsquerda> e <nBase>, <nDireita> so 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(). <acItensMenu> um vetor que contem as cadeias de caracteres que sero exibidas como sendo os itens de menu. Cada item de menu ser mais tarde identificado atravs de sua posio numrica neste vetor. <alItensSelecionaveis> um vetor paralelo de valores lgicos, diretamente relacionados a <acItensMenu> que especifica os itens de menu que podero ser selecionados. Os elementos podem ser valores lgicos ou cadeias de caracteres. Caso o elemento seja uma cadeia de caracteres, ele avaliado como uma expresso macro que dever retornar um tipo de dado lgico. Em ambos os casos, um valor de falso (.F.) significa que o item de menu correspondente no est disponvel, e um valor de verdadeiro (.T.) significa que est disponvel. <cFuncaoUsuario> o nome de uma funo definida pelo usurio que executada quando uma tecla no reconhecvel for pressionada. O nome da funo especificado como uma expresso caractere sem parnteses ou argumentos. Note que o comportamento de VTACHOICE() afetado pela presena deste argumento. Consulte o texto abaixo para maiores informaes. <nItemInicial> a posio ocupada no vetor de <acItensMenu> pelo item que aparecer em destaque quando o menu for exibido pela primeira vez. Caso voc especifique um item de menu que no esteja disponvel, ou caso voc no use argumento algum, o item que aparecer em destaque ser o primeiro item selecionvel do vetor. <lNaoBranco> Se for verdadeiro a opes do menu ser montado conforme o tamanho da opo desconsiderando os espaos em branco direita e esquerda. Caso seja negativa ou omitida a opo do menu ser montado conforme a dimenso da tela do VTACHOICE definida em <nEsquerda> e <nDireita>. <lMsg> Contedo tem que ser NIL, parmetro reservado para implementao futura. <nLinhaJanela> o nmero da linha da janela na qual o item de menu inicial aparecer. Retorna VTACHOICE() retorna a posio numrica ocupada pelo item de menu selecionado no vetor de <acItensMenu>. Se o processo de seleo for interrompido, VTACHOICE() retorna zero. Funo de usurio: Da mesma forma que as demais funes de interface com o usurio, VTACHOICE() aceita uma funo de usurio. A funo de usurio especificada quando voc deseja aninhar invocaes da funo VTACHOICE() para criar menus hierrquicos ou redefinir teclas. Modos de VTACHOICE() 0-Inativo 1-Tentativa de passar incio da lista 2-Tentativa de passar final da lista 3-Normal 4-tens no selecionados

Aps a funo de usurio ter executado as operaes apropriadas ao modo VTACHOICE(), ela deve retornar um valor que solicite ao VTACHOICE() executar uma operao entre o seguinte conjunto de aes: Valores de Retorno da Funo de Controle de VTACHOICE() 0-Aborta seleo 1-Executa seleo 2-Continua VTACHOICE() 3-Vai para o prximo item cuja primeira letra for a tecla pressionada Exemplo acMenuItens := {Um,Dois, "-----", Tres} alSelectableItens := {.T., .T., .F., .T.} nPosition := VTACHOICE(0, 0, 7, 19, acMenuItens, alSelectableItens,TESTECTRL ) Function testectrl(modo,nElem,nElemW) If modo == 1 VtAlert('Top') Elseif Modo == 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

VTABrowse()
Tipo: TELNET VT100 Monta um browse com referencia a um array. Sintaxe VTABROWSE(<nTopo>, <nEsquerda>, <nBase>, <nDireita>, <aCab>, [<aItens>], [<aSize>], [<cFuncaoUsuario>],[<nItemInicial>]) --> nPosicao Parmetros <nTopo>, <nEsquerda> e <nBase>, <nDireita> so 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(). <aCab>, um vetor que contem os ttulos das colunas <aItens>, um vetor que contem os dados a serem mostrados <aSize> , um vetor que contem o tamanho de cada coluna <cFuncaoUsuario> o nome de uma funo definida pelo usurio que executada quando uma tecla no reconhecvel for pressionada. O nome da funo especificado como uma expresso caractere sem parnteses ou argumentos. Note que o comportamento de VTABROWSE() afetado pela presena deste argumento. Consulte o texto abaixo para maiores informaes.

<nItemInicial> a posio ocupada no vetor de < aItens > pelo item que aparecer em destaque quando o menu for exibido pela primeira vez. Caso voc especifique um item de menu que no esteja disponvel, ou caso voc no use argumento algum, o item que aparecer em destaque ser o primeiro item selecionvel do vetor. Retorna VTABROWSE() retorna a posio numrica ocupada pelo item de menu selecionado no vetor de <aItens>. Se o processo de seleo for interrompido, VTABROWSE() retorna zero. Funo de usurio: Utilizada da mesma forma que VTACHOICE. Modos de VTABROWSE() 0-Inativo 1-Tentativa de passar incio da lista 2-Tentativa de passar final da lista 3-Normal 4-Itens no selecionados Aps a funo de usurio ter executado as operaes apropriadas ao modo VTABROWSE() ela deve retornar um valor que solicite ao VTABROWSE() executar uma operaao entre o seguinte conjunto de aes: Valores de Retorno da Funo de Controle de VTABROWSE() 0-Aborta seleo 1-Executa seleo 2-Continua VTABROWSE() 3-Vai para o prximo item cuja primeira letra for a tecla pressionada Exemplo #INCLUDE APVT100.CH VTClear acab :={"Codigo","Cod ","Descricao ","UM"} aSize := {10,4,20,10} nPos := 12 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 "}} npos := VTaBrowse(0,0,7,15,aCab,aItens,aSize,'testectrl',nPos) . . .

Function testectrl(modo,nElem,nElemW) If modo == 1 VtAlert('Top') Elseif Modo == 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

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 Parmetros <nTopo>, <nEsquerda> e <nBase>, <nDireita> so 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 ttulos 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 funo definida pelo usurio que executada quando uma tecla no reconhecvel for pressionada. O nome da funo especificado como uma expresso caractere sem parnteses ou argumentos. Note que o comportamento de VTDBBROWSE () afetado pela presena deste argumento. Consulte o texto abaixo para maiores informaes. <cTop> string com a condio de validao de top <cBottom> string com a condio de validao de Bottom Retorna VTDBBROWSE () retorna o recno() Se o processo de seleo for interrompido, VTDBBROWSE () retorna zero. Funo de usurio: Utilizada da mesma forma que VTACHOICE e VTaBROWSE. Modos de VTDBBROWSE () 0-Inativo 1-Tentativa de passar incio da lista 2-Tentativa de passar final da lista 3-Normal 4-Itens no selecionados

Aps a funo de usurio ter executado as operaes apropriadas ao modo VTDBBROWSE () ela deve retornar um valor que solicite ao VTDBBROWSE () executar uma operao entre o seguinte conjunto de aes: Valores de Retorno da Funo de Controle de VTDBBROWSE () 0-Aborta seleo 1-Executa seleo 2-Continua VTDBBROWSE () 3-Vai para o prximo 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()

Exemplo aplicao Telnet VT100 #include "protheus.ch" #include "apvt100.ch" /* Programa exemplo para Radio Freqncia */ Function AICDV035(xLocal,xLocaliz) Local cEtiq := Space(TamSx3('CB0_CODET2')[1]) Local lWhen := .t. Private cLocal Private cLocaliz Private lLocaliz := (GetMV("MV_LOCALIZ") == "S") Private nLin:= 0 IF xLocal # ' ' .and. xLocal # NIL cLocal := xLocal cLocaliz := xLocaliz lWhen := .f. EndIf While .t. nLin:= 0 If lWhen cLocal := Space(2) cLocaliz := Space(20) EndIf VTClear()

@ 0,0 VTSay "Inventario" @ 1,0 VTSay "Almoxarifado:" @ 2,0 VTGet cLocal pict '@!' VALID aiv035Loc() when lwhen If lLocaliz @ 3,0 VTSay "Localizacao:" @ 4,0 VTGet cLocaliz VALID aiv035Locz() when lwhen nLin := 5 Else nLin := 3 EndIf VTRead If VTLastKey() == 27 // CASO O USUARIO PRECIONE ESC OU CLEAR Exit Endif If ! aiv035CriaCBA() .OR. ! aiv035CBB() If ! lWhen exit Else Loop EndIf EndIf @ nLin++,0 VTSay "Etiqueta " @ nLin++,0 VTGet cEtiq VALID aiv035CBC(cEtiq) VTRead IF VTLastKey() == 27 aiv035Fim() EndIf If ! lWhen exit EndIf EndDo Return //FUNCAO DE VALIDACAO DA LOCALIZACAO Static Function aiv035Loc() If Empty(cLocal) VTBeep(3) //EMITE UM BEEP NO R.F. VTAlert('Almoxarifado nao pode ser em branco!',"Aviso",.T.,2000) //MOSTRA A MENSAGEM VTKeyBoard(chr(20)) // LIMPA O GET ATIVO CTRL -T Return .F. Endif Return .T. . . . .

Você também pode gostar