Pesquisar na Comunidade

Saudações Eu... estou cometendo um erro aqui, mas por mais que eu tente, não consigo descobrir qual é. Já criei um tópico desse assunto antes, mas ele foi resolvido na época. Agora, o erro retornou. Pensei, a principio, que por ter migrado para o trunk2, mas não é o motivo. Os schemas estão atualizados, com a mesma versão de quando baixei o trunk2. Gero o NFCE e o sefaz MT valida normalmente. Gravo numero da nfce e o caminho onde salvei a mesma. Quando vou cancelar ele dá o erro. Testei, linha a linha, verifiquei os dados várias vezes. Não encontrei nada. Abri o tópico abaixo e conferi, linha a linha, o que estava nele, com meu código. Fora mudanças de nomes de variáveis, tudo bate. Xml da nfce Quando enviado o evento, recebo a mensagem de "Lote Processado". Logo a seguir, vem o erro 494. Verifiquei os dados enviados. Tudo parece normal. Abaixo envio código de Cancelamento. if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); // C:\posirelo\ArqNfce\201609\51160911911123000109650010000010381000010380-nfe.xml Danfenfce.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; Danfenfce.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.Idcsc := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.csc := cfgcfgtoken.AsString; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cfgcfgnumserie.AsString; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Certificados.Senha := cfgcfgsenha.AsString; NumeroLote := 0; Protocolo := qvndvndnprot.AsString; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; //C:\posirelo\ArqNfce\201609\51160911911123000109650010000010381000010380-nfe.xml InfEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 44); // --> 51160911911123000109650010000010381000010380 InfEvento.CNPJ := cfgcfgdoc1.AsString; InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.dhEvento := now; InfEvento.nSeqEvento := 1; InfEvento.tpEvento := teCancelamento; InfEvento.detEvento.nProt := Protocolo; InfEvento.detEvento.xJust := motivo; ACBrNFe1.EnviarEvento(NumeroLote); end; Confirmei com o Sefaz. A NFCE está lá. Está "disponível". Tudo parece estar Ok. Mas não funciona. Qualquer ideia ou sugestão será bem vinda. Claudiomir 51160911911123000109650010000010381000010380-nfe.xml

pessoal, atualizei os componentes para iniciar o desenvolvimento da NFCe. Consigo emitir a NFc-e Normalmente, porem ao tentar cancelar, ocorre uma mensagem de erro cujo o conteudo vem vazio, debugando o codigo, deparei com a seguinte situacao: A Unit AbrNFeWebServices tem um metodo TNFeEnvEvento.TratarResposta, onde dentro dele, tem uma chamada ao metodo : FPRetWS := SeparaDados(FPRetornoWS, 'nfeRecepcaoEventoResult'); Nesse ponto o conteudo do FPRetWS vem vazio, analisando melhor o retorno, verifiquei que a resposta do servidor de homologacao da AM, nao esta vindo como deveria (Olhe o Arquivo de retorno em Anexo) Alguem tem alguma ideia do que estou fazendo de errado? Coloquei o xml autorizado, o de pedido de cancelamento e o retorno que veio do webservice Por favor me ajudem 13160903453216000109650010000001011000001011-nfe.xml 1607121230-ped-eve.xml 1607121230-eve.xml retornonfce.txt

Saudações. Perdão por recriar um tópico semelhante, mas não encontrei a resposta em outros tópicos abertos com o assunto desejado. Estou gerando nfce normalmente. Funciona. Ok. Sem problemas. Vou executar o cancelamento de uma nfce e ele me retorna erro de que o certificado digital não foi carregado. Segue abaixo código fonte. if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); Danfenfce.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; Danfenfce.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; // numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) NumeroLote := 0; Protocolo := qvndvndnprot.AsString; // carregar o xml da nota fiscal eletronica, pode ser omitido // showmessage(copy(qvndvndnomenfce.AsString, 28, 52)); { if not ACBrNFe1.NotasFiscais.LoadFromString(qvndvndnomenfce.AsString) then raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica correspondente!'); } // Criar o cancelamento ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; InfEvento.chNFe := copy(qvndvndnomenfce.AsString, 27, 44); InfEvento.CNPJ := cfgcfgdoc1.AsString; InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.dhEvento := now; InfEvento.nSeqEvento := 1; InfEvento.tpEvento := teCancelamento; InfEvento.detEvento.nProt := Protocolo; InfEvento.detEvento.xJust := motivo; ACBrNFe1.EnviarEventoNFe(NumeroLote); end; O erro ocorre no arquivo acbrnfeconfiguracoes, linha 458. fonte abaixo if (PCertCarregado <> nil) and (NumCertCarregado = FNumeroSerie) then Result := PCertCarregado else begin CoInitialize(nil); // PERMITE O USO DE THREAD try if DFeUtil.EstaVazio(FNumeroSerie) then raise EACBrNFeException.Create('Número de Série do Certificado Digital não especificado !'); Result := nil; A questão que me toca é: Se eu tenho funcionando a emissao do NFCE, o certificado não carregaria junto?? Ou devo carregar o certificado de forma diferente. Se sim, como ou onde?? Bem perdido por aqui. No aguardo de uma resposta ou idéia, Claudiomir

Saudações Estou cometendo algum erro muito idiota que não consigo ver. Estou tentando cancelar uma Nfce emitida e estou tendo um retorno que não encontro aqui no site, (apesar de achar alguns bem parecidos). Fiz a nota em tempo de homologação e tento cancelar ainda entro do prazo de 2 horas. Estou usando o código abaixo: if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; // numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) NumeroLote := 0; Protocolo := qvndvndnprot.AsString; // carregar o xml da nota fiscal eletronica, pode ser omitido // showmessage(copy(qvndvndnomenfce.AsString, 28, 52)); { if not ACBrNFe1.NotasFiscais.LoadFromString((copy(qvndvndnomenfce.AsString, 28, 52))) then raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica correspondente!'); } // Criar o cancelamento ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 152); infEvento.CNPJ := cfgcfgdoc1.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := Protocolo; infEvento.detEvento.xJust := motivo; infEvento.detEvento.cOrgaoAutor := 51; // Mato Grosso ACBrNFe1.EnviarEventoNFe(1); end; // Enviar o evento de cancelamento if ACBrNFe1.EnviarEventoNFe(NumeroLote) then begin with ACBrNFe1.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt('Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos qvndvndDataHoraEvento.AsFloat := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; qvndvndNumeroProtocolo.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; qvndvndXMLCancelamento.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; qvndvndCodigoStatus.AsInteger := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; qvndvndMotivoStatus.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; end; end else begin with ACBrNFe1.WebServices.EnvEvento do begin raise Exception.Create('Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + inttostr (EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + inttostr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + inttostr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; end; O erro que retorna é : ' Falha na validação dos dados de envio de evento '51140811124759000100650010000670011000670018-nfe.xml' violates pattern constraint of '[0-9] {44}. The element '{www.portalfiuscal.inf.br/nfe/} chnfe ' whith value 51140811124759000100650010000670011000670018. Até onde entendi, estou enviando a chave errada, mas não consigo descobrir o porque. Ás vezes também recebo o erro de Orgão não identificado. Sou de MT onde o Orgão seria 51. Qualquer idéia ajuda. Grato galera. Claudiomir