PC Toledo

Pessoal,

Deve ser coisa boba, mas como resolvo isso ?

Tenho uma rotina que utilizei um contador de página com a instrução abaixo:

THREAD STATIC nPag := 1
...
nPag ++

Acontece que se a rotina for executado novamente o contador de página não inicia com 1, como faço para reiniciar o contador da thread static?

Variável STATIC somente eh criada se ainda não existir?

Se já existir ele assume o último valor nenao? Por isso q quando executado novamente ele não inicia em 1

Pq ao final vc não 'zera' a variável novamente?

THREAD STATIC nPag := 1
...
nPag ++
...
...
...
nPag := 1

Janio,

Fiz uma solução meia boca até achar algo mais funcional

ContadorPagina( .T. ) // Força inicio do contador
...
F_CABEC()

Se complicou... algo está errado.
Pra mim, parece um mau uso de recursos.

À primeira vista é um único relatório, criar variável por thread pra um único relatório... desperdício e complicação.
O aplicativo vai reservar uma parte da memória pra que essa variável esteja sempre disponível, e lembrar do valor anterior.
Se cada vez que emite o relatório começa na página 1, precisa lembrar pra que?

Se for mais de um relatório... piorou... cada relatório vai ter sua própria numeração, e um vai atrapalhar o outro.

Vamos lá:
Se isso é rotina de cabeçalho, provavelmente também tem controle de linhas no outro fonte que vai chamar esse cabeçalho.

Ou cria uma classe (se forem vários relatórios), ou usa variável local e controla página no outro fonte.
Exemplo:
Sua inicialização de STATIC corresponde a npag := 0
À primeira vista, o mesmo trabalho com variáveis locais, que serão destruídas assim que não forem mais necessárias.

Nota: Também poderia ser Cabecalho( ++nPag ), mas por referência ainda economiza o espaço de uma variável na rotina, e uma tecla na digitação... rs

Não Quintas,

Não é um único relatório, enfim.... diz ai a solução !

Dessa forma que você postou eu já faço desde o clipper summer, enfim não sou especialista em recursos do harbour mas sabendo que existe thread static, eu só queria saber como reiniciar o contador, só isso !

Não é um único relatório, enfim.... diz ai a solução

Não reparei antes, provavelmente deve ser uma opção com vários relatórios.
Se é STATIC, só é visível nesse fonte.
Não existe uma solução que sirva pra todas as situações.
Vai depender do conjunto.
Classe vai ter o mesmo inconveniente de variável PRIVATE, só compensa usar classe se isso agrupar solução pra vários relatórios.
No geral, variável local seria a mais interessante, passando a variável por referência entre as sub-rotinas.

A variável PRIVATE, quando está relacionada a um único módulo, não causa efeitos colaterais, porque fica presa àquele fonte.
Acaba sendo o mesmo de usar uma classe, talvez até mais seguro do que classe.
Só declarar MEMVAR variável no topo do arquivo PRG, e PRIVATE variável no início do relatório.
Vai passar pela compilação -w3 -es2 sem problemas.
E se rodar em threads diferentes ou em janelas diferentes, um relatório não interfere no outro.

Mas tudo depende do conjunto, e do gosto pessoal.
No final o importante é que o relatório funcione.