Código: Selecionar todos
#include "inkey.ch"
clear
SET DATE BRITISH
SET CENTURY ON
SET SCOREBOARD OFF
/******************************************
* Voce tem que criar um vetor com a seguinte
* estrutura:
* {{"Nome_do_Campo","Picture","Titulo_da_Coluna"}}
* conforme exemplo abaixo.
******************************************/
PRIV aCampos:={{"codigo","9999","Codigo"},;
{"nome","@!","Nome do Cliente"},;
{"rg","@!","RG"},;
{"cpf","@R 999.999.999-99","CPF"},;
{"cep","@R 99.999-999","Cep"},;
{"cidade","@!","Cidade"},;
{"estado","@!","UF"},;
{"endereco","@!","Endereco"},;
{"telefone","@R (99)9999-9999","Telefone"},;
{"email",REPL("X",30),"E-mail"}}
USE CLIENTES ALIAS CLIENTES NEW //Abrir o arquivo DBF
J_ANELA(2,3,20,76,"B+/BG","N/BG","W/BG"," (CADASTRO DE CLIENTES) ")
BRW_ARQ(2,3,20,76,aCampos)
retu
PROC BRW_ARQ
PARAMETERS brw_ls,brw_cs,brw_li,brw_ci,brw_campos
brw:=TBrowseNew(brw_ls+1,brw_cs+1,brw_li-1,brw_ci-1)
brw:colorspec := "B/BG,R/BG,G/BG,W+/W,N/BG"
brw:headsep:=chr(205)+chr(209)+chr(205)
brw:colsep:=" "+chr(179)+" "
brw:gotopblock({|| dbGoTop()})
brw:gobottomblock({|| dbGoBottom()})
brw:skipblock({|_1| MOV_PTR(_1)})
FOR i_=1 TO LEN(brw_campos)
cp_titu:=brw_campos[i_,3]
cp_masc:=brw_campos[i_,2]
cp_:=brw_campos[i_,1]
brw:addcolumn(tbcolumnnew(cp_titu,&("{||TRAN("+cp_+",["+cp_masc+"])}")))
brw:getcolumn(i_):width := LEN(TRAN(&cp_.,cp_masc))
NEXT
volta_db=.t.
DO WHILE volta_db
SETCOLOR("W+/B")
SET CURSO OFF
DO WHILE !brw:stabilize() .AND. NEXTKEY()=0
ENDD
READINSERT(.f.)
x_ = COL() ; y_ = ROW()
tecl_p=INKEY(0)
carac_ = UPPER(CHR(tecl_p))
SET CURSO ON
brw:dehilite()
DO CASE
CASE tecl_p = K_ESC
volta_db=.f.
CASE tecl_p = K_UP
brw:up()
CASE tecl_p = K_DOWN
brw:down()
CASE tecl_p = K_RIGHT
brw:right()
CASE tecl_p = K_LEFT
brw:left()
CASE tecl_p = K_HOME
brw:home()
CASE tecl_p = K_END
brw:end()
CASE tecl_p = K_PGUP
brw:pageup()
CASE tecl_p = K_PGDN
brw:pagedown()
CASE tecl_p = K_CTRL_PGDN
brw:gobottom()
CASE tecl_p = K_CTRL_PGUP
brw:gotop()
CASE tecl_p = K_CTRL_END
brw:panend()
CASE tecl_p = K_CTRL_HOME
brw:panhome()
CASE tecl_p = K_CTRL_LEFT
brw:panleft()
CASE tecl_p = K_CTRL_RIGHT
brw:panright()
ENDC
ENDD
SET CURSO ON
RETU
FUNC MOV_PTR(a_pular)
LOCAL ja_pulado := 0, chv_
IF a_pular = 0
SKIP 0
ELSE
DO WHILE !EOF() .AND. !BOF() .AND.;
a_pular != ja_pulado
IF a_pular > 0
SKIP
ja_pulado++
ELSE
SKIP -1
ja_pulado--
ENDI
ENDD
IF EOF() .OR. BOF()
IF a_pular > 0
GO BOTTOM
ja_pulado--
ELSE
GO TOP
ja_pulado++
ENDI
ENDI
ENDI
RETU ja_pulado
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
Código: Selecionar todos
oTab:addColumn( oCol )
oTAB:GETCOLUMN(I):COLORBLOCK:={ || IF( CR->MARCADO,{6,1},{1,2})}
IF I=4
COLUNA=oTAB:GETCOLUMN(I)
COLUNA:COLORBLOCK:={ || IF( DIASV()>1 ,{8,1},{1,2})}
ENDIFCódigo: Selecionar todos
oTab:addColumn( oCol )
oTAB:GETCOLUMN(I):COLORBLOCK:={ || IF( CR->MARCADO,{6,1},{1,2})}
IF I=4
COLUNA=oTAB:GETCOLUMN(I)
COLUNA:COLORBLOCK:={||IF(DIASV()>1,IF(CR->MARCADO, {6,1},{8,1}),IF(CR->MARCADO,{6,1},{1,2}))}
ENDIFCódigo: Selecionar todos
// quantidade de colunas a congelar (travar), contando da esquerda para a direita
Local nToColsToFreeze := 2
oTbrowse:freeze := nToColsToFreeze Código: Selecionar todos
brw:freeze := nColuna