Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Macro or Evaluate?
Message
From
20/09/2018 10:16:21
 
 
To
20/09/2018 10:12:16
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01662147
Message ID:
01662155
Views:
34
>>>>>>Hi,
>>>>>>
>>>>>>I need to change a hard-coded expression into a variable (stored in the app object). The expression has a variable - name of the alias - which may change in different parts of the app. Here is an example (close to actual case):
>>>>>>
>>>>>>Right now, hard coded:
>>>>>>
>>>>>>nQty = EVALUATE(tcAliasName + ".INSTOCK") + EVALUATE(tcAliasName + ".ONORDER") - EVALUATE(tcAliasName 
>>>>>>+ ".REORDERPNT")
>>>>>>
>>>>>>
>>>>>>If I place the entire hard-coded expression to a variable, as:
>>>>>>
>>>>>>cExpr = 'EVALUATE(tcAliasName + ".INSTOCK") + EVALUATE(tcAliasName + ".ONORDER") - EVALUATE(tcAliasName  + ".REORDERPNT")'
>>>>>>
>>>>>>
>>>>>>Will the above work as?
>>>>>>
>>>>>>nQty = EVALUATE( cExpr ) 
>>>>>>*-- or
>>>>>>nQty = &cExpr.
>>>>>>
>>>>>>
>>>>>>TIA
>>>>>
>>>>>
>>>>>TEXT TO cExpr NOSHOW TEXTMERGE PRETEXT 15
>>>>>     <<tcAliasName>>.INSTOCK +
>>>>>     <<tcAliasName>>.ONORDER -
>>>>>     <<tcAliasName>>.REORDERPNT
>>>>>ENDTEXT
>>>>>
>>>>>nQty = EVALUATE( cExpr ) 
>>>>>
>>>>
>>>>First, thank you. Your approach should work and should be my solution. But I have changed the TEXT TO ENDTEXT to a string (because I will store it in the app object). So in my case I have
>>>>
>>>> cExpr = "<<tcAliasName>>.INSTOCK + <<tcAliasName>>.ONORDER - <<tcAliasName>>.REORDERPNT"
>>>>nQty = EVALUATE( cExpr ) 
>>>>
>>>>
>>>>But I get error Missing Operand. I must be doing something wrong. I will keep checking my syntax.
>>>
>>>Use the Text-Endtext construct plus the Evaluate() in yourobject.yourvalue_access.
>>
>>The Text-Endtext construct works. But I need to store this expression in a variable, to be evaluated at run-time. So, I am trying to "convert" the Text-EndText to a string. And having a problem with the error Missing Expression (not Missing Operand).
>
>
cExpr = Textmerge("<<tcAliasName>>.INSTOCK + <<tcAliasName>>.ONORDER - <<tcAliasName>>.REORDERPNT")
Thank you! This does the job. I have never known the function TextMerge(); something new to learn.
Now I am torn to whom I should attribute the solution, you or Borislav :)
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform