FiveTech Software tech support forums

Many year ago I made a function to make a index temporaney into xbrowse



Now I wish converte it for use with tdatabase and I have some problems

When the user slect the combox the the procedure create an Expression (cExpression)

sample : upper(code1)+name+DTOS(date)


TO create the index on oldest release I made




With Tdatabase oDbf

local cfor := "!Deleted()"
local bFor := "{ || " + cfor + "}"

//take the fields

cExpression:=""
IF !Empty(cField1 ) .and. !Empty(cField2 ) .and. !Empty(cField3)
cExpression:=(cCampo1 +'+'+cCampo2+'+'+cCampo3)
elseif !Empty(cField1 ) .and. !Empty(cField2 )
cExpression:=(cCampo1 +'+'+cCampo2)
elseif !Empty(cField1 )
cExpression:=(cCampo1)
Endif

//ordcreate
bCode := "{ || " + cExpression + "}"

OrdCondSet(cFor,bFor,,,,, RECNO(),,,, )
OrdCreate( , cneworder, cExpression, &bCode )


but give me an error
Workarea not in use: ORDCREATE
but if I made ?oDbf:used give me .t.
How I can resolve it ?


I tried also with

cIndexFile := "temp.cdx"
cTagName := cneworder
cIndexKey := cExpression
bIndexKey := &bCode
lUnique := .f.
lAdditive :=.t.

OrdCreate(cIndexFile ,cTagName ,cIndexKey , bIndexKey , lUnique ,lAdditive )

Please, use:



OR

hmpaquito wrote:Please, use:

Code: Select all | Expand

oDbf:CreateIndex(cFile, cTag, cKey, lUnique, lDescend, lMemory)

OR

Code: Select all | Expand

(oDbf:cAlias)-> ( OrdCondSet(cFor,bFor,,,,, RECNO(),,,, ) )
(oDbf:cAlias)-> ( OrdCreate( , cneworder, cExpression, &bCode ) )

thanks run ok

You can also use: