Res: [delphi-br] Draw - Page Control

2010-04-11 Por tôpico Pedro Neves 
Perfeito,

    Desculpe, foi falha minha.

Valeu

Pedro.





De: Ricardo Augusto ricardo250...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 10 de Abril de 2010 13:42:58
Assunto: Re: [delphi-br] Draw - Page Control

Acho que vc teria que ter aberto um outro tópico, já que no assunto não tem
nada a ver com esse...

O dígito verificador é formado por 2 dígitos onde o primeiro é o módulo 11
dos 32 algarismos da mátricula e o segundo é módulo 11 dos mesmos algarismos
concatenado ao primeiro dígito.

Supondo que no Edit1 está o número completo da matrícula (sem espaços) e no
Edit2 sairá o DV:

*function *calcularDX(Numero: *string*): integer;
 *var*
  i: integer;
  mult: integer;
  soma: integer;
 *begin*
  i := 1;
  mult := Length(Numero) + 1;
  soma := 0;

  *while *i = Length(Numero) do
  *begin*
    Inc(soma, ((Ord(Numero[i]) - 48) * mult) * 10);
    Inc(i);
    Dec(mult);
  *end*;

  Result := soma *mod *11;

  *if *Result = 10 *then *Result := 1;
 *end*;

 *procedure *TForm1.Button1Click(Sender: TObject);
 *var*
  D1, D2: Char;
 *begin*
  D1 := Chr(CalcularDX(Edit1.Text) + 48);
  D2 := Chr(CalcularDX(Edit1.Text + D1) + 48);
  Edit2.Text := D1 + D2;
 *end*;



No provimento 2 da norma do CNJ está descrito a que se refere cada parte do
número da matrícula.

OBS.: Da próxima vez, abre outro tópico =)



Em 9 de abril de 2010 21:49, Pedro Neves neve...@yahoo.com escreveu:



 Pessoal, boa noite.

    Alguém tem a fórmula para calcular o digito verificador da matrícula
 das
 novas certidões de nascimento, casamento e óbtio.

 Atenciosamente,

 Pedro


 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
_
Ricardo Augusto


Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão
completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel)


[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Draw - Page Control

2010-04-11 Por tôpico Eduardo Silva dos Santos 
Pedro, é o mesmo do CPF

Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


Em 9 de abril de 2010 21:49, Pedro Neves neve...@yahoo.com escreveu:



 Pessoal, boa noite.

 Alguém tem a fórmula para calcular o digito verificador da matrícula
 das
 novas certidões de nascimento, casamento e óbtio.

 Atenciosamente,

 Pedro

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Draw - Page Control

2010-04-10 Por tôpico Pedro Neves 
Pessoal, boa noite.

    Alguém tem a fórmula para calcular o digito verificador da matrícula das 
novas certidões de nascimento, casamento e óbtio.


Atenciosamente,


Pedro


  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Draw - Page Control

2010-04-10 Por tôpico Ricardo Augusto 
Acho que vc teria que ter aberto um outro tópico, já que no assunto não tem
nada a ver com esse...

O dígito verificador é formado por 2 dígitos onde o primeiro é o módulo 11
dos 32 algarismos da mátricula e o segundo é módulo 11 dos mesmos algarismos
concatenado ao primeiro dígito.

Supondo que no Edit1 está o número completo da matrícula (sem espaços) e no
Edit2 sairá o DV:

*function *calcularDX(Numero: *string*): integer;
 *var*
   i: integer;
   mult: integer;
   soma: integer;
 *begin*
   i := 1;
   mult := Length(Numero) + 1;
   soma := 0;

   *while *i = Length(Numero) do
   *begin*
 Inc(soma, ((Ord(Numero[i]) - 48) * mult) * 10);
 Inc(i);
 Dec(mult);
   *end*;

   Result := soma *mod *11;

   *if *Result = 10 *then *Result := 1;
 *end*;

 *procedure *TForm1.Button1Click(Sender: TObject);
 *var*
   D1, D2: Char;
 *begin*
   D1 := Chr(CalcularDX(Edit1.Text) + 48);
   D2 := Chr(CalcularDX(Edit1.Text + D1) + 48);
   Edit2.Text := D1 + D2;
 *end*;



No provimento 2 da norma do CNJ está descrito a que se refere cada parte do
número da matrícula.

OBS.: Da próxima vez, abre outro tópico =)



Em 9 de abril de 2010 21:49, Pedro Neves neve...@yahoo.com escreveu:



 Pessoal, boa noite.

 Alguém tem a fórmula para calcular o digito verificador da matrícula
 das
 novas certidões de nascimento, casamento e óbtio.

 Atenciosamente,

 Pedro


 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
_
Ricardo Augusto


Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão
completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel)


[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Draw - Page Control

2010-04-09 Por tôpico Magnun Oliveira 
Bom dia a todos.

Estou fazendo uns ajustes em um page control, e preciso usar o OnDrawTab.

Porem o resultado é diferente entre delphi 2010 e 7.


Ex: Coloquei um PageControl, duas abas, setei o OwnerDraw para True.
No EventoOnDrawTab coloquei: Caption := formatdatetime('HH:MM:SS:MM', now);


No delphi 7 nada acontece, no 2010 o Caption da janela é alterado
normalmente.


isso é algum bug ou o q ?


vlw.


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Draw - Page Control

2010-04-09 Por tôpico Ricardo Augusto 
Vc está querendo alterar o Caption do Form no OnDrawTab do PageControl? Vc
não acha isso meio esquisito...?

Vc poderia mandar o DrawTab inteiro pra dar uma olhada?

Em 9 de abril de 2010 09:49, Magnun Oliveira magnunolive...@gmail.comescreveu:



 Bom dia a todos.

 Estou fazendo uns ajustes em um page control, e preciso usar o OnDrawTab.

 Porem o resultado é diferente entre delphi 2010 e 7.

 Ex: Coloquei um PageControl, duas abas, setei o OwnerDraw para True.
 No EventoOnDrawTab coloquei: Caption := formatdatetime('HH:MM:SS:MM', now);

 No delphi 7 nada acontece, no 2010 o Caption da janela é alterado
 normalmente.

 isso é algum bug ou o q ?

 vlw.

 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
_
Ricardo Augusto


Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão
completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel)


[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html