Página 1 de 1
SOMAR COLUNA DE VALORESB NO TBROWSE
Enviado: 27 Jul 2004 11:15
por mvbrandao
OLA PESSOAL,
GOSTARIA DE UMA AJUDA, COMO SOMAR UMA COLUNA NUMERICA NO TBROWSE. A COLUNA ESTA FORMATADA COM "@E 99,999.99".
GRATO
Enviado: 28 Jul 2004 15:11
por mvbrandao
aguradando.....!
Enviado: 28 Jul 2004 16:02
por 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...
Tbrowse
Enviado: 28 Jul 2004 16:15
por 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
Enviado: 28 Jul 2004 17:20
por 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.