zero a esquerda

[Luiz Fernando]

Colegas sera que alguém poderia me informar qual comando que utilizo para colocar zeros a esquerda de um campo caracter

com campo numerico eu consegui com a sintaxe abaixo

Código: [Selecionar]

teste12 is string
teste12 = NumToString(EDT_codigo, "06.0f")
Info(teste12)           

tipo se o usuario digitar 269 ira para 000269, mais sĂł da certo se o campo edt_codigo for numerico, preciso fazer isto mais com o campo caracter.


Obrigado

Luiz Fernando

[jcesar]

Basta converter EDT_codigo para um valor numérico e passar como parùmetro para a função NumToString.

Código: [Selecionar]

teste12 is string
teste12 = NumToString(Val(EDT_CODIGO), "06.0f")
Info(teste12)   

[Davi]

VocĂȘ pode fazer de outra forma tambĂ©m, nĂŁo sĂł para numeros


teste is string
teste = right("000000" + edt_codigo,6)

[Luiz Fernando]

Colegas vlw pela ajuda, deu certo as duas resposta...


Obrigado

Luiz Fernando

[Arlindo Reis]

VocĂȘ pode fazer de outra forma tambĂ©m, nĂŁo sĂł para numeros

Código: [Selecionar]

teste is string
teste = right("000000" + edt_codigo,6)


e quando ele jĂĄ passar da quarta casa (ex.:2356 deverĂĄ ficar 002356)?