Jump to content

leandroaoa

Membros
  • Content Count

    256
  • Joined

  • Last visited

  • Days Won

    2

leandroaoa last won the day on May 25

leandroaoa had the most liked content!

Community Reputation

48 Excellent

2 Followers

About leandroaoa

  • Rank
    Membro Ativo

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. boa tarde da uma olhada nesse link ai talvez possa ajudar
  2. 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
  3. 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
  4. 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.
  5. 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
  6. 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.
  7. boa tarde Pelo que vi no seu xml você esta enviando o evento no ambiente de homologacao <tpAmb>2</tpAmb> verifica ai
  8. 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
  9. verifica se o seu acbr esta atualizado as pasta schemas
  10. Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91
  11. 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;
  12. bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser
  13. 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
  14. 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
×
×
  • Create New...