Code: Select all
STATIC FUNCTION ADO_FILTERTEXT(nWa,cFilterExp)
LOCAL aWAData := USRRDD_AREADATA( nWA )
cFilterExp := aWAData[WA_CFILTERACTIVE]
RETURN HB_SUCCESS
Code: Select all
METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse
local oCol, aStruct
local cAlias, cAdsKeyNo, cAdsKeyCount
local nFields, nFor, n, uData
local bOnSkip
if Empty( ::cAlias )
::cAlias := Alias()
if Empty( ::cAlias )
return nil
endif
endif
if ::lCreated
if ::nDataType == DATATYPE_RDD
if SameDbfStruct( Self, Alias() )
return nil
endif
endif
::cAlias := Alias()
::ClearBlocks()
::aCols := {}
endif
DEFAULT lAddColumns := Empty( ::aCols ) .or. ! Empty( aFldNames )
DEFAULT lAutoOrder := ::lAutoSort
::lAutoSort := lAutoOrder
cAlias := ::cAlias
if ValType( aRows ) == 'A' .and. Len( aRows ) > 0
if ValType( aRows[ 1 ] ) == 'A'
bOnSkip := { | oBrw | ( oBrw:cAlias )->( DbGoTo( oBrw:aArrayData[ oBrw:nArrayAt ][ 1 ] ) ) }
else
bOnSkip := { | oBrw | ( oBrw:cAlias )->( DbGoTo( oBrw:aArrayData[ oBrw:nArrayAt ] ) ) }
endif
::SetArray( aRows, .f., 0, .f., bOnSkip )
::nDataType := nOr( DATATYPE_RDD, DATATYPE_ARRAY )
lAutoOrder := .f.
else
::nDataType := DATATYPE_RDD
endif
::lSqlRDD := ( ( ::cAlias )->( RddName() ) == "SQLRDD" )
if ::lSqlRDD
DEFAULT ::bKeyNo := { |n| 0 }
endif
DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },;
::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },;
::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },;
::bBof := {|| ( ::cAlias )->( Bof() ) },;
::bEof := {|| ( ::cAlias )->( Eof() ) },;
::bBookMark := {| n | iif( n == nil,;
( ::cAlias )->( RecNo() ),;
( ::cAlias )->( DbGoto( n );
) ) }
If ( "ADS"$( ::cAlias )->( RddName() ) .or. 'ADT' $ ( ::cAlias )->( RddName() ) ) .and. ;
( ::cAlias )->( LastRec() ) > 200
// Modified in FWH 9.06
// AdsGetRelKeyPos() returns approximate position as % and when multipilied by 100 and rounded off
// returns incorrect values occassionally on smaller tables. OrdKeyNo() mapped to AdsKeyNo() gives reliable
// result in such cases. For large tables OrdKeyNo() is unacceptably slow. Limit of 200 is chosen because
// 0.5% is 1/200.
cAdsKeyNo := "{| n, Self | iif( n == nil, " +;
"Round( " + cAlias + "->( ADSGetRelKeyPos() ) * Self:nLen, 0 ), "+;
cAlias + "->( ADSSetRelKeyPos( n / Self:nLen ) ) ) }"
cAdsKeyCount := "{|| " + cAlias + "->( ADSKeyCount(,,1) )}"
DEFAULT ::bKeyNo := &cAdsKeyNo ,;
::bKeyCount := &cAdsKeyCount
::lRelyOnKeyNo := .f.
else
DEFAULT ::bKeyNo := {| n | iif( n == nil,;
( ::cAlias )->( OrdKeyNo() ),;
( ::cAlias )->( OrdKeyGoto( n );
) ) },;
::bKeyCount := {|| ( ::cAlias )->( If( eof() .and. bof(), 0, OrdKeyCount() ) ) }
::lRelyOnKeyNo := If( Set( _SET_DELETED ), "DELETED()" $ Upper( DbFilter() ), .t. )
Endif
if ::lSqlRDD
::lRelyOnKeyNo := .f.
endif
::lReadOnly := ( ( ::cAlias )->( DbInfo( DBI_ISREADONLY ) ) == .t. )
aStruct := ( ::cAlias )->( dbstruct() )
if lAddColumns
if Empty( aFldNames )
aFldNames := { '*' }
endif
for each uData in aFldNames
if ValType( uData ) == 'C' .and. uData == '*'
for nFor := 1 to ( ::cAlias )->( FCount() )
( ::cAlias )->( SetColFromRDD( ::AddCol(), nFor ) )
next
else
( ::cAlias )->( SetColFromRDD( ::AddCol(), uData, aStruct ) )
endif
next
endif
(::cAlias)->( OrderTagInfo( aStruct, 8 ) )
for nFor := 1 to Len( ::aCols )
if ( n := AScan( aStruct, { |a| a[ 1 ] == Upper( ::aCols[ nFor ]:cHeader ) } ) ) > 0
::aCols[ nFor ]:cSortOrder := aStruct[ n ][ 8 ]
::aCols[ nFor ]:cOrdBag := ( cAlias )->( OrdBagName( ::aCols[ nFor ]:cSortOrder ) )
endif
next nFor
DEFAULT ::bSeek := { |c,u| ( ::cAlias )->( ::RddIncrSeek( c, @u ) ) }
if ( ::cAlias )->( DbInfo( DBI_SHARED ) )
::bLock := { || ( ::cAlias )->( DbrLock() ) }
::bUnlock := { || ( ::cAlias )->( DbrUnlock() ) }
endif
::bDelete := { || ( ::cAlias )->( If( ::nLen > 0 .and. Eval( ::bLock ), ( DbDelete(), Eval( ::bUnlock ), ;
If( Set( _SET_DELETED ), ( DbSkip(1), If( Eof(), DbGoBottom(), nil ) ), nil ) ;
), nil ) ) }
if Empty( ::cTitle )
::cTitle := cFileNoExt( ( ::cAlias )->( DBINFO( DBI_FULLPATH ) ) )
endif
if ::lCreated
::Adjust()
::Refresh()
endif
return nil
//----------------------------------------------------------------------------//
Code: Select all
STATIC FUNCTION ADO_RECCOUNT( nWA, nRecords )
LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ],nRecNo
IF oRecordSet:RecordCount() < 0
nRecords := ADORECCOUNT(nWA,oRecordSet) // AHF SEE FUNCTION FOR EXPLANATION oRecordSet:RecordCount()
ELSE
ADO_RECID(nWA,@nRecNo)
IF nRecNo > oRecordSet:RecordCount()
nRecords := nRecNo
ELSE
nRecords := oRecordSet:RecordCount()
ENDIF
ENDIF
RETURN HB_SUCCESSIm not sure what you mean.I tested same filter with DBFCDX and RecCount() also is different in DBFCDX from OrdKeyCount(). I am lost.
Code: Select all
USE table
msginfo("total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
SET FILTER TO whatever
msginfo("total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
dbgotop()
do while !eof()
msginfo(" recno "+str(recno())+" total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
skip
enddo
Yes, it should be but in fact does not.adordd should be treated as any dbf rdd.
Code: Select all
bKeyNo,; // SETGET codeblock to be used for positioning the vertical scrollbar
DEFAULT ::bKeyNo := {| n | iif( n == nil,;
( ::cAlias )->( OrdKeyNo() ),;
( ::cAlias )->( [b]OrdKeyGoto( n )[/b];
Code: Select all
USE table
msginfo("total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
SET FILTER TO whatever
msginfo("total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
dbgotop()
do while !eof()
msginfo(" recno "+str(recno())+" total recs "+str(lastrec())+" ordkeycount "+str(ordkeycount()))
skip
enddoCode: Select all
INDEX ON DELETED() TAG DELETED TO TMP MEMORY ADDITIVE
OrdSetFocus( 1 ) // this does nothing
place my func check state here
Code: Select all
if ( uData )->( RDDNAME() ) == 'DBFCDX' .and. ( uData )->( OrdCount() ) == 0 .and. ;
( uData )->( LastRec() ) <= 1000
( uData )->( MakeTmpIndex() )
endif