ACBrNFSe/ACBrNFSeX - Descriminação dos Serviços com Quebra de Linha - Maringá/PR

[Valter FC]

Bom dia pessoal.

Estamos utilizando a descriminação do serviço com quebra de linha, para a prefeitura de Maringá/PR.

if (Servico.Discriminacao <> '') then
  Servico.Discriminacao := Servico.Discriminacao + System.sLineBreak;

Servico.Discriminacao := Servico.Discriminacao +
  'Cod.: ' + qryItens.FieldByName('prd_cod').AsString +
  ' - Descrição: ' + UpperCase(qryItens.FieldByName('prd_descricao').AsString) +
  ' - Qtde.: ' + qryItens.FieldByName('itm_qtde').AsString +
  ' - Vlr. Unit.: ' + qryItens.FieldByName('itm_vlrunitario').AsString +
  ' - Vlr. Desc.: ' + FormatFloat('#,##0.00', qryItens.FieldByName('itm_vlrdesconto').AsFloat);

// observação
if (qryIde.FieldByName('obsconhecimento').AsString <> '') then
begin
  if (Servico.Discriminacao <> '') then
	Servico.Discriminacao := Servico.Discriminacao + System.sLineBreak;

  Servico.Discriminacao := Servico.Discriminacao +
	'Obs.:' + System.sLineBreak +
	qryIde.FieldByName('obsconhecimento').AsString;
end;

O campo do banco "obsconhecimento" está preenchido assim, utilizando quebra de linha:
 

Primeira linha da observação
Segunda linha da observação

O XML gerado está ficando assim:

<Discriminacao>Cod.: 002524 - Descricao: PRESTACAO DE SERVICO PARA DES DE SOFTWARE INDUSTRI - Qtde.: 1 - Vlr. Unit.: 1,23 - Vlr. Desc.: 0,00;Obs.:;Primeira linha da observacao;Segunda linha da observacao</Discriminacao>

A geração da NFSe pelo link da prefeitura não está retornando as quebras de linha (a consulta no site também não mostra as quebras):

Pelo que entendi, o ACBr troca as quebras de linha para ";".

A prefeitura não deveria trocar na visualização os ";" por quebras de linha?

Será que o caracter de quebra de linha da Prefeitura de Maringá/PR está realmente correto?

Agora estou utilizando o ACBrNFSeX, mas quando utilizava o ACBrNFSe também ocorria o mesmo problema.

 

[Italo Giurizzato Junior]

Boa tarde Valter,

Só verificando com o provedor qual é o caractere que eles utilizam como quebra de linha.

[Valter FC]

Boa tarde Italo.

Achei: é "\s\n".

Só não sei onde colocar sem alterar o fonte.

Eu coloquei em ISSe.GravarXml.pas

procedure TNFSeW_ISSe.Configuracao;
begin
  inherited Configuracao;
  ... // outros códigos
  FAOwner.ConfigGeral.QuebradeLinha := '\s\n';
end;

Com essa alteração, ficou assim o resultado:

[Italo Giurizzato Junior]

Boa tarde Valter,

A configuração de quebra de linha você coloca na unit ISSe.Provider

[Italo Giurizzato Junior]

Valter,

Favor atualizar os fontes.

[Valter FC]

Italo, funcionou perfeitamente.

Muito obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

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