Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Messagebox in timer
Message
 
To
18/05/2004 20:13:10
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00905129
Message ID:
00905192
Views:
11
Hi Evelyn,

I'm not sure what is in your Timer or where you put your Interval.

If your Timer is on a form,

You can look my code for an Idea,

Form Init Event
I put 10000 as my Interval at Timer's property.
Public nTimer,lContinue
SELECT("Serv_det")
SELECT * From Serv_det WHERE REMIND_DATE = DATE() INTO CURSOR TEMP
SELECT("TEMP")
GO TOP
IF !EOF() .OR. !BOF()
   IF lOnline
        nTimer = 10000
	lContinue = .F.
   ELSE
	nTimer = 0
   ENDIF
ELSE
   nTIMER = 0
ENDIF
On my Timer's Timer Event, I have the code below...
IF lOnline
   IF nTimer = 10000
      IF !USED("Serv_det")
	 USE G:\Helpdesk\data\Serv_det IN 0 ORDER TAG So_nbr SHARED
      ELSE
	 SELECT("Serv_det") 
	 SET ORDER TO TAG SO_NBR
      ENDIF
      SELECT("SERV_DET")
      GO TOP
      LOCATE FOR !EMPTY(so_nbr) .and. Remind_date = DATE() .And. Done =.F.  
      _So_nbr = ALLTRIM(so_nbr)
      _Custid = ALLTRIM(custid)
      _Custname = ALLTRIM(custname)
      _last_update = Last_update
	
      DO FORM Show-POPUP WITH _so_nbr,_custid,_custname,_last_update
      IF lContinue
	  DO WHILE !EOF()
	     CONTINUE
	     IF FOUND()
		  _so_nbr = ALLTRIM(so_nbr)
		  _Custid = ALLTRIM(custid)
		 _Custname = ALLTRIM(custname)
		_last_update = Last_update
		DO FORM SHOW-POPUP WITH _so_nbr,_custid,_custname,_last_update
	     ENDIF
          ENDDO
      ENDIF
ENDIF
This code will check all Service where last_update is the current date and it has criteria e.g Unfinished job. A form will pop-up where in user has to update. lContinue is true if user click Update button. It will show all unfinished services.
Jojo R. dela Cuesta, B.Sc.
eConsultant, Programmer
Dalplus Technologies
http://www.dalplus.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform