Page 1 of 1

Xbrowse ToCalc() ToExcel() formatos numericos

Posted: Sun Mar 22, 2020 12:34 pm
by 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 _ 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

Re: Xbrowse ToCalc() ToExcel() formatos numericos

Posted: Mon Mar 30, 2020 8:58 am
by Jorge_T
Hola, sigo sin encontrar la solución con Xbrowse.... con la clase TFileXls no funcionan los pictures pero por lo menos respeta _ 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,