Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Running 2x in a vfp6 window
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00246847
Message ID:
00247006
Views:
30
Heya Chuck ---

Look at Ed Rauh's API AppRun class here on the UT. It worked great with the problem we were having (as discussed on the phone the other day).

>Yeh guys, I know I will get grief from this one.
>A little history...I have many old 2x applications to Y2k test and get running in our current environment - vfp6. I have developed a process to enable us to run these old dos apps from our main application by using a generic main.prg to create the user right varible and give the app access to our about window and allow it to exit to the main launch app.
>
>I created a form with no controls and put the dos apps main program in the init event, with some massaging. Which has pretty much worked. My problem is: an error message "file is not open" error 1113. Is this a path problem? The prg's are part of the project. This happens when a menu select is made from the below code:
> STOR 1 TO chox
> @ 6,28 PROMPT " 0. QUIT "
> @ 8,28 PROMPT " 1. ADD CHARGES "
> @ 10,28 PROMPT " 2. EDIT CHARGES "
> @ 12,28 PROMPT " 3. MONTHLY REPORTS "
> @ 14,28 PROMPT " 4. DATABASE CLEANUP "
> @ 16,28 PROMPT " 5. QUIK BY-ORG REPORT "
> @ 18,28 PROMPT " 6. FULL BILL AS INPUT "
> @ 20,28 PROMPT " 7. CARD MAINTENANCE "
> MENU TO chox
> do case
> case chox = 1
> thisform.release
> case chox = 2
> do Add.prg
> etc.....
> endcase
>There is a read events when this form is instaniated. The program runs sometimes but I cannot figure out when or what setting is controlling the "DO ??.prg", making the file unavailable or invisible to the calling routine.
>
>I know this is an unorthodox way of handling this, but I cannot rewrite these apps and I need them to run in the vfp6 environment.
>
>Thanks to anyone who dares, Chuck
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform