VALIDACAO CPF - CNPJ E I.E.
tenho em um módulo uma rotina q valida cpf e cnpj porém chamo ela de varias telas do sistema, e qdo da retorno de cpf-cpnj inválido não consigo retornar o focu no campo em questão, alguém tem alguma rotina q faria isto ?
e tbem estou com problema na validaçõa da I.E. uso a dll da receita , mas não esta dando certo para as IEs de penambuco, mesmo a IE estando correta, retorna como inválida.
e tbem estou com problema na validaçõa da I.E. uso a dll da receita , mas não esta dando certo para as IEs de penambuco, mesmo a IE estando correta, retorna como inválida.
Como você chama essa rotina que valida?
Eu faço mais ou menos assim:
Eu faço mais ou menos assim:
If Not func_Valida_CGC(txtCGC.text) then
msgbox [Ô]CGC inválido![Ô],vbokonly + vbinformation
txtCGC.setfocus
end if
A maneira sugerida ao seu caso é integração CLR, pois a mesma regra de validação que aplicará no sistema valerá para entradas na base de dados.
http://social.msdn.microsoft.com/Forums/pt-BR/sqlnetfx/thread/11d72859-de4e-4ad3-8497-460f056615b8
Porra, to falando sério kct ... vc programa apenas 1x e tem um validador poderoso e de simples manutenção.
é que o povo aki costuma ser meio assustado com novidade e eu sidivirto, mas caraco .... olha e me diz que não tem fundamento o que to te sugerino maninho.
Olha que select maneiro nas proc SQL !!!
Pra sempre resolvido seu problema de validação, o mesmo se aplica CNPJ e CPF ....
http://social.msdn.microsoft.com/Forums/pt-BR/sqlnetfx/thread/11d72859-de4e-4ad3-8497-460f056615b8
Porra, to falando sério kct ... vc programa apenas 1x e tem um validador poderoso e de simples manutenção.
é que o povo aki costuma ser meio assustado com novidade e eu sidivirto, mas caraco .... olha e me diz que não tem fundamento o que to te sugerino maninho.
Olha que select maneiro nas proc SQL !!!
--CLR Scalar Functions (retorna 1 linha no resultado, isto tudo que signiofica escalar)
CREATE
FUNCTION isIE(
@pUF nvarchar(2),
@pIE nvarchar(15)
)
RETURNS bit
WITH RETURNS NULL ON NULL INPUT
EXTERNAL NAME ValidaIE.[ValidaIE.cValidaIE].isIE
GO
--Print [ô][ô]
--Print [ô]Report 2 : Inconsistência IE[ô]
--Print [ô][ô]
select
id_cliente as [ô]codigo[ô],
uf_cliente as [ô]uf[ô],
ie_cliente as [ô]ie_rg[ô],
nm_cliente as [ô]nome_razao[ô],
convert(char(10),dt_cadastro,103) as [ô]data_cadastro[ô]
from
cliente c
where
dbo.isIE(c.uf_cliente, c.ie_client) = 0 ---- neste caso queria saber direto no banco os clientes com dados incosistentes na tabela
order by
nm_cliente
GO
Agora no VB:
Private Function TestaUFeIE(UF,IE) as boolean
Dim objCLIENTE As ValidaIE.cValidaIE
If objCliente.IsIE(UF,IE) then
TestaUFeIE = True
[ô]else
[ô]False não precisa retorno
End If
[ô]Jamais se esqueçam desta linha para variáveis Object VB_Zeiros (6 ou menos)
Set objCLIENTE = Nothing
End function
Pra sempre resolvido seu problema de validação, o mesmo se aplica CNPJ e CPF ....
Bom dia amigo! Da uma olhada nesse material...
http://www.satelier.com.br/certex/index.htm
Abraço
http://www.satelier.com.br/certex/index.htm
Abraço
Tópico encerrado , respostas não são mais permitidas