FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Utilizando el método bSkip wbrowse
Posts: 21
Joined: Tue Oct 11, 2005 09:42 PM
Utilizando el método bSkip wbrowse
Posted: Fri Oct 25, 2013 05:49 PM

Ola

Tengo una opción de filtro de búsqueda de productos para elegir qué 1-Productos en stock o 2-Productos sin valores o 3-Wide, intentado usar SetFilter () fue de red lenta, no puedo crear índices fijos o temporales, pensó en utilizar el método de bSkip navegar, pero no puedo hacer que funcione, podría alguien darme un ejemplo?

Seguir lo que estoy haciendo:

oBrwConsul:bSkip := { | nRecs | SkipEstoq( nRadio, cAlias, nRecs ) }
...
...
...

FUNCTION SkipEstoq( nRadio, cAlias, nRecords )

LOCAL nSkipped

DEFAULT nRecords := 1

IF nRadio == 1
IF (cAlias)->PrEstq <= 0 ; IF( nRecords < 0, nRecords--, nRecords++ ); ENDIF
ELSEIF nRadio == 2
IF (cAlias)->PrEstq > 0 ; IF( nRecords < 0, nRecords--, nRecords++ ) ; ENDIF
ENDIF

nSkipped := (cAlias)->( DbSkipper( nRecords ) )

RETURN nSkipped

[]´s



João Cezar - Brasil - Goiânia/GO.

FWH 14.09 - xHARBOUR 1.2.3 - WorkShop.Exe

Continue the discussion