Pesquisar na Comunidade
Showing results for tags 'espaços'.
Encontrado 1 registro
-
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á.
