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á 1174 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 / 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.

The popup will be closed in 10 seconds...