bb.donnay-software.com

Code: Select all

------------------------------------------------------------------------------
Rba Version: 10.81.0011 (29/04/2013)
Express++ Version: eXPress++ (c) Version 1.9 Build 258
Xbase++ version: Xbase++ (R) Version 2.00.470
Operating system: Windows 7 06.01 Build 07601 Service Pack 1
------------------------------------------------------------------------------
oError:args         :oError:canDefault   :.T.
oError:canRetry     :.F.
oError:canSubstitute:.F.
oError:cargo        :NIL
oError:description  :Operation not supported by this DBE
oError:filename     :
oError:genCode      :58
oError:operation    :DbPosition
oError:osCode       :0
oError:severity     :2
oError:subCode      :8015
oError:subSystem    :BASE
oError:thread       :5
oError:tries        :0
------------------------------------------------------------------------------
CURRENT DATABASE:
------------------------------------------------------------------------------
Alias(): STK_SUP  Record: 283  Index: 2,STK_SUP2
  Extra DbInfo details
    Filename: STK_SUP.DBF
    Database Alias: STK_SUP  No. of Relations: 1  No. of Orders: 4
    In Shared Mode: .T.  Storage on Remote Drive: .F.  Database Engine: PGDBE
    Client/Server: .F.  ReadOnly Access: .F.
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from DC_DBPOSITION(949)
Called from (B)DC_XBPBROWSE:INIT(669)
Called from XBPBROWSE:FORCESTABLE(1142)
Called from DC_XBPBROWSE:FORCESTABLE(1352)
Called from XBPBROWSE:HANDLEEVENT(1538)
Called from DC_XBPBROWSE:HANDLEEVENT(1101)
Called from XBPBROWSE:SHOW(3304)
Called from DC_GETLIST:READGUI(3163)
Called from DC_READGUI(109)
Called from CS_UPDATE(2560)
Called from (B)MENURUN(0)
Called from RUNFUNCTION(87)
Called from (B)RUN_PROCEDURE(74)
------------------------------------------------------------------------------

Code: Select all

FUNCTION DC_dbPosition ( nTimeOut, lDescending )

LOCAL nRecCount, nKeyNo, aScope, bErrorBlock, nPosition := 0, xScopeTop, xScopeBot
LOCAL lExact, aScopeArray, nPointer

IF Empty(Alias()) .OR. RecCount() = 0 .OR. Upper(_SetRdd())='PGDBE'
  RETURN 0
ENDIF

DEFAULT lDescending := .f.

aScopeArray := DC_SetScopeArray()
IF Valtype(aScopeArray) = 'A'
  IF Empty(aScopeArray)
    RETURN 0
  ENDIF
  nPointer := DC_SetScopeArrayPointer()
  IF nPointer = 1
    nPointer := 0
  ENDIF
  nPosition := (nPointer/Len(aScopeArray))*100
  IF lDescending
    RETURN 100-nPosition
  ELSE
    RETURN nPosition
  ENDIF
ENDIF

IF !DC_ScopeExpress()
  IF lDescending
    RETURN 100-dbPosition()
  ELSE
    RETURN dbPosition()
  ENDIF
ENDIF

IF IndexOrd() = 0
  bErrorBlock := ErrorBlock({||_PosError()})
  BEGIN SEQUENCE
  nPosition := dbPosition()
  END SEQUENCE
  ErrorBlock(bErrorBlock)
  RETURN nPosition
ENDIF

lExact := Set(_SET_EXACT,.f.)
aScope := DC_DbCargo()

xScopeTop := aScope[DCCARGO_ORDER_ARRAY, IndexOrd(),DCCARGO_ORDER_TOP]
xScopeBot := aScope[DCCARGO_ORDER_ARRAY, IndexOrd(),DCCARGO_ORDER_BOTTOM]

IF Valtype(xScopeTop) = 'C' .AND. Len(xScopeTop) = 0
  xScopeTop := nil
ENDIF

IF Valtype(xScopeBot) = 'C' .AND. Len(xScopeBot) = 0
  xScopeBot := nil
ENDIF

IF Valtype(xScopeTop) # 'U' .AND. Valtype(xScopeBot) # 'U'
  nKeyNo := DC_KeyNo( nTimeOut, @nRecCount )
  IF nKeyNo = -1 .OR. nRecCount = 0
    Set(_SET_EXACT,lExact)
    RETURN 0
  ENDIF
  nPosition := Int(100*(nKeyNo/nRecCount))
  IF lDescending
    nPosition := 100 - nPosition
  ENDIF
  Set(_SET_EXACT,lExact)
  RETURN nPosition
ELSE
  nRecCount := DC_KeyCount()
ENDIF

bErrorBlock := ErrorBlock({||_PosError()})
BEGIN SEQUENCE
nPosition := dbPosition()
END SEQUENCE
ErrorBlock(bErrorBlock)

IF lDescending
  nPosition := nRecCount - nPosition
ENDIF

Set(_SET_EXACT,lExact)

RETURN nPosition