On Fri, 09 Oct 2009, Itamar Lins wrote:

Hi,

> Thanks for response.
> Please analize my file, because it was make with old xHarbour.
> http://www.4shared.com/file/139644752/e204a705/encomenda.html
> proc main()
>     local inicio, fim
>     set date to brit
>     use encomenda new alias 'pd'
>     dbgotop()
>       inicio := ctod('20/08/09')
>       fim    := ctod('28/08/09')
>       while !eof()
>          If pd->data_compr >= inicio .and. pd->data_compr <= fim
>            ? recno(), pd->data_compr
>         endif
>         dbskip()
>       enddo
>       ?
>       set filter to pd->data_compr >= inicio .and. pd->data_compr <= fim
>       dbgotop()
>       while !eof()
>          ? recno(), pd->data_compr
>          dbskip()
>       enddo
>    return
> Very strange for me results.

For me above code gives expected results.
Harbour, xHarbour and Clipper gives exactly the same results:
empty record set.
There is no bug in any of the above compilers and they behave as
it's documented. This is why I'm asking to create self contain examples.
HINT: add this line at the end of your code:
   ? hb_dtoc( inicio, "DD/MM/YYYY" ), hb_dtoc( fim, "DD/MM/YYYY" )
and read in Clipper documention what does SET EPOCH TO ...

best regards,
Przemek
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to