Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Curso Dominando a NFCe - Fim do SAT em São Paulo? Esteja preparado Curso Responsável Técnico na NFe - Atenda à nova legislação Curso Dominando o ACBrBoleto - Via API ou CNAB Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade

Reinaldo Silveira

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    70

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Reinaldo Silveira postou

  1. Reinaldo Silveira
    Bom dia senhores. Vi nos fontes que o método DistribuicaoDFePorChaveCTe está comentado na unit ACBrCTe. Alguém sabe dizer se ele será implementado no futuro, semelhante ao que já existe para NFe, ou o webservice não prevê esta opção? obrigado.
  2. Reinaldo Silveira
    tem razão, infelizmente esta opção não retorna mais os eventos de manifesto. Voltamos à estaca zero...
  3. Reinaldo Silveira
    Não sei se é o jeito correto, mas por enquanto estou pegando o status da seguinte forma: Realizo a DistribuicaoDFe e mostro as notas em um grid. Nesse momento, caso não conste manifestação pelo meu sistema, chamo um método que consulta os eventos NFe e retorna a última manifestação. Ex: function ConsultaSitManifesto(pChave: String): String; var i: Integer; begin ACBrNFe1.WebServices.Consulta.procEventoNFe.Clear; ACBrNFe1.WebServices.Consulta.NFeChave := pChave; ACBrNFe1.WebServices.Consulta.Executar; cdsEventos.EmptyDataSet; for i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count -1 do if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.tpEvento in [teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada] then begin cdsEventos.Append; cdsEventosDataHora.AsDateTime := ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.dhRegEvento; cdsEventosDescricao.AsString := TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.tpEvento); cdsEventos.Post; end; cdsEventos.Last; //IndexFieldNames := 'DatHora'; Result := cdsEventosDescricao.AsString; end; onde cdsEventos é um ClientDataSet em memória, ordenado por Data/Hora (porque os eventos podem vir fora de ordem). Bom, é isso. Se alguém está fazendo de alguma outra forma, favor compartilhar
  4. Reinaldo Silveira
    Não sei se é o jeito correto, mas por enquanto estou pegando o status da seguinte forma: Realizo a DistribuicaoDFe e mostro as notas em um grid. Nesse momento, caso não conste manifestação pelo meu sistema, chamo um método que consulta os eventos NFe e retorna a última manifestação. Ex: function ConsultaSitManifesto(pChave: String): String; var i: Integer; begin ACBrNFe1.WebServices.Consulta.procEventoNFe.Clear; ACBrNFe1.WebServices.Consulta.NFeChave := pChave; ACBrNFe1.WebServices.Consulta.Executar; cdsEventos.EmptyDataSet; for i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count -1 do if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.tpEvento in [teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada] then begin cdsEventos.Append; cdsEventosDataHora.AsDateTime := ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.dhRegEvento; cdsEventosDescricao.AsString := TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.tpEvento); cdsEventos.Post; end; cdsEventos.Last; //IndexFieldNames := 'DatHora'; Result := cdsEventosDescricao.AsString; end; onde cdsEventos é um ClientDataSet em memória, ordenado por Data/Hora (porque os eventos podem vir fora de ordem), Bom, é isso. Se alguém está fazendo de alguma outra forma, favor compartilhar
  5. Reinaldo Silveira
    Boa tarde amigos. Estou cogitando a possibilidade de migrar meus projetos do Delphi XE2 para o Lazarus. Nunca trabalhei com Lazarus antes e gostaria da opinião/conselhos/dicas de quem já utiliza ou já passou por essa situação. Vale a pena migrar? Terei que reescrever do zero? Quais serão as possíveis dificuldades/empecilhos que encontrarei pelo caminho? Um detalhe que observei é com relação ao visual. Existe algum componente skin para Lazarus (de preferência free)? Agradeço a todos.
  6. Reinaldo Silveira
  7. Reinaldo Silveira
    Boa tarde. Estou há algum tempo fazendo testes e adequando minha aplicação p/ substituir a ConsultaNFeDest pala DestribuicaoDFe e me deparei com o seu mesmo questionamento. Até o momento, a melhor alternativa que encontrei foi a seguinte: Consulto as NF destinadas pelo último NSU: ACBrNFe1.DistribuicaoDFePorUltNSU(uf, cnpj, nsu); Realizo a manifestação do destinatário; Consulto novamente pela chave de acesso p/ obter o xml completo: ACBrNFe1.DistribuicaoDFePorChaveNFe(uf, cnpj, chave); Desta forma consigo recuperar o xml na property ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.XML Abri um post na semana passada sobre o assunto, vê se te ajuda: http://www.projetoacbr.com.br/forum/topic/35351-downlaod-xml-distribuicaodfe/?do=findComment&comment=231621
  8. Reinaldo Silveira
    BigWings, foi exatamente essa a solução que eu acabei de encontrar (não conhecia esse método pela chave). Consulto as NF destinadas pelo último NSU: ACBrNFe1.DistribuicaoDFePorUltNSU(uf, cnpj, nsu); Realizo a manifestação do destinatário; Consulto novamente, mas agora pela chave e não mais pelo NSU específico: ACBrNFe.DistribuicaoDFePorChaveNFe(uf, cnpj, chave); Não sei quanto ao delay, mas para a nota em questão está retornando o xml completo na consulta pela chave. Vou fazer mais alguns testes. Obrigado a todos!
  9. Reinaldo Silveira
    Bom, vou exemplificar a situação: A nota em questão foi emitida no dia 15/02/2017 (ambiente de produção). Realizei a consulta das NFs destinadas ontem (22/02) e recebi o NSU 000000000025400 para esta nota. Em seguida foi realizada a confirmação da operação. Até então eu acreditava que o NSU continuaria o mesmo (já que é um Número Sequencial ÚNICO) - por isso estava realizando a consulta novamente utilizando o mesmo número. Hoje manhã consultei novamente as NFs destinadas a partir do último NSU e lá estava ela, só que com o número 000000000025822. Aí sim consegui pegar o xml completo. Não sei quem foi o gênio que bolou este processo. A receita tenta evitar o consumo indevido, mas ela mesma obriga o consumidor a consultar todas as notas novamente para recuperar somente uma em específico!!! Vai entender o que passa na cabeça deles... A minha dúvida agora é a seguinte: Alguém sabe se existe alguma forma de recuperar o NSU gerado no momento da confirmação da operação? Porque se eu fizer a consulta pelo último NSU, não há garantia de que este seja o da manifestação. Pode ser que alguma nota ou evento tenha sido emitido nesse meio tempo. Alguma ideia? Obrigado.
  10. Reinaldo Silveira
    Esse mesmo, mas mostra sempre o resumo Novo NSU? Caramba.... E como vou fazer para saber qual NSU é esse para poder consultar essa nota específica após a manifestação??
  11. Reinaldo Silveira
    Boa tarde pessoal! Tenho um formulário no meu sistema com consulta das NF's destinadas, manifestação do destinatário e eventual download do xml (caso ainda não exista na base). Como o webservice será substituído em breve, estou migrando de ConsultaNFeDest p/ DistribuicaoDFe. Porém, não estou achando a maneira correta de baixar o xml. Segui os seguintes passos para uma determinada nota: Consultei as NFs destinadas pelo método: ACBrNFe1.DistribuicaoDFe(UFtoCUF('SP'), CNPJ, edtUltNSU.Text, ''); Manifestei como "confirmação da operação" (tpEvento := teManifDestConfirmacao); Consultei novamente, mas desta vez utilizando o NSU retornado na consulta anterior: ACBrNFe1.DistribuicaoDFe(UFtoCUF('SP'), CNPJ, '', '000000000025400'); Mas após a manifestação, continuo recebendo somente o resumo da NF. De acordo com a NT, não deveria ser disponibilizado o xml completo? Parametrizei o componente p/ baixar os arquivos, mas recebo somente o -resNFe.xml Não sei se estou fazendo algo errado, ou se interpretei o processo erroneamente, ou ainda, se é necessário aguardar algum tempo após a manifestação para realizar a consulta novamente... Estou há alguns dias pesquisando o assunto aqui no fórum e ainda não encontrei nada conclusivo a respeito. Se alguém puder me dar alguma orientação a respeito, agradeço.
  12. Reinaldo Silveira
    Pois é, vai entender.... Obrigado pelo retorno.
  13. Reinaldo Silveira
    Boa tarde. Estou recebendo o seguinte erro ao validar um xml de fornecedor (ACBrNFe1.NotasFiscais.Validar): Element '{http://www.portalfiscal.inf.br/nfe}ICMSSN' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMS'. Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS00, {http://www.portalfiscal.inf.br/nfe}ICMS10, {http://www.portalfiscal.inf.br/nfe}.... Recentemente abri um tópico sobre um erro parecido (Element '{http://www.portalfiscal.inf.br/nfe}ICMS' is unexpected), que foi corrigido na unit pcnConversao.pas *obs: os fontes e os schemas estão atualizados. Não sei se o problema está nesse xml ou nos fontes. Segue o arquivo em anexo. Se alguém puder dar uma olhada, agradeço. Obrigado pessoal! 23170113592771000167550010000030731449014368.xml
  14. Reinaldo Silveira
    Bom dia. Era exatamente isso. O problema foi corrigido algumas horas depois de eu ter feito o teste (revisão 12859) Obrigado pelo retorno.
  15. Reinaldo Silveira
    Boa tarde. Após atualização recente dos fontes, algumas notas que antes eram validadas normalmente (ACBrNFe1.NotasFiscais.Validar), começaram a apresentar o seguinte erro: Element '{http://www.portalfiscal.inf.br/nfe}ICMS' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMS'. Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS00, {http://www.portalfiscal.inf.br/nfe}ICMS10, {http://www.portalfiscal.inf.br/nfe}.... Anteriormente estava tendo um erro semelhante, que foi corrigido dia 13/12/2016: *obs: tanto os fontes quanto os schemas estão atualizados Alguém tem ideia o que pode ser? Segue um xml de exemplo. Agradeço desde já. NFe-35161207872399000140550010000032711000032715.xml
  16. Reinaldo Silveira
    Olá italoluz! Eu me expressei mal, na verdade eu me referia à Unit principal (e não Form), onde eu declarei: Windows, Forms e ActiveX em uses. Se não estou esquecendo de nada, os passos foram os seguintes: 1) após criado o serviço no Delphi, é necessário instalá-lo (via prompt: C:\caminho_do_servico\nome_do_servico.exe /install 2) após instalado, vá em services.msc (menu executar). Botão direito sobre o serviço, propriedades, logon. Em 'esta conta', informe um nome de usuário e senha que possua privilégios administrativos (é importante que a senha deste usuário esteja definida para nunca expirar - para evitar problemas futuros) 3) logue no Windows usando esse mesmo usuário, e instale o certificado digital por lá 4) volte em services.msc e inicie o serviço. Bom, acho que foi somente isso. Espero ter ajudado. Abraços.
  17. Reinaldo Silveira
    Não sei exatamente o que era, mas ao realizar atualização pelo Windows update, o problema foi resolvido.
  18. Reinaldo Silveira
    Olá pessoal. Notei que há alguns dias estou recebendo a seguinte mensagem ao consultar as notas fiscais destinadas: "Erro: WebService Consulta NF-e Destinadas: Inativo ou Inoperante tente novamente. A connection with the server could not be established." trecho onde ocorre a exception: ACBrNFe1.ConsultaNFeDest('cnpj', StrToIndicadorNFe(ok, IntToStr(cbxIndicadorNFe.ItemIndex)), StrToIndicadorEmissor(ok, IntToStr(cbxIndicadorEmissor.ItemIndex)), UltNSu); O interessante é que em máquinas com Windows 7 a mesma aplicação funciona normalmente. O problema ocorre no Windows Server 2008. Alguém está enfrentando erro semelhante ou tem alguma ideia do que pode ser? Obrigado.
  19. Reinaldo Silveira
    Bom dia, pessoal. Baixei os fontes ontem (revisão 10.130) e o problema não ocorreu mais. Muito obrigado, ACBr team!
  20. Reinaldo Silveira
    sim, já está setado (tanto no meu exemplo quanto no demo). O interessante é que o mesmo xml é validado normalmente no demo do trunk (na minha máquina de produção)
  21. Reinaldo Silveira
    Juliomar, estou fazendo os testes em uma VM zerada (instalação nova Windows 7 + Delphi XE2) Não estou conseguindo testar pelo demo, está apresentando a mensagem "Error: unable to parse"
  22. Reinaldo Silveira
    Olá pessoal. Alguma ajuda?
  23. Reinaldo Silveira
    Juliomar, segui estes passos, mas o erro persiste. De curiosidade, criei uma nova VM do zero (Win7 + Delphi XE2) e desta vez consegui instalar e utilizar o ACBr normalmente. Não sei se era algum erro do Windows ou da instalação do Delphi na minha VM anterior. De qualquer forma, obrigado pelo retorno.
  24. Reinaldo Silveira
    Olá pessoal. Notei que a unit citada neste tópico (ACBrNFeDANFEFRDM.pas) ainda não foi atualizada no trunk2. Alguém poderia verificar por favor? Obrigado.
  25. Reinaldo Silveira
    Bom dia a todos. Estou fazendo alguns testes com os fontes do trunk2 e me deparei com o seguinte erro ao validar as notas fiscais (todas que testei): "Falha na validação dos dados da nota: 23535 Não foi possível carregar o arquivo. Err: -1072896763, Lin: 1, Pos: 2892 - A name contained an invalid character." Lembrando que o diretório de Schemas está atualizado e as mesmas NFs são validadas normalmente com a versão atual do trunk. Consulto a NF da seguinte forma: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.NotasFiscais.Valida; Anexei o xml para análise, ficarei grato se alguém puder dar uma olhada... Muito obrigado pela ajuda! NFe-35150709155042000176550000000235351697502048.xml
×
×
  • 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.