Ir para conteúdo
  • Cadastre-se

dev botao

Opção RetirarEspacos


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

Recommended Posts

Olá,

preciso gerar os XMLs das notas com os espaços em branco e o ACBr por padrão remove os espaços.

Editando os fontes notei que na função GerarXML do arquivo Fontes\ACBrDFe\ACBrNFe\ACBrNFeNotasFiscais.pas existe a propriedade RetirarEspacos porém não encontrei no componente a opção correspondente.

Na linha 1241 é carregada a propriedade RetirarAcentos, que existe no componente ACBrNFe em Configuracoes.Geral.

Gostaria de saber se é possível criar a propriedade RetirarEspacos no componente para poder setar FALSE quando necessário.

 

function NotaFiscal.GerarXML: String;
var
  IdAnterior : String;
begin
  with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
  begin
    IdAnterior := NFe.infNFe.ID;
    FNFeW.Gerador.Opcoes.FormatoAlerta := Configuracoes.Geral.FormatoAlerta;
    FNFeW.Gerador.Opcoes.RetirarAcentos := Configuracoes.Geral.RetirarAcentos;
    // adicionei esta linha para não retirar os espaços
    FNFeW.Gerador.Opcoes.RetirarEspacos := false;
  end;

  FNFeW.Opcoes.GerarTXTSimultaneamente := False;

  FNFeW.GerarXml;
  //DEBUG
  //WriteToTXT('c:\temp\Notafiscal.xml', FNFeW.Gerador.ArquivoFormatoXML, False, False);
  XMLOriginal := FNFeW.Gerador.ArquivoFormatoXML;

  if (NaoEstaVazio(FNomeArq) and (IdAnterior <> FNFe.infNFe.ID)) then // XML gerado pode ter nova Chave e ID, então devemos calcular novamente o nome do arquivo, mantendo o PATH do arquivo carregado
    FNomeArq := CalcularNomeArquivoCompleto('', ExtractFilePath(FNomeArq));

  FAlertas := ACBrStr( FNFeW.Gerador.ListaDeAlertas.Text );
  Result := FXMLOriginal;
end;

 

Agradeço desde já.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Fundadores

Aproveitei que estava subindo várias modificações e implementei suporte a essa propriedade, em ACBrDFe

Por favor atualize pelo SVN e veja os "change-logs.txt"

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...

Boa tarde,

Quando consulto um recibo mesmo com a opção retirar acentos ativada, ele me retorna com acentos, está correto ? 

<retConsReciNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>1</tpAmb><verAplic>GO3.0</verAplic><nRec>521000361268540</nRec><cStat>104</cStat><xMotivo>Lote processado</xMotivo><cUF>52</cUF><dhRecbto>2016-06-27T11:24:56-03:00</dhRecbto><protNFe versao="3.10"><infProt Id="NFe00"><tpAmb>1</tpAmb><verAplic>GO3.0</verAplic><chNFe>52160606030701000150550010000019851000019856</chNFe><dhRecbto>2016-06-27T11:24:56-03:00</dhRecbto><cStat>234</cStat><xMotivo>RejeiA§A£o: IE do destinatA¡rio nA£o vinculada ao CNPJ</xMotivo></infProt></protNFe></retConsReciNFe>
 

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...