Mayworm

João/Valdir, Corrigi minha DANFE colocando agora sempre os Dados Adicionais na primeira página. Caso tenham interesse em utilizar/avaliar a mesma encontra-se no mesmo link disponibilizado acima. http://www.focusrj.com.br/Testes/DANFE.rar Att. []s

Obrigado João... Vou alterar aqui pra ontem! []s

Por nada amigo. Se quiserem está disponível aí e se quiserem algum detalhe sobre o mesmo estou à disposição. Att.

Bom dia, o meu está setado como False. Att.

Baixe esse arquivo e teste com ele por favor: http://www.focusrj.com.br/Testes/DANFE.rar Esse é o que eu utilizo aqui. Att.

Está com seus fontes atualizados? Tente utilizar o DANFeRetratoNovo.fr3 que está na pasta ACBr\Exemplos\ACBrNFe2\Delphi\Report. Caso não esteja atualizado tente atualizar e gerar o mesmo acredito que irá funcionar, mas gere o Danfe por este arquivo. Caso não funcione comenta aqui e coloque seu Danfe para visualizarmos (tanto pdf quanto fr3). Att.

Bom dia Valdir, o correto seria somente na última página para não haver redundância de informações. Qual o gerador de relatórios que você utiliza (Fast, Forte,...) ? Att.

Bom dia amigos, Jakson, em relação ao status, hoje a nfe cancelada após ser atualizado seu xml fica com <cStat>101</cStat> diferentemente da nfe autorizada que tem <cStat>100</cStat>. Numa varredura tag a tag de um xml você irá distinguir dessa forma a cancelada da não cancelada. Para impressão o próprio componente de relatório (dependendo do utilizado - utilizo o Fast Report) já distingue e aplica a marca d'água de cancelamento. Interessante seria fazer também como o Italo informou, no BD um campo de identificação de nota cancelada ou não. Att.

Amigo tente atualizar seu componente e emitir com a versão 3.10... O meu está tudo sendo convertido e passando normalmente. A palavra 'ISENTO' não vai mais presente no escopo do xml quando o mesmo ocorre, vai com a seguinte tag: <indIEDest>2</indIEDest> Acho que atualizando e emitindo na versão mais atual vai corrigir seu problema. Att.

Reparei que estava pegando os dois primeiros dígitos do ano para 'montar' a ID havia até alterado para no momento de passar o ano pegar através do copy(xxx,3,2) - dois últimos dígitos... mas na atualização de ontem vi que foi corrigido e voltou como era antes... Obrigado Juliomar!

Pessoal, consegui sanar o erro!!! Estava na linha: for I := 0 to mmoEmailDestinatarios.Lines.Count-1 do que antes estava: for I := 0 to mmoEmailDestinatarios.Lines.Count do Obrigado a todos!

Estou utilizando a Versão: 0.4.0a do ACBR. O código do botão enviar é o que segue: procedure btnEnviarEmailClick(Sender: TObject); var Para: string; CC: Tstrings; I: integer; begin OpenDialog1.Title := 'Selecione a NFE que deseja enviar por email'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathNFe; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.NotasFiscais.ImprimirPDF; CC:=TstringList.Create; for I := 0 to mmoEmailRemetentes.Lines.Count do begin CC.Add(mmoEmailRemetentes.Lines[I]); end; if not(InputQuery('Enviar Email', 'Email de Destino', Para)) then exit; try ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text, edtSmtpPort.Text, edtSmtpUser.Text, edtSmtpPass.Text, Para, edtSmtpUser.Text, edtEmailAssunto.Text, mmEmailMsg.lines, cbEmailSSL.Checked, cbEmailPDFAnexo.Checked, CC, nil, false, cbEmailAguardaEnvio.Checked, '', cbEmailSSL.Checked); ShowMessage('Email enviado com sucesso!'); except on E: Exception do begin raise Exception.Create('Erro ao enviar email'+sLineBreak+E.Message); end; end; end; CC.Free; end; mmoEmailRemetentes é um memo onde pretendo colocar uma listagem de emails a serem utilizados para CC. Obrigado!

Alguém sabe me indicar o que pode estar acontecendo, o erro ainda persiste. Obrigado

Opa, eu só tinha verificado com um email na CC e foi, mas acabo de testar com 2 emails diferentes e válidos e não passou, ocasionando o seguinte erro: SMTP ERROR: MailTo:Permanent Failure-Syntax error 555 5.5.2 Syntax error. b28sm6017769anb.48 .

Obrigado amigo anfm, dessa vez passou! for I := 0 to mmoEmailRemetentes.Lines.Count do CC.Add(mmoEmailRemetentes.Lines[I]);

Estou usando a versão 0.4.0a. já tentei separando por ';' ponto e vírgula, e até por vírgula e tb espaço em branco: CC:=TstringList.Create; for I := 0 to mmoEmailRemetentes.Lines.Count do begin if I = 0 then CC.Add(mmoEmailRemetentes.Lines[I]) else CC.Add(';' + mmoEmailRemetentes.Lines[I]); end; Não vai assim!

Galera, é o seguinte, para uma só conta de email, um destinatário, consigo enviar legal(se deixo o parâmetro sCC como nil), mas no momento que adiciono o CC, dá erro e não envia. É o seguinte, coloquei um memo para capturar os emails que desejamos enviar os xml/pdfs - no caso do email do contador/entre outros...todos de existência comprovada. A parte do código que trata esta parte está assim: CC:=TstringList.Create; for I := 0 to mmoEmailRemetentes.Lines.Count do begin if I = 0 then CC.Add(mmoEmailRemetentes.Lines[I]) else CC.Add(';' + mmoEmailRemetentes.Lines[I]); end; if not(InputQuery('Enviar Email', 'Email de Destino', Para)) then exit; try ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text, edtSmtpPort.Text, edtSmtpUser.Text, edtSmtpPass.Text, Para, edtSmtpUser.Text, edtEmailAssunto.Text, mmEmailMsg.lines, cbEmailSSL.Checked, cbEmailPDFAnexo.Checked, CC, nil, cbEmailConfirmaLeit.Checked, cbEmailAguardaEnvio.Checked, '', cbEmailSSL.Checked); Na parte do CC.Add... já tentei usar como separador a vírgula, o espaço, o ponto e vírgula, já até tentei adicionar mais de um destinatário na variável PARA, separados tb por vírgula ou ponto e vírgula e de nada adianda, neste caso até envia, mas somente ao primeiro destinatário. Quando preencho o MemoEmailRemetentes preencho assim: [email protected] [email protected] e ao clicar em enviar email me vem o seguinte erro: SMTP ERROR: MailTo:Permanent Failure-Bad destination system address 553-5.1.2 We weren't able to find the recipient domain. Please check for any 553-5.1.2 spelling errors, and make sure you didn't enter any spaces, periods, 553 5.1.2 or other punctuation after the recipient's email address. q29sm2500926yba.2 Lembrando que quando coloco o nil no lugar de CC vai tranquilamente! Obrigado a quem puder ajudar!