Cancelamento / Consulta Isscuritiba

[tiagoshimizu]

Pessoal, estou com problemas no cancelamento de NFS-e no ISSCuritiba. Estou fazendo da seguinte maneira:

try        
  ACBrNFSe.NotasFiscais.LoadFromFile(Arquivo);
  ACBrNFSe.NotasFiscais.Items[0].NFSe.MotivoCancelamento :=
        cds_notas.Fields[2].AsString;
  if ACBrNFSe.CancelarNFSe('1') then
    ShowMessage('Cancelada') 
  else
    ShowMessage('Não Cancelada');
except
  on e:exception do
  ShowMessage('Erro: ' + e.message)
end;

Quando executado, gera erro na linha 3682 do arquivo ACBrNFSeWebServices.

FConfiguracoes.Geral.Save(NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.Numero + '-nfse.xml',
                                  FRetNfse, PathSalvar);

Quando consulto a nota pelo site do estado, ela tá cancelada.

 

O problema está mesmo na consulta que realiza na NFS-e pois quando mando consultar por RPS é gerado erro também.

 

Debugando o fonte, ele dá que NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Numero = nil.

 

Atualizei os fontes para a última versão e continua com o erro.

 

Caso possam ajudar, agradeço.

Editado 7 Março, 2014 por tiagoshimizu

[tiagoshimizu]

Pessoal, depois de muita luta, encontrei o problema.

 

No arquivo pnfsConsNfseporRpsResposta.pas na função TretNfseRps.LerXml: boolean na linha 243, inserido a linha:

or
       (leitor.rExtrai(1, 'ConsultarNfsePorRpsResult') <> '')

ficando

 

    if (leitor.rExtrai(1, 'ConsultarNfseRpsResposta') <> '') or
       (leitor.rExtrai(1, 'Consultarnfserpsresposta') <> '') or
       (leitor.rExtrai(1, 'Consultarnfserpsresposta') <> '') or
       (leitor.rExtrai(1, 'ConsultarNfseResposta') <> '') or // acrescentado para corrigir no GINFES
       (leitor.rExtrai(1, 'GerarNfseResposta') <> '') or
       (leitor.rExtrai(1, 'ConsultarNfsePorRpsResult') <> '')
       then

Italo, por favor, poderia homologar a alteração e atualizar os fontes?

 

Obrigado.

[Italo Giurizzato Junior]

Boa noite Tiago,

 

Muito obrigado pela colaboração, vou alterar e enviar para SVN.

[michaelolimpio]

Olá amigos,

 

Tive o mesmo problema e também corrigi da mesma forma. Agora está funcionando perfeitamente.

 

Segue fonte em anexo Italo.

pnfsConsNfseporRpsResposta.pas

[Italo Giurizzato Junior]

Boa tarde Michaelolimpio,

 

Muito obrigado, desculpe, eu tinha feito a alteração conforme o nosso colega Tiago, mas não tive tempo de disponibilizar ontem.

 

Mas agora foi.

[tiagoshimizu]

Ok, muito obrigado Italo.

 

Só uma coisa. Na data de hoje foi disponibilizado uma atualização (6448) do arquivo pnfsNFSeR.pas com o comentário "Nova versão da Unit" que está apresentando problemas. Ao mandar imprimir, imprimirPDF ou exportar, ele não sai os dados da nota fiscal.

 

No que puder ajudar, estou a disposição.

[Italo Giurizzato Junior]

Boa noite Tiago,

 

Se você puder postar como anexo o XML da NFS-e, eu agradeço.

[tiagoshimizu]

Seguem os arquivos solicitados.

 

Obrigado.

[Italo Giurizzato Junior]

Bom dia Tiago,

 

Favor atualizar os fontes e testar novamente.

[tiagoshimizu]

Bom dia Italo.

 

Realizei o processo solicitado porem continua não aparecendo os dados na nota.

 

Obrigado pela ajuda.

[Italo Giurizzato Junior]

Tiago,

 

Você tem certeza que os seus fontes estão atualizados?

 

Pois fiz uma correção na unit que carrega o XML e utilizei o programa exemplo para visualizar o DANFSE, todos os dados apareceram após a correção.

 

Você compilou a aplicação novamente com a opção Build?

[tiagoshimizu]

Então, para mim o erro estava dando sempre.

 

Exclui a pasta que continha os fontes, exclui os arquivos bpl e dcp. Baixei todos os fontes novamente, instalei novamente e dei um build no projeto. Quando mando carregar o arquivo -nfse.xml e imprimirPDF, aparecem todos os dados certinho porem, quando mando consultar a nfs-e por rps e mandar imprimir (ou cancelar a nfs-e e logo após mandar imprimir a danfe atualizada), não aparecem os dados.

 

Obrigado pela ajuda.

[Italo Giurizzato Junior]

Bom dia Tiago,

 

Quando você realiza a consulta da NFS-e por RPS o arquivo -rps.xml é carregado antes ou ao solicitar o Cancelamento de uma NFS-e, é carregado antes o arquivo -nfse.xml ?

[tiagoshimizu]

Bom dia Italo.

 

Primeiramente, obrigado pela ajuda.

 

O problema estava na forma em que realizava a consulta mesmo.

 

Na realidade, estava fazendo da seguinte maneira:

var
  Open: TOpenDialog;
begin
  try
    Open := TOpenDialog.Create(nil);
    Open.Filter := 'Arquivo PRS|*-rps.xml';
    if (Open.Execute) and (FileExists(Open.FileName)) then
    begin
      ACBrNFSe1.NotasFiscais.LoadFromFile(Open.FileName);
      if ACBrNFSe1.ConsultarNFSeporRps
        (ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
        ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
        TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0]
            .NFSe.IdentificacaoRps.Tipo),
        ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,
        ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal) then
        ACBrNFSe1.NotasFiscais.ImprimirPDF;
    end;
  finally
    FreeAndNil(Open);
  end;

Quando me mandou esta última mensagem fui perceber que poderia carregar o arquivo -nfse.xml direto porem, os valores de NFSe.Prestador.Cnpj e NFSe.Prestador.InscricaoMunicipal vem em branco, daí só preenchi com os valores corretos e consultou e gerou o pdf certo agora.

var
  Open: TOpenDialog;
begin
  try
    Open := TOpenDialog.Create(nil);
    Open.Filter := 'Arquivo PRS|*-nfse.xml';
    if (Open.Execute) and (FileExists(Open.FileName)) then
    begin
      ACBrNFSe1.NotasFiscais.LoadFromFile(Open.FileName);
      if ACBrNFSe1.ConsultarNFSeporRps
        (ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
        ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
        TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0]
            .NFSe.IdentificacaoRps.Tipo), EmpresaCNPJ, EmpresaInscricaoMunicipal) then
        ACBrNFSe1.NotasFiscais.ImprimirPDF;
    end;
  finally
    FreeAndNil(Open);
  end;

Muito obrigado desculpa pela mancada ae.