Não sei porque ele esta dando esse erro:
Error BASE/1004 No exported method: FORCESTABL
Segue abaixo o codigo fonte:
Código: Selecionar todos
*------------------------------------------
* id : tbw06.prg
*------------------------------------------
#include "inkey.ch"
#define NUM_COLS 5
LOCAL oColumn[NUM_COLS], nCnt, nKey
SELECT 1
USE NETTAB ALIAS TAB SHARED NEW && Abre o arquivo NETTAB
IF !(FILE("INDUSU.NTX") .AND. FILE("INDCOMP.NTX"))
INDEX ON USUARIO TO INDUSU
INDEX ON COMPUTADOR+USUARIO TO INDCOMP
ENDIF
SET INDEX TO INDUSU, INDCOMP && Abre o indice do arquivo
GO TOP
SET KEY -1 TO usuario // F2 - Constroi lista de todos os usuarios incluindo vazios.
SET KEY -2 TO computador // F3 - Constroi lista de todos os computadores incluindo vazios.
SET KEY -4 TO copia // F5 - Faz uma cópia para outro Nome de Usuário(somente registro com Computador + usuário especificado.
SET KEY 22 TO insira // INS - Insere um novo registro.
SET KEY 7 TO deleta // DEL - Deleta registro corrente após confirmação.
CLEAR
SET DATE BRITISH
SET CENTURY ON
SET SCOREBOARD OFF
nKey := 0
J_ANELA(0,0,24,79,"R+/BG","R+/BG","W/BG","[F2] Usu rio [F3] Computador [ESC] Termino ")
oMybrowser := TBrowseDB(02,01,23,78)
oColumn[1] := TBColumnNew("Usu rio",{||tab->usuario})
oColumn[2] := TBColumnNew("Computador",{||tab->computador})
oColumn[3] := TBColumnNew("Comando",{||tab->comando})
oColumn[4] := TBColumnNew("id",{||tab->id})
oColumn[5] := TBColumnNew("Ativo",{||tab->ativo})
FOR nCnt := 1 TO LEN(oColumn)
oMybrowser:addColumn(oColumn[nCnt])
* oMybrowser:getcolumn(nCnt):colorblock=&("{||IF((MONTH(FATF0857->DAT_NF))= 2,{1,14},{5,4})}")
NEXT
oMybrowser:headSep := CHR(196)
oMybrowser:colSep := CHR(179)
oMybrowser:colorspec := "N/BG,R+/BG,G/BG,W+/W,G+/BG"
DO WHILE .T.
DO CASE
CASE LASTKEY() = 43
KEYBOARD(CHR(64))
RETURN
CASE LASTKEY() = 45
KEYBOARD(CHR(64))
RETURN
CASE LASTKEY() = -1
usuario()
CASE LASTKEY() = -2
computador()
OTHERWISE
IF LASTKEY() = 27
CLOSE ALL
CLEAR
RETURN
ENDIF
ENDCASE
oMybrowser:colorRect({oMybrowser:rowPos, 1, oMybrowser:rowPos, oMybrowser:colCount},{1,1})
setcursor(0)
DO WHILE !oMybrowser:stabilize()
nkey := INKEY()
IF nkey != 0 && Pressionada uma tecla durante a estabilizacao
EXIT
ENDIF
ENDDO
IF oMyBrowser:Stable && Checa se o objeto esta estavel
IF (oMyBrowser:hittop .OR. oMyBrowser:hitbottom) //tentou-se bof() ou eof()
tone(87,1) // faz barulho
tone(40,4) // faz barulho
ENDIF
oMybrowser:refreshAll()
oMybrowser:ForceStable()
oMybrowser:colorRect({oMybrowser:rowPos, 1, oMybrowser:rowPos, oMybrowser:colCount},{2,2})
* colorwin(05,02,15,77,"w+/bg+")
* colorwin(ROW(),03,ROW(),76,"n/w")
nkey := INKEY(0) // Estabilizou entro em espera, aguardando uma tecla
ENDIF
DO CASE
CASE nkey == 5 // K_UP
oMyBrowser:up()
CASE nkey == 24 // K_DOWN
oMyBrowser:down()
CASE nkey == 19 // K_LEFT
oMyBrowser:left()
CASE nkey == 4 // K_RIGHT
oMyBrowser:right()
CASE nkey == 1 // K_HOME
oMyBrowser:home()
CASE nkey == 6 // K_END
oMyBrowser:end()
CASE nkey == 18 // K_PGUP
oMyBrowser:pageUp()
CASE nkey == 3 // K_PGDN
oMyBrowser:pagedown()
CASE nkey == 31 // K_CRTL_PGUP
oMyBrowser:goTop()
CASE nkey == 30 // K_CTRL_PGDN
oMyBrowser:goBottom()
CASE nkey == 29 // K_CTRL_HOME
oMyBrowser:panHome()
CASE nkey == 23 // K_CTRL_END
oMyBrowser:panEnd()
CASE nkey == 26 // K_CRTL_LEFT
oMyBrowser:panLeft()
CASE nkey == 2 // K_CRTL_RIGHT
oMyBrowser:panRight()
CASE nkey == 27 // K_ESC
EXIT
ENDCASE
ENDDO
CLEAR
CLOSE ALL
CLEAR
QUIT
******************************
FUNCTION J_ANELA
PARAMETERS L1,C1,L2,C2,C_OR1,C_OR2,C_OR3,T_ITULO
CORR=SETCOLOR()
SET COLOR TO &C_OR1
@ L1,C1 CLEAR TO L2,C2
@ L1,C1 SAY 'Ú'+REPLICATE(CHR(196),C2-C1-1)+'¿'
SET COLOR TO &C_OR3
@ L1,(80-LEN(T_ITULO))/2 SAY T_ITULO
FOR A=L1+1 TO L2-1
SET COLOR TO &C_OR1
@ A,C1 SAY '³'
SET COLOR TO &C_OR2
@ A,C2 SAY '³'
NEXT A
SET COLOR TO &C_OR2
@ L2,C1 SAY 'À'+REPLICATE(CHR(196),C2-C1-1)+'Ù'
SETCOLOR(CORR)
RETURN
FUNCTION USUARIO
RETURN NIL
FUNCTION COMPUTADOR
RETURN NIL
FUNCTION COPIA
RETURN NIL
FUNCTION INSIRA
RETURN NIL
FUNCTION DELETA
RETURN NIL
*--------------------------------------------------
* FIM
*--------------------------------------------------Fico grato a quem puder me auxiliar.
Jeferson.
