peterson161

Por favor, poste um XML em que isso acontece.

Verifique se no seu Delphi se as palhetas do ACBr e do Quick Report estão presentes, conforme anexo. Obs: Na palheta do ACBr, atente para os componentes que estão circulados em vermelho.

Poste o seu XML para saber se seu sistema está passando o valor 0,01 ou se está arredondando para baixo.

Poste seu XML e informe qual Danfe que você utiliza por favor.

Analisando a NT2011.006b e os schemas de Cancelamento e CC-e, conclui-se que esta alteração será aplicada somente no evento "cancelamento". Faça-nos um grande favor: Envie uma carta de correção (com cOrgao = 91) para verificar o que acontece e poste o resultado. Obrigado.

http://www.innformatica.com.br/noticias/10-noticias/51-rejeicao-consumo-indevido-na-nfe Este outro link é sobre CT-e, mas segue a mesma regra: http://www.spedbrasil.net/forum/topics/ct-e-nota-tecnica-2012-006-aplicacao-cliente-consumo-indevido-do-

Tente isso:

Alterando o Result para 91 você obteve sucesso ?

Aí já não consigo entender. O que eu encontrei por aí foi isso: http://support.microsoft.com/kb/186812/pt-br http://blogs.msdn.com/b/friis/archive/2011/11/15/troubleshooting-403-7-client-certificate-required-errors-amp-step-by-step-to-make-sure-your-client-certificate-is-displayed-and-selected.aspx Veja se te ajuda. Boa sorte.

Abra seu Internet Explorer e digite este endereço: https://nfe.fazenda.sp.gov.br/nfeweb/services/nferecepcao2.asmx Veja se o resultado é igual ao do anexo.

Este comando enviou o lote e os retornos já estão disponíveis no componente: ACBrNFe.EnviarEventoNFe(idnota); Você está fazendo esta verificação logo em seguida. Esta verificação repete o envio com as mesmas informações enviadas anteriormente. Esta repetição é quem está causando a duplicidade: if ACBrNFe.EnviarEventoNFe(idnota) then Retire o primeiro comando postado lá em cima e mantenha este do "IF".

Pesquisando no Google:

Poste sua rotina de cancelamento.

Infelizmente sou de SP e não consigo consultar sua NF-e pelo componente. O que eu fiz, foi entrar no site da Sefaz-MG e consultar a sua chave de acesso. Observe no anexo 'ConsultaNFeHomMG' a atutorização e o evento de cancelamento. Agora fica a dúvida se é problema na Sefaz-MG ou se algo precisa ser modificado no código.

Antes de efetuar o cancelamento, configure o componente: ACBrNFe1.Configuracoes.Arquivos.Salvar := True; ACBrNFe1.Configuracoes.Arquivos.PathCan := {Pasta} ACBrNFe1.Configuracoes.Arquivos.PathNFe := {Pasta} etc... Desta maneira, o componente salvará os XML de cancelamento na pasta informada em 'PathCCe'. Obs.: Para os outros XML's (NF-e, CC-e, etc.), informe as pastas em suas respectivas propriedades.

Elimine esta verificação: if trim(ACBrNFe.WebServices.Consulta.retCancNFe.nProt) = '' then A NF-e estando cancelada pelo modo antigo ou por eventos, suas informações estarão aqui: Protocolo.....: ACBrNFe1.WebServices.Consulta.Protocolo; Cód. status...: ACBrNFe1.WebServices.Consulta.cStat; Em seguida faça uma verificação se existem eventos (Cartas de correção ou cancelamentos). Creio que eliminando a verificação acima citada, a verificação abaixo retornará os dados: if ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then

Eu tenho uma tabela para NF-e e outra para Eventos. Assim na tabela de NF-e, eu guardo o status 101. Na tabela de eventos eu guardo o status 135 (ou 155).

Para consultar pela chave de acesso, faça assim: ACBrNFe1.WebServices.Consulta.NFeChave := // Chave de acesso ACBrNFe1.WebServices.Consulta.Executar; A situação ATUAL da NOTA FISCAL você acessa aqui: Protocolo.....: ACBrNFe1.WebServices.Consulta.Protocolo; Cód. status...: ACBrNFe1.WebServices.Consulta.cStat; Descr status..: ACBrNFe1.WebServices.Consulta.XMotivo; Data/hora.....: ACBrNFe1.WebServices.Consulta.DhRecbto; Para recuperar as informações dos EVENTOS: if ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then begin for i := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count - 1 do begin for j := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Count - 1 do begin Sequência do evento: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.InfEvento.nSeqEvento; Tipo de evento.....: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.InfEvento.TpEvento; Descrição do evento: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.InfEvento.DescEvento; Cód. status evento.: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.cStat; Desc. status evento: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.xMotivo; Status evento......: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.xEvento; Protocolo..........: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.nProt; Data/hora do evento: ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.dhRegEvento; end; end; end; O resultado fica próximo disso (memo do sistema que recebe as informações da consulta): ------------------------------------------------------------------------------------------- => Consultando NF-e com chave de acesso nº 35130307267118000120550000000001131067371925 ------------------------------------------------------------------------------------------- Protocolo: 135130002008561 21/03/2013 19:30:50 Status...: 101 - Cancelamento de NF-e homologado ------------------------------------------------------------------------------------------- => Eventos da NF-e com chave de acesso nº 35130307267118000120550000000001131067371925 ------------------------------------------------------------------------------------------- Quantidade total de eventos: 1 No. seq..: 1 Evento...: 110111 - Cancelamento Status...: 135 - Evento registrado e vinculado a NF-e Status...: Cancelamento registrado Protocolo: 135130002008561 21/03/2013 19:30:50

Ao cancelar uma nota, devemos salvar o XML de cancelamento, semelhante ao anexo. Quanto à atualização do XML da NF-e, tem gente que atualiza substituindo as informações de autorização pelas informações do cancelamento e tem gente que não acha isso correto e então não as atualiza. Se quiser que o componente atualize seu XML quando uma NF-e cancelada for consultada, altere aqui: ACBrNFe1.Configuracoes.Geral.AtualizarXMLCancelado := True; Antes de atualizar, o final do XML está assim: <protNFe versao="2.00"> <infProt> <tpAmb>2</tpAmb> <verAplic>SP_NFE_PL_006q</verAplic> <chNFe>35130307267118000120550000000001091194753450</chNFe> <dhRecbto>2013-03-01T14:51:50</dhRecbto> <nProt>135130001483547</nProt> <digVal>HnAQAng1F/pTIsN8/4T+h1ZI/Zk=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso da NF-e</xMotivo> </infProt> </protNFe> Depois de atualizar o final do XML ficará assim: <protNFe versao="2.00"> <infProt> <tpAmb>2</tpAmb> <verAplic>SP_NFE_PL_006q</verAplic> <chNFe>35130307267118000120550000000001091194753450</chNFe> <dhRecbto>2013-03-26T11:04:33</dhRecbto> <nProt>135130002040553</nProt> <digVal>HnAQAng1F/pTIsN8/4T+h1ZI/Zk=</digVal> <cStat>101</cStat> <xMotivo>Cancelamento de NF-e homologado</xMotivo> </infProt> </protNFe> Obs: O cancelamento foi etetuado fora do prazo, mas foi só pra mostrar como fica depois de atualizado. 1101113513030726711800012055000000000109119475345001-ProcEventoNFe.xml

Não desista. Abra o seu projeto e abra as units nesta ordem: (Aparecerão os dois erros anexados. Clique em "Ignore All"). ACBrNFeDANFeQRClass.pas ACBrNFeDANFeQR.pas ACBrNFeDANFeQRRetrato.pas Compile seu projeto com estas units abertas, depois salve as três. Seu Danfe vai abrir normalmente.

Estão faltando informações no envio dos dados do evento. Tente desta maneira: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(sArquivo); ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := ; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; infEvento.CNPJ := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.nSeqEvento := 1; InfEvento.chNFe := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); InfEvento.dhEvento := Now; InfEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := // Justificativa; InfEvento.detEvento.nProt := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; ACBrNFe1.WebServices.EnvEvento.Executar; end; // Retornos iUltimoIndice := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count - 1; FInfoProtocolo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.nProt; FInfoMotivo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.xMotivo; FInfoStat := IntToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.cStat); FInfoDataHora := DateTimeToStr(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[iUltimoIndice].RetInfEvento.dhRegEvento);

Ou: InfAdic.Infcpl := Linha1 + ';' + Linha2 + ';' + Linha3 + ';' + Linha4 etc...

Separe as linhas com ponto-vírgula, assim: SuaString := ‘‘ SuaString := SuaString + ‘Linha1 ;‘; SuaString := SuaString + ‘Linha2 ;‘; InfAdic.InfCpl := SuaString;

Utilize o campo InfAdic.InfCpl :=