topic-36309

damianodec

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

xbrowse function toCalc
Posted: Mon Nov 05, 2018 02:57 PM

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

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: xbrowse function toCalc
Posted: Wed Nov 07, 2018 05:09 AM

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

Code (fw): Select all Collapse

#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

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Re: xbrowse function toCalc
Posted: Tue Nov 13, 2018 11:49 AM

thank you anserkk, I'll try your example

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

FiveTech Support Forums

Continue the discussion