Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Confirm and fix expression builder bug using dtoc(datefi
Message
From
25/11/2005 13:32:19
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
25/11/2005 08:49:33
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Miscellaneous
Thread ID:
01072049
Message ID:
01072119
Views:
27
>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform