Claudio Stein Junior

Muito bom, consegui da mesma forma. Espero que ajude outros.

[RESOLVIDO] Segue abaixo resolução do problema procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject); var Para : String; CC : Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; try // CC.Add('[email protected]'); //outros e-mails //CC.Add('[email protected]'); ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; ACBrMail1.SetTLS := cbEmailSSL.Checked; ACBrMail1.ReadingConfirmation := False; ACBrMail1.UseThread := False; ACBrMail1.FromName := 'Inova Softwares'; ACBrMail1.AddAttachment(OpenDialog1.FileName);//acrescentei essa linha ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , true // Enviar PDF junto , CC // Lista com emails que serao enviado copias - TStrings , nil); // Lista de anexos - TStrings finally CC.Free; end; end; end; Em seguida selecionei o componente da DANFE e coloquei o caminho dos PDFs como segue. C:\NFE\pdfs\ Att e obrigado.

Sim eu vi está vinculado. Caso contrário ele diz para vincular. Segue propriedades. Será o problema aquele nil no código dos anexos? Obrigado. Ainda não deu certo.

Juliomar eu busco o arquivo normalmemente, mas não anexa. Segue o código: procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject); var Para : String; CC, AA: Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; try // CC.Add('[email protected]'); //outros e-mails //CC.Add('[email protected]'); AA.ADD(OpenDialog1.FileName); ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - ConexÃo Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := 'Inova Softwares'; ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , True // Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings finally CC.Free; end; end; end; Não mudei nada praticamente. Não sei o que está acontecendo.

Pessoal no meu projeto e utilizando a demo da nf-e no trunck2 não consigo enviar o anexo do xml. Apresenta o erro da imagem em anexo. O que pode ser? Obrigado

Olá estou com o mesmo problema. Conseguiu resolver? Att Claudio

Olá estou mudando meu CTE para o trunk2 mas me deparei com o erro: stCTeIdle não declarado. Será que está faltando algum uses? Mais uma coisa no exemplo demo que baixei está o report do quick. É isso mesmo? Obrigado Consegui. Declarei pcteConversaoCTe na Uses. Obrigado

Valeu! Deu certo!

Desculpe a falha. Mas uso o Cte também é achei que a data fosse para os 2. Italo será que essas tags novas podem ser implantadas no trunk1 também. Estou mudando para o trunk2 aos poucos mas anda não terminei. Ajudaria muitas pessoas. obrigado Att Claudio

Pessoal estou com um erro no método abaixo no trunk2: procedure TFrmNFE.ACBrNFe1StatusChange(Sender: TObject); begin case ACBrNFe1.Status of stIdle : begin if ( frmStatus <> nil ) then frmStatus.Hide; end; stNFeStatusServico : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Verificando Status do servico...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeRecepcao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando dados da NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeRetRecepcao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Recebendo dados da NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeConsulta : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeCancelamento : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando cancelamento de NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeInutilizacao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando pedido de Inutilização...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeRecibo : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando Recibo de Lote...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeCadastro : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando Cadastro...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeEmail : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Email...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeCCe : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Carta de Correção...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeEvento : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Evento...'; frmStatus.Show; frmStatus.BringToFront; end; end; Application.ProcessMessages; end; Diz que stIdle não foi declarado. No demo roda mas no meu exemplo de NF-e não roda. Não consigo achar a declaração do mesmo. Quem puder ajudar agradeço.

Deu certo obrigado. Instalei uma versão errada do Fortes e manualmente. Após baixar a certa instalei pelo aplicativo e funcionou. Obrigado

Pessoal olá, estou tentando instalar o ACBR Trunk 2 e estou com erro no pacote abaixo: C:\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLClass.pas(48) Fatal: File not found: 'frce.dcp' Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Enviei o arquivo de log Obrigado Claudio Stein Junior log_Delphi_7.txt

Parece que o prazo mudou para 01/04/2016? Isso procede?

Valeu é isso mesmo. Funcionou gerar chaves com o certificado antigo já vencido também. Obrigado

Ola. Troquei o certificado digital de minha software house que venceu. Agora não consigo mais ativar nenhum SAT fiscal com a assinatura de 344 dígitos. Diz que a assinatura e invalida (fora do padrão). Como devo proceder? Obrigado Att Claudio Stein Junior

Mudou a configuração do gmail. Antes passava o nome do usuário apenas: inovasoftwares Agora é necessário o nome completo: [email protected] Está dando certo aqui

Valeu postei o codigo que deu certo acima.

oK valeu se der certo reporto aqui.

Olá a impressora Elgin não está imprimindo o total do cupom fiscal. Na impressão visualizo, mas não imprime e corta um pouco, O que pode ser? Obrigado

Consegui com o código abaixo: /====Dados SAT========================================================== if Length(DmTabelas.CdsVendasCPFVAREJO.AsString) = 11 then begin Dest.CNPJCPF := DmTabelas.CdsVendasCPFVAREJO.AsString; end else if (DmTabelas.CdsVendasTIPO_1.AsString = 'F') and (Length(DmTabelas.CdsVendasCPF.AsString) = 11) then begin Dest.CNPJCPF := DmTabelas.CdsVendasCPF.AsString; end else if (DmTabelas.CdsVendasTIPO_1.AsString = 'J') and (Length(DmTabelas.CdsVendasCNPJ.AsString) = 14) then begin Dest.CNPJCPF := DmTabelas.CdsVendasCNPJ.AsString; end else begin Dest.CNPJCPF := ''; end; if (Length(DmTabelas.CdsVendasENDERECO.AsString) > 1) then begin Dest.xNome := Copy(DmTabelas.CdsVendasNOME.AsString,1,60); Entrega.xLgr := DmTabelas.CdsVendasENDERECO.AsString; Entrega.nro := DmTabelas.CdsVendasNUMERO.AsString; Entrega.xCpl := DmTabelas.CdsVendasCOMPLEMENTO.AsString; Entrega.xBairro := DmTabelas.CdsVendasBAIRRO.AsString; Entrega.xMun := DmTabelas.CdsVendasCIDADE.AsString; Entrega.UF := DmTabelas.CdsVendasUF.AsString; end; Obrigado.

Olá, como faço um XML sem identificar o CPF do consumidor. Não estou conseguindo. Segue me código mas não dá certo. Dest.CNPJCPF:= ''; Dest.xNome := '';

Estou com o mesmo programa. Alguém conseguiu fazer funcionar com o from? Na interface gráfica não uso o from. Será que vou ter que fazer via código? Qual o código que devo utilizar? ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(edtSmtpHost.Text, edtSmtpPort.Text, edtSmtpUser.Text, edtSmtpPass.Text, edtSmtpUser.Text, Para, edtEmailAssunto.Text, mmEmailMsg.Lines, cbEmailSSL.Checked);

Valeu isso mesmo. Obrigado

Olá, estou realizando testes com o SAT. Coloco nas configurações o regime simples nacional. Mas quando gero o XML ele aparece com o valor 3 (regime normal). O que pode estar acontecendo. Está validando normal no regime normal. Minha dúvida também é relacionada ao cRegTrib já vir pronto das configurações do SAT. Isso acontece? CFe35151011111111111111591234567890000217456804.xml

Estou com o mesmo problema com o Ginfes de Votuporanga. e302 assinatura invalida informar assinatura correta Estava funcionando até poucos dias atrás. Uso certificado A3. Mais alguém?