Código de barras

23/05/2003

1

Ei pessoal nunca trabalhei com codigo de barra mais tenho que executar um calculo de digito de codigo de barra usando módulo 11
então gostaria de saber o maximo de informações que o amigo leitor poder me passar ex:
O que é modulo 11 ?
Como utilizar?
Qual melhor e mais facil componete de codigo de barra devo usar?
Tutorial onde encontro.


Obrigado
E-mail rafael@cephas.zzn.com


Responder

Posts

23/05/2003

Aroldo Zanela

Colega,

Postei aqui para ficar mais fácil de ser localizados por outros colegas, quando necessário.

FórumWeb ->Delphi ->Downloads

Se precisar de ajuda, é só avisar.


Responder

24/05/2003

Alexpaes

Procure por Delphi-Boleto, lá você encontra o componente ideal para você...

Lá consta um componente que imprime boleto de todos os bancos estou muito satisfeito com ele

Ou melhor mande-me um email para que eu te mande os arquivos dos componentes, ~são pequenos Zipados...



Se ajudei, valeu....


Responder

26/05/2003

Cirilo

O Módulo 11 tem a série de variações, geralmente os valores do peso são de (9..2) ou (2..9) ou (2..n)
Neste exemplo vai de (9..2)

function Modulo11Boleto(sNumero: ShortString): Char;
var soma, fator, i: Integer;
begin
soma:=0;
fator:=9;
for i:=Length(sNumero) downto 1 do begin
soma:=soma + chInt(sNumero[i]) * fator;
Dec(fator);
if fator=1 then fator:=9;
end;
soma:=(Soma mod 11);
if soma >= 10 then
Result:=´0´
else
Result:=intCh(soma);
end;

function IntCh(Int: ShortInt): Char;
begin
Result := Chr ( int + Ord ( ´0´ ) );
end;

function ChInt(ch: Char): ShortInt;
begin
Result := Ord ( ch ) - Ord ( ´0´ );
end;


Visite o site [url]www.veloso.kit.net[/url]
possui componentes para criação e validação de dígitos.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira