Dar formato a campos numericos en Crystal Report

[elprofe_ra_2000]

Hola Amigos, tengo un problema en crystal report, no puedo darle formato a un campo numerico. Lo que necesito es que se complete con x cantidad de ceros a la izquierda y no encuentro la forma. Lo que ando buscando es que si el valor del campo es 10 se muestre por ejemplo 00010.

Desde ya gracias y espero que alguien pueda darme la solucion a mi problema. Bueno... es todo. Otra vez gracias. Bye, bye.

[jaullo]

Mas que en crystal reports creo que esto deberias controlarlo a la hora de ingresar los datos a tu bd, por ejemplo con un campo double puedes agregar los ceros a la izquierda.

Algo como asi
fa = "0000000000" + fa
fa = Microsoft.VisualBasic.Right(fa, 10)

Hasta donde he visto crystal reports, te permite dar formato a los campos numericos de muchas formas pero no he visto la opcion de rellenar los ceros a la izquierda.


saludos,

[moNTeZIon]

Hola!
Una idea...
Si usas un DataSet como fuente de datos del Report, se me ocurre esto:
En un DataTable del DataSet tendrás la columna en cuestión, llamémosla "Columna1", que muestras en el Report, y que deseas ponerle los ceros a la izquierda.
Bien, la solución sería agregar al DataTable una nueva Columna "Columna2" que fuera calculada, y no una columna real.
Verás que al hacer DataTable.Columns.Add el tercer parámetro es una expresión. Esto sirve para que se calcule el valor del campo automáticamente, a partir de los valores de otras columnas.
En tu caso, deberías hacer una Columna de tipo String, y la expresión debería calcular la longitud de carácteres que contiene Columna1, y ponerle los ceros necesarios delante.
Luego el reporte tedrá que trabajar con esta Columna2, y no con la Columna1.
Es una idea que se me ocurre.
Suerte!

[moNTeZIon]

Otra idea! Hoy estoy que me salgo...
En el report sabes que puedes crear Fórmulas.
Bien, podrías crear una que... Bueno, te la pongo aquí:

Código:

Local StringVar miNumerito := Replace(CStr({miTablita.miCampito}),",00","");
While Length (miNumerito)<5 Do
(
  miNumerito := "0" & miNumerito;
);
miNumerito

El Replace lo hago porqué sabrás que por defecto con los campos numéricos el $%&("! Crystal te pone 2 decimales, y no tengo mejor forma de quitárselos que ésta.
Y el While lo hago hasta 5 porqué veo que tu ejemplo debe quedar con 5 dígitos, si no es así le pones 10, o lo que quieras.
Espero que te sirva.
Personalmente prefiero esta opción a la que te puse primero.
Un saludo!

[sanref]

moNTeZIon, tu formula de funciona perfectamente, muchas gracias!!!!

[aivan123]

Tu formula moNTeZIon es una !bala!, gracias!!! por cierto, de tus dos soluciones me parece la segunda, la mas efectiva, por el tema de codigo y tiempo

[sanref]

Estoy usando actualmente una que me parece mejor

ReplicateString ("0", 6 - Length(TrimLeft(CStr({miTablita.miCampito}, 0)))) + CStr({miTablita.miCampito}, 0)

Lo que hace esto es poner siempre el numero con 6 caracteres, agregando los ceros que falten a la izquierda.

Saludos