Ricardo Longo

anfm era isso mesmo. Na verdade o erro estava na dDI do item 2 e como me retornava o erro em todos os itens fiquei atento só aos dados do item 1 que estava tudo correto. Motivo do erro, valor dDI no item 2 estava com 1907-02-26. Valeu pela ajuda.

Boa tarde pessoal, Não estou conseguindo assinar uma nota fiscal de entrada de importação depois de uma atualização. Sempre me retorna esse erro: Erro !!! Falha na validação dos dados da nota xxxx TAG:<det nItem=”1”<prod><DI> ID:119/nDI(Numero do Documento de Importação DI/DSI/DA)-Conteúdo inválido. Já atualizei os esquemas e mesmo assim o xml não passa pelo comando dtACBr.acbrnf1.NotasFiscais.Valida; Segue um trecho do xml Obrigado pela atenção pessoal.

Se eu desabilito a opção Enviar Pdf vai normal.

Bom dia pessoal, Depois que atualizei e instalei a nova versão não consigo mais enviar qualquer evento via email, sempre me retorno o erro "erro !!! Imprimir pdf acbr" Estou usando o Delphi 7, já desinstalei o acbr e instalei novamente, usei o bloco de comando que veio no exemplo e nada. Estou usando estes comandos var Arquivo: string; Para : String; Mensagem: Tstrings; CC: Tstrings; Anexo: Tstrings; begin ..... try Para := frmUsuarioDados.dbedtDado.Field.AsString; Mensagem := TStringList.Create; Mensagem.Add( FormatDateTime( 'dd/mm/yyyy hh:mm:ss', UnitBiblioteca.DataHoraCorrente ) ); Mensagem.Add( 'CCe - Longo Indústria e Comércio de Máquinas Texteis Ltda.' ); Mensagem.Add( 'Sequencia Carta Corr. : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'N_NotaFiscal_Evento' ).AsString ); Mensagem.Add( 'Enviado para o e-mail : ' + Para ); Mensagem.Add( '' ); Mensagem.Add( 'Ambiente : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'tpAmb' ).AsString ); Mensagem.Add( 'Situação : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'cStat' ).AsString + ' - ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'xMotivo' ).AsString ); Mensagem.Add( 'Chave : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'chNFe' ).AsString ); dtACBr.acbrnf1.EventoNFe.Evento.Clear; dtACBr.acbrnf1.EventoNFe.LerXML( Arquivo ); CC := TStringList.Create; CC.Add ( Para ); CC.Add ( '[email protected]' ); Anexo := TStringList.Create; Anexo.Clear; Anexo.Add( Arquivo ); Anexo.Add( StringReplace( Arquivo, '.xml', '.pdf', [] ) ); dtACBr.acbrnf1.EnviarEmailEvento( 'smtp.xxx.com' // O erro ocorre aqui !!! , '587' , '[email protected]' , 'notasxxxx' , '[email protected]' , Para , 'CCe - ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'N_NotaFiscal_Evento' ).AsString , Mensagem , False // SSL - Conexão Segura , True // Enviar Pdf , CC // Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , False // Pede confirmação de leitura do email , False // Aguarda Envio do Email(não usa thread) , 'Longo Maquinas' // Nome do Rementente , False // Auto TLS ); .... Obrigado pela atenção pessoal.

Bom dia pessoal, A contabilidade da empresa foi até a sefaz de Guarulhos e foi orientado a continuar de onde tinha parado e fazer um “Termo de ocorrência” no livro modelo 6, através do contador responsável. Valeu pela atenção de todos.

Só pode de 1.000 em 1.000 por vez. É oque fiquei sabendo. Seguindo essa regra vou ter inutilizar 1.000 vezes para conseguir inutilizar 1.000.000 de notas no dia.

Vou esperar resposta da sefaz até amanhã se não vir vou liberar a continuação a partir do número 2.409. Para inutilizar as 10.142.159 notas vou ter que inutilizar 1.000.000 de notas por dia para não estourar o prazo dos 10 dias subsequentes. Acho que vai sujar mais que já esta inutilizar tudo isso de nota.

Bom dia pessoal, Ontem aconteceu um desastre aqui. Fiz uma atualização no banco de dados para colocar todas as notas fiscais, emitidas e recebidas em uma única tabela e comi bola. Na hora de gerar uma nova nota fiscal para remessa pulou de 2.408 para 10.144.567. Ela foi cancelada, mas a pergunta é se posso inutilizar as 10.142.159 notas e se devo fazer isso. Meu contador está dizendo para continuar da 2.409, mas estou em dúvida. Valeu pessoal.

Rômulo, até agora só recebi notas com dhRecbto entre 10/07/2013 e 18/07/2013. Tinha acabado de fazer um consulta ontem e a maioria só vei hoje depois que configurei para receber somente as que ainda não tinham sido manifestadas.

Fiz alguns teste, e quando selecionei para trazer só as notas sem manifestação veio muito mais notas do que quando selecionei para trazer todas as notas. Vai entender. Isso no modo produção. Outra dúvida é qual a melhor forma de saber se quais as notas que eu emite não foram manifestadas ? Abraços pessoal.

Boa tarde Italo, Não sei se o rumo que tomei é o mais indicado, estou salvando as nfe's retornadas através da consulta de destinatário em um tabela onde o usuário vai selecionar algumas ou todas e manifesta-las. Fiz um teste e retornou o stat como 135, então para confirmar pensei em fazer um nova busca através da consulta de destinatário.

Depois de executar a manifestação tem como consultar a nota através da chave para verificar se a mesma foi manifestada de acordo ou só fazendo uma nova busca com ConsultaNFeDest ?

Aparentemente resolveu o problema tirando a linha with dtACBr.acbrnf1.WebServices.ConsNFeDest.retConsNFeDest do Amanhã vou testar novamente, hoje já fiquei de cabelo em pé.... abraços

Está dificil descobrir, adicionei uma simples condição antes do for e o erro já ocorre na condição. Pior que se eu fico persistindo em executar esse bloco o erro some. dtACBr.acbrnf1.ConsultaNFeDest( CNPJ, StrToIndicadorNFe( ok, indNFe ), StrToIndicadorEmissor( ok, IndEmi ), '0' ); if ( dtACBr.acbrnf1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count = 0 ) then begin UnitBiblioteca.Mensagem(' Contador não é um valor válido', mtError,[mbOK],0); Exit; end; for i := 0 to ret.Count - 1 do begin

Valeu pela explicação Mark. Agora estou apanhando no for i := 0 to ret.Count - 1 do, na primeira consulta não gera erro mas nas próximas gera um erro de Access violation at address 00423A30 in module 'Teste.exe'. Read of address 00000008. Não sei mais o que fazer. Alguém já passou por isso... pode dar uma luz. while ( vezes < 10 ) do begin dtACBr.acbrnf1.ConsultaNFeDest( CNPJ, StrToIndicadorNFe(ok,indNFe),StrToIndicadorEmissor(ok,IndEmi), IntToStr( ultimoNSU ) ); for i := 0 to ret.Count - 1 do begin

Já descobri, Valeu infEvento.detEvento.xJust

Bom dia pessoal, Não estou achando no componente aonde colocar a justificativa para a Manifestação de Operação não Realizada no componente. with dtACBr.acbrnf1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := '62479159000198'; infEvento.dhEvento := now; infEvento.cOrgao := 91; //StrToInt( Copy( infEvento.chNFe, 1, 2 ) ); // Pega o estado infEvento.tpEvento := teManifDestOperNaoRealizada; infEvento.xJust ?? Obrigado pela atenção

Bom dia pessoal. Estou com uma dúvida, o ultNSU devo salvar para em nova pesquisa usa-lo, ou inicio a pesquisa com o ultNSU igual a 0 e nas repetições utilizo o valor retornado da consulta ?

O nome do arquivo esta seguindo está ordem, chNFe + tipoEvento + '1-ProcEventoNFe.xml'.

Estou com o mesmo problema. Interessante é que os arquivos da carta de correção geradas através de eventos obedecem o caminho especificado em .Configuracoes.Arquivos.PathCCe, mas os cancelamentos feitos através de eventos não obedecem o caminho especificado em .Configuracoes.Arquivos.PathCan. Ainda não achei ainda a solução, vou dar mais uma vasculhada.....

Eu pego o código do estado desta forma InfEvento.cOrgao := StrToInt( Copy( InfEvento.chNFe, 1, 2 ) ); // Pega o estado Se não me engano peguei do demo de alguma versão anterior.

Pelo que sei futuramente a sefaz só vai aceitar cancelamento e carta de correção através do método eventos. Por isso o componente está ganhando novas funções e o método antigo esta sendo deixado de lado.

Eu atualizei o ACBr e tive que atualizar a forma de envio da carta de correção para eventos. Funcionou beleza. "Como no demo". Agora estou aproveitando e mudando a forma de cancelamento para eventos. Porem surgiram algumas duvidas, aonde eu busca essas informações que antes tinha no cancelamento ? .WebServices.Cancelamento.cUF; .WebServices.Cancelamento.Justificativa; .WebServices.Cancelamento.Protocolo; .WebServices.Cancelamento.dhRecbto; .WebServices.Cancelamento.NFeChave; Obrigado pela atenção pessoal, e parabéns pelo componente.

Dizem que há empresas que já foram multadas por cancelar notas fora do prazo.

Luciano, eu acabei usando uma função que tirei do acbrmonitor para enviar email que esta na unit DoACBrNFeUnit. EnviarEmail(const sSmtpHost, sSmtpPort, sSmtpUser, sSmtpPasswd, sFrom, sTo, sAssunto, sAttachment, sAttachment2: String; sMensagem : TStrings; SSL : Boolean; sCopias: String='');