Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

igornunes

ANSWERED Erro ao Gerar arquivo - Registro C175 Valor de ALIQ_PIS

  • Este tópico foi criado há 465 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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:

 image.png.f1c1509d276c2165b0d95e1bdbf34e8e.png

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 :

image.thumb.png.1abc2ad6b08b2da2085043f276fabcad.png

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?

 

 

Share this post


Link to post
Share on other sites

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; 

 


[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.

Share this post


Link to post
Share on other sites

Obrigado por reportar.

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

  • Like 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
  • Este tópico foi criado há 465 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.

×
×
  • Create New...