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
TOTALIZAR VALORES NO TBROWSE
Moderador: Moderadores
-
ClipperTools
- Usuário Nível 1
- Mensagens: 9
- Registrado em: 28 Set 2004 08:52
Tbrowse
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
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
Problema Resovido Amigo