FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour bug in xbrowse export to open office
Posts: 946
Joined: Thu Oct 06, 2005 07:05 PM
bug in xbrowse export to open office
Posted: Tue Aug 31, 2010 11:41 AM

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

http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013

Continue the discussion