Página 1 de 1

TOTALIZAR VALORES NO TBROWSE

Enviado: 28 Set 2004 08:00
por luizgh
Amigos

Gostaria que alguem me ajudasse a totalizar uma coluna contendo valores, no TBROWSE, ou seja, a coluna "SALARIO" ser totalizada no rodapé.
Grato
Luiz

Tbrowse

Enviado: 28 Set 2004 09:07
por ClipperTools
Bom dia,

Para totalizar valores de uma coluna usando o Tbrowse, faça da seguinte forma :

XXX
XXX
XXX

lFlag := .T.

While .T.

If lFlag
While .Not. Eof()
(aqui vc usa alguma variável para totalizar o campo)
End
lFlag := .F.
Endif

continua normalmente, fazendo o loop do stabilize e as checagens
de teclas normais, o importante é fazer essa rotina sempre quando
se começa o While do Tbrowse, e claro, usando uma variável para
controlar a operação de varrer toda a tabela para saber qual o total
do campo que vc quer ter o total, senão ele faz isso sempre, o
que não é nem um pouco recomendável.
a variável lFlag, sempre que houver uma inclusão, alteração ou
exclusão, deve ser .T., para que quando o controle da aplicação
voltar ao loop do Tbrowse, entenda que tem que refazer o total do
campo referido, note que após isso, lFlag tem que ser .F.

Abraços

ClipperTools

Enviado: 11 Out 2004 08:46
por luizgh
:D Problema Resovido Amigo

Grato
Luiz