Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Confirm and fix expression builder bug using dtoc(datefi
Message
De
25/11/2005 13:32:19
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
25/11/2005 08:49:33
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Divers
Thread ID:
01072049
Message ID:
01072119
Vues:
26
>To reproduce:
>
>1. Run the commands:
>
>
CREATE CURSOR ko ( akuupaev d )
>SET SYSMENU ON
>CREATE REPORT test
>
>2. Create field containing expression dtoc(ko.akuupaev) and save this field.
>
>You can use the following keys for this:
>
>Alt+R
>C
>F
>dtoc(ko.akuupaev)
>Ctrl+W
>
>Observed result:
>
> alias is not found error
>
>Applies to VFP 9
>
>It seems that there is a bug in expression builder code which determines expression alias.
>
>Any idea how to fix this ?

Create your own expression builder, or use mine... which is the same old, but reverts to default datasession before actually showing:
* Proc GetEx
*[2002/02/14 23:21:02] dragan -  replace the regular expression builder
* with one that works in a default datasession, so it sees the open tables
Lparameters cExpressionType, cErrorMessageText,  cDefaultExpression, cCaptionText
Local lcGetEx, lcTemp, nDS
nDS=set("datasession")
set datasession to 1
IF EMPTY(cErrorMessageText)
	cErrorMessageText=""
ENDIF
IF EMPTY(cDefaultExpression)
	cDefaultExpression=""
ENDIF
IF EMPTY(cCaptionText)
	cCaptionText="Pick a field or compose expression"
ENDIF


lcTemp=""
lcGetEx=_Getexpr
set datasession to (nDS)
_Getexpr=""

* 2002.04.24 kicked out the type, because any type can go into a report.
Getexpr cCaptionText To lcTemp Default cDefaultExpression
* restore old
_Getexpr=lcGetEx
Return lcTemp
Save this to a .prg and set _getexpr to it.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform