Hi! Ok, but if I omit shared flag, get error and with shared flag run without error. I am not clipper user, I am is Harbour user.
> The developer list is not the place to learn Clipper programming. My problem was that unintentionally area was changed and set filter stopped working or is working with error. In my view an error set filter, despite the respect that harbour compatibility with clipper but for me it is a mistake to harbour, because I never used clipper. If I'm using alias to set area in which the filter should be applied. So if the command "set filter" does not work with alias should show an error when compiled Best regards, Itamar M. Lins Jr. "Przemyslaw Czerpak" <dru...@acn.waw.pl> escreveu na mensagem news:20091011092405.gb21...@uran.home.aster.pl... > On Fri, 09 Oct 2009, Itamar Lins wrote: >> After searching this problem for a few hours... normal to the learner, >> got >> the following result. >> proc main() >> field f >> local inicio, fim >> set date to brit >> set epoch to 1970 >> dbcreate("_tst",{{"F","D",8,0}}) >> use _tst >> dbappend(); f := ctod('22/09/09') >> dbappend(); f := ctod('23/09/09') >> dbappend(); f := ctod('28/09/09') >> dbappend(); f := ctod('28/09/09') >> close all >> use _tst new alias 't1' shared >> use _tst new alias 't2' shared >> >> inicio := ctod('22/09/09') >> fim := ctod('22/09/09') >> >> while !t1->(eof()) >> ? t1->(recno()), t1->f >> t1->(dbskip()) >> enddo >> ? >> set filter to t1->f >= inicio .and. t1->f <= fim >> t1->(dbgotop()) >> while !t1->(eof()) >> ? t1->(recno()), t1->f >> t1->(dbskip()) >> enddo >> return >> Please comment shared option while open dbf file. >> use _tst new alias 't1' >> use _tst new alias 't2' >> try again. > > If you need any help then please start testing your examples with > Clipper. It's the last time when I'm answering for message with > not verified problems. > The above code compiled by Harbour, xHarbour and Clipper gives > exactly the same results. > > 1 22/09/09 > 2 23/09/09 > 3 28/09/09 > 4 28/09/09 > > 1 22/09/09 > 2 23/09/09 > 3 28/09/09 > 4 28/09/09 > > what is perfect behavior because you are setting filter on 'T2' area > but skip test is done on 'T1'. > I think that such messages should be sent to Harbour user group. > The developer list is not the place to learn Clipper programming. > > best regards, > Przemek _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
