Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Match program problem
Hi all:
I have a program here that looks for exact name and address --- comparing name1/name2 or name2/name1. If I find a match I tag the records . The problem I am having is I want to tag all that matches that where found by address and tag them differently, so I can report on them. Can anyone help...
Thanks
close databases
set talk off
set default to getdir()
use tranFLMI in 0 alias trans
use num3FLMI in 0 alias mastrfil
select trans
index on branch+zip+address2+name1+name2 tag mkey
set order to mkey
select mastrfil
scan
scatter memvar
if mod(recno(),1000) = 0
wait window nowait transform(recno()/reccount()*100,"999.999%")
endif
if seek(branch+zip+address2+name1+name2,"trans")
if empty(trans.match)
replace trans.match with "O"
m.match="O"
endif
else
wait window "ERROR IN FIRST MATCH"
endif
if seek(branch+zip+address2+name2+name1,"trans")
if empty(trans.match)
replace trans.match with "D"
************************************************************
***** Problem Section
************************************************************
select trans
index on branch+zip+address2 tag mkey2
set order to mkey2
SEEK(branch+zip+address2)
DO WHILE .T.
m.match2="X"
SKIP 1
ENDDO
m.match2= " "
index on branch+zip+address2+name1+name2 tag mkey
set order to mkey
select mastrfil
ENDIF
ENDIF
**************************************************************
**************************************************************
gather memvar
endscan
*
close all
delete file mkey2.cdx
delete file mkey.cdx
set talk on
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement