declare @ltStartDate datetime declare @ltEndDate datetime declare @lnSelDeptID as int set @lnSelDeptID=1 set @ltStartDate = '03/12/2002 00:00:01' set @ltEndDate = '03/12/2002 23:59:59' SELECT dbo.meetings.meetingnumber, dbo.codept.ChgDepartmentID, dbo.codept.DeptStockLoc, dbo.cocasedata.actualqty, dbo.cocasedata.linkedid, dbo.coinv.immsfield, dbo.coinv.catalogno, dbo.coUnitofIssue.UnitofIssueCode, dbo.coinv.cf, dbo.meetings.begintime FROM dbo.meetings INNER JOIN dbo.cocasedata ON dbo.meetings.meetingnumber = dbo.cocasedata.meetingnumber INNER JOIN dbo.codept ON dbo.meetings.deptid = dbo.codept.deptid INNER JOIN dbo.coinv ON dbo.cocasedata.linkedid = dbo.coinv.invid LEFT OUTER JOIN dbo.coUnitofIssue ON dbo.coinv.UnitIssueID = dbo.coUnitofIssue.UnitIssueID WHERE (dbo.meetings.iscompleted = 1) and dbo.meetings.deptid=@lnSelDeptID and dbo.meetings.begintime between @ltStartDate and @ltEndDateVFP Code:
lnSelDeptID=rv_userDept.deptid lcStartDate=DTOC(thisform.processdate)+[ 00:00:01] ltStartDate=CTOT(lcStartDate) lcEndDate= DTOC(thisform.processdate)+[ 23:59:00] ltEndDate= CTOT(lcEndDate) * Get all the data we need to send lcCmd="" lcCmd=lcCmd+[SELECT dbo.meetings.meetingnumber, dbo.codept.ChgDepartmentID, dbo.codept.DeptStockLoc, dbo.cocasedata.actualqty, dbo.cocasedata.linkedid, ] lcCmd=lcCmd+[ dbo.coinv.immsfield, dbo.coinv.catalogno, dbo.coUnitofIssue.UnitofIssueCode, dbo.coinv.cf, dbo.meetings.begintime ] lcCmd=lcCmd+[FROM dbo.meetings INNER JOIN ] lcCmd=lcCmd+[ dbo.cocasedata ON dbo.meetings.meetingnumber = dbo.cocasedata.meetingnumber INNER JOIN ] lcCmd=lcCmd+[ dbo.codept ON dbo.meetings.deptid = dbo.codept.deptid INNER JOIN ] lcCmd=lcCmd+[ dbo.coinv ON dbo.cocasedata.linkedid = dbo.coinv.invid LEFT OUTER JOIN ] lcCmd=lcCmd+[ dbo.coUnitofIssue ON dbo.coinv.UnitIssueID = dbo.coUnitofIssue.UnitIssueID ] lcCmd=lcCmd+[WHERE (dbo.meetings.iscompleted = 1) ] lcCmd=lcCmd+[and dbo.meetings.deptid=?lnSelDeptID ] lcCmd=lcCmd+[and dbo.meetings.begintime between ?ltStartDate and ?ltEndDate ] IF SQLEXEC(gnConnHandle,lcCmd,"CurCaseData")<1 IF RECCOUNT("CurCaseData")>0 SELECT curCaseData browse ELSE =MESSAGEBOX("There were no completed cases with issues to process for the selected date and department.",64+4096,"Care Tracker Enterprise",20000) ENDIF ELSE =sqlerror() endifIt bombs on the sqlexec() line. It returns -1 and the aerror function returns: