Dynamics Community Forum Thread Details

Programming Bulletproof Error 9800

Although this is posted before, but I still can not resolve it.

Code:

Private Sub cSubmitTO_6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cSubmitTO_6.Click

If bTimeOff.Technician = "" Or bTimeOff.Task = "" Or DateToStr(bTimeOff.Date_Renamed) = "" Or bTimeOff.AMPM = "" Or bTimeOff.Time = "" Then

Call MessBox("Please enter all required information.", 0, "System Message")

Else

serr1 = SqlFetch1(c1, "Select * from xpstask where technician = " & SParm(bTimeOff.Technician) & " and scheduledate = " & DParm(bTimeOff.Date_Renamed) & " and scheduletime = " & SParm(bTimeOff.Time) & " and ampm = " & SParm(bTimeOff.AMPM), bxPSTask)

If serr1 = NOTFOUND Then

' 9800 error - use another cursor ; changed from c1 to c2

serr2 = SqlFetch1(c2, "EXEC xPSTask_Insert3" & SParm(bTimeOff.Technician) & SParm(bTimeOff.Task) & DParm(bTimeOff.Date_Renamed) & SParm(bTimeOff.Time) & FParm(bTimeOff.Hrs) & SParm(bTimeOff.Desc) & SParm(bTimeOff.AMPM) & SParm(bpes.UserId), bxPSTask)

Call MessBox("Time off has been scheduled.", 0, "Time Submitted")

bTimeOff.Date_Renamed = nTimeOff.Date_Renamed

bTimeOff.Hrs = 0

bTimeOff.Desc = ""

bTimeOff.Task = ""

bTimeOff.Time = "0800"

bTimeOff.AMPM = "AM"

Call DispFields(Me, PNULL, PNULL)

Else

Call MessBox("There is time conflict for this technician. Time off cannot be scheduled.", 0, "Time Conflict")

End If

End Sub