2002-11-26 21:20 UTC+0100 Tomaz Zupan <tomaz.zupan@orpo.si>

harbour/ChangeLog

@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-11-26 21:20 UTC+0100 Tomaz Zupan <tomaz.zupan@orpo.si>
+  * contrib/odbc/browodbc.prg
+    ! There was a bug in skipping, that threw an error when 
+      dataset contained 0 rows
+
 2002-11-25 21:45 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
   * utils/hbmake/hbmake.prg
     ! removed unused Var

harbour/contrib/odbc/browodbc.prg

@@ -215,20 +215,24 @@ STATIC FUNCTION Skipped( nRecs, oDataSource )
          // ODBC doesn't have skip(0)
       ELSEIF nRecs > 0 
          DO WHILE nSkipped < nRecs
-            oDataSource:next( )
-            IF oDataSource:Eof()
+           IF .NOT. oDataSource:Eof()
+             oDataSource:next( )
+             IF oDataSource:Eof()
                oDataSource:prior( )
                EXIT
-            ENDIF
-            nSkipped++
+             ENDIF
+             nSkipped++
+           ENDIF  
          ENDDO
       ELSEIF nRecs < 0
          DO WHILE nSkipped > nRecs
-            oDataSource:prior( )
-            IF oDataSource:Bof()
+           IF .NOT. oDataSource:Bof()
+             oDataSource:prior( )
+             IF oDataSource:Bof()
                EXIT
-            ENDIF
-            nSkipped--
+             ENDIF
+             nSkipped--
+           ENDIF  
          ENDDO
       ENDIF
    ENDIF