FocusRJ

Obrigado, desculpem-me, caso algum usuário tenha permissões, pois não sei como proceder, e queira pode excluir o tópico.

Amigos, criei uma NFe (HOJE) em homologação, e minutos depois tentei cancelar a mesma e só me retorna a Rejeicao: A data do evento nao pode ser maior que a data do processamento Sendo que o Protocolo de autorização da NFe é: - - 2 SVRS20121001172107 33121010173165000119550010000302411557449295 2012-10-22T11:01:02 333120000636840 ZcTemq3ODRlRPkeih1132Bk2Wv4= 100 Autorizado o uso da NF-e e 2012-10-22 2012-10-22 Algum amigo está tendo esse mesmo problema? A data/hora do PC estão corretos de acordo com o horário de verão. Já atualizei o ACBR, schemas e nada... Att. Rômulo Mayworm

ok, vou corrigir, obrigado amigos!

Segue o xml

Amigos, Quando utilizo as STs 20 ou 51 nos produtos nos meus testes de emissão está dando rejeição na transmissão da NFe REJEIÇÃO: valor do ICMS difere do produto BC Nos demais STs está indo normalmente, estou pensando na possibilidade do meu calculo estar sendo realizado de forma equivocada. Como vocês realizam esse calculo e passam os valores pro ACBR? O meu calculo está sendo realizado de acordo com http://www.notafiscalfacil.com.br/calculo-icms-cst-20/. Utilizo a seguinte função: function CalculaICMS_Com_Reducao(pReducao,BC,Aliq: Currency):Currency; begin Result := ArredondaReal((BC * ( 1 - (pReducao / 100))) * (Aliq / 100),2); end; Att. Rômulo Mayworm

Bingo amigos, agora foi, obrigado!

Vou atualizar e posto aqui o resultado!

Bom dia, atualizei o ACBR e agora ao enviar a NFe vem a REJEIÇÃO: INFORMAÇÃO DO NCM DIFERE DA INFORMAÇÃO DO GÊNERO, são 2 produtos, os quais consultei e o NCM está correto! PRODUTO NCM SAPATA DO ELEVADOR 120MM CONICA SG011 - 40169990 REVITAPLAST 500G - 34029039 Será q estou deixando de colocar alguma informação? Também está dando a rejeição: FALHA NO SCHEMA XML INEXISTE ATRIBUTO VERSÃO NA TAG RAIZ DA MENSAGEM Estou anexando o arquivo xml para caso alguém possa me ajudar. 33121010173165000119550010000302181488079724-nfe.xml

A forma de retorno continua a mesma pelo que parece, correto? Ex. Cstat de retorno = ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; Att. Rômulo Mayworm

Linha 367: tlCancNFe : Result := '2.00'; e linha 378: tlRetConsCad : Result := '2.00'; a função inteira: function RetornarVersaoLayout(const schema: TpcnSchema; const Layout: TpcnTipoLayout): string; begin Result := '0.00'; case schema of TsPL005c : case Layout of tlAtuCadEmiDFe : Result := '1.01'; tlCadEmiDFe : Result := '1.01'; tlCancNFe : Result := '1.07'; tlConsCad : Result := '1.01'; tlConsReciNFe : Result := '1.10'; tlConsSitNFe : Result := '1.07'; tlConsStatServ : Result := '1.07'; tlInutNFe : Result := '1.07'; tlNFe : Result := '1.10'; tlProcNFe : Result := '1.10'; tlProcInutNFe : Result := '1.07'; tlRetAtuCadEmiDFe : Result := '1.01'; tlRetCancNFe : Result := '1.07'; tlRetConsCad : Result := '1.01'; tlRetConsReciNFe : Result := '1.10'; tlRetConsStatServ : Result := '1.07'; tlRetConsSitNFe : Result := '1.07'; tlRetEnvNFe : Result := '1.10'; tlRetInutNFe : Result := '1.07'; tlEnvNFe : Result := '1.10'; tlProcCancNFe : Result := '1.07'; tlEnvDPEC : Result := '1.01'; tlConsDPEC : Result := '1.01'; tlCCeNFe : Result := '2.00'; end; TsPL006 : case Layout of tlCancNFe : Result := '2.00'; tlConsCad : Result := '2.00'; tlConsReciNFe : Result := '2.00'; tlConsSitNFe : Result := '2.01'; tlConsStatServ : Result := '2.00'; tlInutNFe : Result := '2.00'; tlNFe : Result := '2.00'; tlProcNFe : Result := '2.00'; tlProcInutNFe : Result := '2.00'; tlRetAtuCadEmiDFe : Result := '2.00'; tlRetCancNFe : Result := '2.00'; tlRetConsCad : Result := '2.00'; tlRetConsReciNFe : Result := '2.00'; tlRetConsStatServ : Result := '2.00'; tlRetConsSitNFe : Result := '2.01'; tlRetEnvNFe : Result := '2.00'; tlRetInutNFe : Result := '2.00'; tlEnvNFe : Result := '2.00'; tlProcCancNFe : Result := '2.00'; tlEnvDPEC : Result := '2.00'; tlConsDPEC : Result := '2.00'; tlCCeNFe : Result := '2.00'; // Incluido por Italo em 09/04/2012 tlEnvEventoNFe : Result := '2.00'; // Incluido por Italo em 17/07/2012 tlConsNFeDest : Result := '2.00'; tlDownloadNFe : Result := '2.00'; end; // Incluido/Alterado por Italo em 03/08/2011 // Tipos de LayOut para CT-e TsPL_CTe_103 : case Layout of tlConsStatServCTe : Result := '1.03'; tlCTe : Result := '1.03'; tlEnvCTe : Result := '1.03'; tlRetEnvCTe : Result := '1.03'; tlProcCTe : Result := '1.03'; tlConsReciCTe : Result := '1.03'; tlRetConsReciCTe : Result := '1.03'; tlConsSitCTe : Result := '1.03'; tlRetConsSitCTe : Result := '1.03'; tlCancCTe : Result := '1.03'; tlProcCancCTe : Result := '1.03'; tlRetCancCTe : Result := '1.03'; tlInutCTe : Result := '1.03'; tlProcInutCTe : Result := '1.03'; tlRetInutCTe : Result := '1.03'; end; TsPL_CTe_104 : case Layout of tlConsStatServCTe : Result := '1.04'; tlCTe : Result := '1.04'; tlEnvCTe : Result := '1.04'; tlRetEnvCTe : Result := '1.04'; tlProcCTe : Result := '1.04'; tlConsReciCTe : Result := '1.04'; tlRetConsReciCTe : Result := '1.04'; tlConsSitCTe : Result := '1.04'; tlRetConsSitCTe : Result := '1.04'; tlCancCTe : Result := '1.04'; tlProcCancCTe : Result := '1.04'; tlRetCancCTe : Result := '1.04'; tlInutCTe : Result := '1.04'; tlProcInutCTe : Result := '1.04'; tlRetInutCTe : Result := '1.04'; end; end; end; Devo alterar algo? Att. Rômulo Mayworm

Bom dia, o meu retorno também é esse... mas como o mesmo vem com o cStat = 101 creio que esteja correto, no corpo do xml da NFe está assim: - - 2 SVRS20120306094356 33121010173165000119550010000302121095498825 2012-10-08T13:30:52 333120000588007 vk7X25RAu2k3+fA9pMqmTTT4c3A= 101 Cancelamento de NF-e homologado via EVENTO. Utilize versao 2.01 para retornar o evento de cancelamento. e na resposta à consulta obtenho 2SVRS20120306094356101Cancelamento de NF-e homologado via EVENTO. Utilize versao 2.01 para retornar o evento de cancelamento.33 ... 2SVRS20121001172107 ... 2012-10-08T13:30:52333120000588007vk7X25RAu2k3+fA9pMqmTTT4c3A=100Autorizado o uso da NF-e ... 2012-10-08T13:34:10-03:0011011111.00Cancelamento333120000588007teste de cancelamento nfe em homologacao ... 2SVRS2012090612055333135Evento registrado e vinculado a NF-e...1101111999999990001912012-10-08T13:35:12-03:00333120000588144 É mais ou menos isso, só realizei umas alterações para manter a privacidade do CNPJ emitente (de teste) - visto que não utilizamos o nosso certificado para testes e sim de clientes. Att. Rômulo Mayworm

Utilizo o mesmo procedimento de envio normal.... porém no Normal tenho Ide.tpEmis = teNormal já na que estou tentando emitir Ide.tpEmis = teSCAN acrescentando a Data/Hora e Justificativa da entrada em contingência (tudo sendo carregado pro ACBR) fora isso tenho o mesmo procedimento de uma NFe normal a qual sempre é enviada sem apresentar erro algum.

é q tipo está algo +- assim: try Transmitida := ACBrNFe1.Enviar(0); except on E: Exception do Showmessage(E.Message); end; Tanto em produção, num cliente quanto aqui comigo está dando erro, sendo que no cliente (em produção) dá a mensagem que excedeu o tempo limite de espera... e o meu (em homologação) simplesmente não envia.

Amigos, para emitir a nfe em contingência SCAN eu faço normalmente adicionando a forma de emissão como Cont.SCAN e Data/Hora e Justificativa com mais de 15 caracteres... até aí tudo bem... Carrego as informações pro ACBRNFe2.0 e Transmitida := ACBrNFe1.Enviar(0); só que dá a falha caindo na exceção.... estou fazendo errado? Att. Rômulo Mayworm

Bom dia, 2) os arquivos postados pelo colega FocusRJ já contemplam as atualizações realizadas pelo colega acgubamg? R.: Sim as alterações sugeridas pelo colega já estão inclusas nas que indiquei. As utilizo em para emissão de pelo menos cerca de 50 Danfes/dia. Att. Rômulo Mayworm

Amigo, boa alteração, já apliquei aos meus, também realizei algumas alterações, fiz as diferentes para paisagem/retrato, e tratamento de impressões para Danfe em homologação/ cancelada,... Alterei a procedure CarregaParametros, dentro do ACBRNFeDANFEFRDM conforme segue abaixo. procedure TdmACBrNFeFR.CarregaParametros; var vChave_Contingencia: String; vResumo: String; begin { parâmetros } with cdsParametros do begin Close; FieldDefs.Clear; FieldDefs.Add('ResumoCanhoto', ftString, 200); FieldDefs.Add('Mensagem0', ftString, 60); FieldDefs.Add('Imagem', ftString, 256); FieldDefs.Add('Sistema', ftString, 60); FieldDefs.Add('Usuario', ftString, 60); FieldDefs.Add('Fax', ftString, 60); FieldDefs.Add('Site', ftString, 60); FieldDefs.Add('Email', ftString, 60); FieldDefs.Add('Desconto', ftString, 60); FieldDefs.Add('ChaveAcesso_Descricao', ftString, 90); FieldDefs.Add('Contingencia_ID', ftString, 36); FieldDefs.Add('Contingencia_Descricao', ftString, 60); FieldDefs.Add('Contingencia_Valor', ftString, 60); FieldDefs.Add('LinhasPorPagina', ftInteger); CreateDataSet; Append; vResumo := ''; if DANFEClassOwner.ExibirResumoCanhoto then begin if NotaUtil.EstaVazio(DANFEClassOwner.ExibirResumoCanhoto_Texto) then vResumo := 'Emissão: ' + NotaUtil.FormatDate(DateToStr(FNFe.Ide.DEmi)) + ' Dest/Reme: ' + FNFe.Dest.XNome + ' Valor Total: ' + NotaUtil.FormatFloat(FNFe.Total.ICMSTot.VNF) else vResumo := DANFEClassOwner.ExibirResumoCanhoto_Texto; end; FieldByName('ResumoCanhoto').AsString := vResumo; if (FNFe.Ide.TpAmb = taHomologacao) then begin if (FNFe.Ide.serie = 999) and (FNFe.Ide.tpEmis in [teContingencia,teFSDA,teSCAN, teDPEC]) then FieldByName('Mensagem0').AsString := 'NFe em Contingência - HOMOLOGAÇÃO' else if (FNFe.procNFe.cStat = 101) then FieldByName('Mensagem0').AsString := 'NFe Cancelada - HOMOLOGAÇÃO' else FieldByName('Mensagem0').AsString := 'NFe sem Valor Fiscal - HOMOLOGAÇÃO'; end else begin // Alterado por Rômulo Mayworm, sem a necessidade do teste 'Not' if (FNFe.Ide.tpEmis in [teContingencia,teFSDA,teSCAN, teDPEC]) then begin if ((NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and (NotaUtil.EstaVazio(FNFe.procNFe.nProt))) then FieldByName('Mensagem0').AsString := 'NFe em Contingência sem Autorização de Uso da SEFAZ' else if (FNFe.procNFe.cStat = 101) then FieldByName('Mensagem0').AsString := 'NFe em Contingência - Cancelada' else FieldByName('Mensagem0').AsString := 'NFe em Contingência'; end else begin if (FNFe.procNFe.cStat = 101) then FieldByName('Mensagem0').AsString := 'NFe Cancelada' else if ((NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and (NotaUtil.EstaVazio(FNFe.procNFe.nProt))) then FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ' else begin // Alterado por Rômulo Mayworm - dessa forma as notas não canceladas estavam indo com a tarja "NFe Cancelada" // if FDANFEClassOwner.NFeCancelada then // FieldByName('Mensagem0').AsString := 'NFe Cancelada' // else FieldByName('Mensagem0').AsString := ''; end; end; end; // Carregamento da imagem if DANFEClassOwner.Logo <> '' then FieldByName('Imagem').AsString := DANFEClassOwner.Logo; if FDANFEClassOwner.Sistema <> '' then FieldByName('Sistema').AsString := FDANFEClassOwner.Sistema else FieldByName('Sistema').AsString := 'Projeto ACBr - http://acbr.sf.net'; if FDANFEClassOwner.Usuario <> '' then FieldByName('Usuario').AsString := ' - ' + FDANFEClassOwner.Usuario else FieldByName('Usuario').AsString := ''; if FDANFEClassOwner.Fax <> '' then FieldByName('Fax').AsString := ' - FAX ' + FDANFEClassOwner.Fax else FieldByName('Fax').AsString := ''; FieldByName('Site').AsString := FDANFEClassOwner.Site; FieldByName('Email').AsString := FDANFEClassOwner.Email; if FDANFEClassOwner.ImprimirDescPorc then FieldByName('Desconto').AsString := 'DESC %' else FieldByName('Desconto').AsString := 'V.DESC.'; if ((FNFe.Ide.tpEmis=teNormal) or (FNFe.Ide.tpEmis = teSCAN)) then begin FieldByName('ChaveAcesso_Descricao').AsString := 'CHAVE DE ACESSO'; FieldByName('Contingencia_ID').AsString := ''; if ((FDANFEClassOwner.NFeCancelada) or (FNFe.procNFe.cStat=101)) then FieldByName('Contingencia_Descricao').AsString := 'PROTOCOLO DE HOMOLOGAÇÃO DO CANCELAMENTO' else FieldByName('Contingencia_Descricao').AsString := 'PROTOCOLO DE AUTORIZAÇÃO DE USO'; if NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe) then begin if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA]) and NotaUtil.EstaVazio(FNFe.procNFe.nProt) then FieldByName('Contingencia_Valor').AsString := 'NFe sem Autorização de Uso da SEFAZ' else FieldByName('Contingencia_Valor').AsString := FNFe.procNFe.nProt + ' ' + NotaUtil.SeSenao(FNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FNFe.procNFe.dhRecbto), ''); end else FieldByName('Contingencia_Valor').AsString := FDANFEClassOwner.ProtocoloNFe; end else begin vChave_Contingencia := NotaUtil.GerarChaveContingencia(FNFe); FieldByName('ChaveAcesso_Descricao').AsString := 'CHAVE DE ACESSO'; FieldByName('Contingencia_ID').AsString := vChave_Contingencia; if ((FNFe.Ide.tpEmis = teContingencia) or (FNFe.Ide.tpEmis = teFSDA)) then begin FieldByName('Contingencia_Descricao').AsString := 'DADOS DA NF-E'; FieldByName('Contingencia_Valor').AsString := NotaUtil.FormatarChaveContigencia(vChave_Contingencia); end else if (FNFe.Ide.tpEmis = teDPEC) then begin FieldByName('Contingencia_Descricao').AsString := 'NÚMERO DE REGISTRO DPEC'; //precisa testar if notautil.EstaVazio(FDANFEClassOwner.ProtocoloNFe) then raise EACBrNFeException.Create('Protocolo de Registro no DPEC não informado.') else FieldByName('Contingencia_Valor').AsString := FDANFEClassOwner.ProtocoloNFe; end; end; FieldByName('LinhasPorPagina').AsInteger := FDANFEClassOwner.ProdutosPorPagina; Post; end; end; Att. Rômulo Mayworm DANFEs_ALTERADO.rar

Bom dia pessoal, então, eu estava tendo problema se tentasse inutilizar uma numeração, clicando direto no botão inutilizar, sem ter consultado o status, ou qualquer outra função que lide com o WebServices ele não inutilizava e , portanto incluí um detalhe no botão de inutilização para assim inutilizar sem necessidade de ativar quaisquer outra função, coloquei para consultar o Status antes. ACBrNFe1.WebServices.StatusServico.Executar; ACBrNFe1.WebServices.Inutiliza(medtCNPJ.Text, Justificativa, StrToInt(Ano), StrToInt(Modelo), StrToInt(Serie), StrToInt(NumeroInicial), StrToInt(NumeroFinal)); Att. Rômulo Mayworm

Bom dia TBalbinos, dê uma olhada em Att. Rômulo Mayworm Pesquise antes de postar

Boa tarde, quais informações você gostaria de obter? Já pesquisou no fórum? Talvez a informação que necessita já tenha sido discutida, o assunto é bem discutido aqui no fórum. Att. Rômulo Mayworm

Pedro, Só passa as configurações, se for através do xml de uma nfe basta vc carregá-lo para o componente. ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(Arquivo); ACBrNFe1.NotasFiscais.Imprimir; if (MessageBox(0, 'Deseja prosseguir a CCe com a nota selecionada?', 'Confirmação', MB_ICONQUESTION or MB_YESNO) = idNo) then Exit; e depois carregar os dados para enviar, sem a necessidade de enviar. AbreAviso('Gerando CCe'); ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear; ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := iLote; with ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := copy(Chave,7,14); infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; case rgTipoAmb.ItemIndex of 0: InfEvento.tpAmb := taProducao; 1: InfEvento.tpAmb := taHomologacao; end; end; ACBrNFe1.EnvEvento.EnvEventoNFe.GerarXML; ACBrNFe1.EnviarEventoNFe(iLote); Você terá que tratar também o local para onde será salvo o xml de retorno com as informações dessa carta de correção. Depois disso eu carrego as informações de retorno e as de envio para um clientdataset gerando a Carta de Correção para sem impressa através do FastReport. Att. Rômulo Mayworm

