xBrowse numeric formats ( To: G.N.Rao )

[ORibeiro]

Linares,

Is there any parameter to reset all the numeric formats xBrowse for Brazilian (999,999.99) standard?

If so this parameter also changes the format of the exported to Excel numbers?

[nageswaragunupudi]

XBrowse (and FWH in general) support 3 kinds of numeric formats, which can be automatically reset during execution, if we do not hard-code numeric formats in our xbrowse program.

A. American format used by most countries "999,999,999.99"
E. European format "999.999.999,99", widely used in Europe
I. Indian forat: "99,99,999.99" used in Indian sub-continent.

To set / change the format, call the function:
FWNumFormat( cInternational, ; // 'A' or 'E' .or. 'I"
lUseThousandSep )

It is desirable to set the format at the beginning of the program
Example:
FWNumFormat( 'A', .t. )

XBrowse automatically builds picture clause of Numeric data on the basis of this specification, appropriate the Field Length and Field Decimals, if "we do not" provide hard-coded formats.

[ORibeiro]

Thanks Rao,

I used FwNumFormat ('E',. T.) and, in fact, the numbers in xBrowse already were properly disposed.

However, when exporting to Excel does not recognize the formatting.

Example: Number [12,1234] (two integers and four decimal) exported [121.234,0000] (six integers and four decimal) to excel.

[ORibeiro]

No one is having this same problem when exporting numbers in European format to Excel?

Please, see this example:

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. )  // European Format
   DBCREATE("TESTXLS",{{"DESC   ","C",010,000},;
                       {"VAL1   ","N",010,001},;
                       {"VAL2   ","N",010,002},;
                       {"VAL3   ","N",010,003},;
                       {"VAL4   ","N",010,004},;
                       {"VAL5   ","N",010,005}})

   USE TESTXLS NEW ALIAS TESTXLS
   FOR nTotal=1 To 20
      APPEND BLANK
      REPL DESC WITH "Linha "+STRZERO(nTotal,2)
      REPL VAL1 WITH 99999 * nTotal / 777
      REPL VAL2 WITH 99999 * nTotal / 777
      REPL VAL3 WITH 99999 * nTotal / 777
      REPL VAL4 WITH 99999 * nTotal / 777
      REPL VAL5 WITH 99999 * nTotal / 777
   NEXT

   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 'TESTXLS' AUTOCOLS CELL LINES

   // Realmente nao funciona quando exporto para o Broffice/Excel
   oBrw:aCols[2]:bFooter = {|| TRANSFORM(Field->VAL1, "@E 9.999.999,99") }
   oBrw:aCols[3]:bFooter = {|| TRANSFORM(Field->VAL2, "@E 9.999.999,99") }
   oBrw:aCols[4]:bFooter = {|| TRANSFORM(Field->VAL3, "@E 9.999.999,99") }
   oBrw:aCols[5]:bFooter = {|| TRANSFORM(Field->VAL4, "@E 9.999.999,99") }
   oBrw:aCols[6]:bFooter = {|| TRANSFORM(Field->VAL5, "@E 9.999.999,99") }

   oBrw:MakeTotals()
   oBrw:refresh()

   oBrw:CreateFromCode()

   oWnd:oClient      := oBrw

   ACTIVATE WINDOW oWnd MAXIMIZED

   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


 

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29499