bug in xbrowse export to open office

[Richard Chidiak]

Hello

When i try to export to open office i get an error message

Error description: Error com.sun.star.ServiceManager:CREATEINSTANCE:LOADCOMPONENTFROMURL:GETSHEETS:GETBYINDEX:GETCELLBYPOSITION/3 DISP_E_MEMBERNOTFOUND: SETVALUE
Args:
[ 1] = C 44408.91

Stack Calls
===========
Called from: source\rtl\win32ole.prg => TOLEAUTO:SETVALUE(0)
Called from: C:\CBATI32\xbrowse.prg => PASTEUNFORMATTEDTEXT(7173)
Called from: C:\CBATI32\xbrowse.prg => TXBROWSE:TOCALC(6921)


The line in reference is

ELSEIF oCol:cDataType == "N"
oSheet:getCellByposition(nCol,nRow):SetValue(cStr) // this is the offending line


I have modified my xbrowse this way

ELSEIF oCol:cDataType == "N"
IF VALTYPE(cStr) # "N" // CHIDIAK
cStr := VAL(cStr)
ENDIF
oSheet:getCellByposition(nCol,nRow):SetValue(cStr)


My export is ok now

HTH

Richard