DBEDIT() MOSTRAR DETERMINADO CAMPO C/ TAL COR (SE CONDIÇÃO)

[Arnaldo]

Olá pessoal, preciso novamente de uma força dos amigos, é o seguinte:
A rotina abaixo se refere a um banco de dados de contas a pagar e receber. Gostaria, quando o usuário estivesse navegando com as setas; se o conteúdo do campo VENC (VETOR1[4]) for menor q a data <date(), ele ficasse vermelho.
Também gostaria de um exemplo onde o registro todo ficasse em vermelho atendendo a mesma condição.

Na certeza da presteza de todos, como já fui prontamente atendido anteriormente, fico no aguardo...
Agradeço antecipadamente
Abraços

Arnaldo

// DBFLUXO
CLS

SET DATE BRITISH
SET WRAP ON
SET SCOREBOARD OFF

@ 00,00 CLEAR TO 24,78

@ 01,00 SAY REPL("-",80)

SELECT FLUXO
SET INDEX TO NUME

VC=FCOUNT()
DECLARE VETOR1[VC],VETOR2[VC],VETOR3[VC]

VETOR1[1]="NUME"
VETOR1[2]="DESC"
VETOR1[3]="VALO"
VETOR1[4]="VENC"

VETOR2[1]=[@!]
VETOR2[2]=[@!]
VETOR2[3]=[@RE 99,999.99]
VETOR2[4]=[99/99/9999]

VETOR3[1]="Numero"
VETOR3[2]="Descricao "
VETOR3[3]=" Valor"
VETOR3[4]="Vencimento"

@ 02,00 SAY "[ESC]Sair, [F2]Numero"

@ 06,00 TO 20,79 DOUBLE COLOR "G/N"
DBEDIT(07,01,19,78,VETOR1,"TITULOS",VETOR2,VETOR3,.T.,.T.)
RETURN
******************************************
FUNCTION TITULOS
PARAMETERS MODO
VREG=RECNO()
SET CURSOR OFF

IF MODO < 4
RETURN(1)
ELSEIF LASTKEY() == 27
CLS
QUIT
ENDIF
SET CURSOR ON
STORE SPACE(7) TO VNUME
IF LASTKEY() = -3 @ 11,11 SAY "Num: " GET VNUME PICT [@K!]
READ
IF LASTKEY() == 27 .OR. EMPTY(VNUME)
GO VREG
RETURN(2)
ENDIF
SET ORDER TO 1
SEEK VNUME
IF !FOUND()
@ 24,20 SAY "NAO encontrado"
GO VREG
RETURN(2)
ENDIF
ENDIF
RETURN(2)
**********************************

[josenilson]

Eu desconheco a possibilidade de fazer isso com a função DbEdit


O que vc pode fazer é usar a classe TBrowse do Clipper. Com ela vc poderá fazer utilizar essas condições para mudar as cores das linhas e colunas da tabela.

No próprio clipper, vc encontra exemplos de como fazer isso,

se o seu clipper estiver instalado na pasta C:\CLIPPPER5, então consulte os exemplos na pasta c:\clipper5\source\tbrow. Lá contem diversos exemplos de como utilizar esta classe, inclusive, tem também exemplos de como manipular cores no browse.

:xau