Xbrowse ToExcel ToCalc

Post Reply
Jorge_T
Posts: 36
Joined: Tue Jan 22, 2019 8:28 am

Xbrowse ToExcel ToCalc

Post 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



Muchas gracias,
Jorge
--------------------------------------------------
Fivewin 18.10 - Harbour - BCC 7 - PellesC
--------------------------------------------------
Post Reply