AcbrNFSe - Campo DescricaoRPS não preenchido no XML

[valdomirojr]

Boa noite pessoal,

Estou utilizando o provedor IssDSF e não estou conseguindo passar valor para a tag DescricaoRPS. 

Tentei utilizando as seguintes formas:  Servico.Discriminacao e Servico.Descricao

Mas sempre a tag no xml não é preenchida e o campo fica em branco na impressão conforme figura abaixo:

Quando gero diretamente no site da prefeitura a tag é preenchida e sai a informação conforme figura abaixo:

 

verifiquei que na unit do Danfse existe essa condição:

procedure TfrlDANFSeRLRetrato.rlbItensBeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
  inherited;

  rlmDescricao.Lines.Clear;
  rlmDescricao.Lines.Add( StringReplace( fpNFSe.Servico.Discriminacao,
                          FQuebradeLinha, #13#10, [rfReplaceAll, rfIgnoreCase] ) );
end;

 

Qual seria a sintaxe correta?

 

Obrigado pela atenção. 

 

 

 

[Juliomar Marchetti]

Olhe na configuração da cidade e provedor que possui algo da quebra de linha dai basta usar ela , não adicione quebra de linah que o provedor pode apagar isso

[valdomirojr]

Bom dia Juliomar,

No arquivo de configuração tem os seguintes parâmetros:

; Arquivo INI de configuração do Provedor ISSDSF
[Geral]
VersaoSoap=1.1
Prefixo2=
Prefixo3=ns1:
Prefixo4=tipos:
Identificador=Id
QuebradeLinha=<br />
; 0 = False / 1 = True
UseCertificado=1

[Remover]
; 0 = Não / 1 = Sim
QuebradeLinhaRetorno=1
EComercial=1
Tabulacao=1
TagQuebradeLinhaUnica=1

**************************************************************************************************

Estou passando para as tags uma linha apenas de texto sem quebra de linhas.

Servico.Discriminacao := 'TESTE'  

para ver se aparecia no xml mas ainda nao consegui.

nessa procedure ao verificar o conteudo da variavel sempre esta vazio.

------> fpNFSe.Servico.Discriminacao 

procedure TfrlDANFSeRLRetrato.rlbItensBeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
  inherited;

  rlmDescricao.Lines.Clear;
  rlmDescricao.Lines.Add( StringReplace( fpNFSe.Servico.Discriminacao,
                          FQuebradeLinha, #13#10, [rfReplaceAll, rfIgnoreCase] ) );
end;

 

att

Editado 23 Novembro, 2020 por valdomirojr
Faltou uma informação

[Juliomar Marchetti]

Favor anexar o xml gerado

[valdomirojr]

Ola Juliomar, 

Segue o xml do rps anexado. 

att3120118651387600015756000000000031550-rps.xml

[valdomirojr]

Boa tarde,

Acabei de fazer a atualização do componente para ver se poderia ser algo desatualizado, mas sem sucesso.

Continua a tag sem sair a informação.

att,

[BigWings]

Em 20/11/2020 at 20:54, valdomirojr disse:

Tentei utilizando as seguintes formas:  Servico.Discriminacao e Servico.Descricao

Da unit pnfsNFSeW_ISSDSF.pas:

  Gerador.wCampo(tcStr, '', 'DescricaoRPS', 01, 1500, 1, NFSe.OutrasInformacoes, '');

 

[valdomirojr]

Obrigado pela ajuda.  Funcionou!!  

att

[Juliomar Marchetti]

Obrigado por reportar.

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