Quebra de linha - Fiorilli

[Edson.pol]

Bom dia !

A quebra de linha do provedor Fiorilli está configurada com com o valor "default":  ConfigGeral.QuebradeLinha := '\s\n';

- Eu gero o texto da Discriminação dos Serviços em um TMemo, depois envio para o componente ACBrNFSeX.

O Danfe está imprimindo &#13 no lugar dos "Enters". 

Não encontrei onde posso corrigir isto. 

 

[Diego Foliene]

40 minutos atrás, Edson.pol disse:

Bom dia !

A quebra de linha do provedor Fiorilli está configurada com com o valor "default":  ConfigGeral.QuebradeLinha := '\s\n';

- Eu gero o texto da Discriminação dos Serviços em um TMemo, depois envio para o componente ACBrNFSeX.

O Danfe está imprimindo &#13 no lugar dos "Enters". 

Não encontrei onde posso corrigir isto. 

 

Bom dia!
Foi enviado ao SVN na Rev-27294 uma alteração visando corrigir este problema.
Por favor, atualize seus fontes, reinstale o ACBr marcando a opção para apagar arquivos antigos e faça novos testes.

[Edson.pol]

Boa tarde Diego !

No meu caso, tive que acrescentar mais uma linha na unit Fiorilli.Provider.pas

Se puder verificar a possibilidade de incluir nos updates: 

 

function TACBrNFSeXWebserviceFiorilli200.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);

  Result := NativeStringToUTF8(Result);
  Result := StringReplace(Result, '
', '\s\n', [rfReplaceAll]);
  Result := StringReplace(Result, ''#$A'', '\s\n', [rfReplaceAll]);   //Linha acrescentada
  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := RemoverPrefixosDesnecessarios(Result);
  Result := RemoverCaracteresDesnecessarios(Result);
end;

Fiorilli.Provider.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3479.

[Diego Foliene]

Em 11/01/2023 at 17:20, Edson.pol disse:

Boa tarde Diego !

No meu caso, tive que acrescentar mais uma linha na unit Fiorilli.Provider.pas

Se puder verificar a possibilidade de incluir nos updates: 

 

function TACBrNFSeXWebserviceFiorilli200.TratarXmlRetornado(
  const aXML: string): string;
begin
  Result := inherited TratarXmlRetornado(aXML);

  Result := NativeStringToUTF8(Result);
  Result := StringReplace(Result, '
', '\s\n', [rfReplaceAll]);
  Result := StringReplace(Result, ''#$A'', '\s\n', [rfReplaceAll]);   //Linha acrescentada
  Result := ParseText(AnsiString(Result), True, {$IfDef FPC}True{$Else}False{$EndIf});
  Result := RemoverPrefixosDesnecessarios(Result);
  Result := RemoverCaracteresDesnecessarios(Result);
end;

Fiorilli.Provider.pas 11.73 kB · 0 downloads

Boa tarde @Edson.pol!
Por favor, é possível disponibilizar um envelope Soap que tenha esses caracteres especiais para utilizarmos nos testes? Seria o Soap de resposta.

Por se tratar de informações sensíveis, pode enviar via e-mail para [email protected]

[Diego Foliene]

Boa tarde!
Mais uma vez, muito obrigado pela contribuição!
A mesma foi disponibilizada na Rev-28391.
Por favor, queira atualizar seus fontes, reinstalar o ACBr para fazer novos testes e reportar qualquer problema.