Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Comparing
Message
De
25/06/2001 17:17:30
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00523261
Message ID:
00523294
Vues:
14
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform