Ajuste para o provedor Bethav2

andersonscinfo · 6 Junho, 2019

A alguns dias estavamos compatibilizando nossa emissão de NFS-e com o provedor Betha e precisamos fazer um ajuste no fonte do acbr, segue uma descrição e a "possivel" correção, se ja estiver sido aplicado anteriormente peço desculpas pela duplicação....

ERROS
E30 - Item da lista de servico inexistente.
correções adicionar proBethav2 para ItemListaServico

unit pnfsNFSeW_ABRASFv2


procedure TNFSeW_ABRASFv2.GerarServicoValores;
...
  if FProvedor <> proGoiania then
  begin
    case FProvedor of
      proBethav2,
      proSisPMJP,
      proVirtual: Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 05, 0, OnlyNumber(NFSe.Servico.ItemListaServico), DSC_CLISTSERV);

      proNotaInteligente: Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 05, 1, NFSe.Servico.ItemListaServico, DSC_CLISTSERV);

      proVitoria:
        begin
          if copy(NFSe.Servico.ItemListaServico, 1, 1) = '0' then
            Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 05, 0, copy(NFSe.Servico.ItemListaServico, 2, 4), DSC_CLISTSERV)
          else
            Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 05, 0, NFSe.Servico.ItemListaServico, DSC_CLISTSERV);
        end;
    else
      Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 05, 0, NFSe.Servico.ItemListaServico, DSC_CLISTSERV);
    end;

    if FProvedor in [proVersaTecnologia, proDesenvolve]  then
      Gerador.wCampoNFSe(tcStr, '#30', 'CodigoCnae', 01, 07, 1, OnlyNumber(NFSe.Servico.CodigoCnae), DSC_CNAE)
    else
      Gerador.wCampoNFSe(tcStr, '#30', 'CodigoCnae', 01, 07, 0, OnlyNumber(NFSe.Servico.CodigoCnae), DSC_CNAE);
  end;