Quebra de Linha

[leandroksc]

Boa tarde!

Amigos, após a alteração que foi feita no tópico abaixo, a geração do XML ficou sem quebra de linha em um dos nossos clientes. Ele utiliza o provedor BHISS.

 

Pelo que pude verificar no código, parece que a propriedade QuebraLinha do Gerador não está sendo sincronizada com a QuebraDeLinha definida nas configurações do componente. Eu fiz uma pequena alteração aqui que resolveu a questão.

Na função TNFSeW_ABRASFv1.GerarXml do aquivo pnfsNFSeW_ABRASFv1.pas estava assim:

unction TNFSeW_ABRASFv1.GerarXml: Boolean;
begin
  Gerador.ListaDeAlertas.Clear;
  Gerador.ArquivoFormatoXML := '';
  Gerador.Prefixo           := FPrefixo4;

  if (FProvedor in [proBHISS, proNatal, proProdemge, proPronim, proTinus,
                    proNFSEBrasil]) then
    FDefTipos := FServicoEnviar;
.............
end;

Apenas adicionei uma linha como a seguir:

unction TNFSeW_ABRASFv1.GerarXml: Boolean;
begin
  Gerador.ListaDeAlertas.Clear;
  Gerador.ArquivoFormatoXML := '';
  Gerador.Prefixo           := FPrefixo4;
  Gerador.Opcoes.QuebraLinha := FQuebradeLinha; //<--Inserido aqui

  if (FProvedor in [proBHISS, proNatal, proProdemge, proPronim, proTinus,
                    proNFSEBrasil]) then
    FDefTipos := FServicoEnviar;
.............
end;

Segue o arquivo em anexo para análise.

pnfsNFSeW_ABRASFv1.pas

[Italo Giurizzato Junior]

Bom dia Leandro,

Muito obrigado pela colaboração, ainda esta semana vamos analisar e estando tudo OK, vamos enviar para o repositório.

[Italo Giurizzato Junior]

Bom dia Leandro,

Já enviei para o repositório.