Ir para conteúdo
  • Cadastre-se

dev botao

Cancelamento / Consulta Isscuritiba


tiagoshimizu
  • Este tópico foi criado há 3670 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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 por tiagoshimizu
Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite Tiago,

 

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite Tiago,

 

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Tiago,

 

Favor atualizar os fontes e testar novamente.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

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?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

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 ?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3670 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.