XBrowse ToExcel() Run time error and it's fix

[anserkk]

Dear Mr.Antonio,

There is a run time error which occurs in Line no 6357 Method ToCalc() xBrowse.Prg (As per ver 9.08)

Code: Select all  Expand view

6357    cFormat:=Upper(aSaveAs[i][1])

The run time error occurs only when the following conditions are true:-

1) xHarbour
2) MS-Excel NOT installed
3) Open Office Calc Installed
4) From our application prg we make a call to oBrw:ToExcel()

Problem:- A comma is missing on line no. 5787 Method ToExcel(), and as a result incorrect parameter is passed to the Method ToCalc()

Code: Select all  Expand view

   #ifdef __XHARBOUR__

      TRY
         oExcel   := GetActiveObject( "Excel.Application" )
      CATCH
    ....
    .....

5787     return ::ToCalc( bProgress, nGroupBy,, aCols )
   ....
   ....
  #else

Fix

Code: Select all  Expand view

return ::ToCalc( bProgress, nGroupBy,,, aCols )

This is for your information. Hope that this will be rectified in the next version

Regards
Anser

[nageswaragunupudi]

This bug was already fixed in FWH 9.11

[anserkk]

Dear Mr.Rao,

Thanks for the info.

Regards
Anser