PC Toledo

As colunas nao aparecem os dados, ficam vazias, o
grid aparece, mais os dados ficam invisiveis
o que esta errado ?

#Include "INKEY.CH"
ANNOUNCE RDDSYS
REQUEST DBFCDX
RDDSETDEFAUT("DBFCDX")
************************************
CLEAR
MEUBROWSE()
************************************
Function MEUBROWSE
SELE 3
Use VTARIFA
Go TOP
Do While .T.
oTab:=TbrowseDb(03,01,21,78)
oTab:ColSep := " ³ "
oTab:HeadSep := "ÍËÍ"
oTab:FootSep := "ÍÊÍ"
Coluna1 := TbColumnNew('TARIFA','TARIFA','9999')
Coluna3 := TbColumnNew('SOLTEIRO','V_SOLTE','@R 99,999.99')
Coluna2 := TbColumnNew('DUPLO','V_DUPLO','@R 99,999.99')
Coluna4 := TbColumnNew('TRIPLO','V_TRIPL','@R 99,999.99')
Coluna5 := TbColumnNew('C_EXTRA','V_EXTRA','@R 99,999.99')
Coluna6 := TbColumnNew('CRIANCA','V_CRIAN','@R 99,999.99')
oTab:AddColumn(Coluna1)
oTab:AddColumn(Coluna2)
oTab:AddColumn(Coluna3)
oTab:AddColumn(Coluna4)
oTab:AddColumn(Coluna5)
oTab:AddColumn(Coluna6)
DO WHILE .T.
For i:= 1 to 6
oTab:GetColumn(I):COLORBLOCK :=(TARIFA,V_SOLTE,V_DUPLO,V_TRIPL,V_EXTRA,V_CRIAN)
Next
oTab:Refreshall()
Do While ! oTab:Stabilize()
Enddo
Enddo
ENDDO

Tente assim:

Código: Selecionar todos


Local bCpfCgc:= {|| iif(emp->ididentifi=="J",transf(emp->IDCNPJEMPR,"99.999.999/9999-99"),transf(emp->IDCNPJEMPR,"999.999.999-99"))}
Local bTipo  := {|| iif(emp->ididentifi=="J","J", "F")}
Local oTbc1  := TBColumnNew( hb_ansitooem( "Codigo"     ), {      || emp->IDAPELEMPR})
Local oTbc2  := TBColumnNew( hb_ansitooem( "Nome/Razão" ), {      || emp->IDRAZAOEMP})
Local oTbc3  := TBColumnNew( hb_ansitooem( "Cpf/npj"    ), eval({ || bCpfCgc        }))
Local oTbc4  := TBColumnNew( hb_ansitooem( "Tipo"        ), eval({ || bTipo          }))


Use     (caminho + "empresas.dbf") Alias emp Via "DbfCdx" Shared New
If !file(caminho + "empresas.cdx")
         index on idapelempr tag 1 to  (caminho)  +  "empresas.cdx"
         index on idcnpjempr tag 2 to  (caminho)  +  "empresas.cdx"
         index on idrazaoemp tag 3 to  (caminho)  +  "empresas.cdx"
Endif

DbSelectarea('emp')
Set index to (caminho) + "empresas.cdx"
Set order to 1

   
oTbr:colSep := " ³ "
oTbr:headSep := "Ä"
oTbr:colorSpec := "N*/W,W+/BG,R*/W,W+/R"
oTbr:addColumn( oTbc1 )
oTbr:addColumn( oTbc2 )
oTbr:addColumn( oTbc3 )
oTbr:addColumn( oTbc4 )
oTbr:getcolumn(1):width := 6
oTbr:getcolumn(2):width := 27
oTbr:getcolumn(3):width := 19
oTbr:getcolumn(4):width := 04

PC Toledo

PORQUE ? Nao Funciona

PORQUE ? Nao Funciona