Envio De Lote Rps Provedor Tecnos

[WINDEL]

Localização: Unit 'pnfsNFSeW.pas' -> classe 'TNFSeW' -> método 'GerarXML_ABRASF_V2'

 

Caso o provedor for Tecnos o componente gera a tag <IdCidade> com o valor da propriedade 'NFSe.Servico.CodigoMunicipio' (Município onde ocorreu a prestação do serviço).

Do jeito que é feito hoje, ao cancelar a NFS-e o WebService retorna a seguinte mensagem de erro:

 

<MensagemRetorno>

<Codigo>E0077</Codigo>

       <Mensagem>Numero da NFS-e inexistente na base de dados para o prestador de servico pesquisado.</Mensagem>

       <Correcao>Informe o numero correto da NFS-e.</Correcao>

</MensagemRetorno>

 

Entramos em contato com o suporte do provedor Tecnos e eles nos falaram que a tag <IdCidade> deve conter o "código do IBGE do município do prestador dos serviços".

 

Se o serviço for prestado na mesma cidade do prestador, o componente irá cancelar a nota sem erro.

O problema é quando o serviço é prestado em uma cidade diferente que a do prestador.

 

Sugerimos que a tag <IdCidade> seja preenchida com o valor da seguinte propriedade:

  - Gerador.wCampoNFSe(tcStr, '#4', 'IdCidade', 7, 7, 1, NFSe.PrestadorServico.Endereco.CodigoMunicipio);

 

 

Att,

 

Diogo

Editado 4 Agosto, 2014 por DIOGOWAR

[Juliomar Marchetti]

Sugestões de correção favor anexar a unit alterada ao post

para isso é só entrar em mais opções

[WINDEL]

Ok, segue anexo a unit alterada.

 

Obrigado

 

Diogo

pnfsNFSeW.pas

[Italo Giurizzato Junior]

Bom dia Diogo,

 

Muito obrigado pela colaboração.

 

Favor atualizar os fontes pois a unit que você postou esta desatualizada com relação ao repositório.

[possidonio]

Prezados, boa noite.

Como o endereço do Prestador não é obrigatório, sugiro então alterar o fonte conforme abaixo:

Unit pnfsNFSeW_ABRASFv2

procedure TNFSeW_ABRASFv2.GerarXML_ABRASF_v2;

 

    if FProvedor in [proTecnos] then
      if NFSe.PrestadorServico.Endereco.CodigoMunicipio <> '' then
        Gerador.wCampoNFSe(tcStr, '#4', 'IdCidade', 7, 7, 1, NFSe.PrestadorServico.Endereco.CodigoMunicipio, DSC_CMUN)
      else
        Gerador.wCampoNFSe(tcStr, '#4', 'IdCidade', 7, 7, 1, NFSe.Servico.CodigoMunicipio, DSC_CMUN);

 

Atenciosamente,

Possidônio Oliveira.

pnfsNFSeW_ABRASFv2.pas

[Italo Giurizzato Junior]

Boa tarde Possidônio,

Muito obrigado pela colaboração, ainda hoje vou enviar para o repositório.