Format objeto printer cnpj e cpf - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Format objeto printer cnpj e cpf

Roberto
não registrado

Postada em 09/04/2006 19:18 hs

Pessoal tenho o código abaixo para Telefone
é claro que está precário, pq. se coloco o ponto no quarto número entende como valor. Só que agora preciso colocar em um Cnpj e Cpf, obs: os dados da tabela estão apenas números sem mascara todos juntos.

Format(Contrato("Telefone"), "##-########")

Alguém pode me ajudar
Abraços
Roberto

LCRamos

GOIANIA
GO - BRASIL

Postada em 09/04/2006 21:31 hs

Teste os tamanhos para ver se CPF ou CNPJ,

If Len(trim(Tabela!Campo)) = 11 Then ' tamanho do CPF (só números)

TextBox.text = Left(Tabela!Campo, 3) & "." & Mid(Tabela!Campo, 4,3) & "." & _

Mid(Tabela!Campo, 7,3) & "-" & Right(Tabela!Campo, 2)

Else

faça o mesmo no formato do CNPJ

End If

Voce pode usar o mesmo para o telefone, e se o prefixo tiver somente 3 numeros deixe um espaço em branco.

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site