Eloi Filho

bom dia Agnaldo Prates e Juliomar Marchetti, bom, respondendo o Agnaldo, ele dá erro sim no Demo, respondendo ao Juliomar, como eu falei no post anterior eu fiz todo o processo de desinstalação e instalação do componente de novo, apaguei todos os arquivos ligados ao FastReport e o ACBr, dcu, bpl, etc..., todos, limpei as pastas onde tinha alguma coisa q pudesse impedir a instalação nova, apaguei as pastas dos componentes, criei de novo, baixei todos os arquivos novamente, e fiz a instalação e continuou dando o mesmo erro

bom dia Juliomar Marchetti, fiz todo o processo novamente, desinstalei e instalei os dois componentes novamente, mas o erro continua aparecendo, mas é só com o FastReport o do Fortes Report está totalmente normal, existe outra forma ou alguma outra dica que eu possa fazer? agradeço desde já

Bom tarde a todos. Fiz a atualização do ACBR e utilizo o FastReport versão 6.9.14 aqui. Tudo está rodando perfeito, só não consigo visualizar a DANFE através do componente ACBrNFeDanfeFR do FastReport no formulário e também se abro algum formulário que tenho o componente, recebo um invalid parameter. A imagem abaixo é quando abro um form que tem o componente A imagem abaixo é quando quando tento adicionar o componente no formulário como eu mencionei acima, eu atualizei o ACBr, instalei, reinstalei tbm o FastReport, adicionei todas as units da uses no local correto e nada resolveu, Alguem poderia me auxiliar ? Desde já, obrigado pela atenção de todos

boa tarde, desculpem a demora em responder, mas resolvi o problema já, fiz oq ja tinha feito ant e não tinha dado certo... tirei muitos caminhos no library instalei novamente o ACBr, funcionou normalmente e depois voltei os caminhos novamente. obrigado pela ajuda e paciência de todos

segue anexo o arquivo de log log_Delphi_10_Seattle.txt

bom dia amigos, ja fiz isso td tbm, o Synapse por padrão já vem marcado e em relação ao path é muito grande eu ja coloquei todos os componentes no "C:\ACBr" e mesmo assim continuou com o mesmo erro. agradeço a quem puder ajudar... acredito que não seja só eu com esse problema.

bom dia a todos, estou com esse problema desde segunda dia 04/12/2017, gostaria de saber se alguém já tem solução para esse problema... não consigo de maneira nenhuma instalar o componente, ja pesquisei aqui no forum e fora dele, já fiz todos os procedimentos informados em todos os sites que vi e até agora nada de resolver o problema. obs: alguém por favor pra ajudar a resolver? segue o meu log anexo log_Delphi_10_Seattle.txt

boa noite... não estou conseguindo, mas mesmo assim muito obrigado a todos como faço pra fechar o post? abraços

boa noite... alguém mais tem uma ideia do q pode ta acontecendo?

sim... estão iguais... componentes atualizados e recopilados pelo ACBrInstall também

bom dia Juliomar, ja olhei no projeto ACBrNFeMonitor e percebi q os campos estão informados do mesmo jeito q eu informo no meu sistema, mas não grava nas pastas informadas, continua gravando todos os eventos na pasta Logs e somente lá... se mais alguem puder me dar uma dica, eu agradeço... abraços...

boa noite... alguém pode me ajudar com o problema citado acima? precio resolver essa situação e não to encontrando a solução, por favor alguém me ajude. abraços...

boa tarde Tiago Ravache, desculpa amigão... não me atentei pra isso... mas voltando ao assunto eu uso o ACBr Versão: 0.5.0a q eu atualizei ontem e não to conseguindo fazer o que foi dito antes. abraços

