>>>> Select crsprod, crsitemcode, sum(crsrequestamt) as inreq, sum(crsaccptamt) as whsaccpt, crsdelivertype, Count(*) as duplicate From crs_grid1 ; >>>> Group By crsprod, crsitemcode, crsdelivertype HAVING duplicate > 1 AND crsdelivertype > 1 INTO CURSOR crs_find_dup >>>> IF isnull('crs_find_dup') >>>> MESSAGEBOX('empty cursor',0,'') >>>> ELSE >>>> MESSAGEBOX('not empty cursor',0,'') >>>> ENDIF >>>>>>>>
> SELECT SUM(capacity) AS capacity ; > FROM cVehCap ; > WHERE loadtype == lcType ; > INTO ARRAY latmp1 > IF !ISNULL(latmp1) AND !EMPTY(latmp1) >In order to check if a cursor is empty, what I started doing in VFP9 is:
GO TOP IF !BOF() * do whatever ELSE * empty cursor ENDIF