ops, uma pequena correção de ultima hora
ao revisar e testar, alterar o numero total do rfill do nutricional:
if Produtos.Nutricional <> '' then
begin
//linha da informação nutricional
//0x11+0x02+codigo[5]+pesagem[35]+informacoes nutricionais[209]+chksum[4]+0x03+0x13+0x10
//informacoes nutricionais[258]=1 linha de 41 caracteres para porção
// e 8 linhas de 21 caracteres para [calorias,carboidratos,proteínas,gorduras totais,
// gorduras saturadas,gordura trans,fibra alimentar,
// sódio].
Arquivo.Add(#11#02 +
LFIll(Produtos.Codigo, 5) +
GetTipoProdutoUrano(Produtos.Tipo) +
RFIll(Produtos.Descricao, 20) +
FormatCurr('000000.00', Produtos.ValorVenda) +
LFIll(Produtos.Validade, 4) +
'D' +
>>>>>>>>>>>>>>>>>>>>>>>>> RFIll(Produtos.Nutricional, 209) //, 258) <<<<<<<<<<<<<<<<
valor correto é 209.
);
xtam := CalcularSoma(Arquivo[Arquivo.Count-1]);
Arquivo[Arquivo.Count-1] := Arquivo[Arquivo.Count-1] + IntToHex(xtam, 4) + #03;
end;
ate []´
Reginaldo.