Sorry, Naomi, I couldn't make much headway.

I have fixed messageboxes at different points of this code. Messagebox 2 does not fire. Here is the code, which I was trying to avoid sending, since it was so long...!

PUBLIC gcLogPass,gcblock2
gcLogPass=0  && Initialising login password
Set Cent to 19 rollover 50
set date Brit

PUBL gdDate
Sele dailywork
set order to ddate
Go Bott
STORE Dailywork.ddate TO gdDate
Set filt to dailywork.ddate = gddate

ThisForm.Showtips=.T.

** Doing a calendar check...
*lopdate=gddate&&-30&& Fixing a start date 30 days earlier
Sele OprCalendar
set order to dstart
set filt to month(dstart)>=month(gddate)-1 and month(dstart)<=month(gddate)+1 &&Creating a 3 month platform of work
*set filt to month(dstart)>=month(gddate)-1 &&and month(dstart)<=month(gddate)+1 &&Creating a 3 month platform of work
*brow
scan
** Converting date to current year (in 3 steps)
Publ ldstart  && scheduled date of operation start
ldstart=dtoc(oprcalendar.dstart)
ldstart=ctod(alltrim(left(ldstart,6))+alltrim(str(year(gddate)))) && day and month from;
*oprcalendar, but current year
If gddate >= ldstart 
	&& Now check whether the operation has been done in dailywork
	SELECT ddate,copr FROM dailywork WHERE dailywork.ddate <=gddate AND dailywork.ddate >=ldstart;
	AND dailywork.copr=oprcalendar.copr INTO CURSOR cur1
	STORE RECCOUNT() TO lccount 
	*brow
	If lccount < 1  && If no records have been entered
		Messagebox("You have not started Operation "+oprCalendar.copr+"This operation was supposed;
to be started by "+dtoc(ldstart),0,'Late start')
	Endif
Endif
ENDSCAN

WORKS TILL HERE!
BELOW CODE DOES NOT WORK....

MESSAGEBOX("2")