Ricardo Longo

Resolvi mudando essa rotina em pcnConversao ...... function TpEventoToDescStr(const t: TpcnTpEvento): string; begin result := EnumeradoToStr(t, ['NaoMapeado', 'CCe', 'Cancelamento', 'ManifDestConfirmacao', 'ManifDestCiencia', 'ManifDestDesconhecimento', 'ManifDestOperNaoRealizada', 'Encerramento', 'EPEC', 'InclusaoCondutor', 'MultiModal', 'RegistroPassagem', 'RegistroPassagemBRId', 'EPECNFe', 'RegistroCTe', 'RegistroPassagemNFeCancelado', 'RegistroPassagemNFeRFID', 'CTeCancelado', 'MDFeCancelado', 'VistoriaSuframa', 'PedProrrog1', 'PedProrrog2', 'CanPedProrrog1', 'CanPedProrrog2', 'EventoFiscoPP1', 'EventoFiscoPP2', 'EventoFiscoCPP1', 'EventoFiscoCPP2', 'RegistroPassagemNFe', 'ConfInternalizacao', 'CTeAutorizado', 'MDFeAutorizado', 'PrestDesacordo', 'GTV', 'MDFeAutorizado2', 'NaoEmbarque', 'MDFeCancelado2', 'MDFeAutorizadoComCTe', 'RegPasNfeProMDFe', 'RegPasNfeProMDFeCte', 'RegPasAutMDFeComCte', 'CancelamentoMDFeAutComCTe', 'AverbacaoExportacao', 'AutCteComplementar', 'CancCteComplementar', 'CTeSubstituicao', 'CTeAnulacao', 'LiberacaoEPEC', 'LiberacaoPrazoCanc', 'AutorizadoRedespacho', 'AutorizadoRedespIntermed', 'AutorizadoSubcontratacao', 'AutorizadoServMultimodal' ], [teNaoMapeado, teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada, teEncerramento, teEPEC, teInclusaoCondutor, teMultiModal, teRegistroPassagem, teRegistroPassagemBRId, teEPECNFe, teRegistroCTe, teRegistroPassagemNFeCancelado, teRegistroPassagemNFeRFID, teCTeCancelado, teMDFeCancelado, teVistoriaSuframa, tePedProrrog1, tePedProrrog2, teCanPedProrrog1, teCanPedProrrog2, teEventoFiscoPP1, teEventoFiscoPP2, teEventoFiscoCPP1, teEventoFiscoCPP2, teRegistroPassagemNFe, teConfInternalizacao, teCTeAutorizado, teMDFeAutorizado, tePrestDesacordo, teGTV, teMDFeAutorizado2, teNaoEmbarque, teMDFeCancelado2, teMDFeAutorizadoComCTe, teRegPasNfeProMDFe, teRegPasNfeProMDFeCte, teRegPasAutMDFeComCte, teCancelamentoMDFeAutComCTe, teAverbacaoExportacao, teAutCteComplementar, teCancCteComplementar, teCTeSubstituicao, teCTeAnulacao, teLiberacaoEPEC, teLiberacaoPrazoCanc, teAutorizadoRedespacho, teautorizadoRedespIntermed, teAutorizadoSubcontratacao, teautorizadoServMultimodal]); { ['Evento não Mapeado', 'CCe', 'Cancelamento', 'Confirmacao', 'Ciencia', 'Desconhecimento', 'NaoRealizada', 'Encerramento', 'EPEC', 'IncCondutor', 'Multimodal', 'RegPassagem', 'RegPassagemBRId', 'EPEC', 'RegCTe', 'RegPassagemNFeCancelado', 'RegPassagemNFeRFID', 'CTeCancelado', 'MDFeCancelado', 'VistoriaSuframa', 'PedProrrog1', 'PedProrrog2', 'CanPedProrrog1', 'CanPedProrrog2', 'EventoFiscoPP1', 'EventoFiscoPP2', 'EventoFiscoCPP1', 'EventoFiscoCPP2', 'RegPassagemNFe', 'ConfInternalizacao', 'CTeAutorizado', 'MDFeAutorizado', 'PrestDesacordo', 'GTV', 'MDFeAutorizado2', 'NaoEmbarque', 'MDFeCancelado2','MDFeAutorizadoComCTe', 'Registro de Passagem de NFe propagado pelo MDFe', 'Registro de Passagem de NFe propagado pelo MDFe/Cte', 'Registro de Passagem Automatico MDF-e com CT-e', 'Cancelamento de MDF-e Autorizado com CT-e', 'Averbação de Exportação','Autorizado CTe Complementar', 'Cancelado CTe Complementar','CTe de Substituicao','CTe de Anulacao', 'Liberacao de EPEC','Liberacao Prazo Cancelamento','Autorizado Redespacho', 'Autorizado Redespacho Intermediario', 'Autorizado Subcontratacao', 'Autorizado Servico Vinculado Multimodal'], [teNaoMapeado, teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia, teManifDestDesconhecimento, teManifDestOperNaoRealizada, teEncerramento, teEPEC, teInclusaoCondutor, teMultiModal, teRegistroPassagem, teRegistroPassagemBRId, teEPECNFe, teRegistroCTe, teRegistroPassagemNFeCancelado, teRegistroPassagemNFeRFID, teCTeCancelado, teMDFeCancelado, teVistoriaSuframa, tePedProrrog1, tePedProrrog2, teCanPedProrrog1, teCanPedProrrog2, teEventoFiscoPP1, teEventoFiscoPP2, teEventoFiscoCPP1, teEventoFiscoCPP2, teRegistroPassagemNFe, teConfInternalizacao, teCTeAutorizado, teMDFeAutorizado, tePrestDesacordo, teGTV, teMDFeAutorizado2, teNaoEmbarque, teMDFeCancelado2, teMDFeAutorizadoComCTe, teRegPasNfeProMDFe, teRegPasNfeProMDFeCte, teRegPasAutMDFeComCte, teCancelamentoMDFeAutComCTe, teAverbacaoExportacao, teAutCteComplementar, teCancCteComplementar,teCTeSubstituicao, teCTeAnulacao,teLiberacaoEPEC,teLiberacaoPrazoCanc, teAutorizadoRedespacho,teautorizadoRedespIntermed,teAutorizadoSubcontratacao, teautorizadoServMultimodal]); } end; ....... Reduzindo o nome das pastas de evento.

Acho que o maior problema está no AdicionarLiteral, está usando um nome gigantesco. Exemplo : \\192.168.0.1\XML_NFe\NFe\Evento\201805\Evento\Registro de Passagem Automatico MDF-e com CT-e Não é interessante abreviarem esse nome Registro de Passagem Automatico MDF-e com CT-e e outros possíveis ?

Gosto de separar por mês e descrição do evento. Estou usando a seguinte configuração Talvez remover o literal. Vou fazer um teste. Valeu // Configurações dos componentes ACBr with acbrnf1.Configuracoes.Arquivos do begin Salvar := True; SepararPorMes := True; AdicionarLiteral := True; EmissaoPathNFe := True; SalvarEvento := True; SepararPorCNPJ := False; SepararPorModelo := False; PathSalvar := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe'; PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\NFe'; PathNFe := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\NF'; PathInu := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Inu'; PathEvento := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Evento'; end;

Durante a consulta pela Distribuição as vezes ocorre esse erro. Verifiquei que realmente o arquivo não foi criado, mas não pode ser problema de segurança do windows porque outros tantos arquivos foram criados na mesma pasta Evento. Alguém tem alguma ideia ? Obrigado

Para o evento o melhor caminho foi esse, ........ if ( Items[ i ].schema = schprocEventoNFe ) then begin // Retorno de Evento Arquivo := pcnConversao.TpEventoToDescStr( Items[ i ].procEvento.tpEvento ); Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\' + Arquivo + '\'; Arquivo := Arquivo + StringReplace( dtACBr.acbrnf1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[ i ].procEvento.ID, 'ID', '', [rfReplaceAll] ) + '-procEventoNFe.xml'; .......

Acho que o problema está em não localizar o arquivo XML na pasta padronizada. Resolvi o problema carregando o xml da nfe e executar acbrnf1.Consultar; Dessa forma o arquivo é XML é gerado na pasta padronizada e o erro não ocorreu ao executar o envio do evento por e-mail.

Estou tentando enviar um evento por email mas esta dando erro ao executar o comando ImprimirEventoPDF; que está na rotina EnviarEmailEvento. Carrego o arquivo XML da NFe e do Evento, mas parece que ele tenta criar o PDF e retorna esse erro. procedure TACBrNFe.EnviarEmailEvento(sPara, sAssunto: String; sMensagem: TStrings; sCC: TStrings; Anexos: TStrings; sReplyTo: TStrings); var NomeArq: String; AnexosEmail: TStrings; begin AnexosEmail := TStringList.Create; try AnexosEmail.Clear; if Anexos <> nil then AnexosEmail.Text := Anexos.Text; ImprimirEventoPDF; NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id); NomeArq := PathWithDelim(DANFE.PathPDF) + NomeArq + '-procEventoNFe.pdf'; AnexosEmail.Add(NomeArq); EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, nil, '', sReplyTo); finally AnexosEmail.Free; end; end;

Resolvi da seguinte forma ....... if ( Items[ i ].schema = schprocNFe ) then begin // Retorno de NFe Arquivo := dtACBr.acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload + '\' + FormatDateTime( 'yyyymm', Items[ i ].resNFe.dhEmi ) + '\Down\' + Items[ i ].resNFe.chNFe + '-nfe.xml'; ........ if ( Items[ i ].schema = schprocEventoNFe ) then begin // Retorno de Evento if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210200' then begin Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Confirmacao\'; end else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210210' then begin Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Ciencia\'; end else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210220' then begin Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\Desconhecimento\'; end else if pcnConversao.TpEventoToStr( Items[ i ].procEvento.tpEvento ) = '210240' then begin Arquivo := dtUsuarios.VConfigFile.Values['banconfe'] + '\NFe\Evento\' + FormatDateTime( 'yyyymm', UnitBiblioteca.DataCorrente ) + '\Evento\NaoRealizada\'; end; Arquivo := Arquivo + StringReplace( dtACBr.acbrnf1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[ i ].procEvento.ID, 'ID', '', [rfReplaceAll] ) + '-procEventoNFe.xml'; .....

Não consigo nem montar a lógica porque os dados retornados não correspondem ao evento

Bom dia pessoal, Não estou conseguindo pegar o caminho do arquivo XML das NFe e eventos retornados na distribuicao. Tenho a seguinte configuração with acbrnf1.Configuracoes.Arquivos do begin Salvar := True; SepararPorMes := True; AdicionarLiteral := True; EmissaoPathNFe := True; SalvarEvento := True; SepararPorCNPJ := False; SepararPorModelo := False; PathSalvar := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe'; PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\NFe'; PathNFe := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\NF'; PathInu := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Inu'; PathEvento := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\Evento'; end; acbrnf1.Configuracoes.Geral.ModeloDF := moNFe; acbrnf1.Configuracoes.Geral.VersaoDF := ve400; acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload := dtUsuarios.VConfigFile.Values['banconfe']+'\NFe\DistribuicaoDFe'; e percebi que os arquivos estão sendo salvos em Quando NFe ...\NFe\DistribuicaoDFe\201805\Down\xxxxxxx.xml Quando evento ...\NFe\Evento\201805\Evento\Ciencia\xxxxxxx-procEventoNFe.xml O caminho do arquivo XML NFe estou usando dessa forma, Arquivo := dtACBr.acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload + '\' + FormatDateTime( 'yyyymm', Items[ i ].resNFe.dhEmi ) + '\Down\' + Items[ i ].resNFe.chNFe + '-nfe.xml'; Mas a do evento não estou conseguindo. Tem algum método de buscar o caminho se ficar criando muita lógica ? Obrigado pela atenção Ricardo

Aqui aconteceu algo estranho, atualizei semana passada e ele está salvando na pasta "C:\XML_NFe\NFe\DistribuicaoDFe\201802\Down". Não teria que ser "C:\XML_NFe\NFe\DistribuicaoDFe\201805\Down" por estarmos no mes 5 ?

Antes, acbrnf1.Configuracoes.Arquivos.Download.PathDownload agora acbrnf1.Configuracoes.Arquivos.DownloadNFe.PathDownload

Consegui resolver. Obrigado.

Boa tarde, como você instalou ? Já tentei de vários modos e estou com o mesmo erro. Estou usando o Delphi 7

Achei um caso bem parecido. http://www.contabeis.com.br/forum/topicos/148995/nf-emitida-pelo-fornecedor-mercadoria-nao-recebida/

Boa pergunta. Não sei dizer o porque.

Boa tarde pessoal, Houve uma devolução de mercadoria da empresa para o fornecedor. O fornecedor gerou uma nota fiscal de entrada e está foi listada na consulta de distribuição. Minha contabilidade mandou manifestar com ciência e mais nada. Está certo esse procedimento ? Não tenho que confirmar ou negar ? Obrigado pessoal.

Bom dia pessoas, Hoje fui fazer uma manifestação e retornou cstat 999 com o retorno, 2284 - Falha ao armazenar Evento de NF-e homologado, nas próximas tentativas está retornando cstat 296 com o retorno, Rejeicao: Certificado Assinatura erro no acesso a LCR. A sefaz de SP está em verde, alguém mais está com problema parecido ? Ainda não estou na versão 4.0, mas pelo que pesquisei só ano que vem vai ser obrigatório. Obrigado pela atenção Ricardo

Bom dia, tenho um relatório feito no rave do tipo mestre detalhe imprimindo sem problemas. Mas agora preciso inserir um sub detalhe mas não funciona nem a pau. Tenho 1 tabela master 2 tabelas filhas Tabela 1 Pedido Codigo_Pedido Tabela 2 Pedido_Itens Codigo_Pedido Codigo_Item Descricao_Item Tabela 3 Requisicao_Itens Codigo_Pedido Codigo_Item Codigo_Requisicao Quantidade Sendo que a tabela dois está amarrada ao Codigo_Pedido da tabela 1 e a tabela 3 está amarrada ao Codigo_Item da tabela 2. O relatório tem que ser: PEDIDO CODIGO – XXXXX ------------------------------------------- CODIGO_ITEM – 1 DESCRICAO_ITEM – XXXX CODIGO_REQUISICAO – XXXX QUANTIDADE – 1 ------------------------------------------- CODIGO_ITEM – 2 DESCRICAO_ITEM – XXXX CODIGO_REQUISICAO – XXXX QUANTIDADE – 11 ------------------------------------------- É possível fazer isso ? Já tenho ele com apenas um databand, Item. Mas quando tento colocar o segundo não funciona, ele sempre sai repetido os dados da tabela 3. PEDIDO CODIGO – XXXXX ------------------------------------------- CODIGO_ITEM – 1 DESCRICAO_ITEM – XXXX CODIGO_REQUISICAO – XXXX QUANTIDADE – 1 ------------------------------------------- CODIGO_ITEM – 2 DESCRICAO_ITEM – XXXX CODIGO_REQUISICAO – XXXX QUANTIDADE – 1 ------------------------------------------- A condição sql da tabela 2 – Where Codigo_Pedido = Pedido.Codigo_Pedido A condição sql da tabela 3 – Where Codigo_Pedido = Pedido_Itens.Codigo_Pedido and Codigo_Item = Pedido_Itens.Codigo_Item Em anexo está o arquivo.rav se alguém puder ajudar agardeço. Qualquer ajuda é bem vinda. Obrigado pela atenção RicRvCompra_Autorizacao.ravardo

O componente está funcionando, o problema é que uma loja usou o meu CNPJ indevidamente. Colocou eu como transportadora e eu não consigo manifestar porque, da erro Rejeicao: O autor do evento diverge do destinatario da NF-e com cStat 575. Obrigado vou fazer isso. Obrigado vou fazer isso.

Boa tarde pessoal, Não tem haver com o ACBR mas talvez alguém já passou por isso e pode me dar uma orientação. Após fazer descarregar as notas pelo método distribuição veio uma nota onde foi usado o CNPJ da nossa empresa como transportadora indevidamente. Tentei manifestar como desconhecido, mas retorna "Rejeicao: O autor do evento diverge do destinatario da NF-e", que é verdade porque o nosso CNPJ está como transportadora. A contabilidade vai registrar o uso indevido do CNPJ no livro de ocorrência e a minha dúvida é se isso basta já que toda vez que consulta as notas pelo distribuição ela aparace novamente. Obrigado pela atenção Ricardo

Também tenho essa dúvida.

Eu sempre que manifesta uma nota salvo em uma tabela, um controle interno, para saber se já manifestei ou não. Se não me engano não tem como checar pelos dados que vem na distribuição se a nota já foi manifestada ou não. No método de consulta das notas destinadas tinha um campo que informava, mas na distribuição não tem.

Não sei Cristiano Antunes, vamos aguardar.

Agora pouco consegui, mas depois começou o erro novamente. Parece que o problema é intermitente.