Consulta: problemas con PICTURE y oBrw:toExcel()

[fernandomoralesdr]

Hola a todos/as.
Tengo un problema cuando traspaso el contenido de un xBrowse a Excel. Tengo en el browse la columna "IMPORTE" con una PICTURE "@E 999,999.99", formato español, pero cuando lo traspasa a Excel no lo veo como un número, sino con formato "General", así que luego no funcionan los totales porque no interpreta los valores como numéricos.
¿Alguna ayuda al respecto?

[nageswaragunupudi]

Depends on how the column is defined.

[José Luis Sánchez]

Hola,
A mi me pasa lo mismo. Tengo definida una columna en el browse de esta manera

Code: Select all  Expand view

oBrw:bStrData :=  { || tran(AP->ApImpNeto,"@E 999,999.99") }

y al generar el fichero Excel me dice que la columna es 'Número almacenado como texto'. Estoy probando la manera de que el importe salga correcto, con . de separador de miles y , para los céntimos y que luego me aparezca bien en Excel pero no doy con la forma.
¿ Alguna sugerencia ?

Saludos,

[acuellar]

Fernando / José Luis.

Tienen que cambiar la configuración regional del equipo en el Control Panel, En configuración adicional cambiar la coma por punto y el punto por coma.

Saludos,

Adhemar

[José Luis Sánchez]

Hola Adhemar,
No estoy de acuerdo con lo que dices, no me parece que las solución pase por hacer que los usuarios cambien su configuración de nada. Además, depende del tipo de software que hagas, si yo a veces me vuelvo loco para que los usuarios consigan copiar un archivo a una carpeta, ni te cuento si les digo que toquen el panel de control.
Tiene que haber otras solución a esto.

Saludos,

[acuellar]

José Luis

Entonces debes usar el PICTURE así: "@Z 999.999,99" formato americano. Excel toma la puntuación regional.

Saludos,

Adhemar

[nageswaragunupudi]

Hola,
A mi me pasa lo mismo. Tengo definida una columna en el browse de esta manera

Code: Select all  Expand view

oBrw:bStrData :=  { || tran(AP->ApImpNeto,"@E 999,999.99") }

y al generar el fichero Excel me dice que la columna es 'Número almacenado como texto'. Estoy probando la manera de que el importe salga correcto, con . de separador de miles y , para los céntimos y que luego me aparezca bien en Excel pero no doy con la forma.
¿ Alguna sugerencia ?

Saludos,

Use of bStrData was deprecated by FW many years back.
Instead please use

Code: Select all  Expand view

oBrw:bEditValue  := { || AP->ApImpNeto }
oBrw:cEditPicture := "@E 999,999.99"
 

In this case, xbrowse knows that the value of the column is numeric and exports the data as numeric.

We advise you to use COMMAND syntax to create xbrowses. In addition to being simple to use, this will allow you to avail all the power of xbrowse smoothly and automatically.

You may still use the older method of oBrw:AddCol() ... etc, and oBrw:bStrData. Still xbrowse works like a "dumb" browse and then you may not expect most advanced features of xbrowse to work.

[MarioG]

Estimado Rao (my english is very poor)
Comparto plenamente lo que decis. Aunque, lo que al menos a mi me pasa, es que cuando uso una clase/funcion seguramente paso un buen tiempo desde su aparición. Entonces tomos los samples para aprender, peroooo, resulta que estos samples están obsoletos (como el caso de bStrData que citas).
Quizás, FW (se que es muy pretensioso lo que escribo) debería agregar en la cabecera del sample.prg el mensaje OBSOLETO... o algo así

Saludos

[José Luis Sánchez]

Muchas gracias, probaré lo que me dices. Y daré una nueva mirada al código y los ejemplos de la clase xbrowse.

Saludos,

José Luis

[fernandomoralesdr]

Hola.
Para lo que quieres creo que debes modificar la clase xBrowse en la función que exporta a Excel y modificar el formato de la celda con el formato que deseas. La función detecta la picture y lo convierte a numérico sin puntuación de millares, solo te respeta la coma decimal.

[José Luis Sánchez]

Hola de nuevo,

con los cambios que me propuso nageswaragunupudi funciona ... a medias. En la columna del browse me muestra correctamente el número, por ejemplo 4.099,50 y al pasar a Excel el formato que lanza el oBrw:toExcel es #.##0,00 y en la columna de Excel me aprece 4099.50 pero luego si intento sumar o usar una fórmula de Excel no funciona, es como si el número no estuviera. No entiendo bien que pasa. Si alguien lo tiene funcionando esto me gustaría que me dijera la manera de pasar datos numéricos a Excel correctamente.

Saludos,
José Luis

[nageswaragunupudi]

Hola de nuevo,

con los cambios que me propuso nageswaragunupudi funciona ... a medias. En la columna del browse me muestra correctamente el número, por ejemplo 4.099,50 y al pasar a Excel el formato que lanza el oBrw:toExcel es #.##0,00 y en la columna de Excel me aprece 4099.50 pero luego si intento sumar o usar una fórmula de Excel no funciona, es como si el número no estuviera. No entiendo bien que pasa. Si alguien lo tiene funcionando esto me gustaría que me dijera la manera de pasar datos numéricos a Excel correctamente.

Saludos,
José Luis

The present logic works correctly for English installations of Excel. It is possible that there are some problems with non-english installations.

We request your help in fixing the issues on non-english installations.

In the next few days, I shall be posting some small test programs. If you give us your feedback, we shall make the necessary modifications.

[José Luis Sánchez]

Hola,
He resuelto el problema usando el código publicado por Rafa Thefull dónde generaba el fichero XLS sin pasar por Excel. Este código está publicado en este post http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19897

nageswaragunupudi: I think that the problem is with non-English installations of Excel. Althought I solved the problem using the code in the post I said, I'll be pleased to try your samples and help you to fix the problem.

Regards,
José Luis