Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BROWSE PREFERENCE with Calculated Fields
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
BROWSE PREFERENCE with Calculated Fields
Divers
Thread ID:
00480002
Message ID:
00480002
Vues:
51
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform