"The LOCATE command must be issued before the CONTINUE command."
Code below, locate command is before the "do while found()"
LOCATE FOR
thisform.DupeCompph(lBusinessPhone,alltrim(Contacts.BusPhone))
DO WHILE FOUND()
SET EXACT ON
THISFORM.nDupeStatus = THISFORM.nDupeStatus + 1
isDupe = isDupe + 1
IF IsDupe >= lDupeLevel AND
!SEEK(contacts.reg_no, "cDups", "reg_no")
INSERT INTO cDups (reg_no, title,
initials, surname, first_name, hmephone, salutation, gender, email, ;
assistant, busphone, mobile,
company) VALUES (contacts.reg_no, ALLTRIM(contacts.title),
ALLTRIM(contacts.initials), ;
ALLTRIM(contacts.surname),
ALLTRIM(contacts.first_name), ALLTRIM(contacts.hmephone), ;
ALLTRIM(contacts.salutation),
ALLTRIM(contacts.gender), ALLTRIM(contacts.email),
ALLTRIM(contacts.assistant), ;
ALLTRIM(contacts.busphone),
ALLTRIM(contacts.mobile), ALLTRIM(contacts.company))
IF SEEK(alltrim(cDups.reg_no) +
"0001", "address", "REG_TYPE")
SELECT cDups
REPLACE cDups.address1 WITH
ALLTRIM(address.address1)
REPLACE cDups.address2 WITH
ALLTRIM(address.address2)
REPLACE cDups.address3 WITH
ALLTRIM(address.address3)
REPLACE cDups.suburb WITH
ALLTRIM(address.suburb)
REPLACE cDups.city WITH
ALLTRIM(address.city)
REPLACE cDups.postcode WITH
ALLTRIM(address.postcode)
ENDIF
IF SEEK(alltrim(cDups.reg_no) +
"0002", "address", "REG_TYPE")
SELECT cDups
REPLACE cDups.daddress1 WITH
ALLTRIM(address.address1)
REPLACE cDups.daddress2 WITH
ALLTRIM(address.address2)
REPLACE cDups.daddress3 WITH
ALLTRIM(address.address3)
REPLACE cDups.dsuburb WITH
ALLTRIM(address.suburb)
REPLACE cDups.dcity WITH
ALLTRIM(address.city)
REPLACE cDups.dpostcode WITH
ALLTRIM(address.postcode)
ENDIF
ENDIF
SET STEP ON && TODO remove
CONTINUE && This is the error, no clue why.
ENDDO
-Sam
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