Bom dia Pedro, Isso mesmo, aqui eu montei um procedimento o ConfiguraACBRNFe ele direciona todos os diretórios e demais configurações necessárias, daí qqr comando que eu utilizo primeiramente eu chamo esse procedimento. Segue o código do procedimento citado: procedure TfrmNotaFiscal.ConfiguraAcbrNFe; begin {$IFDEF ACBrNFeOpenSSL} ACBrNFe1.Configuracoes.Certificados.Certificado := edtCaminho.Text; ACBrNFe1.Configuracoes.Certificados.Senha := edtSenha.Text; {$ELSE} ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; ACBrNFe1.Configuracoes.Certificados.Senha := edtSenha.Text; {$ENDIF} case cbbFormaEmissao.ItemIndex of 0: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; 1: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia; 2: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSCAN; 3: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teDPEC; 4: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teFSDA; end; VerificaSePathExisteECria;//aqui se os caminhos utilizados abaixo não existirem eles são criados ACBrNFe1.Configuracoes.Geral.Salvar := ckSalvar.Checked; //utilizo o - Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5) - pois tenho clientes com mais de um certificado, para separar os arquivos pelos 5 últimos dígitos do certificado ACBrNFe1.Configuracoes.Geral.PathSalvar := PathComBarra(edtPathLogs.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5)+'\'+FormatDateTime('yyyymm',Now); ACBrNFe1.Configuracoes.Geral.PathSchemas := edtPathSchemas.Text; ACBrNFe1.DANFE.PathPDF := PathComBarra(edtPathPDF.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5)+'\'+FormatDateTime('yyyymm',Now); ACBrNFe1.Configuracoes.Arquivos.PathNFe := PathComBarra(edtPathNFe.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5); ACBrNFe1.Configuracoes.Arquivos.PathCan := PathComBarra(edtPathCancelados.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5); ACBrNFe1.Configuracoes.Arquivos.PathInu := PathComBarra(edtPathInutilizados.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5); ACBrNFe1.Configuracoes.Arquivos.PathDPEC := PathComBarra(edtPathDPEC.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5); ACBrNFe1.Configuracoes.Arquivos.PathCCe := PathComBarra(edtPathCCE.Text)+Substring(edtNumSerie.Text,Length(edtNumSerie.Text)-4,5); ACBrNFe1.Configuracoes.WebServices.UF := cbUF.Text; case rgTipoAmb.ItemIndex of 0: ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; 1: ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end; ACBrNFe1.Configuracoes.WebServices.Visualizar := False; ACBrNFe1.Configuracoes.WebServices.ProxyHost := ''; ACBrNFe1.Configuracoes.WebServices.ProxyPort := ''; ACBrNFe1.Configuracoes.WebServices.ProxyUser := ''; ACBrNFe1.Configuracoes.WebServices.ProxyPass := ''; if ACBrNFe1.DANFE <> nil then begin case cbbImpressaoDANFE.ItemIndex of 0: ACBrNFe1.DANFE.TipoDANFE := tiRetrato; 1: ACBrNFe1.DANFE.TipoDANFE := tiPaisagem; end; if FileExists(edtLogoMarca.Text) then ACBrNFe1.DANFE.Logo := edtLogoMarca.Text else ACBrNFe1.DANFE.Logo := ''; ACBrNFe1.DANFE.NFeCancelada := true; end; end; Att.

Aqui estou fazendo da seguinte forma: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ArquivoXML); ... nSeqEvento := '1'; ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear; ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := idLote; with ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := copy(Chave,7,14); infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; case rgTipoAmb.ItemIndex of 0: InfEvento.tpAmb := taProducao; 1: InfEvento.tpAmb := taHomologacao; end; end; ACBrNFe1.EnviarEventoNFe(idLote); Verifique se você está carregando as informações de um xml ou se está passando todas as informações corretas (chave, cnpj,...) caso carregue do xml algumas informações não são necessárias, porém se você informá-las não terá problemas. Tente utilizar também o ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear; Da forma que descrevi está indo na boa aqui cara! Att. Rômulo Mayworm

Pedro, antes de enviar tente colocar o seguinte comando: Showmessage(ACBrNFe1.Configuracoes.Geral.PathSchemas); Verifique se está informando a pasta SCHEMAS que você atualizou. Att. Rômulo Mayworm

Julio, você já verificou pelo I.E. ou até mesmo algum gerenciador de certificados se o certificado em questão está aparecendo para o windows? Caso não, siga os passos presentes em http://www.gestortotal.com.br/emissor-nfe/como-verificar-se-certificado-esta-instalado Caso já esteja corretamente instalado, após verificar os passos no link acima (caso contrário o problema está na instalação do certificado), e mesmo assim não funcionar verifique a versão do Capicom que está utilizando. Já quebrei muito a cabeça aqui há uns dias atrás que em um cliente parou do nada de emitir a NFe, com o certificado dele em mãos, no meu PC também não funcionava, acabei ligando para a entidade emissora do certificado em questão (A3) e algum usuário por descuido excluiu o certificado do token, eles tiveram que solicitar um novo certificado sendo que o token já possuíam. Espero ajudar, e caso consiga resolver, coloque aqui a forma que utilizou! Att. Rômulo Mayworm

mas c as duas formas está dando erro, vou tentar aqui novamente qqr coisa posto aqui!