xbrowse function toCalc

[damianodec]

hi,
I have this xbrowse:

I try to export in Excel(obrw:toexcel) and OpenOffice (oBrw:tcalc()).

in Excel it's ok:


but in Calc I get this:


column ARTICOLO become Numeric rounded.

any help?

thank you

[anserkk]

I tested the following code and found that I am getting the right result in Calc

Code: Select all  Expand view  RUN

#Include "Fivewin.ch"
//---------------------------------------------
Function Main()
    Local oDlg,oBrw,aData,oBar
   
    aData:={ {"F305", "73.0024.61,7", 368 } }
   
    DEFINE DIALOG oDlg TITLE "Test ToCalc" SIZE 350,200 PIXEL TRUEPIXEL
   
       @50,01 XBROWSE oBrw SIZE -0,-0 PIXEL OF oDlg STYLE 2013 UPDATE  ;        
        DATASOURCE aData ;
        COLUMNS 1,2,3  ;
        HEADERS "CD.PIANIFICIAZONE", "ARTICOLO" , "RESIDUO" ;
        CELL LINES FOOTERS AUTOSORT NOBORDER
       
        WITH OBJECT oBrw
            :CreateFromCode()   
        END        
       
       DEFINE BUTTONBAR oBar OF oBrw:oWnd SIZE 56,44 2013      
       
       DEFINE BUTTON OF oBar ;
          PROMPT "Excel" ;
          ACTION ( oBrw:ToExcel() )        
         
       DEFINE BUTTON OF oBar ;
          PROMPT "Calc" ;
          ACTION ( oBrw:ToCalc() )              
   
    ACTIVATE DIALOG oDlg CENTERED

Return NIL

Tested using OpenOffice 3.1.0


Calc Result


openOffice Version

[damianodec]

thank you anserkk, I'll try your example