Wiki Home

Alias Not Found


Namespace: SoftwareEng
I'm use visul foxpro .in asp ..
I just set the envirment and do some search.
code is
set vfp = server.createobject("visualfoxpro.application")
with vfp
.docmd("SET EXCLUSIVE OFF")
.docmd("SET DELETED ON")
.docmd("SET EXACT ON")
.docmd("SET SAFETY OFF")
.docmd("SET REPROCESS TO 2 SECONDS")
.docmd("use i:\fams\data\arcust02 in 0 alias cust order CUSTNO")
.docmd("use i:\fams\data\armast02 in 0 alias armast order invno")
.docmd("use i:\fams\data\arymst02 in 0 alias arymst order invno")
.docmd("use v:\ampweb\oc_rpyi in 0 alias payi order CUSTI")
.docmd("USE v:\ampweb\oc_rpay IN 0 ALIAS rpay ORDER custno1")
.docmd("use i:\fams\data\arcash02 in 0 alias cash order custno1")
.docmd("use i:\fams\data\arycsh02 in 0 alias ycash order custno1")
---search code.
arsql="select invno,invdte,custno,type,sono,ponum,invamt,paidamt,balance,shipvia,ordate,shipdate,pterms,pnet from armast into cursor tmpc"

if .eval("file('i:\fams\data\tmp" & msessionid & ".dbf')") then
.docmd("delete file c:\temp\tmp" & msessionid &".dbf")
if .eval("file('i:\fams\data\tmp" & msessionid & ".dbf')") then
.docmd("use i:\fams\data\tmp" & msessionid)
.docmd("delete from tmp" & msessionid)
.docmd("select tmpc")
.docmd("go top")
do while .eval("!eof()")
.docmd("scatter name rec")
.docmd("select tmp" & msessionid)
.docmd("append blank")
.docmd("scatter name recd")
.docmd("recd=rec")
.docmd("gather name recd")
.docmd("select tmpc")
.docmd("skip")
loop
.docmd("use in tmp" & msessionid)
else
.docmd("select * from tmpc into table i:\fams\data\tmp" & msessionid)
end if
else
.docmd("select * from tmpc into table i:\fams\data\tmp" & msessionid)
end if
.docmd("use in tmpc")
end if
end with
( Topic last updated: 2002.03.09 07:49:36 PM )