Contar registros

[Josmar dos Santos]

Ola caros amigos...aguem de voces saberia de como contar registros em um relatorio qualquer ?
Exemplo:
Codigo 01, 02,03,09,100,211..sem uma ordem direta e algum local do relatorio colocar assim 6 registros..! segue o exemplo assima que tem 6 registros...grato se alguem souber eu agradeço...obrigado
Josmar
:xau

[spereira]

Jomar,

se bem entendi o seu problema, basta utilizar dentro do DO WHILE uma condição para, se satisfeita esta condição, acumular um contador. Exemplo:

mCONTADOR = 0
use arquivo
do while .not. eof()
if (condição)...
mCONTADOR += 1
*** Imprime os dados do registro ***
endif
skip
enddo

*** Depois imprime o resultado de mCONTADOR ***
return
:xau