NFSe - DANFSe - FR - Numero RPS faltando um digito

[theiller]

Olá,

Na impressão do DANFSE Modelo FastReport o número do RPS está sendo apresentado cortando o ultimo digito.

Na unit "Fontes\ACBrNFSe\ACBrNFSeDANFSeFRDM.dfm" o "cdsIdentificacaoNumero" deve ter tamanho 16 e não 15.

O problema ocorre porque o campo "Numero" em cdsIdentificacao->IdentificacaoRps está recebendo o valor formatado pela função "DFeUtil.FormatarNumeroDocumentoFiscalNFSe", que resulta 16 caracteres por conta do caracter ponto "." que é agregado na quinta casa após já ter sido formatado em 15 posições. Ex.: "0000.0000000123"(16) = "0000.000000012"(15)

 

Trecho do arquivo ACBrNFSeDANFSeFRDM.pas

with IdentificacaoRps do
      begin
        FieldByName('Numero').AsString    := DFeUtil.FormatarNumeroDocumentoFiscalNFSe(Numero);

 

Trecho do aquivo alterado ACBrNFSeDANFSeFRDM.dfm

    object cdsIdentificacaoNumero: TStringField
      FieldName = 'Numero'
      Size = 16
    end

 

Segue anexo do arquivo dfm alterado.

 

ACBrNFSeDANFSeFRDM.dfm

[theiller]

Outra coisa que observei é sobre um outro campo que esta com o tamanho diferente do necessário é o campo "xItemListaServico" que esta apenas com 100 e existem textos de classificação de serviço que necessitam de muito mais. Esse caso eu tambem havia notificado no link abaixo:

http://www.projetoacbr.com.br/forum/topic/16711-nfse-impressão-fr-campo-xitemlistaservico-incompleto/

CÓDIGO DE CLASSIFICAÇÃO DO SERVIÇO:1401

Conteúdo original XML:

"Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manutencao e conservacao de maquinas, veiculos, aparelhos, equipamentos, motores, elevadores ou de qualquer objeto (exceto pecas e partes empregadas, que ficam sujeitas ao ICMS)."

Conteúdo registrado no cds apenas 100 caracteres:

"Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manute"

 

Favor os ajustar no svn, segue o arquivo dfm com esse ajuste, alem do ajuste citado anteriomente

ACBrNFSeDANFSeFRDM.dfm