Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Compile error vfp6 to vfp9
Message
 
 
To
12/04/2007 11:00:02
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01214993
Message ID:
01215014
Views:
19
BTW, I can not understand the last replace command
with i(latables(lnctr, 3))
The whole piece of code can be done in VFP9 by one INSERT command.

>Here is another compile error I am trying to sort out. Moving a vfp6 app to vfp9.
>
>The error returned is " Unknown LATABLES - Undefined"
>
>The only occurences of LATABLES is in the following code:
>
>
 PRIVATE lnctr, latables
> CREATE CURSOR PackCo (flpack L, fctable C (10), fcdesc C (80))
> lcgroupcond = IIF( .NOT. EMPTY(ouser.fcgroup), "UPPER(uttable.fcgroup)==UPPER(ouser.fcgroup)", "UPPER(uttable.fcgroup)==UPPER('EVERYONE  ')")
> SELECT .F. AS flpack, fctable, PROPER(fcdesc)  FROM uttable  WHERE AT_C('APPDATA', fcdatabase) <> 0  AND NOT UPPER(uttable.fcdesc) = "CUSTOM TABLE"  AND &lcgroupcond  INTO ARRAY latables ORDER BY fctable
> FOR lnctr = 1 TO ALEN(latables, 1)
>    APPEND BLANK
>    REPLACE flpack WITH latables(lnctr, 1), fctable WITH latables(lnctr, 2), fcdesc WITH i(latables(lnctr, 3))
> ENDFOR
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform