VagnerCiec

Olá galera. Pesquisei no fórum e vi vários problemas parecidos mas nenhum me ajudou a resolver, então tive que criar um novo topico A dois dias Pesquiso e tento fazer o download do XML emitido para o meu CNPJ através do ACBrNFe.DistribuicaoDFe da Paleta ACBr, porém não consigo realizar o Download do XML da NFe. Consigo que o Software me retorne as NFe destinada para o meu CNPJ Consigo Manifestar as NFe destinada para o meu CNPJ Porém não consigo realizar o Download do XML da NFe destinada para o meu CNPJ Estou fazendo da Seguinte Forma Primeiro alimento o componente conforme tem que ser feito ACBrNFe.Configuracoes.Certificados.NumeroSerie := SERIECERTIFICADO; ACBrNFe.Configuracoes.Certificados.Senha := SENHACERTIFICADO; ACBrNFe.Configuracoes.Arquivos.DownloadNFe.PathDownload := SALVARXML; ACBrNFe.Configuracoes.Arquivos.PathSchemas := SCHEMAS; Faço o manifesto! begin with CNFE.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; InfEvento.ChNFE := ChNFE; InfEvento.CNPJ := QryEmpresa.FieldByName('CNPJ_EMPRESA').AsString; InfEvento.dhEvento := Now; InfEvento.tpEvento := teManifDestConfirmacao; end; end; begin CNFE.EnviarEvento(1); end; Depois de manifestada Eu tento realizar o Download do XML usando a o seguinte comando! //15 e do PARA que e meu estado, meu CNPJ, uma chave de NFe destinada para meu CNPJ CNFE.DistribuicaoDFePorChaveNFe(15, '26.936.355/0001-80', '15170703592264000170550010003468861000137351'); Então aparece o seguinte erro Parece que e falha na montagem do XML porem a função CNFE.DistribuicaoDFePorChaveNFe pede apenas 3 campos e eu as preencho! //Dentro do Componente ACBrNFe function TACBrNFe.DistribuicaoDFePorChaveNFe(AcUFAutor: integer; ACNPJCPF, AchNFe: String): Boolean; begin Result := Distribuicao(AcUFAutor, ACNPJCPF, '', '', AchNFe); end; Não sei o que pode ser! Alguém me ajude a localizar o erro ou se tiver um Código funcional para download e puder me ajudar! OBSERVAÇÃO! Usando o METODO CNFE.DistribuicaoDFe(15, '26.936.355/0001-80', '15170203592264000170550010003244851000137358'); E Feito o download de um arquivo de 1kb que está em anexo! 15170203592264000170550010003244851000137358-resNFe.xml Porém não e o XML Completo e basicamente uma consulta, quero que venha o XML com os itens e tudo, pronto para meu software da entrada da mesmo 15170203592264000170550010003244851000137358-resNFe.xml

.

Obrigado Daniel. Agora consigo remover facilmente um objeto da lista! Vou colocar aqui os códigos para facilitar para os próximos que tiverem duvidas! Para listar os arquivos anexados var i: integer; begin For i := 0 to ACBrMail1.Attachments.Count - 1 do begin //O IntToStr(i) , coloca o numero do anexo dentro do ObjectList antes do nome Memo1.Lines.Add(IntToStr(i) + ' - ' +ACBrMail1.Attachments.Description); end; Para Remover um item anexado var item: integer; begin //A variavel item e o numero do anexo dentro do objectlist item:= 0; //A Função Extract remove e já reordena ACBrMail1.Attachments.Extract(ACBrMail1.Attachments.Items[item]); end; Para apagar todos os anexos de uma vez só Begin ACBrMail1.ClearAttachments; end;

Bom dia, Atualizei o ACBr logo pela manhã e o projeto que contém o ACBrmail não compilou logo na parte em que listava os anexos. Código que não está compilando var i:integer; begin For i := 0 to Length(frmprincipalenviaemail.ACbrEmailCli.Attachments) do begin Memoanexos.Lines.Add(frmprincipalenviaemail.ACbrEmailCli.Attachments .Description); end; Quando fiz o update não vi atualização do componente acbrmail!

Obrigado! Vou tentar vê o que eu faço, pois alguns clientes precisam. Mas você que e o pai da criança, consegue fazer "milagre" rsrsrs, e mudar esse array. Também ficarei no aguardo da sua mudança.

