FiveTech Software tech support forums

Posted: **Sat Oct 24, 2020 6:58 pm**

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]

Code: Select all

/*
*
*  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)

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

Posted: **Sun Oct 25, 2020 12:43 pm**

We will look into this and get back to you.

Posted: **Sun Oct 25, 2020 4:17 pm**

Thank you very much Mr.Nages

Posted: **Wed Oct 28, 2020 5:39 pm**

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

Code: Select all

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.

Posted: **Wed Oct 28, 2020 8:21 pm**

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,

Posted: **Wed Oct 28, 2020 11:53 pm**

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.

FiveTech Software tech support forums

Mister Nages, ayuda xbrowse, repxb01.prg

Mister Nages, ayuda xbrowse, repxb01.prg

Re: Mister Nages, ayuda xbrowse, repxb01.prg

Re: Mister Nages, ayuda xbrowse, repxb01.prg

Re: Mister Nages, ayuda xbrowse, repxb01.prg

Re: Mister Nages, ayuda xbrowse, repxb01.prg

Re: Mister Nages, ayuda xbrowse, repxb01.prg