Pegar valor de uma coluna do TBrowse

[asimoes]

A dica é para pegar o valor de uma coluna no TBrowse:

Código: Selecionar todos

With Object oBr
   cCodPessoa := Eval(:getColumn(1):Cargo[2])
End 

[JoséQuintas]

Tem certeza?
Que eu me lembre, cargo é coisa personalizada/pra usuário

Em harbour\src\rtl\tbrowse.prg, o método AddColumn() contém isto: AAdd( ::columns, oCol )

Em harbour\src\rtl\tbcolumn.prg, tem este método METHOD block( bBlock ) SETGET /* Code block to retrieve data for the column */

Me parece que seria isto:

Código: Selecionar todos

Eval( oBrowse:Columns[ nCont ]:Block )

[asimoes]

Cargo pode ser usado para este propósito bem como block.

Código: Selecionar todos

oColuna := TBColumnNew( "Mˆs/Ano", {|| SubStr(APA01->AnoMes, 3, 2)+APA01->NovoAno})
oColuna:picture := "@R 99/9999"
oColuna:Cargo := {|| SubStr(APA01->AnoMes, 3, 2)+APA01->NovoAno}
oTBrowse:addColumn( oColuna )

cVar := Eval( oTBrowse:getColumn(1):Cargo)

[asimoes]

Quintas,

No seu exemplo dá erro, porque o método Columns é protegido.

[JoséQuintas]

Tem este outro:

Código: Selecionar todos

   METHOD getColumn( nColumn )                  // gets a specific TBColumn object

Código: Selecionar todos

? Eval( oTBrowse:GetColumn( nCont ):Block )

[wmanesco]

Para utilizar o cargo então teria que primeiro setar o valor a ele?

[JoséQuintas]

Pelo exemplo que o ASimões colocou, sim.
O :Cargo é um campo livre, disponível pro programador usar para o que quiser.
No exemplo dele, usou como "comunicação" entre o tbrowse e o programa, mas a rotina de tbrowse terá que gravar essa informação em :Cargo, senão nada feito.

Se não me engano, o GET tem algo parecido, que fica na GetList.