Version 2.7.1 test

[Fabio Gianellini]

dear all, i'm try to test the new version 2.7.1 using harbour compiler on some simple project.
using xharbour no problem, using harbour when i activate the filterbar on a dbbrowse i receive an datacontrol error
here attached the error and the sample project
to buil the project i have:
1. change the project definition from xharbour to harbour
2. no external library (only default)
3. clean the project
4. rebuild
thank's in advance

Attached files test.zip (31.9 KB)Â

[ignacio]

Fabio Gianellini escribió el mié, 24 octubre 2012 12:32dear all, i'm try to test the new version 2.7.1 using harbour compiler on some simple project.
using xharbour no problem, using harbour when i activate the filterbar on a dbbrowse i receive an datacontrol error
here attached the error and the sample project
to buil the project i have:
1. change the project definition from xharbour to harbour
2. no external library (only default)
3. clean the project
4. rebuild
thank's in advance
Hello,
Bug found. Here is the code corrected:
METHOD Filter( cExp ) CLASS XAdoRecords
LOCAL cOldFilter
WITH OBJECT ::oAdo
TRY
cOldFilter := :Filter
IF cExp != Nil
:Filter := cExp
ENDIF
CATCH
::NewADOError( "ADODB:RecordSet:Filter( " + cExp + " )" )
END
END WITH
IF Valtype( cOldFilter ) != "C"
cOldFilter := ""
ENDIF
RETURN cOldFilter
You can modify the original module or do the following on any of your source files:
CLASS TAdoRecords FROM XAdoRecords
METHOD Filter( cExp )
ENDCLASS
METHOD Filter( cExp ) CLASS TAdoRecords
LOCAL cOldFilter
WITH OBJECT ::oAdo
TRY
cOldFilter := :Filter
IF cExp != Nil
:Filter := cExp
ENDIF
CATCH
::NewADOError( "ADODB:RecordSet:Filter( " + cExp + " )" )
END
END WITH
IF Valtype( cOldFilter ) != "C"
cOldFilter := ""
ENDIF
RETURN cOldFilter
If you choose this second way do not forget to delete this code with the new Xailer update.
Regards,