Setfilter TWBrowse
Posted: Mon May 29, 2006 8:59 am
Hi,
I think that the setfilter method is wrong when you try filter a field that has a combined index .
e.g:
1) the field is te01 and is number, there is also a field te02 character
2) the index of te01 is str(te01,4)+te02
Try to use the setfilter method and you will se the error . I think the error is at this line:
if uVal1 != nil
cIndexType := ( ::cAlias )->( ValType( &( IndexKey() ) ) )
if ( ::cAlias )->( ValType( &cField ) ) != cIndexType .or. ;
ValType( uVal1 ) != cIndexType .or. ;
ValType( uVal2 ) != cIndexType
MsgAlert( "TWBrowse SetFilter() types don't match with current Index Key type!" )
I think that buildskip is worg too when using the above example at line :
static function BuildSkip( cAlias, cField, uValue1, uValue2 )
local bSkipBlock
local cType := ValType( uVal1 )
regards,
A.S.K
I think that the setfilter method is wrong when you try filter a field that has a combined index .
e.g:
1) the field is te01 and is number, there is also a field te02 character
2) the index of te01 is str(te01,4)+te02
Try to use the setfilter method and you will se the error . I think the error is at this line:
if uVal1 != nil
cIndexType := ( ::cAlias )->( ValType( &( IndexKey() ) ) )
if ( ::cAlias )->( ValType( &cField ) ) != cIndexType .or. ;
ValType( uVal1 ) != cIndexType .or. ;
ValType( uVal2 ) != cIndexType
MsgAlert( "TWBrowse SetFilter() types don't match with current Index Key type!" )
I think that buildskip is worg too when using the above example at line :
static function BuildSkip( cAlias, cField, uValue1, uValue2 )
local bSkipBlock
local cType := ValType( uVal1 )
regards,
A.S.K