Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Gather
Message
De
06/12/2000 16:52:39
 
 
À
06/12/2000 16:34:35
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Re: Gather
Divers
Thread ID:
00450107
Message ID:
00450131
Vues:
26
Don't know if this will help, but everything is correct when I log the variable information. When I do a Gather, the information in the table field is not what is in the m.filetype_original variable. Everything is spelled correclty also.
Thanks,
chris

IF THISFORM.GetTFIP()
=THISFORM.LOGTFIPVARIABLE() && Log the memory varible information to a file
GATHER MEMVAR && Gather memory variable to TFIP table
RECALL
UNLOCK
ENDIF


Following is the method logtfipvariable()
LOCAL lnTfipLogHdl, lsTfipLogFile

lsTfipLogFile = "\TPS\FORUM\TFIPLOG.TXT"
IF !FILE(lsTfipLogFile)
lnTfipLogHdl = FCREATE(lsTfipLogFile)
ELSE
lnTfipLogHdl = FOPEN(lsTfipLogFile,1)
=FSEEK(lnTfipLogHdl,1,2)
=FPUTS(lnTfipLogHdl, SPACE(1))
ENDIF
=FPUTS(lnTfipLogHdl, "TFSEQ is: " + m.tfseq)
=FPUTS(lnTfipLogHdl, "Senderid is: " + m.senderid)
=FPUTS(lnTfipLogHdl, "FileReceived is: " + m.filereceived)
=FPUTS(lnTfipLogHdl, "FileProcessed is: " + m.fileprocessed)
=FPUTS(lnTfipLogHdl, "FileType_Current is: " + m.filetype_current)
=FPUTS(lnTfipLogHdl, "FileType_Original is: " + m.filetype_original)
=FPUTS(lnTfipLogHdl, "Dt_Tranfile is: " + TTOC(m.dt_tranfile))
=FPUTS(lnTfipLogHdl, "Dt_Dirfile is: " + TTOC(m.dt_dirfile))
=FPUTS(lnTfipLogHdl, "Sz_Dirfile is: " + ALLT(STR(m.sz_dirfile)))
=FPUTS(lnTfipLogHdl, "Sz_Tranfile is: " + ALLT(STR(m.sz_Tranfile)))
=FPUTS(lnTfipLogHdl, "Dt_poll_complete is: " + TTOC(m.dt_poll_complete))
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform