I like to code in VFP8 and the app will eventually move to it, but for now, I have to compile in VFP6.
However, this #IF doesn't seem to work. Why not? Or better yet, is there an easier way to do this so that I can still have the code exist for inclusion when compiled later in VFP8?
Here's my code:
#IF val(left(VERSION(4),2)) > 6
llValid = .F.
DO WHILE !llValid AND !EMPTY(lcEmailAddr)
lcEmailAddr = INPUTBOX("The Report will be emailed to the address below. You can use this one, or type in a different address to use.","Email address for Report.",pcEmailAddr)
llValid = this.ValidEmail(lcEmailAddr) OR EMPTY(lcEmailAddr) && allow user to get out via empty email address
IF !llValid THEN
MESSAGEBOX("The email address should be in the form yourname@yourcompany.com' -- please correct and resubmit.",MB_ICONOK,"Invalid email address.")
ENDIF
ENDDO
#ENDIF
TIA!
--Michael
in vfp7 (in the command window):
#if val(left(VERSION(4),2)) > 6
?'run' && run
#endif
#if val(left(VERSION(4),2)) > 7
?'run' &&
#endif
AndyD 8-)#
Author: vfpmcp@mbsoftwaresolutions.com
Posted: 2004-06-04 09:23:57 Link
Andy,
I get both:
run
run
??????
--Michael
------------------------------------------------
On Fri, 4 Jun 2004 15:04:13 +0100, "Andy Davies" <a.davies@notes.manchester.gov.uk> wrote:
>
> in vfp7 (in the command window):
>
> #if val(left(VERSION(4),2)) > 6
> ?'run' && run
> #endif
> #if val(left(VERSION(4),2)) > 7
> ?'run' &&
> #endif
Are you using VFP8?
-----Original Message-----
From: profox-bounces@leafe.com [mailto:profox-bounces@leafe.com] On Behalf
Of vfpmcp@mbsoftwaresolutions.com
Sent: Friday, June 04, 2004 10:24 AM
To: profox@leafe.com
Subject: Re: Why does this #IF not work?
Andy,
I get both:
run
run
??????
--Michael
------------------------------------------------
On Fri, 4 Jun 2004 15:04:13 +0100, "Andy Davies"
<a.davies@notes.manchester.gov.uk> wrote:
>
> in vfp7 (in the command window):
>
> #if val(left(VERSION(4),2)) > 6
> ?'run' && run
> #endif
> #if val(left(VERSION(4),2)) > 7
> ?'run' &&
> #endif
What does this get:
? CEILING(val(left(VERSION(4),2)))
? VARTYPE(CEILING(val(left(VERSION(4),2))))
AndyD 8-)#
vfpmcp@mbsoftwareso
lutions.com To: profoxtech@leafe.com
Sent by: cc:
profoxtech-bounces@ Subject: Re: Why does this #IF not work?
leafe.com
04/06/2004 15:23
Please respond to
profox
Andy,
I get both:
run
run
??????
--Michael
------------------------------------------------
On Fri, 4 Jun 2004 15:04:13 +0100, "Andy Davies"
<a.davies@notes.manchester.gov.uk> wrote:
>
> in vfp7 (in the command window):
>
> #if val(left(VERSION(4),2)) > 6
> ?'run' && run
> #endif
> #if val(left(VERSION(4),2)) > 7
> ?'run' &&
> #endif
[excessive quoting removed by server]
I'm also using VFP 7 and get same results
But val(left(VERSION(4),2)) returns 7.00
and your comparison is > 7 so isn't that
the correct result?
Peter
----- Original Message -----
From: "Andy Davies" <a.davies@notes.manchester.gov.uk>
To: <profox@leafe.com>
Sent: Friday, June 04, 2004 3:04 PM
Subject: Re: Why does this #IF not work?
>
> in vfp7 (in the command window):
>
> #if val(left(VERSION(4),2)) > 6
> ?'run' && run
> #endif
> #if val(left(VERSION(4),2)) > 7
> ?'run' &&
> #endif
>
> AndyD 8-)#
>
>
>
>
>
> **********************************************************************
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they
> are addressed. If you have received this email in error please notify
> the system manager.
>
> This footnote also confirms that this email message has been swept
> for the presence of computer viruses.
>
> Please contact internet.administrators@notes.manchester.gov.uk
> with any queries.
>
>
[excessive quoting removed by server]
Author: vfpmcp@mbsoftwaresolutions.com
Posted: 2004-06-04 10:13:45 Link
I've got VFP8 on this system, but I'm running it within VFP6SP5. To fool-proof, I did a ? VERSION(4) prior and verified it!!
--Michael
------------------------------------------------
On Fri, 4 Jun 2004 10:27:58 -0400 , "Crooks, David L." <croodl@ispec.com> wrote:
> Are you using VFP8?
>
> -----Original Message-----
> From: profox-bounces@leafe.com [mailto:profox-bounces@leafe.com] On Behalf
> Of vfpmcp@mbsoftwaresolutions.com
> Sent: Friday, June 04, 2004 10:24 AM
> To: profox@leafe.com
> Subject: Re: Why does this #IF not work?
>
> Andy,
>
> I get both:
>
> run
> run
>
>
> ??????
> --Michael
>
>
> ------------------------------------------------
> On Fri, 4 Jun 2004 15:04:13 +0100, "Andy Davies"
> <a.davies@notes.manchester.gov.uk> wrote:
>
> >
> > in vfp7 (in the command window):
> >
> > #if val(left(VERSION(4),2)) > 6
> > ?'run' && run
> > #endif
> > #if val(left(VERSION(4),2)) > 7
> > ?'run' &&
> > #endif
>
[excessive quoting removed by server]
Author: vfpmcp@mbsoftwaresolutions.com
Posted: 2004-06-04 10:14:41 Link
6.00
N
--Michael
------------------------------------------------
On Fri, 4 Jun 2004 15:31:50 +0100, "Andy Davies" <a.davies@notes.manchester.gov.uk> wrote:
>
> What does this get:
> ? CEILING(val(left(VERSION(4),2)))
> ? VARTYPE(CEILING(val(left(VERSION(4),2))))
>
> AndyD 8-)#
>