SOMAR COLUNA DE VALORESB NO TBROWSE

[mvbrandao]

OLA PESSOAL,

GOSTARIA DE UMA AJUDA, COMO SOMAR UMA COLUNA NUMERICA NO TBROWSE. A COLUNA ESTA FORMATADA COM "@E 99,999.99".

GRATO

[mvbrandao]

aguradando.....!

[Dudu_XBase]

...bom eu rodo um while antes...somo q quero depois do display..pq na epoca...non havia achado uma funçao pra somar tudo...como o tbrowse eh filtrado...não tenho perda de performance....rodo o while antes...depois mostro....rs...

[gransoft]

ARAGUARI-MG, 28 de julho de 2004.

Prezado mvbrandao,

No Tbrowse, cada linha é um registro, e cada coluna, um campo.

Somar uma coluna cujo campo é numérico, significa percorrer o arquivo do primeiro ao último registro, acumulando o valor em uma variável e posteriormente, apresentando-a. Como você pretende apresentar esse Total? Em uma nova linha? Em uma nova coluna?

Exemplo:
Efetuando soma em duas colunas e apresentando o resultado em outra.

Código: Selecionar todos

objCol := TBColumnNew()
objCol:heading := "Total de Impostos"
objCol:block := { || ARQ->TOTICMS + ARQ->TOTIPI }
objCol:addColumn( objCol )

Observe que o exemplo acima utiliza um CodeBlock para somar dois campos no mesmo registro, ou seja, mesma linha.

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[mvbrandao]

Valeu.... Já passei a intender mais......

Janis,

Para somar uma coluna e fornecer o total abaixo da coluna em uma váriavel eu fiz +- assim:

Código: Selecionar todos

FUNCTION SOMA(oTBR)
LOCAL TOTALLIQ:=0
  DBEVAL ( { || TOTALLIQ:= TOTALLIQ + VALORLIQUI },,,,,,.F. )
  oTBR:CONFIGURE()      // SOLICITA ATUALIZACAO TBROWSE
  oTBR:REFRESHCURRENT() // SOLICITA ATUALIZACAO TBROWSE
  oTBR:FORCESTABLE()    // ATUALIZA TBROWSE 
  @ 20,30 SAY "TOTAL LIQUIDO: "
  @ 20,50 SAY TRANSFORM(TOTALLIQ, "@E 99,999.99") COLOR "GR*+/N"

RETURN

E a cada função (alterar, excluir e inserir) e a chamo para atualizar o total.

Poderia melhorar o esta bom.

Grato, pois estou começando e apanhando um pouco.