PC Toledo

Código: Selecionar todos

oMybrowser:SKIPBLOCK     := {|x| SKIPWHIL(x, {||FATABELA->Cod_Clie==mCod_Clie})}
oMybrowser:GOTOPBLOCK    := {| | SKIPWHIL((LASTREC()* -1),{||FATABELA->Cod_Clie==mCod_Clie})}
oMybrowser:GOBOTTOMBLOCK := {| | SKIPWHIL((LASTREC()* 1), {||FATABELA->Cod_Clie==mCod_Clie})}


//---------------
* 
* SKIPWHIL () 
* 
* Esta funcao 'e auxiliar dos browsers, e serve para fazer filtros... 
* Dudu_Xbase : 23/05/1997 fununcionou... *:) 
* 
**********/ 

function SKIPWHIL (x,key_val) 

    local i := 0 

    if lastkey() == 0 
       return i 
    endif 

    if (x > 0 .and. recno() <> lastrec()+1) 
       do while (i < x) 
          DBSKIP(1)
          if eof() .or. !(eval(key_val)) 
             DBSKIP(-1)
             exit 
          endif 
          i++ 
       enddo 
    elseif (x < 0) 
       do while (i > x) 
          DBSKIP(-1)
          if bof() 
             exit 
          endif 
          if !(eval(key_val)) 
             DBSKIP(1)
             exit 
          endif 
          i-- 
       enddo 
    endif 
return i