Fórum Código de Barras Leitura #355891
25/03/2008
0
Pesquisei mas não obtive exito.
É o seguinte, vocês já se depararam com aquelas etiquetas impressas das balanças filizola e toledo, que imprimem o código do produto e o valor, gerando assim um código de barra único.
Acontece que eu não tenho a minima idéia de como ler esta informação, pois vem tudo junto o código do produto mais o valor.
Tipo 000938892890
Produto 93889
Valor 2,89
Como fazer para ler esta imformação em um sitema de pdv, construi a função que faz a multiplicação de produtos pelo mesmo codigo de barra, isto agiliza, mas não é o meu caso que necessito.
Quem quizer posso passar o código.
Funciona assim
2*7895874545412
Ele pega o código do produto, localiza no BD e encontrando, pega o valor do produto e multiplica no caso por 2, funfa normal,
Agora se alguem puder me ajudar na rotina (sobe) eu agradeço e muito.
Grato a todos
Valnei
Objetivacreator
Curtir tópico
+ 0Posts
25/03/2008
Wanderok
2) Inserir ponto decimal (vírgula) na parte VALOR
3) Converter o substring VALOR em FLOAT;
BEGIN
vLido := ´000938892890´;
vProduto:= TiraZeros(Copy(vLido,1,8));
vValor := MontaValor(Copy(vLido,9,12);
END;
function TiraZeros(pFrase:String):String;
var vSemZeros:String;
i : integer;
begin
vSemZeros:=´´;
for i := 1 to length(pFrase);
if pFrase[i] <> ´0´ then
vSemZeros := pFrase[i]+vSemZeros;
result := vSemZeros;
end;
function MontaValor(pValor:String):Float;
begin
try
result := StrToFloat(Copy(pValor,1,lenth(pValor-3)) + ´,´ + Copy(pValor,lenth(pValor-2)),lenth(pValor)));
except
result := 0;
end;
end;
Gostei + 0
25/03/2008
Wanderok
vProduto:= TiraZeros(Copy(vLido,1,8);
Gostei + 0
25/03/2008
Wanderok
vProduto:= TiraZeros(Copy(vLido,1, 8 ); (mas que coisa :D:D:D)
Gostei + 0
30/03/2008
Murillo.cg
para não inverter:
vSemZeros := vSemZeros + pFrase[i];
Gostei + 0
30/03/2008
Wanderok
[b:b1e3a20070]Exatamente !!!![/b:b1e3a20070] :D:D:D
Gostei + 0
30/03/2008
Wanderok
[size=24:e24f6b2f96][color=red:e24f6b2f96][b:e24f6b2f96]EDITANTO DE FORMA INTELIGENTE !!!![/b:e24f6b2f96][/color:e24f6b2f96][/size:e24f6b2f96]
[b:e24f6b2f96]Exatamente !!!! ESTE E NAO O OUTRO.[/b:e24f6b2f96] :D:D:D
QUEM ESTÁ CERTO É O MURILLO !!!!!
EU INVERTI .
O CORRETO É
[color=blue:e24f6b2f96][b:e24f6b2f96]vSemZeros := vSemZeros + pFrase[i];[/b:e24f6b2f96][/color:e24f6b2f96]
Gostei + 0