Exportar xBrowse Para Excel no funciona
Posted: Mon Oct 27, 2014 3:22 pm
Buenas señores:
Porque Cuando hago la Exportacíon para el excel, la máscara no funciona con Europe format?
Gracias
Salu2
Porque Cuando hago la Exportacíon para el excel, la máscara no funciona con Europe format?
- Code: Select all Expand view
#include 'fivewin.ch'
#include 'xbrowse.ch'
function Main()
local oWnd, oBar, oBrw, nTotal:=0
/*
A. American format: "999,999,999.99"
E. European format: "999.999.999,99"
I. Indian format: "99,99,999.99"
*/
fwNumFormat( 'E', .t. ) // Italian format
USE CUSTOMER
DEFINE WINDOW ownd
DEFINE BUTTONBAR oBar OF oWnd SIZE 80,32 2007
DEFINE BUTTON OF oBar PROMPT 'Excel' ;
ACTION MsgMeter( { |oMeter, oText, oDlg, lEnd | ;
Export2Excel( oBrw, oMeter, oText, oDlg, @lEnd ) } )
DEFINE BUTTON OF oBar PROMPT 'Quit' ACTION WndMain():End()
SET MESSAGE OF oWnd TO '' 2007
@ 0,0 XBROWSE oBrw OF oWnd ALIAS 'CUSTOMER' AUTOCOLS CELL LINES
// Salary/Salario
//oBrw:aCols[10]:cEditPicture := "@E 9.999.999,99"
oBrw:aCols[ 10 ]:bClrStd := {|| { iif( Field->Salary > 100000, CLR_HRED, CLR_HBLUE), CLR_GRAY } }
oBrw:aCols[ 10 ]:nDataStrAlign := AL_RIGHT
Porque Cuando hago la Exportacíon para el excel, la máscara no funciona con Europe format?
oBrw:aCols[10]:bFooter = {|| TRANSFORM(Field->Salary, "@E 9.999.999,99") } // aqui funciona
// en el Excel, no funciona(muestra errado)
oBrw:MakeTotals()
oBrw:refresh()
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd
CLOSE DATA
return nil
static function Export2Excel( oBrw, oMeter, oText, oDlg, lEnd )
oBrw:ToExcel( { |n,t| oMeter:nTotal := t, ;
oMeter:Set( n ), ;
oText:SetText( Str(n) + '/' + Str(t) ), ;
oDlg:Update(), .t. } )
return nil
Gracias
Salu2