Mister Nages, ayuda xbrowse, repxb01.prg

[Jorge_T]

Hola,

Tengo problemas con las posiciones decimales con Xbrowse to Excel... (utilizo calc de LibreOffice)

También con el ejemplo repxb01.prg me ocurre lo mismo, la columna SALARY no lo envía al fichero XLS en formato numerico

Gracias por vuestra ayuda, saludos,

[img]


[/img]

Code: Select all  Expand view  RUN

/*
*
*  repxb01.prg
*  Demonstrate the use of command XBREPORT
*
*/

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------------------//

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

   local oTmp, oRs

   SET DATE ITALIAN
   SET CENTURY ON
   SET DELETED ON
   SET EXCLUSIVE OFF
   RDDSETDEFAULT( "DBFCDX" )
   XbrNumFormat( 'A', .t. )

   MsgInfo( "Quick Report from DBF" )
   USE CUSTOMER NEW ALIAS CUST SHARED READONLY
   XBREPORT oTmp TITLE "CUSTOMERS" ;
      DATASOURCE "CUST" COLUMNS "FIRST", "LAST", "CITY", "STATE", "AGE", "SALARY" ;
      BRWSETUP { |oBrw| oBrw:Salary:nFooterType := AGGR_SUM }
   CLOSE CUST

return (0)

//----------------------------------------------------------------------------//
 

[nageswaragunupudi]

We will look into this and get back to you.

[Jorge_T]

Thank you very much Mr.Nages

[FranciscoA]

De esta manera, aqui hace bien la exportacion a Excel.

Code: Select all  Expand view  RUN

REQUEST DBFCDX
//----------------------------------------------------------------------------//
function xBrwReport2()   //Main()
   local oTmp, oRs

   SET DATE ITALIAN
   SET CENTURY ON
   SET DELETED ON
   SET EXCLUSIVE OFF
   RDDSETDEFAULT( "DBFCDX" )
   XbrNumFormat( 'A', .t. )

   MsgInfo( "Quick Report from DBF" )
   USE CUSTOMER NEW ALIAS CUST SHARED READONLY
   XBREPORT oTmp TITLE "CUSTOMERS" ;
      DATASOURCE "CUST" COLUMNS "FIRST", "LAST", "CITY", "STATE", "AGE", "SALARY" ;
      BRWSETUP { |oBrw| oBrw:Salary:nFooterType := AGGR_SUM ,;
                        oBrw:Salary:cEditPicture := "999,999,999.99" }     //<---- aqui
   CLOSE CUST

return (0)
 

Saludos.

[Jorge_T]

Muchas gracias Francisco,

Pero NO ME funciona... utilizo configuración regional "Español/España", donde el separador de miles es "." i el de decimales ","
también he probado con XbrNumFormat( 'E', .t. ) y picture "@E 99,999,999.99"

Llevo tiempo con el tema y no logro solucionarlo, igual es una tontería pero no logro verlo.

Agradecería mucho si alguien puede ayudarme,

Muchas gracias a todos, saludos,

[FranciscoA]

Jorge, tienes razón en cuanto al tipo de separadores.
Yo mas bien me refería a que de esa manera si exporta a Excel en formato numerico.
De todos modos, esperemos al maestro.