The INSERT moves the pointer, thus canceling the LOCATE! Best, Francis I. Coppage, Jr. "Two things are infinite: the universe and human stupidity; and I'm not sure about the universe." ... Albert Einstein
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Sam Burke Sent: Thursday, October 02, 2008 10:26 PM To: [EMAIL PROTECTED] Subject: CONTINUE command is erroring,asking for a LOCATE command... which is there! "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 --- [excessive quoting removed by server] _______________________________________________ Post Messages to: ProFox@leafe.com 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.
