USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problema em manter zeros a direito da inscricao...
CarlinhosBrown
ALTO PARAÍSO DE GOIAS
GO - BRASIL
Postada em 10/01/2005 13:15 hs            
amigos, estou gerando codigos de barras de umas inscricoes de IPTU, onde tenho a inscricao desta forma: 002.002.0002.000,
 
o que ocorre é o seguinte, estou fazendo assim para tirar os pontos entre os numeros:
CodUnica = Format(TabelaPag("CodContribuinte"), "")
 
mas quando vejo a inscricao ficou assim: 2.002.0002.000
 
ja declarei a variavel (CodUnica) de: string, variant, integer, como posso corrigir para que a inscricao conserve os zeros a direita e fique assim, depois de tirar os pontos:
 
0020020002000
 
alguem pode me ajudar????????
     
Romero
VILHENA
RO - BRASIL
Postada em 10/01/2005 13:30 hs            
Pelo vist0 a Variável é um long.
Declare como string e isso não ocorrerá.
     
CarlinhosBrown
ALTO PARAÍSO DE GOIAS
GO - BRASIL
Postada em 10/01/2005 13:53 hs            
nao declarei como string, e deu mesma coisa.... ele sumiu com os dois zeros iniciais....
     
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 10/01/2005 13:54 hs            
Carlinhos, boa tarde..
 
  como funciona se usar o replace ??
 
 
o que ocorre é o seguinte, estou fazendo assim para tirar os pontos entre os numeros:
CodUnica = Replace(TabelaPag("CodContribuinte"),".","")
 
Ainda pode tentar o format
Codunica = Format(codunica, "0000000000000")
     
CarlinhosBrown
ALTO PARAÍSO DE GOIAS
GO - BRASIL
Postada em 10/01/2005 14:46 hs            
beleza funcionou...
 
grato pela ajuda....
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página