tiagoshimizu

Pessoal, buscando uma solução para meu problema, percebi que o erro ocorre quando utilizo certificado A3 e seto o parâmetro ACBrNFSe.Configuracoes.Certificados.Senha. Na realidade o erro ocorre sempre na segunda operação que envolva o certificado. No caso, se mandar consultar uma nfs-e por rps antes, consulta normalmente porem, se mando consultar novamente ele também dá o erro. Parece que ele armazena a senha em uma variável e força a inserção da mesma no componente em cada consulta, mesmo já tendo a senha. Verificando os fontes de acesso ao certificado, percebi que são compartilhados com o ACBrNFe, e neste não tenho este problema. Alguém também está com este problema? Obrigado.

Olá a todos. Estou tendo um problema ao emitir notas fiscais de serviço na cidade de Curitiba. Configuro tudo o componente, certificado e mando enviar a nota. Segue: try if ACBrNFSe.Enviar(Lote, True) then begin ShowMessage('Enviada com sucesso!'); end; except on e:exception do ShowMessage(e.message); end; Sempre está me retornando false a função e gerando a exception "O identificador não está no estado correto para a operação solicitada - URL:https://pilotoisscuritiba.curitiba.pr.gov.br/nfse_ws/NfseWs.asmx - SOAPAction:http://www.e-governeapps2.com.br/ConsultarSituacaoLoteRps". Debugando o código, o código ocorre na linha 3135 do arquivo "ACBrNFSeWebServices" no comando "ReqResp.Execute(Acao.Text, Stream);" porem, não estou conseguindo resolver o problema. Alguém poderia ajudar? Pelo que verifiquei, é na rotina de verificação do lote por rps após a emissão da nfse, porém, se realizar essa verificação fora desta rotina funciona OK. Obrigado desde já pela ajuda de todos. Obs: ao consultar o site do município de Curitiba, a nota foi emitida com sucesso!

Bom, não tive tempo de parar para verificar isso, pois na realidade percebi por acaso isso. Vou dar uma olhada e assim que obter um resultado vou postando.

Pessoal, estou executando o seguinte em meu projeto: procedure Consulta(Certificado, CNPJ, UF: String); var ACBrNFe: TACBrNFe; begin try ACBrNFe := TACBrNFe.Create(nil); ACBrNFe.Configuracoes.Certificados.NumeroSerie := Certificado; ACBrNFe.DownloadNFe.Download.CNPJ := CNPJ; ACBrNFe.Configuracoes.WebServices.UF := UF; ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; ACBrNFe.DownloadNFe.Download.tpAmb := taProducao; ACBrNFe.ConsultaNFeDest(CNPJ, inTodas, ieTodos, ''); finally FreeAndNil(ACBrNFe); end; end; No arquivo .dpr, incluo o seguinte linha: ReportMemoryLeaksOnShutdown := True; Quando encerro a aplicação, é gerado um memory leak. Está certo isso? Estou com a versão do svn 6748. Obrigado.

Andreas, até pensei que não tinha alterado o meu código quando falei que funcionou, mas fiz novamente aqui agora e novamente cancelou a nota e não gerou nenhum erro! O que me chamou a atenção foi que os campos <SignedInfo></SignedInfo> estão praticamente vazios no código que postou! Está informando o certificado válido para o estado do Paraná?

Aqui agora cancelou a nota com o código que postou!

Andreas, parece que o ambiente de homologação de curitiba está meio instável pois agora está me retornando erro ao enviar e cancelar a nfs-e. A estrutura do XML está certo a princípio pois gerei um com o código que lhe passei e o que você está usando e ambos estão sendo gerados iguais.

Andreas, por acaso você tem os arquivos -nfse.xml das notaas a serem canceladas? Caso positivo, utilize: ACBrNFSe.NotasFiscais.LoadFromFile(Arquivo); ACBrNFSe.NotasFiscais.Items[0].NFSe.MotivoCancelamento := 'MOTIVO'; ACBrNFSe.CancelarNFSe('1'); Utilizo em Curitiba e funciona Ok.

