Sim, usei a funçao Modulo11('1751',9) e deu outro valor, se não me engano
deu 0, sendo que o valor da tabela é 5.Sabe o pode ser? -----Mensagem original----- De: Bollasette [mailto:bollase...@yahoo.com.br] Enviada em: terça-feira, 30 de março de 2010 23:50 Para: Felipe Yahoo Assunto: [Bulk] Re: [Bulk] Fw: [delphi-boleto] Digito Verificador Na prática, como escreveu a função ? tipo: D2:= Modulo11(sChave,9) ? ----- Original Message ----- From: "Felipe Yahoo" <nunesfel...@yahoo.com.br> To: "'Bollasette'" <bollase...@yahoo.com.br> Sent: Tuesday, March 30, 2010 6:54 PM Subject: RES: [Bulk] Fw: [delphi-boleto] Digito Verificador Eu jaz fiz pelo modulo 11 base 9 assim. E deu valores diferentes. function Modulo11(Valor: String; Base: Integer = 9; Resto : boolean = false) : string; { Rotina muito usada para calcular dígitos verificadores Pega-se cada um dos dígitos contidos no parâmetro VALOR, da direita para a esquerda e multiplica-se pela seqüência de pesos 2, 3, 4 ... até BASE. Por exemplo: se a base for 9, os pesos serão 2,3,4,5,6,7,8,9,2,3,4,5... Se a base for 7, os pesos serão 2,3,4,5,6,7,2,3,4... Soma-se cada um dos subprodutos. Divide-se a soma por 11. Faz-se a operação 11-Resto da divisão e devolve-se o resultado dessa operação como resultado da função Modulo11. Obs.: Caso o resultado seja maior que 9, deverá ser substituído por 0 (ZERO). } var Soma, Contador, Digito, iResto : integer; Peso: String; begin Soma := 0; Peso := '4329876543298765432987654329876543298765432'; for Contador := 1 to length(valor) do begin Soma := Soma + (StrToInt(Valor[Contador]) * StrToInt(Peso[contador])); end; // iResto := (Soma mod 11); Digito := 11 - (Soma mod 11); if Digito > 9 then Digito := 0; Result := IntToStr(Digito); end; -----Mensagem original----- De: Bollasette [mailto:bollase...@yahoo.com.br] Enviada em: terça-feira, 30 de março de 2010 18:08 Para: Felipe Nunes Assunto: [Bulk] Fw: [delphi-boleto] Digito Verificador ----- Original Message ----- From: "Bollasette" <bollase...@yahoo.com.br> To: <delphi-bol...@yahoogrupos.com.br> Sent: Tuesday, March 30, 2010 5:58 PM Subject: Re: [delphi-boleto] Digito Verificador >É pelo módulo 11, base 9 > > http://www.cjdinfo.com.br/cjdinfo.php/utilitario-calculo-digito-modulo-11 > > [ ]sss > > > ----- Original Message ----- > From: "Felipe Yahoo" <nunesfel...@yahoo.com.br> > To: "Felipe Yahoo" <nunesfel...@yahoo.com.br> > Sent: Tuesday, March 30, 2010 5:49 PM > Subject: [delphi-boleto] Digito Verificador > > > Boa tarde senhores, preciso de ajuda para descobrir qual calculo foi feito > para encontrar esses digitos informados em baixo: > > Já utilizei o Modulo10 e Modulo11. > > > > > Codigo do Produto > > Digito Verificador > > > 1751 > > 5 > > > 2002 > > 8 > > > 3013 > > 9 > > > 3050 > > 3 > > > 3051 > > 1 > > > 3057 > > 1 > > > 4032 > > 1 > > > 4070 > > 3 > > > 6004 > > 6 > > > > Obrigado > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > ------------------------------------ > > Delphi-Boleto - Componentes para geração de boleto bancário em Delphi. > Criador/Moderador: Genilton Barbosa > Visite meu site: www.gbimoveis.com/genilton - Dicas de programação em > Delphi, diversos componentes grátis e muito mais > > Para enviar mensagens: > delphi-bol...@yahoogrupos.com.br > > Para cancelar assinatura: > delphi-boleto-unsubscr...@yahoogrupos.com.br > > Site do grupo: > http://www.yahoogrupos.com.br/groups/delphi-boleto > > Para fazer download do componente, visite o meu site: > http://www.gbimoveis.com/genilton > > PARTICIPE DE NOSSAS PESQUISAS DE OPINIÃO > > As pesquisas ajudam a entender melhor as opiniões e necessidades dos > membros do grupo. Dê o seu voto. Para acessar as pesquisas visite o > endereço www.yahoogrupos.com.br/groups/delphi-boleto/pollsLinks do Yahoo! > Grupos > >
