FocusRJ

Cara, esse erro não está dando devido ao certificado digital do seu cliente? Se for token solicite que ele mude de porta usb, ou reinstale o certificado.

André, só uma coisinha, teria como você repassar essa alteração se possível ao desenvolvedor responsável pelo ACBRNFe? Acredito que seria de grande valia para os usuários. Obrigado, Rômulo Mayworm

Certinho André, obrigado mais uma vez! Att. Rômulo Mayworm

Utilizo o DANFE em fastReport e uma coisa que havia notado é que quando eu cancelava uma nota não aparecia aquela tarja NF-e CANCELADA. Então fiz as devidas alterações, caso alguém queira estou disponibilizando aqui, seria uma boa o pessoal do acbr ajustar lá também se possível! Na unit ACBrNFeDANFEFRDM,... |*20/05/2011: Rômulo Mayworm |* -Alterado o Carrega Parametros, o parâmetro mensagem0 estava mesmo para uma |* nota não cancelada recebendo a mensagem "Nota Cancelada". Para a tarja |* aparecer no DANFE dentro do código do mesmo (fr3) foi alterado: |* |* procedure Overlay1OnBeforePrint(Sender: TfrxComponent); |* begin |* if <> '' then |* begin |* Overlay1.Visible := True; |* Overlay1.Height := Engine.PageHeight; |* memWatermark.Text := ; |* memWatermark.Width := Overlay1.Width; |* memWatermark.Height := Engine.PageHeight; |* memWatermark.Font.Size := 50; |* if <> 'NFe Cancelada' then |* memWatermark.font.color := $00D7D7D7 |* else |* memWatermark.font.color := $009797FF; |* end |* else |* Overlay.Visible := False; |* end; |* ******************************************************************************} Vamos ao código, lá no procedimento CARREGAPARAMETROS, quando testa o tipo do ambiente de emissão: if (FNFe.Ide.TpAmb = taHomologacao) then FieldByName('Mensagem0').AsString := 'NFe sem Valor Fiscal - HOMOLOGAÇÃO' else begin if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA]) then begin if ((NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and (NotaUtil.EstaVazio(FNFe.procNFe.nProt))) then FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ' else // Alterado por Rômulo Mayworm, sem a necessidade do teste 'Not' if (FNFe.procNFe.cStat = 101) then FieldByName('Mensagem0').AsString := 'NFe Cancelada' 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 else FieldByName('Mensagem0').AsString := ''; end; Lembrando quem tem que alterar também o procedure Overlay1OnBeforePrint da danfe, do DANFE.fr3, a alteração está no comentário acima, dessa forma, se a NFe for cancelada vai aparecer a tarja em vermelho! Bom pessoal é isso, espero que ajude aos amigos! Abraços, Rômulo Mayworm

Pessoal, me deparei com um outro erro agora, coloquei pra gerar várias notas, até aí tudo indo certinho, porém após enviar de uma em uma eu coloco para salvar num clientdataset o retorno da WebService (Recibo,Protocolo e Chave) da seguinte forma: procedure TfrmNFe.SalvaRetorno(CdNFe: integer); begin with DMDadosNota.cdsRetorno do begin Active := True; Append; FieldByName('CdNFe').AsInteger := CdNFe; FieldByName('RECIBO').AsString := ACBrNFe1.WebServices.Recibo.Recibo; FieldByName('PROTOCOLO').AsString := ACBrNFe1.WebServices.Retorno.Protocolo; FieldByName('CHAVE').AsString := ACBrNFe1.WebServices.Retorno.ChaveNFe; Post; end; end; e esta é chamada em: ACBrNFe1.Enviar(I); SalvaRetorno(CDNFE); Salvei até em xml para verificar, meus testes estão sendo sempre com 5 notas, as notas são transmitidas e enviadas por email normalmente, mas o xml do retorno, o campo CdNFe vai tudo certinho do 1 ao 5, o protocolo só me retorna para o primeiro, nada para os demais e a chave é a mesma da primeira nota em todos. Acredito que talvez aja um índice para este retorno mas no momento não estou entendendo como definir. Agradeço a quem puder ajudar!

Funcionou dessa forma! no mesmo procedimento que descrevi acima, no enviaremail, coloquei da seguinte forma: if (EnviaPDF) then begin if TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE <> nil then begin if not FileExists(PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+(StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]))+'.pdf') then TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe); NomeArq := StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]); NomeArq := PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+NomeArq+'.pdf'; m.AddPartBinaryFromFile(NomeArq, p); end; end; E agora os erros acabaram! Obrigado amigo!

Boa tarde pessoal, bem coloquei meu sistema para enviar múltiplas notas e após o envio das notas realizar o envio do email - xml e pdf (se requisitado). No envio coloquei pra salvar o pdf da Danfe numa pasta específica, como exemplo vamos tomar C:\DANFE_PDF\ ... A NFe está sendo transmitida à SEFAZ perfeitamente, os pdfs estão sendo armazenados perfeitamente tb. Porém no momento de enviar por email ao cliente e à uma conta de backup ocorre o seguinte erro, geralmente em um lote de 5 notas ocorre pelo menos em 1 nota: "OCORRERAM OS SEGUINTES ERROS: CANNOT CREATE FILE "C:\DANFE_PDF\22000810174444000120550010000053551000999992.pdf". O ARQUIVO JÁ ESTÁ SENDO USADO POR OUTRO PROCESSO." O erro está dentro do procedure NotaFiscal.EnviarEmail(const sSmtpHost,sSmtpPort,sSmtpUser,sSmtpPasswd,sFrom,sTo,sAssunto: String;sMensagem : TStrings;SSL : Boolean;EnviaPDF: Boolean = true;sCC: TStrings=nil;Anexos:TStrings=nil;PedeConfirma: Boolean = False;AguardarEnvio: Boolean = False;NomeRemetente: String = '';TLS : Boolean = True); na linha: TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe); Coloquei ela até dentro de um try e mesmo assim aparece a mensagem de erro, porém mesmo com essa mensagem de erro as notas são enviadas por email, esse é o mais estranho! Já tive casos da mensagem aparecer para a primeira nota, às vezes para segunda e assim por diante, às vezes mais de uma vez para mais de uma nota e às vezes somente para uma de cinco, sendo que como estou em homologação grande parte dos dados das notas são os mesmos mudando só a numeração da NFe. Att. Rômulo Mayworm Focus Automação - RJ

Bom dia, estou utilizando o DANFE em FastReport da NFe2.0, e encontrei algumas inconsistências, gostaria de um contato com os responsáveis pelo desenvolvimento do mesmo para que possamos trocar uma idéia e realizar as alterações se necessário. Caso alguém tenha contato do Itamar Luiz Bermond e o Régys Silveira agradeceria. Att. Rômulo Mayworm