Erro ao Gerar arquivo - Registro C175 Valor de ALIQ_PIS

[IgorAcertSoft]

Ao usar o seguinte comando: 

ACBrSPEDPisCofins1.SaveFileTXT;

Está dando um erro "Erro ao converter", tentei buscar o problema e está no arquivo "ACBrEPCBloco_C_Class" na linha 1198 onde passa:

 

Eu estou passando o valor 0,65 nesse campo, só que essa função VLFill está tentando converter esse valor para inteiro por isso gera a exception, como segue na imagem :

E isso pode acontecer nos outros campos desse registro também, se eu passar algum valor que não seja um inteiro, o que pode ser feito para corrigir isso?

 

 

[EMBarbosa]

Seu código não está de acordo com o que está com o SVN. Esse try..except foi adicionado por vocês.

Veja o código atual:

function TACBrTXTClass.VLFill(Value: Variant;
                             Size: Integer;
                             Decimal: Integer;
                             Caracter: Char;
                             const Mascara: String): String;
var
AExt: Extended;
begin
  // Se o parametro Value = Null ou não foi preenchido será retornado '|'
  if VarIsNull(Value) or VarIsEmpty(Value) then
  begin
     Result := FDelimitador;
     Exit;
  end;

  // Checa se é um valor numérico
  if not VarIsNumeric(Value) then
     raise EACBrTXTClassErro.Create( ACBrStr('Parâmetro "Value" não possui um valor numérico.'));

  AExt := Value;

  Result := LFill(AExt, Size, Decimal, False, Caracter, Mascara);
end; 

 

[IgorAcertSoft]

Apaguei os meus arquivos e atualizei novamente e realmente não tinha aquele try execpt.

Resolvido, obrigado!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.