Rodrigo Sandre

No projeto são 3 componentes, faltou ajustar 1 deles, deixando essa propriedade false funcionou, muito obrigado.

Nenhum dos dois jeitos funcionou, estou utilizando Delphi 7 não sei se interfere em alguma coisa

Vou tentar das duas maneiras e já retorno aqui.

Boa tarde à todos, no sistema o cliente está cadastrando os produtos com o caractere Ø, pra ele é importante essa informação, porem ao incluir no xprod, ao gerar o xml, esta sendo substituido pelo 0, alguém sabe se tem algum jeito de não ocorrer essa substituição?

Sim, fiz o teste das duas maneiras e agora retornou corretamente. Em anexo a alteração que fiz, está na linha 108. ACBrBALAlfa.pas

Seria a função OnlyNumber? Aí só acrescentaria a função no segundo Result: if (Pos(DecimalSeparator, String(wResposta)) > 0) then Result := StrToFloat(wResposta) else Result := (StrToInt( OnlyNumber( wResposta ) ) / wDecimais);

Bom dia. Estou realizando um teste com o terminal de balança da Alfa Instrumentos 3104C , o cliente não está trabalhando com casas decimais na balança, está retornando erro, estava verificando os retornos e acontece o seguinte: Com casas decimais retorna: '**: 00,218 *: 00,000'#$D#$A Sem casas decimais retorna: '**: 00196 *: 00000'#$D#$A Em Fontes/ACBrSerial/ACBrBALAlfa.pas o erro acontecia na linha 109, onde tentava converter a string com o espaço no final '00196 ': Result := (StrToInt(wResposta) / wDecimais); na linha 96 possui o seguinte código wResposta := Copy(wResposta, 5, 6); Pra ajustar troquei o código acima pelo seguinte: if (Pos(DecimalSeparator, String(wResposta)) > 0) or (Pos('.', String(wResposta)) > 0) or (Pos(',', String(wResposta)) > 0) Then wResposta := Copy(wResposta, 5, 5) else wResposta := Copy(wResposta, 5, 6); Teriam alguma outra sugestão?