Jump to content

dev botao

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


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1003 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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!

Link to comment
Share on other sites

  • Administradores

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.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores
  • Solution

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.