Correção no ISSNet.Provider.pas para Cancelamento

[Fabio Luiz Binhara]

Olá.

Estou integrando o município de Barcarena - PA, consegui fazer o envio da NSFe seguindo a correção solicitei em outro tópico.

Ao tentar fazer o cancelamento da NFSe tive a seguinte rejeição:

Citar

L013 - Município de prestação de serviço informado no XML diferente da URL do webservice. - Selecione o mesmo municí­pio de prestação de serviço do XML para a URL do webservice.

Verifiquei que isso foi devido a na TAG <tc:CodigoMunicipio> ser enviado com código 999.

Pelo que entendi do fonte, na procedure TACBrNFSeProviderISSNet.GerarMsgDadosCancelaNFSe, a property ConfigGeral.CodIBGE estava vindo com um valor errado e não consegui detectar sua origem.

Correção:

Seguindo a mesma lógica aplicada na procedure TACBrNFSeProviderISSNet204.GerarMsgDadosCancelaNFSe, alterei para pegar o valor da TACBrNFSeX(FAOwner).Configuracoes.Geral.CodigoMunicipio e a solicitação de cancelamento foi realizada com êxito.

A procedure ficou assim:

procedure TACBrNFSeProviderISSNet.GerarMsgDadosCancelaNFSe(
  Response: TNFSeCancelaNFSeResponse; Params: TNFSeParamsResponse);
var
  Emitente: TEmitenteConfNFSe;
  InfoCanc: TInfCancelamento;
  xCodMun: string;
begin
  Emitente := TACBrNFSeX(FAOwner).Configuracoes.Geral.Emitente;
  InfoCanc := Response.InfCancelamento;

  xCodMun := IntToStr(TACBrNFSeX(FAOwner).Configuracoes.Geral.CodigoMunicipio);

  with Params do
  begin
    NameSpace := FpNameSpaceCanc;

    Response.ArquivoEnvio := '<Pedido' + NameSpace + '>' +
                           '<' + Prefixo2 + 'InfPedidoCancelamento' + IdAttr + '>' +
                             '<' + Prefixo2 + 'IdentificacaoNfse>' +
                               '<' + Prefixo2 + 'Numero>' +
                                 InfoCanc.NumeroNFSe +
                               '</' + Prefixo2 + 'Numero>' +
                               '<' + Prefixo2 + 'Cnpj>' +
                                 OnlyNumber(Emitente.CNPJ) +
                               '</' + Prefixo2 + 'Cnpj>' +
                               GetInscMunic(Emitente.InscMun, Prefixo2) +
                               '<' + Prefixo2 + 'CodigoMunicipio>' +
                                  xCodMun +
                               '</' + Prefixo2 + 'CodigoMunicipio>' +
                             '</' + Prefixo2 + 'IdentificacaoNfse>' +
                             '<' + Prefixo2 + 'CodigoCancelamento>' +
                                InfoCanc.CodCancelamento +
                             '</' + Prefixo2 + 'CodigoCancelamento>' +
                             Motivo +
                           '</' + Prefixo2 + 'InfPedidoCancelamento>' +
                         '</Pedido>';
  end;
end;

Anexo a unit já alterada.

Grato.

ISSNet.Provider.pas

[Italo Giurizzato Junior]

Bom dia Fabio,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-4106

[Italo Giurizzato Junior]

Boa tarde Fabio,

Mudei um pouco a sua contribuição, atualize os fontes, reinstale e faça novos testes.