Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
set deleted off
local cPath, nDbfs, i, cTmpCurs
local array aDbfs[1]
cTmpCurs = sys(2015)
cPath = "c:\somepath\"
nDbfs = adir(aDbfs,cPath+"*.dbf")
for i = 1 to nDbfs
use cPath+aDbfs[i,1] in 1 noupdate
select (field(1,alias(1))) ;
from (alias(1)) where deleted() ;
into cursor (cTmpCurs)
? reccount(alias(1)) - reccount(cTmpCurs)
use in (cTmpCurs)
use in alias(1)
next
set deleted off
local cPath, nDbfs, i, nDels
local array aDbfs[1]
cPath = "c:\somepath\"
nDbfs = adir(aDbfs,cPath+"*.dbf")
for i = 1 to nDbfs
use cPath+aDbfs[i,1] noupdate
calculate cnt() for deleted() to nDels
? reccount() - nDels
use
next
use cPath+aDbfs[i,1] in 1 noupdate
use (cPath+aDbfs[i,1]) in 1 noupdate