Zeros a Esquerda em um Relatório???

Delphi

09/09/2003

Ae pessoal

Estou precisando de uma ajuda simples.
Eu tenho uma base de dados em ACCESS com vários campos, um deles é matriícula.Só que na base tá assim:

Matricula: 7
Matricula: 8
Matricula: 9

Eu preciso gerar um relatório que fique assim:

[b:97c7a8f08f]Matricula: 00007
Matricula: 00008
Matricula: 00009[/b:97c7a8f08f]

ou seja, que adicione zeros a esquerda...
estou usando QuickReport..

será que alguém tem uma funcão ai?
[color=darkblue:97c7a8f08f]PS: não posso modificar a base de dados![/color:97c7a8f08f]

[]´s

erucci


Erucci

Erucci

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

09/09/2003

Troque o QRDBText da Matricula para QRExpression.
Na propriedade Expression, use a função FormatNumeric cfe abaixo:

FORMATNUMERIC(´00000´,SEUCAMPOMATRICULA);

onde a quantidade de zeros corresponde ao tamanho da Matricula (quantidade de posições numericas), e SEUCAMPOMATRICULA é o nome do campo na Tabela/Consulta do relatório.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

09/09/2003

Colega,

No evento OnPrint do objeto QRDBText:

StringOfChar(´0´,6-length(value))+value;



GOSTEI 0
POSTAR