Dee
asked on
VFP: Alias not found
I am getting Alias filemaster not found on line 31. I have tried various things as far as workspaces with no luck.
lcThisPath = "c:\inv\act\"
close datab all
set safety off
***For file1 lookup ************************** ********** ********** *******
use (lcThisPath) + "\filelist.dbf" in 0 shared
use (lcThisPath) + "\filemaster2.dbf" in 0 exclu
use (lcThisPath) + "\filemaster2.dbf" in 0 AGAIN ALIAS filemaster2_a SHARED
brow last for len(alltrim(file1))>3 nowait
select filemaster2
set order to tag ufiled
brow last nowait
USE (lcThisPath) + "templates\" + "ckfileEdit.dbf"
select ckfileEdit
COPY STRUCTURE TO (lcThisPath) + "\ckfileEdit.dbf"
*-- close template file
use in ckfileEdit
use (lcThisPath) + "\ckfileEdit.dbf"
**ALIAS FILEMASTER2 IS NOT FOUND HERE:
select filemaster2
set order to tag ufile3
select ckfileEdit
set relation to upper(substr(file,1,3)) into filemaster2 additive
set relation to upper(substr(file,1,3)) into filelist_a additive
select speciesd, species, filed, file, count(*) as cnt from (lcThisPath) + "ckfileScrub.dbf" group by species, speciesd, file, filed order by species, speciesd, file, filed into table ztemp.dbf
Select ckfileEdit
Append from ztemp
index on upper(filed) tag ufiled
index on upper(substr(filed,1,3)) tag ufile3
index on upper(substr(file,1,3)) tag ubr3
set order to
browse last fields cnt:R, species:20:R, speciesd:20:R, file:20:R, filed:40:R, file1:20 nowait
lcThisPath = "c:\inv\act\"
close datab all
set safety off
***For file1 lookup **************************
use (lcThisPath) + "\filelist.dbf" in 0 shared
use (lcThisPath) + "\filemaster2.dbf" in 0 exclu
use (lcThisPath) + "\filemaster2.dbf" in 0 AGAIN ALIAS filemaster2_a SHARED
brow last for len(alltrim(file1))>3 nowait
select filemaster2
set order to tag ufiled
brow last nowait
USE (lcThisPath) + "templates\" + "ckfileEdit.dbf"
select ckfileEdit
COPY STRUCTURE TO (lcThisPath) + "\ckfileEdit.dbf"
*-- close template file
use in ckfileEdit
use (lcThisPath) + "\ckfileEdit.dbf"
**ALIAS FILEMASTER2 IS NOT FOUND HERE:
select filemaster2
set order to tag ufile3
select ckfileEdit
set relation to upper(substr(file,1,3)) into filemaster2 additive
set relation to upper(substr(file,1,3)) into filelist_a additive
select speciesd, species, filed, file, count(*) as cnt from (lcThisPath) + "ckfileScrub.dbf" group by species, speciesd, file, filed order by species, speciesd, file, filed into table ztemp.dbf
Select ckfileEdit
Append from ztemp
index on upper(filed) tag ufiled
index on upper(substr(filed,1,3)) tag ufile3
index on upper(substr(file,1,3)) tag ubr3
set order to
browse last fields cnt:R, species:20:R, speciesd:20:R, file:20:R, filed:40:R, file1:20 nowait
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I thought at one point I had added IN 0 clause to all my use commands. Apparently I missed one.
I am getting ready to post another question regarding browse windows. I hope you are standing by!