ACBRNFSe - Inclusão de Tipo de Dedução - provedor IssDSF Campinas / SP

[Luciana Cristina Pereira]

Boa tarde,
Tudo bem?

Temos entre nossos clientes agências de publicidade que precisam emitir NFS-e com deduções.

As deduções disponíveis no ACBRNFSe (Despesas com Materiais / Despesas com Subempreitada / Deducao de Valor) não atendem a operação de dedução Serviços de Veiculação e Divulgação, e por isso não estava sendo possível emitir as NFSes.

A fim de atender estes clientes, alteramos o ACBR criando um novo Tipo de Dedução para ser enviado ao provedor IssDSF. A solução funcionou para a prefeitura de Campinas / SP, então gostaria de compartilhar com vocês para se possível incluir no release oficial do ACBR.

-----------------------------------

Unit Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsConversao.pas

Alterado a linha abaixo:

  TnfseTipoDeducao = ( tdNenhum, tdMateriais, tdSubEmpreitada, tdValor );

Para esta:

  TnfseTipoDeducao = ( tdNenhum, tdMateriais, tdSubEmpreitada, tdValor, tdVeiculacao );

-----------------------------------

Unit Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeW_ISSDSF.pas

Alterado o bloco abaixo:

      sTipoDeducao := EnumeradoToStr( NFSe.Servico.Deducao.Items[i].TipoDeducao,
                                            ['', 'Despesas com Materiais', 'Despesas com Subempreitada', 'Deducao de Valor'],
                                            [tdNenhum, tdMateriais, tdSubEmpreitada, tdValor]);

Que ficou assim:

      sTipoDeducao := EnumeradoToStr( NFSe.Servico.Deducao.Items[i].TipoDeducao,
                                            ['', 'Despesas com Materiais', 'Despesas com Subempreitada', 'Deducao de Valor', 'Servicos de Veiculacao e Divulgacao'],
                                            [tdNenhum, tdMateriais, tdSubEmpreitada, tdValor, tdVeiculacao]);

------------------------------------

Unit Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsNFSeR.pas
function TNFSeR.LerNFSe_ISSDSF: Boolean;

Trocado este bloco:

        FNfse.Servico.Deducao[Item].TipoDeducao :=
           StrToEnumerado( ok,Leitor.rCampo(tcStr, 'TipoDeducao'),
                           ['', 'Despesas com Materiais', 'Despesas com Sub-empreitada'],
                           [ tdNenhum, tdMateriais, tdSubEmpreitada ]);

Por este:

        FNfse.Servico.Deducao[Item].TipoDeducao :=
           StrToEnumerado( ok,Leitor.rCampo(tcStr, 'TipoDeducao'),
                           ['', 'Despesas com Materiais', 'Despesas com Sub-empreitada', 'Servicos de Veiculacao e Divulgacao'],
                           [ tdNenhum, tdMateriais, tdSubEmpreitada, tdVeiculacao ]);

------------------------------------

É possível que outros provedores / municípios também tenham também este tipo de dedução. A alteração feita aqui foi apenas para o provedor IssDSF, mas talvez vocês queiram implementar em outros provedores.

Além disso, fiquem a vontade em alterar outras coisas, como por exemplo o nome da propriedade tdVeiculacao para outro que vocês achem mais apropriado, como tdDivulgacao.

Agradeço antecipadamente!

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

Vale somente lembrar que as alterações somente serão feitas em nosso novo componente, o ACBrNFSeX.

Att.

[Italo Giurizzato Junior]

Bom dia Luciana,

Apliquei essas alterações nos fontes do novo componente de emissão de NFS-e: ACBrNFSeX

Como já dito pela Juliana não estamos mais realizando alterações e ou correções no componente antigo.

Lhe convido a atualizar os fontes e instalar o novo componente.

Ele não sobrescreve o antigo, você vai ter os dois na pela do seu Delphi.

É uma boa oportunidade de conhecer e testar o novo componente através do seu programa exemplo.