leandroaoa

boa tarde da uma olhada nesse link ai talvez possa ajudar

Pessoal encrontrei aqui como estava copiando as DLLs direto das pasta DLL do ACBr algumas tem que trocar o nome exemplo libxml2.dll na que esta salva na pasta MinGW\64 esta assim libxml2-2.dll outra e a e a libxmlsec.dll que esta como nome libxmlsec1.dll fui comparando com os nomes das de 32bits como não deu erro informando a DLL que estava faltando por isso nao estava achando erro nao seria interessante deixar os nomes padrao para evitar esse tipo de erro so separando por pasta. desde ja agradeco a atencao de todos

Nao consegui editar mas vai la mais informacoes todas as DLLs copie da pasta ACBr de 64 bits salvei tanto no syswow64 e deixei direto na pasta do projeto e mesmo assim ainda da o erro acima

Fiz aqui um teste conforme abaixo nao arrastei o componente na tela so informei na uses a classe sem a classe ACBrDFe compila em 64bits assim que eu informo a classe ACBrDFe passa a dar erro agora da o erro nem chega a compilar conforme imagem em anexo. revisao 17753 win7 64bits delphi XE7 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ACBrBoleto, ACBrBase, ACBrDFe; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end.

Sim esta adicionado conforme imagem em anexo o problema esta somente nos DFe com disse acima seu adicionar somente um ACBrBoleto compila em 64 agora seu colocar ACBrNFe, CTe MDFe que usam a classe ACBrDFe da erro

Bom dia tambem estou com problema para compilar para 64Bits. Fiz um teste aqui usando o Delphi XE7 criei uma nova aplicacao de teste coloquei os componentes Boleto, balanca e executou sem erro agora se eu simplesmente colocar na uses do formulario a classe ACBrDFe ja da erro nem preciso carregar o componentes de DFe. Compilando em 32Bits esta correto. Estou com a revisao 17753. Win7 64Bits.

boa tarde Pelo que vi no seu xml você esta enviando o evento no ambiente de homologacao <tpAmb>2</tpAmb> verifica ai

verifica se você nao esta com os schemas de cte na mesma pasta do schemas de nfe olha um trecho de uma resposta do Italo Jurisato Junior A manifestação do destinatário é evento (4 tipos de eventos) e estes eventos são enviados para o Ambiente Nacional e não para a SEFAZ-Autorizadora. quer dizer que tem que ser 91

verifica se o seu acbr esta atualizado as pasta schemas

Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91

bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser Aprocveitando que ja falaram ai acima sobre o ADD vou deixar aqui a refatoracao sem o uso de With seguindo as boas praticas de programacao var Evento : TInfEventoCollectionItem; Retorno : TRetInfEvento; begin dmACBr.ACBrNFe1.EventoNFe.Evento.Clear; Evento := dmACBr.ACBrNFe1.EventoNFe.Evento.New; Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91 Evento.InfEvento.chNFe := ''; //Chave de acesso da NFe Evento.InfEvento.CNPJ := ''; //CNPJ da empresa que está emitindo o evento (o mesmo do certificado digital) Evento.InfEvento.dhEvento := now; //Data do evento Evento.InfEvento.tpEvento := ''; //teManifDestCiencia, teManifDestConfirmacao, teManifDestOperNaoRealizada, teManifDestDesconhecimento Evento.InfEvento.detEvento.xJust := ''; //Justificativa, caso seja desconhecimento ou op não realizada dmACBr.ACBrNFe1.EnviarEvento(1); Retorno := dmACBr.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento; ShowMEssage( 'Id: '+Retorno.Id+#13+ 'tpAmb: '+TpAmbToStr(Retorno.tpAmb)+#13+ 'verAplic: '+Retorno.verAplic+#13+ 'cOrgao: '+IntToStr(Retorno.cOrgao)+#13+ 'cStat: '+IntToStr(Retorno.cStat)+#13+ 'xMotivo: '+Retorno.xMotivo+#13+ 'chNFe: '+Retorno.chNFe+#13+ 'tpEvento: '+TpEventoToStr(Retorno.tpEvento)+#13+ 'xEvento: '+Retorno.xEvento+#13+ 'nSeqEvento: '+IntToStr(Retorno.nSeqEvento)+#13+ 'CNPJDest: '+Retorno.CNPJDest+#13+ 'emailDest: '+Retorno.emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(Retorno.dhRegEvento)+#13+ 'nProt: '+Retorno.nProt); end;

bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser

vou te passar um teste que fiz e autorizou a nfe em homologacao claro pois eu uso random passe os 8 digitos do cnpj pois o campo cnf não e validado se ja existe em outra nota ai todas as notas vão ficar com o cnpj

Bom dia se você não quer usar o random e salvar o numero gerado na base de dados usa então o campo data/hora de emissao assim 16071126