Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Gather
Message
From
06/12/2000 16:52:39
 
 
To
06/12/2000 16:34:35
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Gather
Miscellaneous
Thread ID:
00450107
Message ID:
00450131
Views:
25
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))
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform