Algoritimo para valida��o da RG/Identidade

Question

Colegas.Alguem tem um algoritimo de valida��o da RG/Identidade para me fornecer?Obrigado/H�lio...

Cd.wagner.sena · Answer

Procure pensar numa forma de realizar a valida��o por CPF e n�o por RG (o CPF � uma identifica��o de n�vel nacional, tem d�gito verificador e � �nico _ j� o RG pode ou n�o ter letras, pode ou n�o ter d�gito, enfim � um valor �n�o confi�vel� e dificil de trabalhar para um identificador �nico).

Motta · Answer

Que me conste cada org�o emissor (SSP�s org�o de classe etc0 tem seu DV e alguns casos de carteiras mais antigas nem isto.
Caso precise trabalhar com isto sugiro para a valida��o a dupla digita��o bloqueando o ctrl-c ctrl-v.

Titanius · Answer

RG � diferente em cada estado... e mesmo no mesmo estado eles s�o diferentes.. o meu por exemplo inicia com MGxxxx, j� o da minha noiva nao... todos de minas, mesma cidade e tudo...

Ou seja, RG n�o � confi�vel...

[]s

Helio Nascimento · Answer

Caros colegasJ� desisti. Agrade�o a opni�o de todos  e estou colocando em pr�tica o que foi dito Pelo Mota/titanius. Ah fiquei em d�vida de como bloquear o CTRL C/V pode-me dar-me um exemplo.Sauda��es/H�lio...

Helio Nascimento · Answer

Aos colegas e ao proprio Motta que me reportou no topico anterior.

Voces tem os comandos para bloquear as teclas CTRL-C e CTRL-V, pois j� revirei aqui e na internet e n�o achei c�digos para estas teclas. Se alguem souber, por favor me informe.

Obrigado/H�lio

Paullsoftware · Answer

eu fa�o assim:Mude a Propriedade KeyPreview do Form para TRUEno evento OnKeyUp ou Down fica a seu Crit�rio...[code:1:1b4cb274ce]if (ssCtrl in Shift) and (chr(Key) in &#91;�V�, �v�&93;)or (ssCtrl in Shift) and (chr(Key) in &91;�C�, �c�&93;) then begin  Clipboard.Clear;//  ShowMessage(�C�pia n�o permitida!�); end;[/code:1:1b4cb274ce]espero ter ajudado  :wink:...

Helio Nascimento · Answer

paullsoftwareObrigado pela resposta. Acrescento-lhe que a Unit � Clipbrd. Por�m Paulo, a coisa funcionou certidinho. Passei a nova copia do execut�vel e estamos trabalhando, daqui a pouco aquela �praga� chamada de usu�rio me liga e diz, �H�lio n�o adiantou nada do que voce fez e consigo copiar com o mouse, passo o mouse no campo e marca tudo em azul  ai clico com a direita e uso a op��o copiar e depois posiciono o mouse na segunda caixa e com o bot�o direito uso a op��o de colar e ai fica tudo certinho� e agora Paulo o que fa�o com esta �praga�, voc� tem cartucho ainda pra queimar !!. Tem jeito de tamb�m n�o deixar esta �praga� copiar com o mouse?Sds/H�lio...

Paullsoftware · Answer

[quote:1ff04b0f8c=�Helio Nascimento�]paullsoftware

Obrigado pela resposta. Acrescento-lhe que a Unit � Clipbrd. Por�m Paulo, a coisa funcionou certidinho. Passei a nova copia do execut�vel e estamos trabalhando, daqui a pouco aquela �praga� chamada de usu�rio me liga e diz, �H�lio n�o adiantou nada do que voce fez e consigo copiar com o mouse, passo o mouse no campo e marca tudo em azul ai clico com a direita e uso a op��o copiar e depois posiciono o mouse na segunda caixa e com o bot�o direito uso a op��o de colar e ai fica tudo certinho� e agora Paulo o que fa�o com esta �praga�, voc� tem cartucho ainda pra queimar !!. Tem jeito de tamb�m n�o deixar esta �praga� copiar com o mouse?

Sds/H�lio[/quote:1ff04b0f8c]

s�o muitos os controles H�lio??
uma forma alternativa seria vc vincular o �Menu PopUp� aos controles sem conte�do, eu j� vi aqui no f�rum que faz isso, mais n�o lembro se eu encontr�-lo posto aqui... :wink:

Helio Nascimento · Answer

N�o Paulo somente um controle que � a sugest�o recebida do mota e digita��o dupla. Desejo for�a a �praga� a digitar e n�o copiar com o mouse o numero da RG e o resto � so validar o valor de uma com o valor da outra.

Sds/H�lio

Pestana_ · Answer

Voc� tambem pode fazer como o paullsoftware sugeriu desabilitando o menu popup do edit ou maskEdit para que o usu�rio n�o clique com o bot�o direito sobre o componente e manipule o seu valor.

usando o edit:

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
     Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    TEdit(Edit1).OnContextPopup := Edit1ContextPopup;
end;

ou, usando o maskedit:

procedure TForm1.SemContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); 
begin 
     Handled := True; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
     TEdit(MaskEdit).OnContextPopup := SemContextPopup; 
end;

este ultimo exemplo foi presciso criar a procedure SemContextPopup, n�o esque�a de declarar a procedure.

espero ter ajudado,
flw.

Helio Nascimento · Answer

Meu caro Pestana_Obrigado por ter respondido. Vou fazer os testes e tomara a Deus que eu consiga �matar� este problema com a minha �praga�, o cara tira uma com voce. D� risada pelo telefone. Acha que pode uma coisa destas. Parece piada mas � a pura verdade, � daquelas �pragas � fu�adoras recem contratado e que me apurrinha a cabe�a em algumas coisas. Uma delas � a digita��o errada da RG por falta de aten�ao . E olha que se pede copia xerox dos documentos!!. Mas � isto ai . Vou pegar os exemplos e testar. Posteriormente  volto ao assunto para dizer se funcionou ou n�o. ok Obrigado pela sua aten��o.Abra�os/H�lio...

Helio Nascimento · Answer

Caros amigosRetorno ao assunto para agradecer aos colegas que me ajudaram na solu��o deste problema e para informar-lhes que �matamos � o problema aquela �praga� agora n�o da mais risada, ficou desapontado. Agora tem que digitar mesmo!. � bom sentir um gostinho de vit�ria em cima destas � pragas � dos programadores que se chamam �usu�rio�, principalmente aqueles novatos que j� chegam dizendo �eu sei , eu sei� n�o d� tempo de ensinar como � o sistema e j� vai logo fu�ando daqui e dacol� .Mas valei , obrigado a todos que participaram. At� uma pr�xima vez.Abra�oes/H�lio...

F�rum Algoritimo para valida��o da RG/Identidade #340874