Xbrowse ToExcel ToCalc

[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



Muchas gracias,