Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Ken Murphy
  Where is Ken Murphy?
 Springhill
 Canada
 Ken Murphy
 To: subhankar pandey
  Where is subhankar pandey?
 Kolkata/Delhi
 India
 subhankar pandey
 Tags
Subject: RE: 2 THISFORM.DataEnvironment is displaying
Thread ID: 143604 Message ID: 143639 # Views: 4 # Ratings: 1
Version: Visual FoxPro 5 Category: Errors & Debugging
Date: Thursday, August 30, 2007 1:43:50 PM         
   


> Dear Ken ,
>
> As desired, in the form1 I hv define the code in Keypress event.
>
LPARAMETERS nKeyCode, nShiftAltCtrl
> if nkeycode = 23
> nodefault
> clear events 
> close all 
> release all
> clear dlls
> 
> Do 2egm && calling 2egm.prg &&
> endif

>
> In 2egm.prg, I've define that
>
>
SET STATUS On
> SET TALK OFF
> SET BELL OFF
> SET SAFETY OFF
> SET ESCAPE ON
> ON ESCAPE DO escpress
> CLEAR
> 
> m_egm_number=0
> 
> DEFINE WIND esc_wind FROM 12,10 TO 14,65
> DELE FILE wwship.egm
> SELECT A
> USE master1 order enum
> 
> 
> SELECT B
> USE CONT1 order CEGMNUMBER
> 
> SELECT A
> GO TOP
> m_egm_number = egm_number
> 
> choice= " "
> 
> SET MESSAGE TO "press <ESC> to Exit"
> print_flag=.T.
> 
> DO WHILE print_flag= .t.
>    CLEAR
>    rele wind
>    @11,10 TO 16,70 PANEL
>    @12,15 SAY "Output on Screen or save in HDD ? (enter S or H)"
>    @14,45 GET choice PICT "A" VALID choice $ "SsHh"
>    READ
>    IF readkey()= 268
>       print_flag=.F.
>    ELSE
>       IF choice $ "SsHh"
>          SET MESSAGE TO
>          DO hdd_routine
>          print_flag=.F.
>       ENDIF
>    ENDIF
> ENDDO
> CLOSE ALL
> clear memory all
> CLose all
&& I'm stuck here &&
>
> If I comeout the choice screen , it is displaying the mentioned subject.
> Pls sugget
> tks
> Subhankar.
>

The first thing I note is that you are using old FP 2.X coding here. You have VFP 5, so you should be using the form designer rather than DEFINE WINDOW. The @SAY and @GET commands are probably the slowest way to build a screen that you can find. You can create a new form visually far faster than you could ever do using @SAY/@GET.

As to your problem, I see nothing in this code that will cause the problem that you are describing.

(If I might make a recommendation, VFP 5 was probably the buggiest version of VFP ever created. Upgrading to VFP 9 will give you a host of new features - the report features alone are worth the price of the upgrade.)



Ken
You shall know the truth - and the truth shall set you free. (John 8:33)

ENTIRE THREAD

2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 8:57:50 AM
RE: 2 THISFORM.DataEnvironment is displaying Posted by Ken Murphy @ 8/30/2007 12:40:42 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 1:25:28 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by Ken Murphy @ 8/30/2007 1:43:50 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 1:49:28 PM