FiveTech Support Forums

JAMES,

set filter to alltrim((oDPre)->tipoattrez)) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ;
(;
( dDataIniziale >= (oDPre)->DAL .AND. dDataIniziale <= (oDPre)->AL ) .OR. ;
( dDataFinale >= (oDPre)->DAL .AND. dDataFinale <= (oDPre)->AL ) .OR. ;
( dDataIniziale < (oDPre)->DAL .AND. dDataFinale > (oDPre)->AL ) ;
)

WHY THE COMPILATOR LET ME SAY
source\RIV220.prg(275) Error E0030 Syntax error: "syntax error at 'FILTER'" ?

Silvio,

I don't see the error, but use the simpler filter like this:

set filter to alltrim((oDPre)->tipoattrez)) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ( dIniziale <= (oDPre)->AL .AND. dFinale >= (oDPre)->DAL )

and see if the error goes away.

However, if I may make another suggestion. You are using this var, oDPre, to signify a character value (the alias). The "o" prefix standardly signifies an object datatype not a character datatype. This makes your code harder to understand, so it would be better to use "cDPre" or better yet, "cAlias."

Better yet would be to use a database object. Then you can use syntax like oDPre:DAL and you don't have to use aliases at all.

Regards,
James

I call oDpre because

oDPre:=Open_Dbf("Cotiza")

I use this function from 7 year

James,
this is the last ?

set filter to alltrim((oDPre)->tipoattrez)) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ;
(;
( dDataIniziale >= (oDPre)->DAL .AND. dDataIniziale <= (oDPre)->AL ) .OR.;
( dDataFinale >= (oDPre)->DAL .AND. dDataFinale <= (oDPre)->AL ) .OR. ;
( dDataIniziale < (oDPre)->DAL .AND. dDataFinale > (oDPre)->AL ) ;
)

the compilator make error

for this

set filter to alltrim((oDPre)->tipoattrez) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ;
(;
( (oDPre)->DAL >= dDataIniziale .AND. (oDPre)->DAL <= dDataFinale ) .OR.;
( (oDPre)->AL >= dDataIniziale .AND. (oDPre)->AL <= dDataFinale );
)

the compilator runned ok

can you understand why the compilator make error ?

I call oDpre because
oDPre:=Open_Dbf("Cotiza")
I use this function from 7 year.

this is the last ?

set filter to alltrim((oDPre)->tipoattrez)) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ;
(;
( dDataIniziale >= (oDPre)->DAL .AND. dDataIniziale <= (oDPre)->AL ) .OR.;
( dDataFinale >= (oDPre)->DAL .AND. dDataFinale <= (oDPre)->AL ) .OR. ;
( dDataIniziale < (oDPre)->DAL .AND. dDataFinale > (oDPre)->AL ) ;
)

set filter to alltrim((oDPre)->tipoattrez)) == cTipoAttrez .AND. (oDPre)->CAMERA == n ;
.AND. ( dIniziale <= (oDPre)->AL .AND. dFinale >= (oDPre)->DAL )

sorry... thanks..here there is very hot....

but I want understand

On a dialog I have a similar problem :

to insert a new order I want to control for sample

if the umbrella number 264 have an order on period date I want found

I know and the user insert this data :

the number of umbrellas (n)
the type of umbrellas (type)
the initial date ( dData1)
the end date (dData2)

I wank make a function must return me a value .t. if found a record .f. if it not found any record

I made :

Function Isfree(dData1,dData2,n,type)
Local lvalue:=.f.

(oDPre)->(OrdSetFocus(3)) // order on umbrellas numbers

set filter to alltrim((oDPre)->tipoattrez) == type .AND. (oDPre)->CAMERA == n ;
.AND. ( dData1 <= (oDPre)->AL .AND. dData2 >= (oDPre)->DAL )

(oDPre)->(DbGoTop())
DO WHILE !(oDPre)->(EoF())

lvalue:=.t.

 (oDPre)->(DbSkip())
         ENDDO

return lvalue

why it return me alway .t. ?

where I make error ?

perhaps I found the solution :
Function Isfree(dData1,dData2,n,type)
Local lvalue:=.f.
(oDPre)->(OrdSetFocus(3)) // order on umbrellas numbers
(oDPre)->(DbGoTop())
DO WHILE !(oDPre)->(EoF())
IF alltrim((oDPre)->tipoattrez) == type .AND. (oDPre)->CAMERA == n ;
.AND. ( dData1 <= (oDPre)->AL .AND. dData2 >= (oDPre)->DAL )
lvalue:=.t.
endif
(oDPre)->(DbSkip())
ENDDO
return lvalue

Silvio,

this is the solution, I have shown You in Your other post.
But don't do DBGOTOP. Use DBSEEK, because there is a index and EXIT the loop after Number-change.
Look at Your other post !

Best Regards
Uwe

james,Otto,

I try to use your code and run ok but I'm afraid that not all cases have been closed

is OK for some case but not all cases, and I fear that the end user will have problems when he 'll use my application

Hello Silvio,

Please post some screen shots what you really want to reach and a test program with the current source.

Best regards,
Otto

I try to use your code and run ok but I'm afraid that not all cases have been closed

is OK for some case but not all cases