gerar numero com 13 digitos

Question

Amigos preciso gerar um numero com 13 digitos da seguinte forma:os 3 Primeiros deve ser constante tipo 890o campo de minha tabela codigo tem um tamanho de 10 digitos e devo utilizar ele, porem ele � c...

Marco Salles · Answer

N�o serve  :?:  :?:  :?: [code:1:5693f58d3f]function RetornarNumeroTrezeDigitos:real;var Texto:String; i:Integer;begin Texto:=�890�; i:=1; randomize; while i<= 6 do   begin     texto:=texto+inttostr(Random(9));     i:=i+1;   end;  Texto:=Texto+�7852�;  result:=strtoFloat(Texto);end;[/code:1:5693f58d3f]e para chamar :[code:1:5693f58d3f]procedure TForm1.Button1Click(Sender: TObject);beginshowmessage(Floattostr(RetornarNumeroTrezeDigitos));end;[/code:1:5693f58d3f]...

Dpinho · Answer

function TForm_Produtos.RetornarNumeroTrezeDigitos:real;
var
Texto:String;
i:Integer;
c:Integer;
begin
Texto:=�789�;
i:=1;
randomize;
while i<= (10- length(db_codigo.text)) do
begin
texto:=texto+inttostr(Random(9));
i:=i+1;
end;
Texto:=Texto+ db_codigo.Text;
result:=strtoFloat(Texto);
end;

Fiz algumas altera��es para que o numero retorne sempre 13 digitos, ficou muito bom, mas esta dando erro no digito verificador.
e como posso imprimir a etiqueta..
algem pode ajudar por favor

Marco Salles · Answer

[quote:fe2dd2a138]Fiz algumas altera��es para que o numero retorne sempre 13 digitos[/quote:fe2dd2a138]Quando eu lhe passei esta rotina , pensei que o final fosse sempre contante igua a �7852�.. E vejo agora que n�o �.. Mas deu para voce ter uma id�ia , isto ja � um bom come�o[quote:fe2dd2a138]ficou muito bom, mas esta dando erro no digito verificador. [/quote:fe2dd2a138]Que digito verificadoe � este amigo[quote:fe2dd2a138]e como posso imprimir a etiqueta.. algem pode ajudar por favor[/quote:fe2dd2a138]Voce conhece este Site ???//www.veloso.kit.net/download.html...

Dpinho · Answer

tem um fun��o de verificar se o codigo de barras esta correto ele faz os calculos e retornar que o numero n�o � valido

veja a fun��o:
function TForm1.DV(Codigo: String) : Integer;
var
i, SomaPar : Integer;
begin
// inicializa as vari�veis de apoio
SomaPar := 0;
Result := 0;

for i := 1 to 6 do
begin
Result := Result + StrToInt(Codigo[2*i-1]); // soma dos digitos das posi��es �mpares a partir do 3�
SomaPar := SomaPar + StrToInt(Codigo[2*i]); // soma dos digitos das posi��es pares
end;

// fa�o a soma ponderada (cada d�gito da posi��o par � multiplicado por 3)
Result := Result + 3 * SomaPar;

// o DV � o menor inteiro que somado ao resultado, d� um m�ltiplo de 10
// exemplo : se resultado = 76, ent�o o DV=4, pois resultado + DV = 80
Result := Ceil(Result/10)*10 - Result;
end;

Quanto ao site conhe�o, mas quando tento pegar os componentes diz que a pagina n�o pode ser exibida

Gandalf.nho · Answer

Eu sugiro tb o FBarcode [url]//mitglied.lycos.de/AJSchmidt/[/url]...

Marco Salles · Answer

eu nun entendo :cry: :cry: :cry:

se o numero gerado aleatoriamente tem que passar pelo crivo de uma fun��o , que determina se o numero gerado � v�lido ou n�o...Ent�o voce deveria ter dito isto no enunciado

so n�o quero que apare�a os zeros. os zeros devem ser substituidos por numero.

deveria ser assim:::

so n�o quero que apare�a os zeros. 
os zeros devem ser substituidos por numero e cuja combina��o desse numeros atendam a rotina verificadora de codigos de barra abaixo

� isto que voe quer amigo :?: :?: :?: ...

Qual s�o os digitos que podem ser considerados constantes no seu codigo de barra :?: :?:

Alem do �789� Tem mais algum que � determinado fixo :?:
Tem alguns digitos que s�o determinados pelo usu�rio :?: :?:
quais seriam a quantidade desse digitos :?: :?: :?:
etc...

F�rum gerar numero com 13 digitos #283852