index on two cfields with Macro

[Silvio.Falconi]

I must create index order on two field but the final user select the field

If I made INDEX ON &cCampo1 TAG NEWORDER to &cAlias run ok

If I add a new field make error

INDEX ON &cCampo1 +&cCampo2 TAG NEWORDER to &cAlias

where is the error ?

[Marc Vanzegbroeck]

Silvio,

Try
INDEX ON &(cCampo1 + cCampo2) TAG NEWORDER to &cAlias

[Gale FORd]

&(cCampo1 + cCampo2) may not work.
It might have to be &(cCampo1 +'+'+cCampo2)

[Silvio.Falconi]

thanks
Now run ok only I have problem to insert crescent or decrescent command in this line

[rhlawek]

I don't know if this would work for you but something very close to this works for me with harbour/msvc. It handles a variable number of fields, and though I haven't done it here, it is easily modified to handle other data types.

Code: Select all  Expand view

cIndexExpression := BuildExpression( cCampo1, cCampo2 )
INDEX ON &cIndexExpression TAG "NEWORDER" TO &cAlias

FUNCTION BuildExpression( ... )
   LOCAL i, cExpression := ""
   FOR i := 1 TO PCount()
      cExpression += hb_PValue( i )
      IF i < PCount()
         cExpression += "+"
      ENDIF
   NEXT
   RETURN cExpression
 

[Silvio.Falconi]

THANKS
BUT HOW i CAN MAKE TO INSERT DESCENDING COMAND ?
IF I mADE
INDEX ON &(cCampo1 +'+'+cCampo2+'+'+cCampo3) TAG NEWORDER to &cAlias IT SEEMS TO RUN OK

if i MADE
INDEX ON &(cCampo1 +'+'+cCampo2+'+'+cCampo3) TAG NEWORDER to &cAlias DESCENDING

IT MAKE ERROR

Dear rhlawek your func is good but how I can to insert descending or crescent option ?

[Armando]

Silvio:

Perhaps the next code can help you

Code: Select all  Expand view

INDEX ON DESCEND(FIELD->HDR_FOL) TAG (cIdx2) TO (cAlias) FOR ! DELETED()
 

BTW, I don't know why do you need a macro substitution

Regards

[Silvio.Falconi]

INDEX ON DESCEND(&cExpression) TAG neworder FOR !DELETED()

THIS MAKE ERROR NOT FOUND DESCEND FUNCTION

[Armando]

Silvio:

Try with this code in your main prg

Code: Select all  Expand view

REQUEST DESCEND
 

Regards

[Silvio.Falconi]

thanks now run