Xbrowse ToCalc() ToExcel() formatos numericos

[Jorge_T]

Hola,
Con Xbrowse intento exportar a formato Calc de LibreOffice o Xls de Excel con las instrucciones Obrw:ToCalc() o Obrw:ToExcel(). Depende de la cantidad de decimales de los campos me da el error "could not set format #,##0.00000 to Column N" y en la hoja exportada no separa bien los formatos numéricos. También en ocasiones aparece el error (DOS Error -2147352567) WINOLE/1006
Agradecería si pueden mostrarme algún ejemplo del buen funcionamiento de dicha instrucción, muchas gracias y saludos

Este es el código que ejecuto:

#include "FiveWin.ch"
#include "XBrowse.Ch"

function Main()
local oDlg, oBrw
SET DATE BRITISH
SET CENTURY ON
xbrNumFormat( "E", .t. ) // "E" for European, "A" for American and others
// .t. for showing thousand separators
USE ITEMS
/*
CCODE Character 10
DETAIL Character 50
PVP1 Numeric 14 5
PVP2 Numeric 14 5
PVP3 Numeric 14 5
ARTIVA Numeric 5 2
LASTCHANGE Date 8 0
*/

DEFINE DIALOG oDlg SIZE 1100,600 PIXEL

@ 40, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF odlg;
DATASOURCE "ITEMS" AUTOSORT;
COLUMNS "CCODE", "DETAIL", "PVP1", "PVP2", "PVP3", ARTIVA,"LASTCHANGE";
CELL LINES noborder FOOTERS FASTEDIT

WITH OBJECT oBrw
:nEditTypes := EDIT_GET
:CreateFromCode()
END

@ 2,2 BUTTONbmp obtn prompt "To Calc LibreOffice" SIZE 60,16 PIXEL OF oDlg tooltip "Calc" ACTION oBrw:toCalc()

ACTIVATE dialog oDlg Centered

return nil

[Jorge_T]

Hola, sigo sin encontrar la solución con Xbrowse.... con la clase TFileXls no funcionan los pictures pero por lo menos respeta los campos numéricos, sin embargo con TFileXls no respeta los formatos de fecha.

La configuración regional de Windows 10 es Español/España, igual en configuración de idioma de LibreOffice

Gracias por vuestra ayuda,