Italo, Juliomar, obrigado pela ajuda. Bom, vamos lá. Pelo que entendi do comentário o Juliomar é que por utilizar thread tenho que criar, configurar e destruir o componente a cada vez que for fazer uso do mesmo. Ex: TNFSe = class(TThread) ACBrNFSe: TACBrNFSe; ACBrNFSeDANFSeRL: TACBrNFSeDANFSeRL; procedure Execute; override; public constructor Create; overload; destructor Destroy; override; end; { TNFSe } constructor TNFSe.Create; begin inherited Create(True); FreeOnTerminate := True; Priority := tpNormal; ACBrNFSe := TACBrNFSe.Create(nil); ACBrNFSeDANFSeRL := TACBrNFSeDANFSeRL.Create(ACBrNFSe); ACBrNFSe.DANFSE := ACBrNFSeDANFSeRL; ACBrNFSe.Configuracoes.Geral.Salvar := True; ACBrNFSe.Configuracoes.WebServices.Salvar := True; ACBrNFSe.Configuracoes.Geral.PathSalvar := PathSalvar; ACBrNFSe.Configuracoes.Certificados.NumeroSerie := NumeroSerie; ACBrNFSe.Configuracoes.Certificados.Senha := SenhaCertificado; ACBrNFSe.Configuracoes.Geral.PathSchemas := ExtractFilePath (Application.ExeName) + 'Schemas'; ACBrNFSe.Configuracoes.WebServices.CodigoMunicipio := CódigoMunicípio; ACBrNFSe.Configuracoes.WebServices.SetConfigMunicipio; if ACBrNFSe.DANFSE <> nil then begin if FileExists(ExtractFilePath(Application.ExeName) + 'Imagens\' + ACBrNFSe.Configuracoes.WebServices.xProvedor + '.jpg') then ACBrNFSe.DANFSE.Logo := ExtractFilePath(Application.ExeName) + 'Imagens\' + ACBrNFSe.Configuracoes.WebServices.xProvedor + '.jpg'; ACBrNFSe.DANFSE.ExpandirLogoMarca := False; // Path para salvar os arquivos PDF ACBrNFSe.DANFSE.PathPDF := ACBrNFSe.Configuracoes.Geral.PathSalvar; ACBrNFSe.DANFSE.Sistema := Sistema; end; ACBrNFSe.Configuracoes.Geral.PathSchemas := ExtractFilePath (Application.ExeName) + 'Schemas\' + ACBrNFSe.Configuracoes.WebServices.xProvedor; Synchronize(Resume); end; destructor TNFSe.Destroy; begin ACBrNFSe.Free; inherited; end; procedure TNFSe.Execute; begin inherited; try CoInitialize(nil); // Cria e envia a NFSe! finally CoUninitialize; end; end; Tipo, se for isso, já realizava isso todas as vezes, pois utilizo a thread para não travar a aplicação. Realizando vários testes aqui, verifiquei que o problema não está no uso da thread não e sim na configuração: ACBrNFSe.Configuracoes.Certificados.Senha := SenhaCertificado; Na primeira vez que crio o componente, seja vcl ou runtime, somente posso passar a propriedade ACBrNFSe.Configuracoes.Certificados.Senha na primeira vez, caso contrário, começa a dar o erro da criação do tópico e vários outros erros! Sendo assim, somente passei esta propriedade na primeira criação da thread e funcionou perfeitamente. Mais uma vez agradeço pela ajuda.

Bom dia Italo. Obrigado pela resposta. Mas assim, utilizo o ACBrNFe em thread também e não tenho este problema. Existe alguma incompatibilidade do ACBrNFSe com a thread? Obrigado.

Olá a todos. Estou com um problema estranho em minha aplicação que está me deixando com dor de cabeça! Tenho um aplicação para a emissão tanto das nf-e's quanto das nfs-e's. Esta rotina está em um thread. O problema dá ao emitir NFS-e e utilizar certificado tipo A3 onde a primeira nota funciona ok porem, a segunda nota ele sempre dá o seguinte erro: "O identificador não está no estado correto para a operação solicitada - URL:https://isscuritiba.pr.gov.br/Iss.NfseWebService/Nfsews.asmx - SOAPAction:http://www.e-governeapps2.com.br/ConsultarNfsePorRps". Alguém poderia me ajudar? Utilizo Delphi 2010 + IssCuritiba. Acabei de atualizar os fontes do ACBr e o preblema continuou. Obrigado.

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.

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.

Bom dia Italo. Realizei o processo solicitado porem continua não aparecendo os dados na nota. Obrigado pela ajuda.

Seguem os arquivos solicitados. Obrigado.

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.

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.

Pessoal, achei melhor criar um tópico com o meu problema para separar, pois são erros parecidos porem de servidores diferente. Obrigado.

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.

Boa tarde. Só um ajuste no arquivo ACBrNFSeDANFSeRLRetrato.dfm na linha 1535 na minha opinião ficaria melhor alterar Caption = 'DISCRIMINA'#199#227'O DOS SERVI'#199'OS' para Caption = 'DISCRIMINA'#199#195'O DOS SERVI'#199'OS' onde atualmente ao realizar a impressão fica DISCRIMINAÇãO e com a alteração ficaria DISCRIMINAÇÃO. Acho que ficaria melhor. Obrigado.

Bom dia Wilker. Obrigado pela ajuda. Respondendo as suas perguntas, os parâmetros que estou passando possivelmente estejam corretos sim pois, criar e enviar ele faz normal. Até mesmo o cancelamento ele realiza na base da receita. Executo a aplicação como administrador e ele tem uma pasta específica que salva todos os arquivos gerados, até mesmo os de retorno desse cancelamento. A exception ocorre exatamente em NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.Numero. Debugando o fonte, ele dá que NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Numero = nil. Agradeço a disposição de ajudar.

Pessoal, também estou tendo problemas no cancelamento de NFS-e. Na realidade, problemas com o retorno. Estou cancelando a NFS-e 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. Alguem poderia me ajudar? Estou utilizando o servidor de homologação ISSCuritiba. Obrigado desde já pela ajuda. Obs: Atualizei a pasta dos componentes ACBr com a última versão.

Boa tarde a todos. No site http://isscuritiba.curitiba.pr.gov.br/portalnfse/manuais.aspx baixe o MANUAL DE UTILIZAÇÃO - WEBSERVICE - V1.8 - 08/01/2013 o qual contem o passo a passo para gerar e utilizar o certificado digital para emitir nfs-e em homologação. Conforme já mencionado, é necessário emitir o certificado no Windows XP. Tentei emitir no Windows 7, 8 e 8.1 e em todos não deu certo. Criei uma máquina virtual com o Windows XP, emiti o certificado, exportei e instalei no Windows 8 e consegui emitir uma NFS-e em homologação sem problemas. Espero que consiga.

Pessoal, na realidade estava esquecendo de alterar o ambiente do webservice, daí ele não retornava os valores mesmo. Só que assim, ele retornou tudo, retornou que a nf-e está cancelada, no retorno dos eventos veio o protocolo contudo, ele não atualizou este protocolo no xml!

Olá a todos. Estou com o seguinte problema: Tenho uma nota fiscal que foi cancelada contudo, gostaria de atualizar o arquivo xml. Estou fazendo da seguinte maneira: var Arquivo: String; begin Arquivo := ExtractFilePath(Application.ExeName) + Chave; ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(Arquivo); ACBrNFe.Configuracoes.Geral.AtualizarXMLCancelado := True; ACBrNFe.Consultar; case ACBrNFe.NotasFiscais.Items[0].NFE.procNFe.cStat of 100: begin ShowMessage('NFe autorizada'); end; 101: begin ShowMessage('NFe cancelada'); end; end; ACBrNFe.NotasFiscais.Items[0].ImprimirPDF; Percebi porem, que ao imprimir a danf, ela saiu como autorizada ainda e o componente não atualizou o o arquivo XML! Se rodar o código "ACBrNFe.Consultar", o valor de "ACBrNFe.NotasFiscais.Items[0].NFE.procNFe.cStat" é 100. Se consultar, o valor retornado é 226! O que posso estar fazendo de errado? Obrigado.