DBF vazio, sim ou não ?

[Netavin]

Boa tarde a todos !
Colegas, como proceder par saber se o DBF em uso contém algum registro ou se está vazio ? Ou teria outra forma de solucionar o problema abaixo.
.. é que th uma rotina que gostaria que emitisse o relatório somente se no período especificado houver movimento:

dtbx:=(" / / ")
get dtinicial
get dtfinal
read
set filter do dtbx >= dtinicial .and. dtbx <= dtfinal
// se houve movimento neste período
//Relatório()
//caso contrário retorna

Obrigado!!!

[]´s
Netavin

[ANDRIL]

Se entendi, use assim:

set filter do dtbx >= dtinicial .and. dtbx <= dtfinal
go top
if !eof()
Relatório()
endif

Ate+

[gvc]

Seu arquivo é indexado pelo campo data?

Código: Selecionar todos

dtinicial := dtfinal := ctod("")
@ 05, 05 get dtinicial valid !empty(dtinicial 
@ 06, 05 get dtfinal valid dtfinal >= dtinicial
read

dbseek(dtos(dtinicial), .T.)
while !eof() .and. dtbx <= dtfinal
   //Relatório()
   dbskip()
end

Ou por outro campo?

Código: Selecionar todos

dbgotop()
while !eof()
   if dtbx < dtinicial .or. dtbx > dtfinal
      dbskip()
      loop
   end
   //Relatório()
   dbskip()
end

Espero ter ajudado. Boa sorte.

[Netavin]

... com certeza ajudaram, e muito !!!

Muito agradecido :{

[]´s

Netavin