Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2008
hecospina hecospina is offline
Miembro
 
Registrado: oct 2007
Posts: 202
Poder: 17
hecospina Va por buen camino
Mascara 00000000001 en fastreport

Buenas tardes amigos del foro

Utilizo FastReport 4

Requiero hacer esto, tengo el campo NoFactura que es de tipo entero
Hasta el momento se viene imprimiento sin ningun tipo de problemas, si la factura es la 2500 se imprime dicho numero

Ahora mi cliente necesita que el numero sea de 12 caracteres y si no los contiene sea completado con ceros

Por ejemplo el numero 2500 deberia quedar 000000002500

Como puedo hacerlo ?

Gracias por dedicar tiempo a leer este mensaje
Responder Con Cita
  #2  
Antiguo 19-11-2008
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
Usa el evento OnBeforePrint del control y cambia la propiedad memo.text del control usando la función format, algo así (no tengo fastreport a la mano asi que me puedo equivocar en la sintaxis)

Código Delphi [-]
control.memo.text := format('%.12d', [   < dataset."numero" >   ]);

si no funciona eso crear una función que concatene ceros hasta que el valor tenga una longitud de 12 (era la forma que usaba yo)

saludos
__________________
self.free;
Responder Con Cita
  #3  
Antiguo 20-11-2008
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: may 2008
Ubicación: Bogotá
Posts: 527
Poder: 16
TOPX Va camino a la fama
Buenas,

Yo tampoco tengo FR a la mano en el momento, pero recuerdo que el componente Text tiene la propiedad DisplayFormat, puede probar poniendo el %.12d que le indicó droguerman allí.

Si de pronto no es compatible, podría hacer que la consulta Sql le devuelva el dato formateado; por ejemplo, si es MsSql podría usar la función Replicate().
__________________
"constructive mind, destructive thoughts"
Responder Con Cita
  #4  
Antiguo 20-11-2008
hecospina hecospina is offline
Miembro
 
Registrado: oct 2007
Posts: 202
Poder: 17
hecospina Va por buen camino
Solucionado

Gracias Droguerman y Topx
Ya lo solucione con la idea que me dio Droguerman
Hay dos formas

1. Al hacer clic derecho en el memo aparece la opcion formato de visualizacion, alli se marca Número y en formato se coloca #000000000000

2. Dentro del memo donde bajo el campo quedaria asi [<ibxquery1."numero"> #n #00000000000]

La cantidad de ceros es el numero de caracteres que se desea visualizar

Me imagino que desde el inspector de objetos se puede hacer tambien

Muchas gracias por su colaboracion
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Una mascara de oxigeno thelibmx Humor 6 07-09-2008 15:43:47
Mascara en un TIWDBEdit andresenlared Varios 0 28-08-2008 16:58:19
máscara sargento elias Conexión con bases de datos 1 17-04-2008 13:34:19
Mascara en TDBGRID KAYO Conexión con bases de datos 1 07-02-2007 19:50:49
Mascara en DBGRID jorge_mosquera OOP 3 27-04-2005 21:44:31


La franja horaria es GMT +2. Ahora son las 11:16:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi