-
Total de ítens
16 -
Registro em
-
Última visita
-
Days Won
1
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Eloi Filho
-
-
-
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
-
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; -
bom dia Leonardo,
vou verificar como vc fez... isso está nesse post q vc me passou?
abraços
-
Boa tarde Italo,
o que impede é q a empresa onde to fazendo as implementações usa o Delphi 5 e não pretende alterar nesse momento por conta de varios outros componentes de terceiro... entende?
abraços
-
bom dia a todos,
estou tentando instalar o ACBr no Delphi 5 e me dá a seguinte msg
Versão do Delphi não suportada pelo ACBr.
mas na na opção Versão do Delphi da instalação existe a versão Delphi 5
poderia me dizer oq e onde está errado?
abraços
Eloi Filho
Programador de Sistemas
-
Boa noite a todos,
Gostaria se possivel que alguém pudesse ver o código abaixo e me desse alguma ideia do que possa está errado, não consigo fazer o download do XML da NFe, moro em Manaus/AM e não sei se o problema é no código ou nos servidores da Sefaz daqui, desde ja agradeço aquem puder me ajudar.
procedure TfrmCadENTRADA_PRODUTO.pgcntrlcadastroChange(Sender: TObject); begin inherited; if pgcntrlcadastro.ActivePage = tbshtDownloadXML then begin dmENTRADA_PRODUTO.qryParamNFCe.close; dmENTRADA_PRODUTO.qryParamNFCe.params[0].asinteger := 1; dmENTRADA_PRODUTO.qryParamNFCe.open; pgcntrlcadastro.ActivePage := tbshtDownloadXML; try ACBrNFe2.Configuracoes.Certificados.NumeroSerie := dmENTRADA_PRODUTO.qryParamNFCeSERIE_CERTIFICADO.AsString; ACBrNFe2.Configuracoes.WebServices.UF := dmENTRADA_PRODUTO.qryParamNFCeUF_WEBSERVICE.AsString; // 'AM'; case dmENTRADA_PRODUTO.qryParamNFCeID_AMBIENTE.AsInteger of 1: ACBrNFe2.Configuracoes.WebServices.Ambiente := taProducao; 2: ACBrNFe2.Configuracoes.WebServices.Ambiente := taHomologacao; end; finally end; end; end; procedure TfrmCadENTRADA_PRODUTO.btnSalvarXMLClick(Sender: TObject); var aNOMEARQ: string; aChave, idLote, aCNPJ: string; lMsg: string; begin inherited; try dmENTRADA_PRODUTO.qryEmpresa.close; dmENTRADA_PRODUTO.qryEmpresa.open; aChave := dbedtCHAVENFe.Text; aChave := Trim(OnlyNumber(aChave)); idLote := '1'; aCNPJ := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString; ACBrNFe2.Configuracoes.Geral.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\vm40'; ACBrNFe2.EventoNFe.Evento.Clear; with ACBrNFe2.EventoNFe.Evento.Add do begin InfEvento.cOrgao := StrToInt(Copy(aChave,1,2)); infEvento.chNFe := aChave; infEvento.CNPJ := aCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; if ACBrNFe2.EnviarEventoNFe(StrToInt(idLote)) then begin if ACBrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 657 then begin // ACBrNFe2.EventoNFe.Evento.Items[0].InfEvento.cOrgao := ACBrNFe2.WebServices.EnvEvento.EventoRetorno.cOrgao; with AcbrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; end; end; MemoResp.Lines.Text := lMsg+#13#13; // ShowMessage(lMsg); MemoResp.Lines.Text := MemoResp.Lines.Text + UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); ACBrNFe2.Configuracoes.Certificados.Senha := dbedtSENHA.Text; ACBrNFe2.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe2.Configuracoes.Geral.PathSalvar := ExtractFilePath(Application.ExeName); ACBrNFe2.Configuracoes.Geral.PathSchemas := 'C:\LSI Sistemas\CLICK\Esquemas\vm40'; //'local onde está os Schemas'; //'C:\acbr\Exemplos\ACBrNFe2\Delphi\Schemas'; ACBrNFe2.Configuracoes.Geral.Salvar := true; MemoResp.Clear; MemoRespWS.Clear; with ACBrNFe2.DownloadNFe do begin Download.CNPJ := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString; // ACBrNFe2.Configuracoes.Certificados. '84.522.994/0001-04'; //Edit2.Text; with Download.Chaves.Add do begin chNFe := dbedtCHAVENFe.Text; end; end; try aNOMEARQ := ACBrNFe2.Configuracoes.Arquivos.PathNFe+'C:\LSI Sistemas\ClickLite\DownNFe\'+dbedtCHAVENFe.Text+'-down-nfe.xml'; ACBrNFe2.Download; ACBrNFe2.Configuracoes.Geral.Save(aNOMEARQ,ACBrNFe2.WebServices.DownloadNFe.retDownloadNFe.XML); MemoResp.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetornoWS; MemoRespWS.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetWS; except on e:Exception do MemoResp.Lines.Text := e.Message; end; finally begin ShowMessage('Processo Concluído com sucesso !!!'); pgcntrlcadastro.ActivePage := tbshtDados; dmENTRADA_PRODUTO.qryParamNFCe.close; dmENTRADA_PRODUTO.qryEmpresa.close; end; end; end;
os arquivos q ele me retorna são:
Obrigado
abraçs!!!
erro na instalacao no trunc2
em Dúvidas Gerais sobre o ACBr
Postado · Editado por Eloi Filho
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