Reinaldo Silveira

Membros
  • Total de ítens

    46
  • Registro em

  • Última visita

Reputação

6 Neutro

Sobre Reinaldo Silveira

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Franca/SP

Últimos Visitantes

565 visualizações
  1. ACBrCTe DistribuicaoDFePorChaveCTe método não implementado

    Entendi. Muito obrigado pelo retorno!
  2. ACBrCTe DistribuicaoDFePorChaveCTe método não implementado

    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.
  3. Consulta Situação NFe - Manifestação

    tem razão, infelizmente esta opção não retorna mais os eventos de manifesto. Voltamos à estaca zero...
  4. Consulta Situação NFe - Manifestação

    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. Consulta Manifestação Destinatário

    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
  6. Lazarus x Delphi

    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.
  7. Downlaod xml DistribuicaoDFe

  8. Capturar XML no momento da DistribuicaoDFe

    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
  9. Downlaod xml DistribuicaoDFe

    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!
  10. Downlaod xml DistribuicaoDFe

    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.
  11. Downlaod xml DistribuicaoDFe

    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??
  12. Downlaod xml DistribuicaoDFe

    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.
  13. Pois é, vai entender.... Obrigado pelo retorno.
  14. 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
  15. Bom dia. Era exatamente isso. O problema foi corrigido algumas horas depois de eu ter feito o teste (revisão 12859) Obrigado pelo retorno.