Retornar Caminho Xml Evento

[William Mattos]

Olá pessoal ,

 

estou fazendo o cancelamento da nfe por evento no ACBr , mas estou com 1 problema e 1 duvida ...

 

Problema: Não esta gravando os XML's dos eventos na pasta informada.

 

Configurações Respectivas.

with ACBrNFe.Configuracoes.Arquivos do
Begin
  Salvar     := True;
  PathEvento := 'C:\ExemploNFe\Evento\';
End;

Codigo do Cancelamento abaixo.

ACBr.NotasFiscais.Clear;
  ACBr.NotasFiscais.LoadFromFile(XMLPath); // Carrega o XML
  idLote     :=  1;
  ACBr.EventoNFe.Evento.Clear;
  ACBr.EventoNFe.idLote     :=  idLote;
  with ACBr.EventoNFe.Evento.Add do
  begin
    InfEvento.tpAmb           :=  ACBr.NotasFiscais.Items[0].NFe.Ide.tpAmb;
    infEvento.CNPJ            :=  ACBr.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
    InfEvento.cOrgao          :=  ACBr.NotasFiscais.Items[0].NFe.Ide.cUF;
    InfEvento.nSeqEvento      :=  1;
    InfEvento.chNFe           :=  ChaveNFe;
    InfEvento.dhEvento        :=  Now;
    InfEvento.tpEvento        :=  teCancelamento;
    InfEvento.detEvento.nProt :=  Protocolo;
    infEvento.detEvento.xJust :=  InputBox('Justificativa','Justifique o Cancelamento','Erro de Digitacao da Nota'); // Justificativa;
    try
      ACBr.WebServices.EnvEvento.Executar;
    except
     on E  : Exception do
      ShowMessage(E.Message+#13#10+'Ocorreu um Erro ao Cancelar a Nota Fiscal , tente novamente.');
    end;

obs: O Cancelamento está funcionando e os XML's dos eventos estão sendo salvos junto com as NFe's

 

Duvida: Como retornar o path do xml de evento?

 

por exemplo: eu realizo o evento de cancelamento, depois retorno o caminho do XML do evento...

[peterson161]

Configure as pastas assim:

ACBrNFe1.Configuracoes.Arquivos.Salvar := True;
ACBrNFe1.Configuracoes.Arquivos.PastaMensal := True;
ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True;

ACBrNFe1.Configuracoes.Arquivos.PathNFe := {Pasta};
ACBrNFe1.Configuracoes.Arquivos.PathCan := {Pasta};
ACBrNFe1.Configuracoes.Arquivos.PathCCe := {Pasta} // Os cancelamentos serão salvos aqui;
ACBrNFe1.Configuracoes.Arquivos.PathDPEC := {Pasta};
ACBrNFe1.Configuracoes.Arquivos.PathEvento := {Pasta};
ACBrNFe1.Configuracoes.Arquivos.PathMDe := {Pasta};

[William Mattos]

Opa, muito obrigado...

 

eu não sabia que as notas de cancelamento ficavam em PathCCe 

 

com esse codigo que me passou ainda não estava salvando , mas basta colocar.

ACBrNFe1.Configuracoes.Arquivos.SalvarCCeCanEvento    :=  True;//estava faltando ativar essa opção
ACBrNFe1.Configuracoes.Arquivos.PathCCe               := {Pasta}; // Os cancelamentos serão salvos aqui;

Agora ... sabe me dizer como retornar o caminho do XML do Cancelamento?

 

Ex: " C:\ExemploNFe\Cancelamento\33xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx-procEventoNFe.xml "

 

 

Editado 31 Agosto, 2013 por WilliamMattos

[Ana Leika Takemura]

Você poderia salvar o caminho gerado pelo cancelamento

[FabricioMedeiros]

Bom dia!

 

Eu estava com o mesmo problema, não conseguia pegar o nome do arquivo XML que é gerado no envio do Evento.

 

Resolvi arriscar e fazer uma simples implementação nos fontes do ACBr adicionando uma propriedade que retorna o nome do arquivo.

 

Estou anexando os arquivos modificados para que os Administradores possam verificar e se acharem interessante adicionarem ao projeto principal do ACBr.

 

As alterações que fiz estão com o comentário //Fabrício 10/03/2015
 
Para usar a propriedade basta chamar a propriedade EventoRetorno.NomeArqXML após o envio do Evento.

 

Espero ter colaborado!

 

Abraços

[FabricioMedeiros]

Bom dia!

 

Eu estava com o mesmo problema, não conseguia pegar o nome do arquivo XML que é gerado no envio do Evento.

 

Resolvi arriscar e fazer uma simples implementação nos fontes do ACBr adicionando uma propriedade que retorna o nome do arquivo.

 

Estou anexando os arquivos modificados para que os Administradores possam verificar e se acharem interessante adicionarem ao projeto principal do ACBr.

 

As alterações que fiz estão com o comentário //Fabrício 10/03/2015
 
Para usar a propriedade basta chamar a propriedade EventoRetorno.NomeArqXML após o envio do Evento.

 

Espero ter colaborado!

 

Abraços

arquivos.7z

[Eloi Filho]

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

[Tiago Ravache]

Olá Eloi, dica: trechos grandes de código ficam melhor organizados quando anexados como arquivos txt mesmo, isso facilita a organização e leitura do fórum, e consta nas regras, dê uma olhadinha no tópico de regras que fica no topo do fórum.

 

Abraço!

[Eloi Filho]

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

[Eloi Filho]

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...

[Juliomar Marchetti]

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...

Bom dia!

já abriu o projeto ACBrNFeMonitor? se não abriu tente fazer mesmo ele reclamando falta de algum componente você terá a informação que necessita neste exemplo

está na pasta de projetos no svn

[Eloi Filho]

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...

[Juliomar Marchetti]

Olhou se as propriedades também estão igual?
seu componente está atualizado e recompilado com o ACBrInstall?

[Eloi Filho]

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

[Eloi Filho]

boa noite...

 

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

[Juliomar Marchetti]

Boa noite

tente pegar o acbrnfe demo e usar ele e veja se consegue reproduzir o problema com ele

[Eloi Filho]

boa noite...

 

não estou conseguindo, mas mesmo assim muito obrigado a todos

 

como faço pra fechar o post?

 

abraços

[Juliomar Marchetti]

Boa tarde

ainda está sem resolver seu problema? se sim favor tentar reproduzir com o demo informando dados ao componente

e repasse pra nós que tentaremos lhe ajudar!

[meri]

Retorna no caminho do arquivo de evento

fileName := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArquivo;

[Paulo Starling Perdigao]

Boa tarde a todos.

Como faço para pegar o caminho do danfe gerado após com comando Imprimi do acbr:

 

if bPdf then
    NotasFiscais.ImprimirPDF
else
    NotasFiscais.Imprimir;

nomeDanfe := { quero passar o nome do arquivo gerado pelo componente }

Estou usando o: ACBrNFeDANFEFR

[Marcio Rossato]

Em 10/03/2015 at 10:14, FabricioMedeiros disse:

Bom dia!

 

Eu estava com o mesmo problema, não conseguia pegar o nome do arquivo XML que é gerado no envio do Evento.

 

Resolvi arriscar e fazer uma simples implementação nos fontes do ACBr adicionando uma propriedade que retorna o nome do arquivo.

 

Estou anexando os arquivos modificados para que os Administradores possam verificar e se acharem interessante adicionarem ao projeto principal do ACBr.

 

As alterações que fiz estão com o comentário //Fabrício 10/03/2015
 
Para usar a propriedade basta chamar a propriedade EventoRetorno.NomeArqXML após o envio do Evento.

 

Espero ter colaborado!

 

Abraços

arquivos.7z

Bom dia, sabe me dizer se foi implementado está melhoria?

 

[Juliana Tamizou]

Bom dia.

Basta verificar se os arquivos que estão no svn contém a mesma.

Att.