Cancelar NFSe (Ginfes - ISSFortaleza)

[Mota]

Boa tarde! Estou migrando para o trunk2 e já consigo enviar e consultar RPS, mas ainda não consegui cancelar uma NFSe. Não consegui identificar o motivo. Estou cancelando assim:

ACBrNFSe1.NotasFiscais.Clear;
with ACBrNFSe1.NotasFiscais.Add do
begin
  NFSe.Numero                                                    := FieldByName('NUMDOCUMENTO').AsString;
  NFSe.IdentificacaoRps.Numero                                   := FieldByName('NUMERO_RPS').AsString;
  NFSe.IdentificacaoRps.Serie                                    := FieldByName('SERIE_RPS').AsString;
  NFSe.IdentificacaoRps.Tipo                                     := trRPS;
  NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj              := _LojaCNPJ;
  NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal:= LojaIM);
  NFSe.PrestadorServico.Endereco.CodigoMunicipio                 :=  _LojaCodCidade;
  NFSe.MotivoCancelamento                                        := Codigo; 
end;

ACBrNFSe1.WebServices.CancelaNFSe(Codigo);

A forma que mostro acima, funciona no trunk1(veja xml 2007), porêm no trunk 2(veja xml 2008) não cancela. Alguma dica?

Obrigado.

2008-ped-can.xml

2008-can.xml

2007-can.xml

2007-ped-can.xml

Editado 15 Março, 2016 por Mota

[Italo Giurizzato Junior]

Boa tarde Mota,

Por favor configure o componente para salvar os arquivos soap, e faça novos testes e anexa esses arquivos, tanto de envio quanto de retorno.

O arquivo 2008-can.xml acusa que existe um erro no cabeçalho e este só aparece no arquivo soap.

[Mota]

Como não sei ao certo de quais você precisa, estou mandando todos. Enviei, consultei(retornou que foi convertido) e tentei cancelar.

Obrigado.

NFSe.rar

[Italo Giurizzato Junior]

Mota,

Favor atualizar os fontes, note que fiz alteração no arquivo INI do provedor.

[Mota]

Vlw, Italo! Agora está tudo ok!

 

Obrigado e Deus te abençoe.