Module: _tbrdb      Library: Clipper 5.3


This module contains the following functions and procedures:



Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  SKIPPED( Arg1 )
//
static function SKIPPED( Arg1 )

   local Local1 := 0
   if ( LastRec() != 0 )
      if ( Arg1 == 0 )
         skip 0
      elseif ( Arg1 > 0 .AND. RecNo() != LastRec() + 1 )
         do while ( Local1 < Arg1 )
            skip 
            if ( EOF() )
               skip -1
               exit
            endif
            Local1++
         enddo
      elseif ( Arg1 < 0 )
         do while ( Local1 > Arg1 )
            skip -1
            if ( BOF() )
               exit
            endif
            Local1--
         enddo
      endif
   endif
   return Local1

//---------------------------------------------------[top]-
//  TBROWSEDB( Arg1, Arg2, Arg3, Arg4 )
//
function TBROWSEDB( Arg1, Arg2, Arg3, Arg4 )

   local Local1
   Local1 := tbrowsenew(Arg1, Arg2, Arg3, Arg4)
   Local1:skipblock({ |_1| skipped(_1) })
   Local1:gotopbloc({ || dbGoTop() })
   Local1:gobottomb({ || dbGoBottom() })
   return Local1

//---EOF


Use your Browser's BACK button to return to Function Listings