Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Gather
Message
From
07/12/2000 04:30:11
 
 
To
06/12/2000 16:52:39
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Gather
Miscellaneous
Thread ID:
00450107
Message ID:
00450270
Views:
33
>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))

More grasping at straws - have you checked the record immediately after the GATHER - i.e. prior to the RECALL. Perhaps modify logtfipvariable() to show both the value of the memory variables & the record itself, do the log immediately before & after GATHER. I've done single SCATTER, multiple GATHERs with no problems.
Mike

"I can live with doubt and uncertainty and not knowing. I think it is much more interesting to live not knowing than to have answers that might be wrong." - Richard Feynman
Previous
Reply
Map
View

Click here to load this message in the networking platform