VagnerCiec
-
Total de ítens
68 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por 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 topicoA 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 CNPJEstou 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 -
.
-
3 horas atrás, Daniel Simoes disse:
Os anexos mudaram para TObjectList, veja o ACBrTCP-Change-log.txt
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 anexadosvar
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;-
2
-
-
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;
beginFor 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!
-
1 minuto atrás, Daniel Simoes disse:
Humm... realmente isso não será muito simples...
Lendo os fontes do ACBrMail, me desagradou o fato de ACbrEmailCli.Attachments ser um "array of record"... o correto seria ele ser um derivado de TList, como um TObjectList... vou promover a mudança...
Se quiser manipular com o array veja esse tópico:
http://pages.cs.wisc.edu/~rkennedy/array-deleteObrigado!
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. -
8 minutos atrás, Daniel Simoes disse:
Menos Ctrl-C, Ctrl-V...
AttachmentName é um nome de variável qualquer, do tipo String, que você deve criar, para receber o NameRef do Anexo
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.rarExistem 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.
-
1 hora atrás, Daniel Simoes disse:
Veja o exemplo:
For I := 0 to Length(ACBrMail1.Attachments) do begin AttachmentName := ACBrMail1.Attachments[I].NameRef; end;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.
Download do XML
em ACBrNFe
Postado
V
Verifiquei sim a Pasta SChemas e ta somente NFe lá dentro!
Consegui fazer o Download do XML, porém utilizando o Seguinte código!
CNFE.DistribuicaoDFePorUltNSU(15,'26.936.355/0001-80',CNFE.WebServices.DistribuicaoDFe.retDistDFeInt.UltNsu);
Então ele me retorna Todos os XML da última Nsu
Mas eu quero Fazer o Download de uma Chave Especifica!
Através desse código aqui!
CNFE.DistribuicaoDFePorChaveNFe(15, '26.936.355/0001-80',
'15170703592264000170550010003468861000137351');
Só que retorna o Seguinte erro
Quero fazer o download da NF-e Especifica! Qual código usar?