Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Comparing
Message
From
25/06/2001 17:17:30
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00523261
Message ID:
00523294
Views:
13
here's what i have,

can you find any holes in my logic or lack thereof...

IsDupRec = .T.

SELE LOCAL_HIV
SCATTER MEMO TO aRecOne

SELE CDCHIV
SCATTER MEMO TO aRecTwo

fieldcnt = FCOUNT('LOCAL_HIV')
verifycnt = 1

DO WHILE verifycnt <= fieldcnt
IF ALLT(FIELD(VERIFYCNT)) != 'PROJNO' OR ALLT(FIELD(VERIFYCNT)) != 'COMMENTS' OR ALLT(FIELD(VERIFYCNT)) != 'UNIQKEYSAS' ;
OR ALLT(FIELD(VERIFYCNT)) != 'UNIQKEYBAY' OR ALLT(FIELD(VERIFYCNT)) != 'YEAR' OR ALLT(FIELD(VERIFYCNT)) != 'NEWREC' ;
OR ALLT(FIELD(VERIFYCNT)) != 'DISPUTE' OR ALLT(FIELD(VERIFYCNT)) != 'PRO_DATE' OR ALLT(FIELD(VERIFYCNT)) != 'DRAWDATE' ;
OR ALLT(FIELD(VERIFYCNT)) != 'YEAR' OR ALLT(FIELD(VERIFYCNT)) != 'CDATE' OR ALLT(FIELD(VERIFYCNT)) != 'CRECV_DATE' ;
OR ALLT(FIELD(VERIFYCNT)) != 'CREPT_DATE'

IF aRecOne(verifycnt) != aRecTwo(verifycnt)
IsDupRec = .F.
RETURN IsDupRec
ELSE
verifycnt = verifycnt + 1
ENDIF
ELSE
VERIFYCNT = VERIFYCNT + 1
ENDIF
ENDDO

RETURN IsDupRec
Thanks in Advance.

J. Turner
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform