Hi everybody,

I have a form with an ActiveX control. The form's base class has an Error method defined and I've seen it firing.

One of the ActiveX control event is calling several form's methods (one method is calling another method).

One method is called CheckInstructorPreferences and it starts with the following code

text TO lcSQL TEXTMERGE noshow
       DECLARE @Instr_ID CHAR(12);
       SET @Instr_ID = <<VFP2SQL(m.tcInstructor)>>;
       
        SELECT instr_id, sex, tch_level, snb_level, tele_level, misc_level,
          criteria_2, criteria_3, criteria_4, criteria_5, on_job, experience,
          pop_up1_1, pop_up1_2, pop_up1_3, pop_up1_4, pop_up1_5, pop_up1_6,
          pop_up1_7, pop_up1_8, pop_up1_9, pop_up1_10, pop_up2_1, pop_up2_2,
          pop_up2_3, pop_up2_4, pop_up2_5, pop_up2_6, pop_up2_7, pop_up2_8,
          pop_up2_9, pop_up2_10, pop_up2_11, pop_up2_12, pop_up2_13, pop_up2_14,
          pop_up2_15, pop_up3_1, pop_up3_2,
          pop_up3_3, pop_up3_4, pop_up3_5, pop_up3_6, pop_up3_7, pop_up3_8,
          pop_up3_9, pop_up3_10, pop_up3_11, pop_up3_12, pop_up3_13, pop_up3_14,
          pop_up3_15
     FROM dbo.b_instr
     WHERE instr_id= @Instr_ID <<m.lcSupervisorFilter>>;
     
     SELECT * from dbo.b_in_bs WHERE instr_id=@Instr_ID;

ENDTEXT

mysqlexec(m.lcSQL, 'csrTemp', program())

select csrTemp1
index on base_id tag base_id
select csrTemp
&&STEP 1 - would this new booking conflict with guest requirements?
if alltrim(csrTemp.instr_id)==m.tcInstructor      &&found instructor?
	do case
	case b_sched.pref_lvl2=3 and not csrTemp.sex=b_sched.sex
		lcReqOK = 'Booking requiring a specific gender would be violated'
	case b_sched.pref_lvl4=3
		if !empty(b_sched.whichlevel)
			lcWhichLevel = lower(alltrim(b_sched.whichlevel))
			do case
			case m.lcWhichLevel = 'tch_level' and not csrTemp.tch_level>=b_sched.tch_level
				lcReqOK = 'Booking requiring a minimum alpine level would be violated'
			case m.lcWhichLevel = 'snb_level' and not csrTemp.snb_level>=b_sched.snb_level
				lcReqOK = 'Booking requiring a minimum snowboard level would be violated'
			case m.lcWhichLevel = 'tele_level' and not csrTemp.tele_level>=b_sched.tele_level
				lcReqOK = 'Booking requiring a minimum telemark level would be violated'
			case m.lcWhichLevel = 'misc_level' and not csrTemp.misc_level>=b_sched.misc_level
				lcReqOK = 'Booking requiring a minimum other level would be violated'
			endcase
		endif
	case b_sched.pref_lvl11 = 3 
	    if not seek(b_sched.base_id, 'csrTemp1', 'base_id')
			lcReqOK = 'Booking requiring specific instructor base would be violated'
        endif
	case b_sched.pref_lvl5=3 and not csrTemp.criteria_2=b_sched.criteria2
		lcReqOK='Booking requiring specific "' + alltrim(prefs_bk.b_crit2) + '" selection would be violated'

I added today an extra select statement in the lcSQL and the extra case for checking base_id.

So, when I try to debug this method once I go to the case b_sched.pref_lvl11 = 3 the cursor immediately goes to the endcase at the bottom and exits that method and then the rest of the code in the calling method fires.

It looks to me that something is wrong on that seek line, but I do not see it. Also, the error method of the form is not firing.

So, what could it be here?

Why I can not go to the if not seek line?

Also, originally the not seek was the same case condition, but I got similar behavior - once the cursor reached that line, it went to the end of the case statement.

Do you see what I may be missing here?

Thanks in advance.