FoxPro/Visual FoxPro - búsqueda con seek solo busca el primer registro

wcodactiv= (lcserialnumber*56)

wcodactiv=codactiv

SELECT 98

USE tablactiv.dbf IN 98 ALIAS M03

GO TOP

SEEK(codactiv)ORDER codactiv

IF codactiv >0 .AND. codactiv = wcodactiv

  MESSAGEBOX("Nro activ.existe",48,"Mensaje")

DO FORM formclave

RETURN

ELSE

MESSAGEBOX("Programa no corresponde a ésta PC, por favor comprar otra licencia  ", 0+48, "Error")

***QUIT

DO FORM FORMACTIVA

ENDIF

LOCAL wCodActiv,lnTally,lcOpcion

lnTally = 0

lcOpcion = "indexseek | scan | sql |" && indicar la opción concreta seleccionada

wcodactiv= (lcserialnumber*56)  && VER SI ESTO CORRESPONDE. ? lcSerialNUmber

USE tablactiv IN 0 AGAIN ALIAS M03  && no arriesgas cerrar la tabla que ocasionalmente esté en el Area 98

DO CASE

	CASE lcOpcion == "indexseek"

		IF INDEXSEEK(m.wCodActiv,.f.,"m03","codactiv")

			SELECT m03

			SET ORDER TO codactiv

			INDEXSEEK(m.wCodActiv,.t.,"m03","codactiv")

			DO WHILE codactiv = m.wCodActiv

				lnTally = m.lnTally + 1

				SKIP

				IF EOF()

					EXIT

				ENDIF

			ENDDO

		ENDIF

	CASE lcOpcion == "scan"

		SELECT m03

		SCAN FOR codactiv = m.wCodactiv

			lnTally = m.lnTally + 1

		ENDSCAN

	CASE lcOpcion == "sql"

		SELECT CNT(*) ;

			FROM m03 ;

			WHERE codactiv = m.wCodactiv ;

			INTO ARRAY laCoincide

		lnTally = _tally

		* lnCount = NVL(laCoincide[1,1],0)

ENDCASE

* Cierra la tabla

USE IN m03

* Decisión

IF !EMPTY(m.lnTally)

	DO FORM formclave

ELSE

	MESSAGEBOX("Programa no corresponde a ésta PC, por favor comprar otra licencia  ", 0+48, "Error")

	DO FORM FORMACTIVA

ENDIF

wcodactiv= (lcserialnumber*56)

SELECT 98

USE tablactiv.dbf IN 98 ALIAS M03 SHARED

SET ORDER TO codactiv

GO TOP

LOCATE FOR codactiv=wcodactiv

IF FOUND()

MESSAGEBOX("Nro activ.existe",48,"Mensaje")

DO FORM formclave

RETURN

ELSE

MESSAGEBOX("Programa no corresponde a ésta PC, por favor comprar otra licencia ", 0+48, "Error")

DO FORM FORMACTIVA

RETURN

ENDIF