Formatação Decimal

[Bruno Cezar Arcanjo Braga]

Na unit   ACBrTXTClass, alterei as funções "function TACBrTXTClass.LFill(" e "function TACBrTXTClass.DFill(", inserindo Result := ReplaceStr(Result, '.', ',');

Da forma que estava, dava erro na validação do programa da Receita.

|F200|01|02|JARDIM GRAMADO (MARIA DILCE)|QUADRA 02 LOTE 33|233|68698208568|21012009|73499.53|67486.10|542.83|01|542.83|0.0000|0.00|01|542.83|0.0000|0.00|92.56|4||
|F205|0.00|0.00|0.00|0.00|0.00|01|0.0000|0.00|0.00|0.00|0.00|01|0.0000|0.00|0.00|0.00|0.00|

Alguma sugestão?

Obrigado.

[Daniel Simoes]

Mudar essas Units pode quebrar todas as classes do SPED 

[Juliomar Marchetti]

não é problema em sua configuração do windows?

se rodar o exemplo do svn não faz correto?

N pessoas usam o componente e não tem esse problema.

[Daniel Simoes]

Analisando o código, notei que ela usa FormatFloat, que realmente irá se basear nas configurações de Decimais do sistema operacional

  Result := FDelimitador + FormatFloat('#0.' + StringOfChar('0', Decimal), Value); //FormatCurr não permite precisão acima de 4 casas decimais

Se desejamos que sempre seja gerado com ',' como separador de Decimal, poderíamos usar a ACBrUtil.FormatFloatBr

[Bruno Cezar Arcanjo Braga]

Pois é Daniel.

Voltei as referidas funções a seus estados originais, para mais testes.

            VL_REC_ACUM := qryAuxiliar.FieldByName('valor_pago_anterior').AsFloat;
            VL_TOT_REC := qryAuxiliar.FieldByName('valor_pago_mes').AsFloat;

Estou adicionando os valores conforme acima e o componente TACBrSPEDPisCofins está com as configurações padrão. No sistema operacional utilizo vírgula como separador decimal, mas no banco de dados utilizo ponto, logo, no software também utilizo ponto.

Vou criar uma rotina que abra o arquivo gerado e substitua ponto por vírgula, nos registros necessários. Assim evito ter uma versão paralela do ACBr.

Juliomar, no exemplo do ACBr gera certinho.

Obrigado.

[Daniel Simoes]

@Juliomar Marchetti e demais,

É correto afirmar que para os arquivos TXT do SPED SEMPRE devemos usar a vírgula como separador de decimal ?

[Juliomar Marchetti]

@Daniel Simoes

veja o trecho que retirei do manual do sped ECF

olha esse trecho para o Sped ICMS IPI

E esse trecho é do Sped Contribuições

12 horas atrás, Bruno Cezar Arcanjo Braga disse:

Pois é Daniel.

Voltei as referidas funções a seus estados originais, para mais testes.

            VL_REC_ACUM := qryAuxiliar.FieldByName('valor_pago_anterior').AsFloat;
            VL_TOT_REC := qryAuxiliar.FieldByName('valor_pago_mes').AsFloat;

Estou adicionando os valores conforme acima e o componente TACBrSPEDPisCofins está com as configurações padrão. No sistema operacional utilizo vírgula como separador decimal, mas no banco de dados utilizo ponto, logo, no software também utilizo ponto.

Vou criar uma rotina que abra o arquivo gerado e substitua ponto por vírgula, nos registros necessários. Assim evito ter uma versão paralela do ACBr.

Juliomar, no exemplo do ACBr gera certinho.

Obrigado.

Quase certo que em sua aplicação está alterando os aspectos das configurações regionais e por isso está ocorrendo o erro.

[Daniel Simoes]

Apliquei algumas modificações para usar a FormatFloatBr da ACBrUtil (em anexo)

A princípio, não quebrou a Unit Test

ACBrTXTClass.pas

[Bruno Cezar Arcanjo Braga]

Muitíssimo obrigado a todos.

Vou atualizar a unit aqui e usar a função, Daniel.