Lucas Marcondes Postado 15 Janeiro Compartilhar Postado 15 Janeiro Bom dia! Quando faço o envio da carta de correção, ele me retorna o seguinte erro: Falha na validação da Mensagem do Evento: --> 1871 - Element '{http://www.portalfiscal.inf.br/nfe}chNFe': This element is not expected. Expected is one of ( {http://www.portalfiscal.inf.br/nfe}CNPJ, {http://www.portalfiscal.inf.br/nfe}CPF ). Já fiz a atualização dos Schemas baixando a ultima versão pelo SVN, porem não resolveu. O envio faço do seguinte modo. idLote := '1'; nSeqEvento := IntToStr(Random(5)); with ACBrNFe.EventoNFe.Evento.New do begin infEvento.chNFe := Chave da nota; infEvento.CNPJ := CNPJ da empresa que emitiu a nota; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; end; ACBrNFe.EnviarEvento(StrToInt(idLote)); Alguém saberia me dizer onde estou errando? Não estou conseguindo entender o problema. Desde já agradeço. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 15 Janeiro Moderadores Compartilhar Postado 15 Janeiro ACBr atualizado e com o instalador rodado? Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Lucas Marcondes Postado 15 Janeiro Autor Compartilhar Postado 15 Janeiro Boa tarde @Juliomar Marchetti!! Sim. Baixei esta semana via SVN. Achei que os Schemas estivessem desatualizados, porem sem sucesso. Alguma dica? Desde já agradeço. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 15 Janeiro Moderadores Compartilhar Postado 15 Janeiro rodou o instalador? Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Lucas Marcondes Postado 16 Janeiro Autor Compartilhar Postado 16 Janeiro Bom dia @Juliomar Marchetti!! Sim, rodei o instalador. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 16 Janeiro Moderadores Compartilhar Postado 16 Janeiro 2 horas atrás, Lucas Marcondes disse: Bom dia @Juliomar Marchetti!! Sim, rodei o instalador. olha só se for configuração. versão 4.0? CCe só serve para NFe Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Lucas Marcondes Postado 16 Janeiro Autor Compartilhar Postado 16 Janeiro @Juliomar Marchetti segue as configurações que eu uso: ACBrNFe.Configuracoes.WebServices.UF := 'SP' ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao ; ACBrNFe.Configuracoes.Arquivos.PathSchemas := 'C:\Arquivos\Schemas\NFe\'; ACBrNFe.Configuracoes.Arquivos.PathSalvar := 'C:\Arquivos\temp\'; AcbrNFE.Configuracoes.WebServices.IntervaloTentativas := 2000; AcbrNFE.Configuracoes.WebServices.TimeOut := 4000; AcbrNFE.Configuracoes.WebServices.Tentativas := 5; AcbrNFE.Configuracoes.WebServices.AguardarConsultaRet := 3000; ACBrNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; ACBrNFe.Configuracoes.Geral.ExibirErroSchema := False; ACBrNFe.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe.SSL.SSLType := TSSLType(LT_TLSv1_2); ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFe.Configuracoes.Geral.AtualizarXMLCancelado := True; Teria mais alguma ou alguma esta errada? Antes de Alimentar o evento eu limpa as notas do componente assim: ACBrNFe.NotasFiscais.Clear; Ai adiciono o evento conforme a primeira postagem. Teria algo a ver isso? Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro Djalma Grivol Postado 15 Outubro Membros Pro Compartilhar Postado 15 Outubro Boa tarde Lucas! Tudo bem? Estou com o mesmo problema. Você conseguiu resolver? Att Djalma Grivol Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 15 Outubro Moderadores Compartilhar Postado 15 Outubro 1 hora atrás, Djalma Grivol disse: Boa tarde Lucas! Tudo bem? Estou com o mesmo problema. Você conseguiu resolver? Att Djalma Grivol Schemas desatualizados? Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro Djalma Grivol Postado 15 Outubro Membros Pro Compartilhar Postado 15 Outubro 17 minutos atrás, Juliomar Marchetti disse: Schemas desatualizados? A ultima atualização que fiz foi 11/2023. eNFeConfig.ini ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := ID; ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91; ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj; ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe; ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now; if CbTipo.ItemIndex = 0 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestConfirmacao; if CbTipo.ItemIndex = 1 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestCiencia; if CbTipo.ItemIndex = 2 then ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestDesconhecimento; if CbTipo.ItemIndex = 3 then begin ACBrNFe1.EventoNFe.Evento.New.InfEvento.tpEvento := teManifDestOperNaoRealizada; ACBrNFe1.EventoNFe.Evento.New.InfEvento.detEvento.xJust := eJust.Text; end; ACBrNFe1.EnviarEvento(ID); fSta := ACBrNFe1.WebServices.EnvEvento.RetWS; Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores BigWings Postado 15 Outubro Moderadores Compartilhar Postado 15 Outubro 14 minutos atrás, Djalma Grivol disse: ACBrNFe1.EventoNFe.Evento.New.InfEvento.cOrgao := 91; ACBrNFe1.EventoNFe.Evento.New.InfEvento.CNPJ := Cnpj; ACBrNFe1.EventoNFe.Evento.New.InfEvento.chNFe := ChaveNFe; ACBrNFe1.EventoNFe.Evento.New.InfEvento.dhEvento := Now; O problema está aí, chamar Evento.New várias vezes, não está preenchendo corretamente. Faça assim: var infEvento: ACBrNFe.EventoClass.TInfEvento; begin [...] infEvento := NFe.EventoNFe.Evento.New.InfEvento; infEvento.cOrgao := StrToInt(Copy(ChaveNFe, 1, 2)); infEvento.CNPJ := Cnpj; infEvento.chNFe := ChaveNFe; infEvento.dhEvento := Now; [...] BigWingsAjude o Projeto ACBr crescer - Assine o SAC Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro Djalma Grivol Postado 15 Outubro Membros Pro Compartilhar Postado 15 Outubro 24 minutos atrás, BigWings disse: O problema está aí, chamar Evento.New várias vezes, não está preenchendo corretamente. Faça assim: var infEvento: ACBrNFe.EventoClass.TInfEvento; begin [...] infEvento := NFe.EventoNFe.Evento.New.InfEvento; infEvento.cOrgao := StrToInt(Copy(ChaveNFe, 1, 2)); infEvento.CNPJ := Cnpj; infEvento.chNFe := ChaveNFe; infEvento.dhEvento := Now; [...] Show! Deu certo. Me desculpe, Obrigado! Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores BigWings Postado 15 Outubro Moderadores Compartilhar Postado 15 Outubro Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. BigWingsAjude o Projeto ACBr crescer - Assine o SAC Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts