topic-19512

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Trabajando con decimales y array
Posted: Wed Aug 04, 2010 09:03 AM

Hola de nuevo, amigos.

Hasta la fecha, había trabajadocon XBrowse y recordset directamente y no habia tenido problema para mostrar
una columna de XBrowse de un campo decimal con los puntos y comas formato europeo.
Tal y como os muestro en mi código:

Code (fw): Select all Collapse

   REDEFINE XBROWSE oXbr ID ID_XBR OF oDlg ;
      RECORDSET oRs

   ACTIVATE DIALOG oDlg ;
      ON INIT ( oXbr:aCols[ 1 ]:cHeader := "precio",;
                     oXbr:aCols[ 1 ]:cEditPicture := "@E 999,999,999,999,999.99" )

Este ejemplo, funciona perfecto. Pero el problema ha venido cuando por razones en el cambio de diseño
me veo obligado a trabajar con array, cambiando mi código como sigue:

Code (fw): Select all Collapse

   REDEFINE XBROWSE oXbr ID ID_XBR OF oDlg ;
      ARRAY aDatos

   ACTIVATE DIALOG oDlg ;
      ON INIT ( oXbr:aCols[ 2 ]:cHeader := "precio",;
                     oXbr:aCols[ 2 ]:cEditPicture := "@E 999,999,999,999,999.99" )

donde

Code (fw): Select all Collapse

aDatos := { { "", 0 } }

siendo el segundo elemento, el precio a mostrar.
Pues resulta que ahora no me respeta el formato establecido por cEditPicture, sino que me muestra el numero sin
el punto de millares y con un punto en lugar de una coma.

Por ejemplo : 63.950,12 que es como me lo muestra con el primer ejemplo de código,
ahora dice: 63950.12

Si alguien se ha encontrado con el mismo problema, le agradecería su ayuda.

Saludos.

Javier,

FWH 8.04 2008

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: Trabajando con decimales y array
Posted: Wed Aug 04, 2010 11:24 AM

jfafive,

prueba :

REDEFINE XBROWSE oXbr ID ID_XBR OF oDlg ;
COLUMNS 1, 2 ;
HEADER "Texto", "Importe" ;
PICTURES , "@E 999,999,999,999,999.99" ;
RECORDSET oRs

WITH OBJECT oXbr:Importe
:nFootStrAlign := AL_RIGHT
:cDataType := "N"
END

Espero te sirva,
Salu2, Ariel.

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Trabajando con decimales y array
Posted: Wed Aug 04, 2010 04:09 PM

Gracias Ariel,

Pero por desgracia no me funciona.
Este es el codigo que he usado, siguiendo tu ejemplo:

Code (fw): Select all Collapse

REDEFINE XBROWSE oXbrServ ID ID_BRWSERV OF oDlg ;
   COLUMNS 1,2,3,4,5,6 ;
   HEADER "f1", "f2", "f3", "nom", "ape", "importe" ;
   PICTURES ,,,,,"@E 999,999,999,999,999.99" ;
   ARRAY aDatos

   WITH OBJECT oXbrServ:importe
      :nFootStrAlign := AL_RIGHT
      :cDataType     := "N"
   END

Pero me genera un error que dice:
Message not found: TXBROWSE:IMPORTE
Es como que no reconociese.

He probado quitando el WITH OBJETC e incluyendo en el ON INIT DE ACTIVATE DIALOG lo siguiente:

Code (fw): Select all Collapse

ACTIVATE DIALOG oDlg ;
   ON INIT ( oXbrServ:aCols[ 6 ]:cDataType     := "N",;
                 oXbrServ:aCols[ 6 ]:nFootStrAlign := AL_RIGHT )

Pero no hace ni caso....

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: Trabajando con decimales y array
Posted: Wed Aug 04, 2010 04:32 PM

Hola de nuevo.

Al final encontré la solución.
Eran dos cosas, por un lado no me funciona la sintaxis tipo

Code (fw): Select all Collapse

WITH OBJECT .....

del ejemplo anterior, pero lo he resuelto de la siguiente forma:

Code (fw): Select all Collapse

REDEFINE XBROWSE oXbrServ ID ID_BRWSERV OF oDlg ;
   COLUMNS 1,2,3,4,5,6;
   PICTURES ,,,,,"@E 999,999,999,999,999.99" ;
   ARRAY aDatos

Y tambien me he asegurado de que la sexta columna (como el en ejemplo) era la equivalente
al elemento del array que contiene los valores numericos tipo moneda.

La primera vez, lo tenia mal y estaba apuntando a otro elemento de la tabla.

Un saludo y gracias de todas formas.

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion