Timm,
You are right. Fixed. Thank you for your feedback.
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Timm Sodtalbers" <
info@sodtalbers-it.de> escribió en el mensaje news:[email=4a703aa9@svctag-j7w3v3j....]4a703aa9@svctag-j7w3v3j....[/email]
Ignacio,
there is a little bug in METHOD GetFilterExp( oDBBrowse ) CLASS XDbfDataSet, I think.
IF ! Empty( cVal )
cExp := oCol:FilterEval
IF Empty( cExp ) .and. Valtype( oCol:oDataField ) == "O"
WITH OBJECT oCol:oDataField
DO CASE
CASE :cType == "C" .OR. :cType == "M"
cVal := Upper( cVal )
lComBef := ( Left( cVal, 1 ) == "%" )
lComAft := ( Right( cVal, 1 ) == "%" )
IF lComBef .AND. !lComAft
cVal := Substr( cVal, 2 )
cLen := lTrim( Str( Len( cVal ) ) )
cExp += "Right( Upper( " + :cDbfName + " ), " + cLen + " ) == '%'"
ELSEIF !lComBef .AND. lComAft
cVal := Substr( cVal, 1, Len( cVal ) - 1 )
cLen := lTrim( Str( Len( cVal ) ) )
cExp += "Left( Upper( " + :cDbfName + " ), " + cLen + " ) == '%'"
ELSE
IF lComBef .AND. lComAft
cVal := Substr( cVal, 2, Len( cVal ) - 2 )
ENDIF
cExp += "'%' $ Upper( " + :cDbfName + " )"
ENDIF
Example of what happens if the red marked code is not added:
cExp := oCol:FilterEval + "'%' $ Upper( " + :cDbfName + " )"
Best regards, Timm.
"Ignacio Ortiz de Zúñiga" <
NoNameToAvoidSpam@xailer.com> schrieb im Newsbeitrag news:4a70101a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hello,
>
> First column on sample datacontrolsDbfData1 uses the FilterEval property
> and is working correctly here. Please send a sample. TIA.
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer support / Soporte de Xailer
>
http://www.xailer.com
>
http://www.xailer.info
> "Timm Sodtalbers" <
info@sodtalbers-it.de> escribió en el mensaje
> news:4a6ffd34$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hi,
>>
>> since I use Xailer 2 FilterEval does not work anymore.
>>
>> ::oBrwHistorie:aCols[8]:FilterEval := "'%' $ MITARBEIT"
>>
>> The value that is typed into the filter get is deleted automatically.
>> Filtering without using FilterEval works.
>>
>> Best regards, Timm.
>>
>>
>
>
--