PC Toledo

Código: Selecionar todos

***************************
Function NvDBEdit1(arg,arg1,arg2,arg3,arg4,arg5)
Local Save1

   #include "inkey.ch"
   #include "dbedit.ch"
   #include "setcurs.ch"
   #define     COLSEP     CHR(32)  + CHR(179) + CHR(32)
   #define     HEADSEP    CHR(196) + CHR(194) + CHR(196)
   #define     FOOTSEP    CHR(196) + CHR(194) + CHR(196)
*   #define     MYCOLORS   "B+/N,W+/G+,W+*/G,N,B+/N,N/BG,W+*/N,GR+/BG"
   #define     MYCOLORS   "N/BG,W+/B,GR+*/B,B/BG,N/BG,W+/B,GR+*/BG,GR+/BG,R+/B"

   LOCAL b, column, nKey, cScreen
   LOCAL nRecno, nCnt, nTemp
   LOCAL nCursor, cSearch
   LOCAL GetList := {}
   cScreen := SaveScreen()
   SET CONFIRM ON
   SETCURSOR(SC_NONE)
   SetColor("N/BG")
   @  2, 0 Clear To 7, 79
   @  3, 0 TO 23,79 COLOR "N/BG"
   barra_e("Novo Altera Busca eXclui Entrada Saida exTrato Opcoes etIqueta Muda ESC-retorna","N")
   b := TBrowseDB( arg+1, arg1+1, arg2-1, arg3-1)
   b:colorSpec := MYCOLORS
   b:colSep    := COLSEP
   b:headSep   := HEADSEP
   column := TBColumnNew( arg4[1], {|| ref} )
   b:addColumn( column )
   column := TBColumnNew( arg4[2], {|| SubStr(descricao,1,42)} )
   b:addColumn( column )
   column := TBColumnNew( arg4[3], {|| TransForm(venda, "@e 99999.99")} )
   b:addColumn( column )
   column:colorBlock := {|| IF(Date()-dt_atual <= 30, { 5, 2 }, IF(Date()-dt_atual > 30 .And. Date()-dt_atual <= 90, { 7, 3 }, IF(Date()-dt_atual > 90, { 4, 9},{5,2})))} // aki ele verifica a data de entrada da mercadoria
	If libera_senha[1,4] == 88
	   column := TBColumnNew( arg4[4], {|| TransForm(custo, "@e 99999.99")} )
   	b:addColumn( column )
	   column := TBColumnNew( arg4[5], {|| TransForm(margem, "@e 999.99 %")} )
   	b:addColumn( column )
	   column := TBColumnNew( arg4[6], {|| dt_atual} )
      b:addColumn( column )
	EndIf         b:refreshAll()
         ForceStable( b )
         if w3tecla == 27 .And. op1 != 1
            SetCursor(1)
            Set Confirm Off
            If op1 != 1
	            vbusca:= "F"
   	      EndIf
            Exit
         endif
         if w3tecla == 27 .And. op1 == 1   // se chamado pelo orcamento, entao retorna
            SetCursor(1)
            Set Confirm Off
            Exit
         endif
      EndIf
   End
   RestScreen(,,,,cScreen)
   RETURN (.t.)

********************************
STATIC FUNCTION TBMoveCursor( o, nKey )

   LOCAL nFound
   STATIC aKeys := ;
       { K_DOWN      , {|obj| obj:down()},;
         K_UP        , {|obj| obj:up()},;
         K_PGDN      , {|obj| obj:pageDown()},;
         K_PGUP      , {|obj| obj:pageUp()},;
         K_CTRL_PGUP , {|obj| obj:goTop()},;
         K_CTRL_PGDN , {|obj| obj:goBottom()},;
         K_RIGHT     , {|obj| obj:right()},;
         K_LEFT      , {|obj| obj:left()},;
         K_HOME      , {|obj| obj:home()},;
         K_END       , {|obj| obj:end()},;
         K_CTRL_LEFT , {|obj| obj:panLeft()},;
         K_CTRL_RIGHT, {|obj| obj:panRight()},;
         K_CTRL_HOME , {|obj| obj:panHome()},;
         K_CTRL_END  , {|obj| obj:panEnd()} }
   nFound := ASCAN( aKeys, nKey )
   IF (nFound != 0)
      EVAL( aKeys[++nFound], o )
   ENDIF
   RETURN (nFound != 0)

***************************
Function ForceStable( oObj )

   While !oObj:stabilize()
   End
   Return (.T.)

Código: Selecionar todos

FUNCTION TBR()
LOCAL OTBR,OTBC

USE ARQTESTE (o arquivo teste tem três campos)

OTBR:=TBROWSEDB(0,0,24,79)

OTBR:COLORSPEC:= "W+/B,N/W,R+/B,R/W," (Cores do tbrowse)
___________________1       2      3      4  
___________________1º PAR      2º PAR 

OTBR:HEADSEP  := "ÍÍÍ" (Divisor do cabeçalho)

(Coluna 1)
OTBC:=TBCOLUMNNEW(CAMPO1,FIELDWBLOCK(FIELD(1),SELECT())) 
OTBR:ADDCOLUMN(OTBC)

(Coluna 2)
OTBC:=TBCOLUMNNEW(CAMPO2,FIELDWBLOCK(FIELD(2),SELECT())) 
OTBR:ADDCOLUMN(OTBC)

(Coluna 3)
OTBC:=TBCOLUMNNEW(CAMPO3,FIELDWBLOCK(FIELD(3),SELECT())) 
(Define a cor do dado conforme situação)
OTBC:COLORBLOCK:={|X|IF(CAMPO1 == "X",{1,2},{3,4})} 

(Você poderia usar qualquer combinação, desde que a mesma esteja definida em :COLORSPEC - Atenção, tem limite!!) 

OTBR:ADDCOLUMN(OTBC)

DO WHILE ....
      (Estabilizar/exibir tbrowse e testar teclas)
ENDDO

RETURN