PC Toledo

Código: Selecionar todos

//-------- Determinacao das Colunas do tBrowse-------
   Private aBrowse := {}, oBrowse
   oBrowse := tBrowseDb(07, 01, 20, 75)  && Cria Obj tBrowse
   oColuna := tbColumnNew(HB_ANSITOOEM('Código'),{|| GRU->CODGRU })
   oBrowse:addColumn(oColuna)
   oColuna := tbColumnNew(HB_ANSITOOEM('Descrição'),{|| GRU->DESGRU })
   oBrowse:addColumn(oColuna)
   oColuna := tbColumnNew('Quantidade',{|| trans(GRU->QTEGRU,"9999999") })
   oBrowse:addColumn(oColuna)
   oBrowse:HeadSep := chr(196)
   oBrowse:ColSep  := chr(179)
   oBrowse:Freeze  := 1
   oBrowse:RefreshAll()
//----------------------------------------------------
Windows(02, 05, 04, 70,'Procura')
Tela(06, 00, 21, 76,"Pesquisa de Grupos",x_cortteld,"w+/w")

DO WHILE .t.

   Sele GRU
   SetCursor(0)
   oBrowse:ForceStable() && Estabilizacao do Browse
   nTecla := Inkey(0)
   IF nTecla == K_ESC
        ................. linhas de codigo
   ELSE
      Brow(oBrowse,ntecla) && funcoes do browse de movimentacao etc
   ENDIF
   oBrowse:refreshAll()
enddo

Código: Selecionar todos

Private aBrowse := {}, oBrowse
   oBrowse := tBrowseDb(07, 01, 20, 75)  && Cria Obj tBrowse
   oColuna := tbColumnNew(HB_ANSITOOEM('Código'),{|| GRU->CODGRU })
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) })  &&<----------------------
   oBrowse:addColumn(oColuna)                 &&"N/W,R+/B,N/N,N/N,R+/W"
   oColuna := tbColumnNew(HB_ANSITOOEM('Descrição'),{|| GRU->DESGRU })
   oBrowse:addColumn(oColuna)
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) })  &&<----------------------
   oColuna := tbColumnNew('Quantidade',{|| trans(GRU->QTEGRU,"9999999") })
   oBrowse:addColumn(oColuna)
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) }) &&<----------------------
   oBrowse:HeadSep := chr(196)
   oBrowse:ColSep  := chr(179)
   oBrowse:Freeze  := 1
   oBrowse:colorSpec := "00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07" &&<----------------------
   oBrowse:RefreshAll()