boa tar a todos eu estou com o seguinte problema: tenho minha procedure de gravação e leitura das configurações exatamente como está no demo do acbr mas na hora da gravação dos aquivos ele só grava na pasta logs alguém pode me ajudar? as procedures são essas: procedure Tf_menu.GravarConfiguracao; Var IniFile : String ; Ini : TIniFile ; StreamMemo : TMemoryStream; begin IniFile := ChangeFileExt( Application.ExeName, '.ini') ; Ini := TIniFile.Create( IniFile ); try Ini.WriteString( 'Certificado','Caminho' ,edtCaminho.Text) ; Ini.WriteString( 'Certificado','Senha' ,edtSenha.Text) ; Ini.WriteString( 'Certificado','NumSerie',edtNumSerie.Text) ; Ini.WriteBool( 'Geral','AtualizarXML' ,ckSalvar.Checked) ; Ini.WriteBool( 'Geral','ExibirErroSchema' ,ckSalvar.Checked) ; Ini.WriteString( 'Geral','FormatoAlerta' ,edtFormatoAlerta.Text) ; Ini.WriteInteger( 'Geral','FormaEmissao',cbFormaEmissao.ItemIndex) ; Ini.WriteInteger( 'Geral','ModeloDF',cbModeloDF.ItemIndex) ; Ini.WriteInteger( 'Geral','VersaoDF',cbVersaoDF.ItemIndex) ; Ini.WriteString( 'Geral','IdToken' ,edtIdToken.Text) ; Ini.WriteString( 'Geral','Token' ,edtToken.Text) ; Ini.WriteBool( 'Geral','RetirarAcentos' ,cbxRetirarAcentos.Checked) ; Ini.WriteBool( 'Geral','Salvar' ,ckSalvar.Checked) ; Ini.WriteString( 'Geral','PathSalvar' ,edtPathLogs.Text) ; Ini.WriteString( 'Geral','PathSchemas' ,edtPathSchemas.Text) ; Ini.WriteString( 'WebService','UF' ,cbUF.Text) ; Ini.WriteInteger( 'WebService','Ambiente' ,rgTipoAmb.ItemIndex) ; Ini.WriteBool( 'WebService','Visualizar',cbxVisualizar.Checked) ; Ini.WriteBool( 'WebService','SalvarSOAP',cbxSalvarSOAP.Checked) ; Ini.WriteBool( 'WebService','AjustarAut',cbxAjustarAut.Checked) ; Ini.WriteString( 'WebService','Aguardar' ,edtAguardar.Text) ; Ini.WriteString( 'WebService','Tentativas' ,edtTentativas.Text) ; Ini.WriteString( 'WebService','Intervalo' ,edtIntervalo.Text) ; Ini.WriteString( 'Proxy','Host' ,edtProxyHost.Text) ; Ini.WriteString( 'Proxy','Porta' ,edtProxyPorta.Text) ; Ini.WriteString( 'Proxy','User' ,edtProxyUser.Text) ; Ini.WriteString( 'Proxy','Pass' ,edtProxySenha.Text) ; Ini.WriteBool( 'Arquivos','Salvar' ,cbxSalvarArqs.Checked) ; Ini.WriteBool( 'Arquivos','PastaMensal' ,cbxPastaMensal.Checked) ; Ini.WriteBool( 'Arquivos','AddLiteral' ,cbxAdicionaLiteral.Checked) ; Ini.WriteBool( 'Arquivos','EmissaoPathNFe' ,cbxEmissaoPathNFe.Checked) ; Ini.WriteBool( 'Arquivos','SalvarCCeCanPathEvento',cbxSalvaCCeCancelamentoPathEvento.Checked) ; Ini.WriteBool( 'Arquivos','SepararPorCNPJ' ,cbxSepararPorCNPJ.Checked) ; Ini.WriteBool( 'Arquivos','SepararPorModelo',cbxSepararPorModelo.Checked) ; Ini.WriteString( 'Arquivos','PathNFe' ,edtPathNFe.Text) ; Ini.WriteString( 'Arquivos','PathCan' ,edtPathCan.Text) ; Ini.WriteString( 'Arquivos','PathInu' ,edtPathInu.Text) ; Ini.WriteString( 'Arquivos','PathDPEC' ,edtPathDPEC.Text) ; Ini.WriteString( 'Arquivos','PathCCe' ,edtPathCCe.Text) ; Ini.WriteString( 'Arquivos','PathEvento' ,edtPathEvento.Text) ; Ini.WriteString( 'Emitente','CNPJ' ,edtEmitCNPJ.Text) ; Ini.WriteString( 'Emitente','IE' ,edtEmitIE.Text) ; Ini.WriteString( 'Emitente','RazaoSocial',edtEmitRazao.Text) ; Ini.WriteString( 'Emitente','Fantasia' ,edtEmitFantasia.Text) ; Ini.WriteString( 'Emitente','Fone' ,edtEmitFone.Text) ; Ini.WriteString( 'Emitente','CEP' ,edtEmitCEP.Text) ; Ini.WriteString( 'Emitente','Logradouro' ,edtEmitLogradouro.Text) ; Ini.WriteString( 'Emitente','Numero' ,edtEmitNumero.Text) ; Ini.WriteString( 'Emitente','Complemento',edtEmitComp.Text) ; Ini.WriteString( 'Emitente','Bairro' ,edtEmitBairro.Text) ; Ini.WriteString( 'Emitente','CodCidade' ,edtEmitCodCidade.Text) ; Ini.WriteString( 'Emitente','Cidade' ,edtEmitCidade.Text) ; Ini.WriteString( 'Emitente','UF' ,edtEmitUF.Text) ; Ini.WriteString( 'Email','Host' ,edtSmtpHost.Text) ; Ini.WriteString( 'Email','Port' ,edtSmtpPort.Text) ; Ini.WriteString( 'Email','User' ,edtSmtpUser.Text) ; Ini.WriteString( 'Email','Pass' ,edtSmtpPass.Text) ; Ini.WriteString( 'Email','Assunto' ,edtEmailAssunto.Text) ; Ini.WriteBool( 'Email','SSL' ,cbEmailSSL.Checked ) ; StreamMemo := TMemoryStream.Create; mmEmailMsg.Lines.SaveToStream(StreamMemo); StreamMemo.Seek(0,soFromBeginning); Ini.WriteBinaryStream( 'Email','Mensagem',StreamMemo) ; StreamMemo.Free; Ini.WriteInteger( 'DANFE','Tipo' ,rgTipoDanfe.ItemIndex) ; Ini.WriteString( 'DANFE','LogoMarca' ,edtLogoMarca.Text) ; finally Ini.Free ; end; end; procedure Tf_menu.LerConfiguracao; Var IniFile : String ; Ini : TIniFile ; Ok : Boolean; StreamMemo : TMemoryStream; begin IniFile := ChangeFileExt( Application.ExeName, '.ini') ; Ini := TIniFile.Create( IniFile ); try {$IFDEF ACBrNFeOpenSSL} Label7.Top := 56; edtSenha.Top := 72; gbCertificado.Height := 144; edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe.Configuracoes.Certificados.Certificado := edtCaminho.Text; ACBrNFe.Configuracoes.Certificados.Senha := edtSenha.Text; edtNumSerie.Visible := False; Label25.Visible := False; sbtnGetCert.Visible := False; {$ELSE} edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; edtNumSerie.Text := ACBrNFe.Configuracoes.Certificados.NumeroSerie; Label6.Caption := 'Informe o número de série do certificado'#13+ 'Disponível no Internet Explorer no menu'#13+ 'Ferramentas - Opções da Internet - Conteúdo '#13+ 'Certificados - Exibir - Detalhes - '#13+ 'Número do certificado'; Label7.Top := 136; edtSenha.Top := 152; gbCertificado.Height := 184; Label7.Visible := True; edtSenha.Visible := True; edtCaminho.Visible := False; sbtnCaminhoCert.Visible := False; {$ENDIF} cbxAtualizarXML.Checked := Ini.ReadBool( 'Geral','AtualizarXML',True) ; cbxExibirErroSchema.Checked := Ini.ReadBool( 'Geral','ExibirErroSchema',True) ; edtFormatoAlerta.Text := Ini.ReadString( 'Geral','FormatoAlerta' ,'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.') ; cbFormaEmissao.ItemIndex := Ini.ReadInteger( 'Geral','FormaEmissao',0) ; cbModeloDF.ItemIndex := Ini.ReadInteger( 'Geral','ModeloDF',0) ; cbVersaoDF.ItemIndex := Ini.ReadInteger( 'Geral','VersaoDF',0) ; edtIdToken.Text := Ini.ReadString( 'Geral','IdToken' ,'') ; edtToken.Text := Ini.ReadString( 'Geral','Token' ,'') ; ckSalvar.Checked := Ini.ReadBool( 'Geral','Salvar' ,True) ; cbxRetirarAcentos.Checked := Ini.ReadBool( 'Geral','RetirarAcentos',True) ; edtPathLogs.Text := Ini.ReadString( 'Geral','PathSalvar' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Logs') ; edtPathSchemas.Text := Ini.ReadString( 'Geral','PathSchemas' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Schemas\'+GetEnumName(TypeInfo(TpcnVersaoDF), integer(cbVersaoDF.ItemIndex) )) ; with ACBrNFe.Configuracoes.Geral do begin AtualizarXMLCancelado := cbxAtualizarXML.Checked; ExibirErroSchema := cbxExibirErroSchema.Checked; FormatoAlerta := edtFormatoAlerta.Text; FormaEmissao := TpcnTipoEmissao(cbFormaEmissao.ItemIndex); ModeloDF := TpcnModeloDF(cbModeloDF.ItemIndex); VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); IdToken := edtIdToken.Text; Token := edtToken.Text; Salvar := ckSalvar.Checked; PathSalvar := edtPathLogs.Text; PathSchemas := edtPathSchemas.Text; end; cbUF.ItemIndex := cbUF.Items.IndexOf(Ini.ReadString( 'WebService','UF','SP')) ; rgTipoAmb.ItemIndex := Ini.ReadInteger( 'WebService','Ambiente' ,0) ; cbxVisualizar.Checked := Ini.ReadBool( 'WebService','Visualizar',False) ; cbxSalvarSOAP.Checked := Ini.ReadBool( 'WebService','SalvarSOAP',False) ; cbxAjustarAut.Checked := Ini.ReadBool( 'WebService','AjustarAut' ,False) ; edtAguardar.Text := Ini.ReadString( 'WebService','Aguardar' ,'0') ; edtTentativas.Text := Ini.ReadString( 'WebService','Tentativas','5') ; edtIntervalo.Text := Ini.ReadString( 'WebService','Intervalo' ,'0') ; edtProxyHost.Text := Ini.ReadString( 'Proxy','Host' ,'') ; edtProxyPorta.Text := Ini.ReadString( 'Proxy','Porta' ,'') ; edtProxyUser.Text := Ini.ReadString( 'Proxy','User' ,'') ; edtProxySenha.Text := Ini.ReadString( 'Proxy','Pass' ,'') ; with ACBrNFe.Configuracoes.WebServices do begin UF := cbUF.Text; Ambiente := StrToTpAmb(Ok,IntToStr(rgTipoAmb.ItemIndex+1)); Visualizar := cbxVisualizar.Checked; Salvar := cbxSalvarSOAP.Checked; AjustaAguardaConsultaRet := cbxAjustarAut.Checked; if DFeUtil.NaoEstaVazio(edtAguardar.Text)then AguardarConsultaRet := DFeUtil.SeSenao(StrToInt(edtAguardar.Text)<1000,StrToInt(edtAguardar.Text)*1000,StrToInt(edtAguardar.Text)) else edtAguardar.Text := IntToStr(AguardarConsultaRet); if DFeUtil.NaoEstaVazio(edtTentativas.Text) then Tentativas := StrToInt(edtTentativas.Text) else edtTentativas.Text := IntToStr(Tentativas); if DFeUtil.NaoEstaVazio(edtIntervalo.Text) then IntervaloTentativas := DFeUtil.SeSenao(StrToInt(edtIntervalo.Text)<1000,StrToInt(edtIntervalo.Text)*1000,StrToInt(edtIntervalo.Text)) else edtIntervalo.Text := IntToStr(ACBrNFe.Configuracoes.WebServices.IntervaloTentativas); ProxyHost := edtProxyHost.Text; ProxyPort := edtProxyPorta.Text; ProxyUser := edtProxyUser.Text; ProxyPass := edtProxySenha.Text; end; if ACBrNFe.Configuracoes.WebServices.Ambiente = taHomologacao then sbambiente.Visible := True else sbambiente.Visible := False; cbxSalvarArqs.Checked := Ini.ReadBool( 'Arquivos','Salvar' ,false); cbxPastaMensal.Checked := Ini.ReadBool( 'Arquivos','PastaMensal',false); cbxAdicionaLiteral.Checked := Ini.ReadBool( 'Arquivos','AddLiteral' ,false); cbxEmissaoPathNFe.Checked := Ini.ReadBool( 'Arquivos','EmissaoPathNFe',false); cbxSalvaCCeCancelamentoPathEvento.Checked := Ini.ReadBool( 'Arquivos','SalvarCCeCanPathEvento',false); cbxSepararPorCNPJ.Checked := Ini.ReadBool( 'Arquivos','SepararPorCNPJ',false); cbxSepararPorModelo.Checked := Ini.ReadBool( 'Arquivos','SepararPorModelo',false); edtPathNFe.Text := Ini.ReadString( 'Arquivos','PathNFe' ,'') ; edtPathCan.Text := Ini.ReadString( 'Arquivos','PathCan' ,'') ; edtPathInu.Text := Ini.ReadString( 'Arquivos','PathInu' ,'') ; edtPathDPEC.Text := Ini.ReadString( 'Arquivos','PathDPEC' ,'') ; edtPathCCe.Text := Ini.ReadString( 'Arquivos','PathCCe' ,'') ; edtPathEvento.Text := Ini.ReadString( 'Arquivos','PathEvento','') ; with ACBrNFe.Configuracoes.Arquivos do begin Salvar := cbxSalvarArqs.Checked; PastaMensal := cbxPastaMensal.Checked; AdicionarLiteral := cbxAdicionaLiteral.Checked; EmissaoPathNFe := cbxEmissaoPathNFe.Checked; SalvarCCeCanEvento := cbxSalvaCCeCancelamentoPathEvento.Checked; SepararPorCNPJ := cbxSepararPorCNPJ.Checked; SepararPorModelo := cbxSepararPorModelo.Checked; PathNFe := edtPathNFe.Text; PathCan := edtPathCan.Text; PathCCe := edtPathCCe.Text; PathInu := edtPathInu.Text; PathDPEC := edtPathDPEC.Text; PathEvento := edtPathEvento.Text; end; edtEmitCNPJ.Text := Ini.ReadString( 'Emitente','CNPJ' ,'') ; edtEmitIE.Text := Ini.ReadString( 'Emitente','IE' ,'') ; edtEmitRazao.Text := Ini.ReadString( 'Emitente','RazaoSocial','') ; edtEmitFantasia.Text := Ini.ReadString( 'Emitente','Fantasia' ,'') ; edtEmitFone.Text := Ini.ReadString( 'Emitente','Fone' ,'') ; edtEmitCEP.Text := Ini.ReadString( 'Emitente','CEP' ,'') ; edtEmitLogradouro.Text := Ini.ReadString( 'Emitente','Logradouro' ,'') ; edtEmitNumero.Text := Ini.ReadString( 'Emitente','Numero' ,'') ; edtEmitComp.Text := Ini.ReadString( 'Emitente','Complemento','') ; edtEmitBairro.Text := Ini.ReadString( 'Emitente','Bairro' ,'') ; edtEmitCodCidade.Text := Ini.ReadString( 'Emitente','CodCidade' ,'') ; edtEmitCidade.Text :=Ini.ReadString( 'Emitente','Cidade' ,'') ; edtEmitUF.Text := Ini.ReadString( 'Emitente','UF' ,'') ; edtSmtpHost.Text := Ini.ReadString( 'Email','Host' ,'') ; edtSmtpPort.Text := Ini.ReadString( 'Email','Port' ,'') ; edtSmtpUser.Text := Ini.ReadString( 'Email','User' ,'') ; edtSmtpPass.Text := Ini.ReadString( 'Email','Pass' ,'') ; edtEmailAssunto.Text := Ini.ReadString( 'Email','Assunto','') ; cbEmailSSL.Checked := Ini.ReadBool( 'Email','SSL' ,False) ; StreamMemo := TMemoryStream.Create; Ini.ReadBinaryStream( 'Email','Mensagem',StreamMemo) ; mmEmailMsg.Lines.LoadFromStream(StreamMemo); StreamMemo.Free; rgTipoDanfe.ItemIndex := Ini.ReadInteger( 'DANFE','Tipo' ,0) ; edtLogoMarca.Text := Ini.ReadString( 'DANFE','LogoMarca' ,'') ; if ACBrNFe.DANFE <> nil then begin ACBrNFe.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(rgTipoDanfe.ItemIndex+1)); ACBrNFe.DANFE.Logo := edtLogoMarca.Text; end; finally Ini.Free ; end; end; não consigo fazer ele gravar nas respectivas pastas obrigado a todos q puderem me ajudar... Eloi Filho

Boa Noite, desculpem aminha santa ignorancia, mas alguém pode me dizer onde fica essa função "GerarXML" usa no fonte do amigo usada na função abaixo em destaque?, pq ja rodei tudo e nao consigo resolver eu problema procedure TfrmPrincipal.GeraXml; var i: integer; begin FPath:=GerarXML(Memo2.Lines.Text); WBXML.Navigate(FPath); MessageBox(0,PChar('XML '+FPath+' gerado com sucesso!'),'Informação', MB_ICONINFORMATION+MB_TASKMODAL); btnNovaConsulta.Enabled := True; btnPegarHTML.Enabled := True; ACBrNFe1.NotasFiscais.LoadFromFile(FPath); Edit1.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome; edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); carregaItens; PageControl1.ActivePageIndex := 3; end;