Problem with dbseek

[Silvio.Falconi]

I have to search in an archive if an Id exists or not
I get the variable Chat_Id from a hash and I saw that it is a numeric variable
in the archive where I have to look for this variable I have a string field and the archive is indexed in this way

Code: Select all  Expand view

INDEX ON UPPER(NumeroID) TAG TEACH01 EVAL (oProgress:SetPos(nProgress++), Sysrefresh()) EVERY 1
 

the structure of archive is

Code: Select all  Expand view

 DbCreate(cDir+'TE',  { { "NumeroId", "C", 20, 0 },;
                            { "fname", "C", 20, 0  },;
                            { "uname", "C", 20, 0  },;
                            { "lname", "C", 20, 0  },;
                            { "isteacher", "L", 1, 0},;
                            { "isadmin", "L", 1, 0} }, 'DBFCDX')

Code: Select all  Expand view

so when I do the research I do this way

Code: Select all  Expand view

cChiaveId:=alltrim(str(Chat_Id))

 SELECT TE
    TE->(OrdSetFocus(1))
    TE->(DbGoTop())
    if ! TE->(DbSeek( cChiaveId, .t. ))
            else
               lKnown:=.t.
               listeacher= TE->isteacher
               lisadmin := TE->isadmin
endif
 

the problem is that the search never recognizes the ID number, where is the error?

[Enrico Maria Giordano]

Can you show what is in NumeroId field? Are there spaces before the number?

EMG

[Silvio.Falconi]

no no space
but the error is sometimes for a sample now for two times return right and then error

[karinha]

Chat_Id ??

[FranciscoA]

Hi.

INDEX ON UPPER(NumeroID) TAG TEACH01 EVAL (oProgress:SetPos(nProgress++), Sysrefresh()) EVERY 1

If you have created the index key using upper, I think you have to use upper in the seeking.

Code: Select all  Expand view

Chat_id := 12345
cChiaveId := Upper( alltrim(str(Chat_Id)) )

Regards.

[solving]

Chat_id := 12345
cChiaveId := PADL ( Upper( alltrim(str(Chat_Id)) ), 20, SPACE(1) )
o PADR(...) ?