Desculpe Daniel. Realmente refiz igual você fez, literalmente ctrl-c, ctrl-v, porém agora resolveu, consegui ver o que já está anexado adicionando a um memo de referencia a arquivos anexados. Agora a outra questão! Sei que " ACbrmail.ClearAttachments " limpa todos os anexos contidos no componente, agora preciso deletar um anexo especifo, EX; XML-15171115359830000187550010000000051000000053 PDF-15171115359830000187550010000000051000000053 NFE_5.rar Existem esses três anexos que o " Memo1.Lines.Add(ACbrEmailCli.Attachments.NameRef " me retorna, assim como você explicou. E eu quero remover apenas o NFE_5.rar por exemplo.

Opá Daniel, obrigado pela resposta! Não Consegui aplicar no meu projeto. [dcc32 Error] UntPrincipal.pas(489): E2003 Undeclared identifier: 'AttachmentName' Da esse erro!

Olá. Estou com uma dúvida refente os anexos do acbrmail e já pesquisei no fórum por todas as partes e não encontrei uma solução. Uso normalmente o ACbrEmailCli.AddAttachment e funciona, anexo tudo que preciso. Porém agora estou com a necessidade de ver tudo que foi anexado antes de enviar e até mesmo retirar o anexo que está ali, porém não consegui fazer e nem vi se tem no fórum algo parecido. Como faço pra ver os anexos que já foram inseridos? Como faço pra remover um anexo já inserido?

Obrigado, resolvi usando o winexec, ele fiz da mesma forma!

Galera mil desculpas! Não tinha enviado email atraves do demo, somente tinha olhado os pas e feito no meu, resolvi enviar um email porque o daniel perguntou se eu ja tinha olhado o demo e ja tinha olhado porem nao tinha visto a progressbar. no envento onprocess do acbrmail ja tem o codigo pronto PgbEmail.Position := Integer(aStatus); case aStatus of pmsStartProcess: memlogemail.Lines.Add('Iniciando processo de envio.'); pmsConfigHeaders: memlogemail.Lines.Add('Configurando o cabeçalho do e-mail.'); pmsLoginSMTP: memlogemail.Lines.Add('Logando no servidor de e-mail.'); pmsStartSends: memlogemail.Lines.Add('Iniciando os envios.'); pmsSendTo: memlogemail.Lines.Add('Processando lista de destinatários.'); pmsSendCC: memlogemail.Lines.Add('Processando lista CC.'); pmsSendBCC: memlogemail.Lines.Add('Processando lista BCC.'); pmsSendReplyTo: memlogemail.Lines.Add('Processando lista ReplyTo.'); pmsSendData: memlogemail.Lines.Add('Enviando dados.'); pmsLogoutSMTP: memlogemail.Lines.Add('Fazendo Logout no servidor de e-mail.'); pmsDone: begin memlogemail.Lines.Add('Terminando e limpando.'); PgbEmail.Position := PgbEmail.Max; end; end; memlogemail.Lines.Add(' ' + AMail.Subject); Application.ProcessMessages; Desculpa ai galera!

Sim! já olhei é mesmo depois da aplicação pronta já dei varias olhadas na demo e não tem nada, se tiver passou despercebido, quero algo que mostre o processo de anexo, por isso pensei na progressbar. Moro no estado do para, a internet aqui você contrata 1MB no máximo 10MB e você recebe no minimo 20% do contratado e sempre está no mínimo se tem 10MB recebe 2MB e assim por diante! Então como viu qualquer coisa que eu for anexar ira demorar mesmo que seja 100 kb demora 10 segundos ou mais Então se puder me ajudar irei agradecer.

Tenho uma aplicação simples que envia o email de um determinado arquivo. Está anexando e está enviando tudo normalmente sem erro algum. Porém preciso colocar uma progressbar quando eu for anexar algum arquivo, para que a pessoa que esteja utilizando saiba que está anexando o arquivo, como faço?

Olá, estou tendo o mesmo problema. Resolvi colocando um timer de 1 minuto, pois a compactação e feita pelo winexec. Mas meu problema maior não consigo resolver a dias, que também e na hora de enviar email. Preciso que quando o acbrmail estiver anexando um arquivo tenha uma progressbar monitorando só para o cliente não fechar a aplicação antes disso!. Preciso que a progress bar monitore! Alguem sabe como fazer? Preciso disso urgente.