10 Fev 2016 15:44
SELE 900
// go top
REDEFINE XBROWSE ::xBrw ID 4004 OF ::oChild;
COLSIZES 82,85,85,80,80,55,45,45,78;
FIELDS 900->FERCOMP, 900->FERIAS, 900->FERIAS1, 900->FERGOZO, 900->FERGOZO1, IF(900->TPFER = "2", "Coletiva",IF (900->TPFER = "3","Perda", "Normal")),900->QTDDIAS,900->SALDOFER,900->NVPERIOD;
HEADERS "Competência","Aquisicão Inicial", "Aquisição Final", "Gozo Inicial", "Gozo Final", "Tipo","Qtd Fer", "Saldo","Novo Periodo";
ON DBLCLICK ::IncOuAlt(.F.,.F.)
::xBrw:aCols[ 6 ]:bClrStd := {|| { iif( 900->TPFER = "3", CLR_HRED, CLR_BLACK), iif( 900->(recno()) % 2 = 0, RGB(228,245,250), CLR_WHITE) } }
10 Fev 2016 16:10
//Array
...bClrStd := {|| {CLR_BLACK,ZebraBrw(oBrw:nArrayAt) } }
//Arquivo
...bClrStd := {|| {CLR_BLACK,ZebraBrw(,1) } }
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Function ZebraBrw(xPOSarq,tipo)
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
// se tipo NIL o Browse é feito com Vetor/Array
IF tipo == NIL
IF (xPOSarq / 2) == Int(xPOSarq / 2)
Return nRGB(255,255,240)
ELSE
Return nRGB(243,253,255)
ENDIF
else
SELECT( xPOSarq )
IF (OrdKeyNo()%2)==0
Return nRGB(255,255,240)
ELSE
Return nRGB(243,253,255)
ENDIF
ENDIF
RETURN nRGB(255,255,240)
10 Fev 2016 16:12
Definir as cores a seu gosto
#Define CLR_LGREEN nRGB( 190, 215, 190 )
#Define CLR_LGRAY nRGB( 230, 230, 230 )
Veja se voce está usando array
oBrw:bClrStd := { ||{ CLR_BLACK, IF( (oBrw:nArrayAt) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } }
oBrw:bClrSel:={|| {CLR_WHITE,nRGB(0,100,200)}}
oBrw:bClrSelFocus:={|| {CLR_WHITE,nRGB(0,100,200)}}
Se está usando arquivos
oBrw:bClrStd := { ||{ CLR_BLACK, IF( (Alias())->( OrdKeyNo() ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } }
oBrw:bClrSel:={|| {CLR_WHITE,nRGB(0,100,200)}}
oBrw:bClrSelFocus:={|| {CLR_WHITE,nRGB(0,100,200)}}
Falou....
10 Fev 2016 16:16
:bClrStd := { || { CLR_BLACK, If( oBrowse:KeyNo % 2 == 1, CLR_WHITE, RGB( 249, 249, 249 ) ) } }
11 Fev 2016 08:44
11 Fev 2016 08:51