Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Retornar Caminho Xml Evento

William Mattos

Por William Mattos
em ACBrNFe

 Compartilhar
  • Este tópico foi criado há 2060 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

William Mattos Enthusiast

William Mattos

Postado
Postado

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 Community Regular

peterson161

Postado
Postado

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};

Peterson de Cerqueira Matos
[email protected]
Vivo: (11) 97197-1474 / Oi: (11) 98059-4055

William Mattos Enthusiast

William Mattos

Postado
  • Autor
Postado (editado)

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 por WilliamMattos
  • 1 ano depois...
  • 3 meses depois ...
FabricioMedeiros Enthusiast

FabricioMedeiros

Postado
Postado

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 Enthusiast

FabricioMedeiros

Postado
Postado

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

  • 4 semanas depois ...
Eloi Filho Apprentice

Eloi Filho

Postado
Postado

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

 

 

Eloi Filho

Programador de Sistemas

EMail: [email protected]

Fone: (92) 99130-5174

Tiago Ravache Rising Star

Tiago Ravache

Postado
Postado

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 Apprentice

Eloi Filho

Postado
Postado

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

Programador de Sistemas

EMail: [email protected]

Fone: (92) 99130-5174

Eloi Filho Apprentice

Eloi Filho

Postado
Postado

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

 

 

Eloi Filho

Programador de Sistemas

EMail: [email protected]

Fone: (92) 99130-5174

  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Eloi Filho Apprentice

Eloi Filho

Postado
Postado

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

 

 

Eloi Filho

Programador de Sistemas

EMail: [email protected]

Fone: (92) 99130-5174

  • 2 semanas depois ...
  • 1 ano depois...
meri Newbie

meri

Postado
Postado

Retorna no caminho do arquivo de evento

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

  • Curtir 1
  • 1 ano depois...
  • 1 ano depois...
Marcio Rossato Collaborator

Marcio Rossato

Postado
Postado
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?

 

  • Administradores
Juliana Tamizou Veteran

Juliana Tamizou

Postado
  • Administradores
Postado

Bom dia.

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

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 2060 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.