No aparezcan los decimales que sean cero.

Posts: 350

Joined: Wed Nov 02, 2005 03:28 PM

No aparezcan los decimales que sean cero.
Posted: Tue Apr 17, 2012 04:53 PM

Hola tengo el siguiendo codigo :

  REDEFINE BROWSE oBrwc ID 120 OF odarticulo

   oBrwc:SetArray( tcomponente )
   ADD COLUMN to oBrwc ARRAY ELEMENT 3 HEADER "Largo" size 50 picture "999.999"
   ADD COLUMN to oBrwc ARRAY ELEMENT 4 HEADER "Ancho" size 50 picture "999.999"
   ADD COLUMN to oBrwc ARRAY ELEMENT 5 HEADER "Grueso" size 50

y lo que me gustaria es que en la columna cuya decimales sean cero no aparezcan, ejemplo :
Ahora sale asi
Largo
123.000
y me gustaria saliera
Largo
123
y cuando fuera
Largo
123.120
saliera
Largo
123.12

¿Que picture deberia usar?

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: No aparezcan los decimales que sean cero.
Posted: Tue Apr 17, 2012 05:02 PM

Use el comando:

IIF...

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Garbi

Posts: 350

Joined: Wed Nov 02, 2005 03:28 PM

Re: No aparezcan los decimales que sean cero.
Posted: Tue Apr 17, 2012 05:33 PM

El comando IIF( , ,) En un browse con array, ¿Como tendría que hacerlo?

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: No aparezcan los decimales que sean cero.
Posted: Tue Apr 17, 2012 06:30 PM

Si estás usando la clase de Manuel Mercado, sin pensarlo demasiado se me ocurre esta idea, no sé si es la mejor pero supongo que funciona. Hace mucho que dejé de usar ese browse. aData es el Array que estás manejando.

Code (fw): Select all Collapse

bCol := { || If( SubStr( Str( aData[ oBrwc : nAt ][ 3 ], 10, 3 ), At( '.', Str( aData[ oBrwc : nAt ][ 3 ] ) ) + 1, Len( Str( aData[ oBrwc : nAt ][ 3 ], 10, 3 ) ) == '000', Str( aData[ oBrwc : nAt ][ 3 ], 10, 0 ), Transform( aData[ oBrwc : nAt ][ 3 ], "@E 99,999,99.99" ) ) }

 ADD COLUMN to oBrwc ARRAY bCol HEADER "Largo" size 50

Saludos

FiveTech Support Forums

Continue the discussion