Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
BROWSE PREFERENCE with Calculated Fields
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
BROWSE PREFERENCE with Calculated Fields
Miscellaneous
Thread ID:
00480002
Message ID:
00480002
Views:
50
I have a BROWSE that is supposed to be saving and using the preferences and thus the positions of the columns.

When the browse comes up the first time, the calculated fields are where they originally appeared in the command. (In the sample code it is the Patient Name column that is giving me fits.) But, when the browse is run the second time, the calculated fields are all off to the extreme right, even if they were on the left when the window was dismissed.

I have tried deleting the contents of the memo field where the preferences are saved in the FOXUSER.DBF and deleting the FOXUSER.DBF and then running the browse. There is no change in this behaviour. It is as if there is some code that, before the preferences are saved but after the browse is displayed says, "Move calculated fields to the right on save."

When I look at the preferences that were saved in the new FOXUSER.DBF for this browse, the calculated fields are the last ones in the string of fields. But, when the window was closed, they were on the left, in the positions they were created by the browse command.

Anyone ever see this before? Is there a fix?

BROWSE FIELDS;
Pats.PatId:H="Patient No",;
Name=TRIM(Pats.Lname)+", "+TRIM(Pats.Fname)+" "+;
Pats.Mi+" "+Pats.Suffix:H="Patient Name",;
Pats.Addr1 :H="Address 1",;
Pats.City,;
Pats.State :H="ST",;
Pats.Zip :H="Zip Code",;
Pats.harea :H="Area",;
Pats.hphone :H="Home Ph.",;
Pats.Ssn :H="Soc-Sec-No.",;
Pats.Chart :H="Chart-#",;
Pats.AltIdNum :H="Alt-ID",;
Pats.Inactive :H="Inactive" :P="Y", ;
Pats.AddUser :H="Added By", ;
Pats.AddDate :H="Add Date", ;
Pats.AddTime :H="Add Time", ;
Pats.ChgUser :H="Last Changed By", ;
Pats.ChgDate :H="Last Changed Date", ;
Pats.ChgTime :H="Last Changed Time" ;
NODELETE NOAPPEND NORMAL PREFERENCE cSCRNAME;
TITLE cBROWSEPRM+cSPACE+"Patient Information";
TIMEOUT m.O_timeout
Weldon Adair
Adair Software Corporation
(561) 445-8091
Next
Reply
Map
View

Click here to load this message in the networking platform