Estou "fuçando" um pouco na ferramenta WVWTOOLS e me interessei bastante. Porém, fiz uma rotina simples usando TABCONTROL, para fazer várias páginas de GETS em apenas uma janela.
Quando alterno entre as páginas da TABCONTROL usando o mouse, não tem problemas. Agora, se utilizo as setas do teclado, surge a mensagem: "Error BASE/1003 Variável não existe: GE_NEXTTAB".
Pesquisei a GE_NEXTTAB, e ela está declarada no arquivo GETEXIT.CH, que inclusive já está declarada no exemplo. Coisa "do além" mesmo !!! rssssss...
Alguém já teve esse problema e conseguiu resolver
Vou postar os fontes para verificação.
Código: Selecionar todos
#include "button.ch"
#include "winuser.ch"
#include "wvwdefs.ch"
#include "inkey.ch"
#include "getexit.ch"
#include "wvwtools.ch"
function TestTAB
local tab2
local owindow2
LOCAL LL,CC, nTELA, BOTOES, ACOR, OWINDOW
Local bb1,bb2,bb3,bb4,bb5,bb6,bb7,bb8, bb9,A
bb1 := bb2 := bb3 := bb4 := 0
bb5 := bb6 := bb7 := bb8 := SPACE(80)
bb9 := ctod(" / / ")
owindow2:=WNDINIT(00,00,24,82,"TESTE")
DO WHILE (.T.)
DEFINE TABCONTROL tab2 FROM 9,3 TO 22,79
DEFINE PAGE BasicInfo CAPTION "Informações Básicas"
@ 1,01 SAY "Código ........:" GET bb1 PICTURE "99"
@ 3,01 SAY "Nome do Cliente:" GET bb5 PICTURE "@!S50"
@ 4,01 SAY "Endereço ......:" GET bb6 PICTURE "@!S30"
@ 5,01 SAY "Cidade ........:" GET bb7 PICTURE "@!S30"
@ 7,01 SAY "Data Nascimento:" GET bb9
END PAGE
DEFINE PAGE Detalhes CAPTION "Detalhes do Cliente"
@ 2,01 SAY "Idade .........:" GET bb2 PICTURE "99"
@ 4,01 SAY "Filhos ........:" GET bb3 PICTURE "99"
@ 5,01 SAY "Salário .......:" GET bb4 PICTURE "@e 999,999.99"
END PAGE
END TABCONTROL
READ
IF LASTKEY() = K_ESC
EXIT
ENDIF
ENDDO
WNDCLOSE()
RETURN NIL
Código: Selecionar todos
------------------------- Internal Error Handling Information --------------------------
Subsystem Call ....: BASE
System Code .......: 1003
Default Status ....: .F.
Description .......: Vari vel nÆo existe
Operation .........: GE_NEXTTAB
Arguments .........:
Involved File .....:
Dos Error Code ....: 0
Trace Through:
----------------
WVW_GETLIST:TABAPPLYK : 0 in Module: tgetlist.prg
WVW_GETLIST:TABREADER : 0 in Module: tgetlist.prg
MYHBTABREADER : 0 in Module: getsys.prg
(b)WVW_CREATETABCONTR : 0 in Module: ttabpage.prg
WVW_READMODAL : 0 in Module: getsys.prg
TESTTAB : 656 in Module: MSTEST.PRG
(b)MAIN : 52 in Module: MSTEST.PRG
WVW_TAPPLICATION:EXEC : 0 in Module: twindows.prg
WVW_TAPPLICATION:APPL : 0 in Module: twindows.prg
WVW_TAPPLICATION:ACTI : 0 in Module: twindows.prg
(b)WVW_TAPPLICATION:W : 0 in Module: tappl.prg
WVW_TAPPLICATION:RUN : 0 in Module:
MAIN : 159 in Module: MSTEST.PRG
################################### Video Screen Dump ###################################
+------------------------------------------------------------------------------------------+
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|Error BASE/1003 Vari vel nÆo existe: GE_NEXTTAB |
| |
|Error at ...: |
|Called from : |
|Called from : |
|Called from : |
|Called from : WVW_READMODAL(0) in Module: getsys.prg |
|Called from : TESTTAB(656) in Module: MSTEST.PRG |
|Called from : (b)MAIN(52) in Module: MSTEST.PRG |
|Called from : WVW_TAPPLICATION:EXECUTEMENU(0) in Module: twindows.prg |
|Called from : WVW_TAPPLICATION:APPLYKEY(0) in Module: twindows.prg |
|Called from : WVW_TAPPLICATION:ACTIVATE(0) in Module: twindows.prg |
|Called from : (b)WVW_TAPPLICATION:WVW_TAPPLICATION(0) in Module: tappl.prg |
|Called from : WVW_TAPPLICATION:RUN(0) in Module: |
|Called from : MAIN(159) in Module: MSTEST.PRG |
+------------------------------------------------------------------------------------------+
OBS.: No próprio PRG exemplo que vem junto com a WVWTOOLS acontece o mesmo erro. Será que fui sorteado com um BUG
?
