junior azevedo

Na abertura do sistema Sempre aponto o endereço completo da pasta Schema. Isso que estou achando estranho!

Obrigado Daniel, vou verificar me código, acredito que o problema esteja nele!

Sempre os baixo desse link, no entanto, não encontrei arquivo que atualizasse os eventos. Vou baixar todos novamente, devo ter deixado passar algo desapercebido.

Sim você deixou bem claro. O que quero saber é se existe uma versão mais atualizada?

Daniel Simões procurei em todo site da sefaz, não consigo encontrar o arquivo envEvento para a versão 4.00, Só na versão 1.00, e esse retorna erro não catalogado!

Estou com o mesmo problema na emissão da Carta de correção. A função *TACBrDFe.AchaArquivoSchema* me da o nome de um arquivo de schema que não existe *'envEvento4.00.xsd'*. Na pasta schema só tem o arquivo *envEvento_v1.00.xsd*, renomeei esse arquivo para envEvento4.00. O problema inicialmente foi corrigido. No entanto, apresentou "Erro não catalogado!"

É possível saber, pelo ACBRTEFD, se existe transação pendente após pc ser reiniciado?

Perdoe minha ignorância, mas não entendi! Como posso ver esses eventos?

Quando realizo uma operação de cancelamento (CNC) já informo os parâmetros. Depois o ACBR mostra as Parâmetros novamente para confirmação. É possível desabilitar essa confirmação, realizar o cancelamento direto. Chamo a Função assim: cTEF.CNC(tCart.FieldByName('bandeira').AsString, tCart.FieldByName('NSU').AsString,.FieldByName('data_emiss').AsDateTime, tCart.FieldByName('valor').AsExtended);

Juliomar Obrigado. Estava carregando o XML errado. rsrsrs 1101113116120570317300019055099000002081112345678701-procEventoNFe.xml

Na reimpressão do evento a data e hora do registro fica 30/12/1899 00:00:00. Não encontrei onde informar essa data.

Pessoal alguém esta tendo esse problema????

Bom dia Juliomar. Não testei no Demo. Vou dar uma olhada nele.

Se faço o cancelamento ou emissão de uma CCe direto funciona corretamente. Mas se emito uma NFe com impressão do DANFE sistema gera erro de "Access vilation at address...". Esse erro o sistema esta apontando para um componente ou variável que não existe, foi destruída. Abaixo esta o código que chama o evento e as funções vinculadas a ela. PreparaEvento(NFeMotivoCancelamento,teCancelamento); dmTMP.NFe.EnviarEvento(1); with dmTMP.NFe.WebServices.EnvEvento do begin if (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135) and (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 155) then begin oEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; ConsultarNFe(False); if Pos('CANCEL',UpperCase(dmTMP.NFe.WebServices.Retorno.XMotivo)) > 0 then dmTMP.NFe.ImprimirEvento; Mensagem(oEvento); FRetorno := '135'; exit; end; DM.sdsNfeEvento.Close; dmTMP.NFe.ImprimirEvento; Procedure TfrmMensagemNfe.PreparaEvento(NFeMotivo : string; tpEven : TpcnTpEvento); begin dmTMP.NFe.EventoNFe.Evento.Clear; dmTMP.NFe.NotasFiscais.Clear; dmTMP.PreparaEmissorNFE; dmTMP.NFe.EventoNFe.idLote := 1; with dmTMP.NFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := DM.sdsEmpresaCodigoUF.AsInteger; InfEvento.chNFe := sdsGNFeCHAVENFE.AsString; InfEvento.CNPJ := DM.sdsEmpresaCNPJ.AsString; InfEvento.dhEvento := now; InfEvento.tpEvento := tpEven; if tpEven = teCCe then begin infEvento.nSeqEvento := oSeqEvento; infEvento.detEvento.xCorrecao := NFeMotivo; end else begin InfEvento.detEvento.xJust := NFeMotivo; InfEvento.detEvento.nProt := sdsGNFePROTOCOLO.AsString; end; end; end; function TdmTMP.PreparaEmissorNFE: Boolean; var Mes: string; Ano: string; Lista: String; begin if (DM.sdsEmpresalogoNFe.AsString <> '') and (FileExists(DM.sdsEmpresalogoNFe.AsString)) then NFe.DANFE.Logo := DM.sdsEmpresalogoNFe.AsString; Mes := FormatDateTime('mm', NOW); Ano := FormatDateTime('yyyy', NOW); dmTMP.NFe.Configuracoes.WebServices.Ambiente := taHomologacao Lista := ''; Result := true; ACBRDANFE.FastFile := ExtractFilePath(Application.ExeName) + 'report\DANFeRetrato.fr3'; ACBRDANFE.FastFileEvento := ExtractFilePath(Application.ExeName) + 'report\EVENTOS.fr3'; ACBRDANFE.FastFileInutilizacao := ExtractFilePath(Application.ExeName) + 'report\INUTILIZACAO.fr3'; NFe.Configuracoes.arquivos.PathNFe := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas'; NFe.Configuracoes.arquivos.PathInu := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathEvento := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathSalvar := ExtractFilePath(Application.ExeName) + 'NFE\XML'; ACBRDANFE.PathPDF := ExtractFilePath(Application.ExeName) + 'NFE\PDF\' + Mes + Ano; ChecaDiretorios(ACBRDANFE.PathPDF); ChecaDiretorios(ExtractFilePath(Application.ExeName) + 'NFE'); ChecaDiretorios(ExtractFilePath(Application.ExeName) + 'NFE\XML'); ChecaDiretorios(NFe.Configuracoes.arquivos.PathNFe); ChecaDiretorios(NFe.Configuracoes.arquivos.PathInu); ChecaDiretorios(NFe.Configuracoes.arquivos.PathEvento); ChecaDiretorios(NFe.Configuracoes.arquivos.PathSalvar); ChecaDiretorios(ACBRDANFE.PathPDF); if ConfigSYS[67] = '' then begin Lista := Lista + 'Versão da NF-e não definida' + #13; end; if ConfigSYS[63] = '' then begin Lista := Lista + 'Série da NF-e não definida' + #13; if (DM.sdsEmpresaCNAE.AsString = '0') or (DM.sdsEmpresaCNAE.AsString = '') then Lista := Lista + 'CNAE empresa não definido' + #13; end; if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'Schemas') then Lista := Lista + NFe.Configuracoes.arquivos.PathSchemas + #13; if not ChecaArquivos(ACBRDANFE.FastFile) then Lista := Lista + ACBRDANFE.FastFile + #13; if not ChecaArquivos(ACBRDANFE.FastFileEvento) then Lista := Lista + ACBRDANFE.FastFileEvento + #13; if not ChecaArquivos(ACBRDANFE.FastFileInutilizacao) then Lista := Lista + ACBRDANFE.FastFileInutilizacao + #13; if not ChecaArquivos(ExtractFilePath(Application.ExeName) + 'Report\rptPreVenda.fr3') then Lista := Lista + ExtractFilePath(Application.ExeName) + 'ReportrptPreVenda.fr3' + #13; if Lista <> '' then begin ShowMessage('Erro ao iniciar NFe. Entre em contato com o suporte. Os seguintes arquivos não foram encontrados.: ' + #13 + Lista); Result := false end; NFe.WebServices.Retorno.Clear; end;

NFe emitida para fora do estado com valor menor que 0,20 são rejeitadas "Assinatura difere do calculado". Emiti outra nota com os mesmos dados passando o valor para 0,38 e funciona perfeitamente.