Inserir zeros a Esquerda em etiquetas

[BStar]

Olá pessoal...

Olha o problema :blink:

Tenho um relatório de etiquetas... Nessas etiquetas estão o nome, o endereço, cidade, estado e CEP... Como qualquer outra.

O problema é que no meu banco (access) existem "CEP'S" que teoricamente possuem 0 (zeros) a esquerda (na verdade quando coloco um zero a esquerda ele some... Ex: 02029000 fica assim 2029000 sem o zero a esquerda :s)

Eu não queria mexer no meu banco porque existem mais de 23mil registros...

Será que tem como adicionar zeros a esquerda pelo Crystal mesmo?

Tipo, se o valor vier do banco como 236000 eu queria que o meu campo CEP do Crystal inserisse 0 (zeros) a esquerda até completar o numero de dígitos necessários (8 no caso do CEP) que nesse caso ficaria assim 00236000...

Ps: não uso fórmula para gerar as etiquetas e uso o Crystal Reports 2008

O meu muito obrigado a todos.

[kuroi]

o seu campo deve estar como numerico no banco de dados, por isso os zeros somem. devia tar como texto.

pra resolver, faca um campo formula assim (em basic syntax):

Dim i As Number
Dim x As String

x = CStr({Tabela.SeuCampoCEP})
For i = Len(x) To 8
    x = '0' & x
Next

Formula = x[/code]

Editado Janeiro 15, 2010 por kuroi

[BStar]

Olá kuroi... Então... dessa forma funcionou em partes :blink:

Na imagem, o campo em preto é o CEP que vem direto do banco sem formula alguma e em vermelho é o campo formula que você me passou:

Dim i As Number
Dim x As String

x = CStr({Comando.cep})
For i = Len(x) To 8
    x = "0" & x
Next

formula = x

Se reparar, ele está completando com casas decimais e de forma aleatória... Acho que ele não esta seguindo um padrão...

Tentei formatar o campo formula mas não consegui também :(

Mesmo eu trocando no banco o tipo de campo de número para texto, continua desse forma...

Se eu preencher direto no banco com os zeros, também não aparece ou fica igual a imagem acima :(

Será que existe outra solução?

Obrigado por enquanto!

[kuroi]

hum, esqueci q ele poe o formato quando converte. isso deve resolver:

Dim i As Number
Dim x As String

x = CStr({Comando.cep})
x = Replace(x, ".", "")
x = Replace(x, ",00", "")
For i = Len(x) To 8
    x = "0" & x
Next

formula = x[/code]

[BStar]

Opa kuroi, agora funcionou perfeitamente...

Achei legal o "esquema" dos Replace para arrumar a formatação...

Muito bom mesmo.

O meu muito obrigado e bom fds! Abs.