I have a problem using Xbrowse class.
When i got an EXCEL files from DBF with numeric field AND decimal.
The problem is that in the excel files i got "." instead of "," and then i cannot use thi cell of excel for calculation.
I tried to modify parametr of xbrowse class, but i am not able to resolve the problem.
Please SEE the below minimal example:
I am using FWH80
Tks
Romeo/Zingoni
*
* testxbr.prg
*
include "FiveWin.Ch"
include "XBrowse.Ch"
*
function main()
local aDbf,oWnd, oBrw, oCol, oBrush, cAlias := cGetNewAlias( "CUST" )
aDbf := {}
AADD(aDbf,{ "NOME", "C", 25, 0 })
AADD(aDbf,{ "SALARIO1", "N", 9,0})
AADD(aDbf,{ "SALARIO2", "N", 9,2})
DBCREATE("CUSTO", aDbf)
USE CUSTO NEW ALIAS (cAlias)
APPE BLANK
REPLACE nome with "Rossi Mario",salario1 with 1234,salario2 with 1234.56
DEFINE dialog ownd TITLE "Test" FROM 0,0 TO 24,80
@ 0,0 XBROWSE oBrw OF ownd ALIAS cAlias ;
SIZE 200,100 ;
FOOTERS FASTEDIT LINES CELL
oBrw:bClrRowFocus := oBrw:bClrSelFocus
oBrw:CreateFromCode()
oWnd:oClient := oBrw
@9 ,1 button "To Excel" ACTION oBrw:ToExcel() of ownd
ACTIVATE dialog oWnd ON INIT oBrw:SetFocus() CENTERED
return nil
*
*** fine esempio
*
