Vou testar nao! Correção! Faz o favor de pelo menos ler o codigo e tentar
entender o que ele faz, por favor ne! Ctrl C Ctrl V sem Entender vai Virar o
Que?
2009/12/16 rod <rodli...@ymail.com>
>
>
> Valeu Rubem!
>
> Vou testar o código aqui!
>
> Abraços
>
> Rod
>
> Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
> <rubem.ro...@dtmanaus.com.br <rubem.rocha%40dtmanaus.com.br>> escreveu:
>
>
> >
> > Com base no documento mencionado, escrevi as seguintes funções em Object
> > Pascal.
>
> > function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
> > OrigemProcesso: word): string;
>
> > var
>
> > resto1, resto2: longint;
>
> > valor1, valor2, valor3: string;
>
> > begin
>
> > valor1 := Format('%7.7d', [NumeroProcesso]);
>
> > resto1 := StrToInt64(valor1) mod 97;
>
> > valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
> > Format('%3.3d', [OrgaoJTR]);
>
> > resto2 := StrToInt64(valor2) Mod 97;
>
> > valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
> > '00';
>
> > Result := Format('%2.2d', [98 - (valor3 Mod 97)]);
>
> > end;
>
> > function ValidaMod97(NumeroProcesso: longint; Digito: Byte; Ano,
> > OrgaoJTR,
> > OrigemProcesso: word): boolean;
>
> > var
>
> > resto1, resto2: longint;
>
> > valor1, valor2, valor2: string;
>
> > begin
>
> > valor1 := Format('%7.7d', [NumeroProcesso]);
>
> > resto1 := StrToInt64(valor1) mod 97;
>
> > valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
> > Format('%3.3d', [OrgaoJTR]);
>
> > resto2 := StrToInt64(valor2) mod 97;
>
> > valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
> > Format('%2.2d', [Digito]);
>
> > Result := (valor3 Mod 97 = 1);
>
> > end;
>
> > Façam suas validações e, depois, postem suas impressões na lista para
> > saber
> > se estas funções podem ser usadas em nossos aplicativos Delphi.
>
> > Sds.
>
> > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>[mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> > nome de Ricardo César Cardoso
> > Enviada em: quarta-feira, 16 de dezembro de 2009 09:51
> > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
>
> > Olha... sinceramente não vi nenhuma asneira por aí não... O único
> > problema é
> > que não existe implementação em Delphi ainda para o algoritmo proposto
> > pela
> > norma.
>
> > A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas
> > perdendo
> > um pouco de tempo, e lendo este documento [1] acredito que seja possível
> > chegar a alguma coisa em Delphi.
>
> > [1] -
> >
> http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_e
> > stados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
>
> > Atte,
> > Ricardo.
>
> > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
> > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
> > compreendida.
> > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
>
> > --- Em ter, 15/12/09, Fellipe Henrique
> > <felli...@gmail.com<fellipeh%40gmail.com>
> > <mailto:fellipeh%40gmail.com <fellipeh%2540gmail.com>> > escreveu:
>
> > > De: Fellipe Henrique <felli...@gmail.com <fellipeh%40gmail.com><mailto:
> fellipeh%40gmail.com <fellipeh%2540gmail.com>>
> > >
> > > Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
> > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br<delphi-br%2540yahoogrupos.com.br>
> >
>
>
> > > Data: Terça-feira, 15 de Dezembro de 2009, 20:53
> > > Bom, acredito que se não é pra
> > > ajudar, melhor não responder... do que dizer
> > > asneiras por aí..
> > >> Att.
> > >> 2009/12/15 Walter Chagas (Bol)
> > >> <wchag...@bol.com.br<wchagasj%40bol.com.br>
> > <mailto:wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> >
>
> > >> >
> > > >
> > > > O google, o Yahoo e o Altavista com certeza tem..
> > > >
> > > > []s
> > > >
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchag...@bol.com.br <wchagasj%40bol.com.br> <mailto:
> wchagasj%40bol.com.br <wchagasj%2540bol.com.br>>>
> > <wchagasj%40bol.com.br>
> > > > http://delphitocorporerm.blogspot.com/
> > > > http://twitter.com/wchagas
> > > > MSN: whitesock...@hotmail.com <whitesockets%40hotmail.com> <mailto:
> whitesockets%40hotmail.com <whitesockets%2540hotmail.com>>>
> > <whitesockets%40hotmail.com>
> > > > SKYPE: WalterChagasJr
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: "rod" <rodli...@ymail.com <rodlinux%40ymail.com> <mailto:
> rodlinux%40ymail.com <rodlinux%2540ymail.com>>>
> > <rodlinux%40ymail.com>>
> > > > To: <delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br<delphi-br%2540yahoogrupos.com.br>>>
>
> > <delphi-br%40yahoogrupos.com.br>>
> > > > Sent: Tuesday, December 15, 2009 2:33 PM
> > > > Subject: [delphi-br] Módulo 97 base 10 (norma iso
> > > 7064)
> > > >
> > > > Olá a todos
> > > >
> > > > Trabalho com sistema jurídico de distribuição de
> > > processos judiciais e o
> > > > CNJ determinou que fosse gerado um único número por
> > > processo, através de
> > > > uma combinação de valores, calculando o dígito
> > > verificador através do alg.
> > > > Módulo 97 base 10 (norma iso 7064).
> > > > Alguém tem essa função para Delphi?
> > > >
> > > > Grato
> > > >
> > > > Rodrigo
> > > >
> > > > [As partes desta mensagem que não continham texto
> > > foram removidas]
> > > >
> > > >> >
> > >>>> --> _________________________________
> > > T.·.F.·.A.·.
> > > Fellipe Henrique
> > > ----------------------------------------------------------
> > > CAMPANHA POR UMA INTERNET SEGURA
> > > Proteja o endereço de seus amigos como estou protegendo o
> > > seu. Ao enviar
> > > mensagens use SEMPRE o "Cco" (cópia oculta).
> > > Assim TODOS os endereços estarão preservados. E, claro,
> > > antes de encaminhar
> > > um e-mail, delete todas as informações que apareçam no
> > > corpo do e-mail e que
> > > possam ser usadas por hackers.
> > > #######################################
> > >>> [As partes desta mensagem que não continham texto foram
> > > removidas]
> > >>>> ------------------------------------
> > >> --> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER
> > > ESTA MENSAGEM >>>>>
> > >> Links do Yahoo! Grupos
> > >>>>
>
> > __________________________________________________________
> > 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]
>
> >
>
> --
>
> Rod
>
> http://www.radiobrgospel.com Você conectado com o som do Céu!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leandro, MuTukA
[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
