Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Strange error 1113 File is not open
Message
De
18/10/2001 11:07:26
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00570262
Message ID:
00570269
Vues:
24
>Hi everybody,
>
>Bellow is a piece of code. On the CREATE TABLE statement I get File is not open error. I don't understand, what's wrong. More info: the same code works fine for creating Transaction files, the difference with another program, which works fine, is the file name (in first case, "Sales", in this case "Credit").
>
lcNewFile=forceext(m.lcSourceDir + left(m.lcState,1) + m.lcIssWeek+ "Credit","DBF") &&forceext(laDBFs(m.lnI,1),"DBF")
lcNewLogFile = forceext(m.lcNewFile, "LOG")
<b>activate screen
? lcNewLogFile</b>
wait window nowait "Creating new Credit file for week " + m.lcFullIssWeek
on error
set step on
*** Create a log file
create table (m.lcNewLogFile) free ;
       (FileName C(8), State C(2), ;
        ExtrYear C(4), ExtrWeek C(2), ;
        rCode C(2), ccode C(2), town C(4), DSId I, ;
        LogNumSal I, LogNumMtg I, LogNumCrd I, LogNumMM I, ;
        Record_Fm D, Record_To D, LandCt_Fm D, LandCt_To D, ;
        ActNumSal I, ActNumMtg I, ActNumCrd I, ActNumMM I, ;
        MinActDate D, MaxActDate D, NumMMDocs I, NumCoded I, ;
        CalMnth C(6), MDFlag L, Notes M, DDFlag L, CDFlag L, MWDFlag L)	
lcLogAlias = alias() && Save log alias



Nadya,

Does it crash if you strip it down to this? What does is the value of lcNewLogFile?
Steve Gibson
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform