How to compare to columns

[RTR1900]

Hi,

1) I have two tables: ARTI and MLOC
ARTI: Articles (columns: COD_ART, DESCRIPTION,.....)
MLOC: Location of the articles (columns: COD_ART, LOCATION)

2) When I go to a product, I press F8 and I want to show on screen a list of
the locations of that specified article.
So in table MLOC, there are multiple records with the same COD_ART (Code of
article), but different locations.

When I am in the screen of the article I scan the MLOC table and .... [here
is my problem] only want to display the records which have the same COD_ART.

I only get the "first" record of the MLOC table which has that condition.


My code is :

===
Function TEST()

LOCAL nSavRecord := RECNO()
IF ( MLOC->(DBSEEK(arti->COD_ART)) )
@0,0 SAY "YES WE HAVE SOMETHING"
x=1
Do WHILE .NOT. EOF()
IF ( MLOC->(DBSEEK(arti->COD_ART)) )
@1,x SAY mloc->LOCATION
endif
x=x+10
SKIP
ENDDO
ELSE
@0,0 SAY "NOTHING"
END
GOTO nSavRecord

Return .t.

===


Any help is welcome!!!!

P.S.: I just started since yesterday in CLipper

Thx

David

 

[JCreamerII]

David,

Why is the DBSEEK within the DO WHILE loop? The way I do it is to SEEK before the DO WHILE starts and then just test within the loop for the right COD_ART. I also test prior to the start of the DO WHILE to ensure that I found the record I was SEEKING. If not found you can display a message indicating that status. I believe the way you have it wired you will always get the first match every time the DBSEEK is executed. SEEK once and skip record to record to find a match.

Jim C.

 

[Frandalf]

What Jim means is something like this:

Function TEST()
LOCAL nSavRecord := RECNO()

IF ( MLOC->(DBSEEK(arti->COD_ART)) )
@0,0 SAY "YES WE HAVE SOMETHING"
x=1
// Presuming the fieldname in MLOC table is
// also COD_ART
DO WHILE mloc->COD_ART == arti->COD_ART
@1,x SAY mloc->LOCATION
x=x+10
mloc->(dbskip()) // A better way of skipping!
ENDDO
ELSE
@0,0 SAY "NOTHING"
END
GOTO nSavRecord

Return .t.


Greetings,

Frank

 

[RTR1900]

Hi frank,

Thx for helping me out!
I am still waiting for a "second hand" book I ordered.

One of my error is that I added some data to the DB using DBF viewer 2000. And I forgot making the Index again....

Anyway I am glad knowing that I can put all my questions here and that there are people there to help me

Thx again all of you!!!!

David

 

[Frandalf]

Hey, Hey!

Not ALL your questions!

I'm looking for answers myself most of the time!

Anywhay, good luck!

Frank

 

[RTR1900]

Ok,

I will try not to put more than 5 a day ;-)

Thx,

David