Problem with dbseek

[Silvio.Falconi]

I have a cicle For Next and on this cicle I have a dbseek to search on archive a text i I have on a array because I must change a quantity on a archive

the procedure found only the first text ... why ?

I made :

Local nOldInven:=0
Local nInven:= 0
Local m
Local cTags:="text1; text2; text3 ;" //this is the field i have
Local aNew:=:=iif(AT(';',cTags)!=0, HB_ATokens( cTags, ";"), {}) // I converte on an array

SELECT ET //open ET
ET->(DbSetOrder(1)) //Order on Et->ETNOMBRE ( character )
ET->(DbGoTop())


For m=1 to Len(aNew)
IF!Empty( Upper(Rtrim(aNew[m])))
IF ET->(DbSeek( Upper(Rtrim(aNew[m])), .t. ))
nOldInven:= ET->ETINVEN
nInven:= nOldInven+1
Replace ET->ETINVEN WITH nInven
ET->(DbCommit())
Endif
Endif
next m


where is the error ?

[karinha]

http://www.fivetechsoft.com/harbour-docs/api.html

[Silvio.Falconi]

Karina but you understtod my problems ?

Local cTags:="Computer; Televisore; Portatile;"
Local aNew:=iif(AT(';',cTags)!=0, HB_ATokens( cTags, ";"), {})

return an array with 4 rows instead of 3 rows ....

[ukoenig]

Silvio,

that returns 3 elements

Code: Select all  Expand view

aNew := {}
cTags :="Computer; Televisore; Portatile;"
FOR I := 1 TO StrCharCount( cTags, ";" )
    AADD( aNew, { StrToken( cTags, I, ";" ) } )
    MsgAlert( aNew[I][1], "Array" ) // returns 3 elements
NEXT
 

regards
Uwe

[RAMESHBABU]

Silvio,

I don't think you should use ';' at the end of the string,
when you are not continuing with more items, separated by ";".
Hb_Atokens might be assuming a blank value, when the string
is ended with ";"

As per xHarbour Reference Documentation:
The delimiter is removed from <cString> and the resulting substrings are collected in an array, which is returned.

-Ramesh Babu

[Silvio.Falconi]

Friends
the array was the first problem
there ia another problem I explain you

Now I must found on a archive each aNew[i] string and add +1 on field ETINVEN( numeric)
Etichette.dbf have two field :

1. Etnombre 40 cr
2. EtInven numeric 3
nlen:=Len(aNew)

USE ETICHETTE ALIAS ET
INDEX ON upper(ET->ETNOMBRE) TAG ET01 TO ETICHETTE

For m=1 to nlen
Msginfo(upper(rtrim(aNew[m][1])))

ET->(DbGoTop())

IF ET->(DbSeek( upper(rtrim(aNew[m][1])), .t. ))

Msginfo("trovato: "+upper(rtrim(aNew[m][1])) )

nOldInven:= ET->ETINVEN
nInven:= nOldInven+1
Replace ET->ETINVEN WITH nInven

Endif


next
ET->(DbCommit())



the problem is it found only one element and then exit from cicle for...next WHY ?

[Silvio.Falconi]

Sorry I resolved...yesterday last night I needed to relax .....I am old now

[James Bott]

Silvio,

Good to hear you found the solution.

I think most of us programmers can't walk away from a problem until we solve it. We are driven.

Ironically, the solution comes to us after we have walked away and are doing something else totally unrelated. It is just so hard to walk away...

James

[TimStone]

James,

I sent you an email yesterday. I don't know if maybe the address changed ? Relative to possible issues between tRecord and tDatabase.

Tim