ACBR-8699 ACBrNFSeDANFSeFR - Código de lista de serviços sendo cortado ao imprimir o PDF

[HUGO753]

Ao imprimir o PDF, está cortando o código da classificação de serviços, em vez de imprimir "14.10.01" está imprimindo "14.10."

O código da classificação de serviços do provedor SIGISSWEB ele vem com o código completo no retorno ao emitir a NFS-e:
<id_codigo_servico>14.10.01</id_codigo_servico>

Logo ao executar o ACBrNFse.NotasFiscais.ImprimirPDF, dentro do componente ACBrNFSeXDANFSeFR na linha 1316 o "LCDS.FieldByName('ItemListaServico').AsString  := LServico.ItemListaServico" o "LServico.ItemListaServico" mostra código inteiro (14.10.01) enquanto no "LCDS.FieldByName('ItemListaServico').AsString" acaba armazenando os 6 primeiros caracteres (14.10.), por conta que no próprio ACBrNFSeXDANFSeFR na linha 508 : "cdsServicos.FieldDefs.Add('ItemListaServico', ftString, 6);" está setado como padrão 6 caracteres, pra corrigir isso percebi 2 soluções:

Mudar o "cdsServicos.FieldDefs.Add('ItemListaServico', ftString, 6);" pra 8 pra imprimir o código por completo "14.10.01"

ou

Na linha "LCDS.FieldByName('ItemListaServico').AsString  := LServico.ItemListaServico" ter uma função para extrair somente os números do LServico.ItemListaServico "141001"

[Juliomar Marchetti]

anexe o arquivo modificado

 

[HUGO753]

Bom dia, segue no anexo o arquivo modificado.

ACBrNFSeXDANFSeFR.pas

[Italo Giurizzato Junior]

Bom dia @HUGO753,

Muito obrigado pela colaboração, já foi criado a tarefa ACBR-8699  para analise.

[Italo Giurizzato Junior]

Boa tarde @HUGO753,

Já esta no SVN.