Re: max records in freetable included in project ? by christophe
christophe
Wed Oct 20 02:22:38 CDT 2004
this is the code I use in the Beforebuild in myprojecthook.
unfortunately I don't have it all the time.
but each time when I got the "weird quit" I solved the problem
with a zap.
I worked like this for about two weeks (with +-4 exe buildings a day)
and the problem occured at least 3 times and each time
it was solved with a zap.
I first thought I'd recompile all files but it didn't help,
rebuilding the project neither until I realised that it quits my exe
after or during "rapportupdate_". I went looking around my exe
and saw the projecthook (completely forgot...) and there I added
the zap. And at the moment the problem is solved.
I know it sounds weird. (and there are a few weird things in vfp... ;-)
but I got this and want to know exactly what's going on.
regards
christophe
* reports/labels are included in exe with the "i_" + the reportname
*it copies to local drive without "i_" when there is no report found
*f_dbf is the path where I store my reports
*
*myexe
Procedure rapportupdate_
Local rapporttot,labeltot
*rapporten
*Wait Window Nowait Program(1)+" : rapport update"
Select 0
Use projectincl Alias "incl"
Scan
exerapport_=Rtrim(Incl.bestand)
localbestand_=f_dbf+Substr(exerapport_,3) &&del i_
If .Not. File(localbestand_)
=Strtofile(Filetostr(exerapport_),localbestand_)
Endif
exerapport1_=Left(exerapport_,Len(exerapport_)-1)+"t" &&replace x met t
.frx/.lbx => .frt/.lbt
localbestand_=f_dbf+Substr(exerapport1_,3) &&del i_
If .Not. File(localbestand_)
=Strtofile(Filetostr(exerapport1_),localbestand_)
Endif
Endscan
Use In Select("incl")
Return
projecthook.beforebuild
Lparameters cOutputName, nBuildAction, lRebuildAll, lShowErrors,
lBuildNewGuids
Local oFile
If m.nBuildAction = 3
IF .not. file("c:\programm\aanwezig\projectincl.dbf")
CREATE TABLE "c:\programm\aanwezig\projectincl.dbf" FREE (bestand
C(50),soort C(1))
ELSE
_vfp.ActiveProject.files("c:\programm\aanwezig\projectincl.dbf").Remove
SELECT 0
USE c:\programm\aanwezig\projectincl.dbf excl
endif
zap && !!!!!!!
For Each oFile In _vfp.ActiveProject.Files
type_=ofile.type
DO case
CASE Type_ = "R"
*WAIT WINDOW "report found "+ofile.name nowait
INSERT INTO "projectincl" (bestand,soort) VALUES
(JUSTfname(ofile.name),type_)
case Type_ = "B"
*WAIT WINDOW "label found "+ofile.name nowait
INSERT INTO "projectincl" (bestand,soort) VALUES
(JUSTfname(ofile.name),type_)
Endcase
NEXT
USE IN SELECT("projectincl")
ofile =
_vfp.ActiveProject.Files.Add('c:\programm\aanwezig\projectincl.dbf')
ofile.exclude = .f.
Endif
"Dan Freeman" <spam@microsoft.com> schreef in bericht
news:eQMHeYgtEHA.1404@TK2MSFTNGP11.phx.gbl...
> Something else is going on.
>
> The limit on free tables is the same as the limit on tables in a DBC, and
> building it into your exe should have no bearing.
>
> Can you post some code that shows what your app is doing at the time it
> "just quits"?
>
> Dan
>
> christophe wrote:
> > Hi,
> >
> > Could it be that a freetable that is included in a project
> > is limited on the reccount ?
> > My exe has difficulties on start up,
> > when +-8000 records are reached.
> > The exe just quit without any warning
> > and the problem goes away when I zap the file
> > and rebuild it.
> >
> > For the purpose of this problem it's not relevant
> > but maybe for future release, it's good to know.
> >
> > regards
> > christophe
>
>