Lê etiqueta de balança Toleto

[Augusto Ribeiro]

Boa tarde.

Gostaria de saber se tem como lê etiqueta de balança com essa configuração abaixo pra Unidade e Peso ao mesmo tempo.

2CCCCC0PPPPPDV

Ex.: 2291100000016

2 - padrão

29110 - código

000001 - quantidade

6 - dv

[Juliomar Marchetti]

no caso basta configurar o componente e ele vai quebrar com as informações.

salvo engano é o ACBrInStore

[Augusto Ribeiro]

Uso conforme o exemplo a baixo.

2CCCCC0PPPPPDV 

Qdo é vendido no peso está dando certo mas, qdo vendido por unidade não funciona.

Nesse Exemplo:  2291100000016 - A etiqueta foi impressa com a venda de 1 (uma) unidade no valor 100,00

Qdo leio no sistema, ele pega a qtde de 1 * o preço do produto ai fica ,01.

Tem algum método de configuração que possa fazer pra ele entender que é 1 = 100,00?

     if ACBrInStore1.Prefixo = Copy(edtCodigoEtiqueta.Text, 1, Length(ACBrInStore1.Prefixo)) then
     begin
        ACBrInStore1.Desmembrar(edtCodigoEtiqueta.Text);

        edtPrefixo.Text := ACBrInStore1.Prefixo;
        edtCodigo.Text  := ACBrInStore1.Codigo;
        edtPeso.Text    := FloatToStr( ACBrInStore1.Peso );
        edtTotal.Text   := FloatToStr( ACBrInStore1.Total );
        edtDV.Text      := ACBrInStore1.DV;
     end;

[Juliomar Marchetti]

pega o exemplo do componente e joga lá nele a configuração e depois o código que tu gerou e faz o desmembrar

 

no caso tem que lembrar das casas decimais.

então tá errado ali no gerar o código

[Augusto Ribeiro]

Blz,

Obrigado pela ajuda.